Jam Digital menggunakan Mikro ATMega8 dan Bahasa BASCOM-AVR

Belajar menggunakan LCD dengan ATMega8535 tidaklah sulit, dengan menggunakan bahasa Bascom AVR hal ini menjadi mudah dilakukan terutama bagi pemula. Berikut adalah rangkaian konfigurasi pin pada mikro ATMega8535 dan contoh program yang dapat dicoba. Selamat Mencoba.

Gambar Rangkaian :

 

Rangkaian Tampilan LCD. 

 Kode Bascom AVR

  1 $regfile = "m8def.dat"
  2 $crystal = 1000000
  3 '------------------------  lcd -----------------------------------------------
  4 Config Lcd = 16 * 2
  5 Config Lcdpin = Pin , Rs = Pind.0 , E = Pind.1 , Db4 = Pind.2 , Db5 = Pind.3 , Db6 = Pind.4 , Db7 = Pind.5
  6 Cls
  7 
  8 '---------------------------  ds 1307 -----------------------------------------
  9 $lib "ds1307clock.lib"
 10 'configure the scl and sda pins
 11 Config Sda = Portd.7
 12 Config Scl = Portd.6
 13 'address of ds1307
 14 Const Ds1307w = &HD0                                        ' Addresses of Ds1307 clock
 15 Const Ds1307r = &HD1
 16 '------------------------------ key --------------------------------------------
 17 Config Pinc.1 = Input
 18 Config Pinc.2 = Input
 19 Config Pinc.3 = Input
 20 Config Pinc.4 = Input
 21 '------------------------------------------------------------------------------
 22 Config Debounce = 30
 23 
 24 Dim A As Byte , B As Byte , Data1 As Byte , C As Byte
 25 
 26 Dim Seco As Byte , Mine As Byte , Hour As Byte
 27 
 28 '----------------------------------------------------------------------------
 29 Cursor Off
 30 '-----------------------------
 31 Cls
 32 Locate 1 , 1
 33 Lcd "Jam Digital LCD"
 34 Locate 2 , 1
 35 Lcd "Bina Project"
 36 Wait 2
 37 
 38 For A = 1 To 15
 39  Shiftlcd Left
 40 Waitms 30
 41 Next
 42 
 43 Cls
 44 '-------------------------------------------------------------------------------
 45 Main:
 46 Do
 47          Gosub Ds1307
 48          Gosub 24_12
 49          Gosub Chekkey
 50 
 51 Loop
 52 '-------------------------------------------------------------------------------
 53 Ds1307:
 54         I2cstart                                            ' Generate start code
 55         I2cwbyte Ds1307w                                    ' send address
 56         I2cwbyte 0                                          ' start address in 1307
 57         I2cstart                                            ' Generate start code
 58         I2cwbyte Ds1307r                                    ' send address
 59         I2crbyte Seco , Ack                                 'sec
 60         I2crbyte Mine , Ack                                 ' MINUTES
 61         I2crbyte Hour , Nack                                ' Hours
 62         I2cstop
 63 
 64         Seco = Makedec(seco) : Mine = Makedec(mine) : Hour = Makedec(hour)
 65 
 66         If Seco > 59 Then Seco = 0
 67         If Mine > 59 Then Mine = 0
 68         If Hour > 23 Then
 69         Hour = 0
 70         Gosub Seco
 71         End If
 72 
 73 Return
 74 '-------------------------------------------------------------------------------
 75  24_12:
 76  If Pinc.4 = 1 Then Gosub Disply_24
 77  If Pinc.4 = 0 Then Gosub Disply_12
 78  Return
 79 '-------------------------------------------------------------------------------
 80 Disply_24:
 81 
 82          Locate 1 , 1
 83          Lcd "Jam = " ; Hour ; ":" ;
 84          If Mine < 10 Then
 85             Lcd "0" ; Mine ; ":" ;
 86          Else
 87             Lcd Mine ; ":" ;
 88          End If
 89 
 90          If Seco < 10 Then
 91             Lcd "0" ; Seco
 92          Else
 93             Lcd Seco
 94          End If
 95 
 96          Locate 2 , 6
 97          Lcd "(24 Jam)"
 98 
 99 Return
100 
101 '-------------------------------------------------------------------------------
102 Disply_12:
103 
104          If Hour = 0 Then Hour = 12
105          If Hour > 12 Then Hour = Hour - 12
106 
107          Locate 1 , 1
108          Lcd "Jam = " ; Hour ; ":" ;
109          If Mine < 10 Then
110             Lcd "0" ; Mine ; ":" ;
111          Else
112             Lcd Mine ; ":" ;
113          End If
114 
115          If Seco < 10 Then
116             Lcd "0" ; Seco
117          Else
118             Lcd Seco
119          End If
120 
121          Locate 2 , 6
122          Lcd "(12 Jam)"
123 Return
124 '-------------------------------------------------------------------------------
125 Chekkey:
126 
127          Debounce Pinc.1 , 0 , Seco , Sub
128          Debounce Pinc.2 , 0 , Mine , Sub
129          Debounce Pinc.3 , 0 , Hour , Sub
130 
131 
132 Return
133 '---------------------------------------------
134 Seco:
135          Incr Seco
136          If Seco > 59 Then Seco = 0
137          Seco = Makebcd(seco)
138          I2cstart                                           ' Generate start code
139          I2cwbyte Ds1307w                                   ' send address
140          I2cwbyte 0                                         ' starting address in 1307
141          I2cwbyte Seco
142          I2cstop
143 Return
144 
145 '-------------------------------------
146 Mine:
147          Incr Mine
148          If Mine > 59 Then Mine = 0
149          Mine = Makebcd(mine)
150          I2cstart                                           ' Generate start code
151          I2cwbyte Ds1307w                                   ' send address
152          I2cwbyte 1                                         ' starting address in 1307
153          I2cwbyte Mine
154          I2cstop
155 Return

Share: