Membuat Jam Digital

DS1307 merupakan IC Real Time Clock (RTC) yang dapat diakses dengan mikrokontroler menggunakan komunikasi serial I2C. Berikut ini contoh untuk menampilkan RTC DS1307 pada LCD menggunakan Bascom AVR. Dengan adanya RTC ini maka kita dapat menampilkan waktu yang berupa jam, menit, dan detik, serta tanggal, yaitu hari, bulan dan tahun, seperti yang tercatum di datasheet DS1307.

Koneksi RTC DS1307 dengan Mikrokontroler

Berikut ini gambar schematic dari rangkaian RTC DS1307 yang disimulasikan di proteus 7.4 dengan menggunakan Mikrokontroler ATmega32.

Data jam pada RTC disimulasi ini dapat dirubah dengan menekan swicth seting jam agar terhubung ke groud. Maka  data detik, menit dan jam dapat disesuaikan, Berikut ini listing program rtc ds1307 menggunakan bascom AVR.

$regfile = "m32def.dat"

$crystal = 12000000

'konfigurasi pin LCD

   Config Porta = Output

   Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.2 , Rs = Porta.0

   Config Lcd = 16 * 4 : Cursor Off

   Cls

   $lib "ds1307clock.lib"

'konfigurasi pin Sda & Scl untuk komunikasi I2C

   Config Sda = Portc.1

   Config Scl = Portc.0

'nilai konstanta Ds1307  saat tulis dan baca

   Const Ds1307w = &HD0

   Const Ds1307r = &HD1

'konfiguasi input pust bottom

   Config Pinb.0 = Input , Pinb.1 = Input , Pinb.2 = Input , Pinb.3 = Input

   Config Debounce = 30

'Pendeklarasian variabel yang digunakan'

   Dim A As Byte , B As Byte , Data1 As Byte , C As Byte

   Dim Detik As Byte , Menit As Byte , Jam As Byte

Cursor Off

Cls

'program utama

Cls

   Main:

   Do

   Gosub Ds1307

   Gosub Seting

   Gosub Pustbottom

Loop

Ds1307:

      I2cstart

      I2cwbyte Ds1307w                   'kirim alamat register RAM

      I2cwbyte 0                         'kirim alamat o  yang dibaca detik

      I2cstart

      I2cwbyte Ds1307r                   'baca alamat register RAM

      I2crbyte Detik , Ack               'Variable Detik

      I2crbyte Menit , Ack               'Variable Menit

      I2crbyte Jam , Nack                'variable Jam

      I2cstop

Detik = Makedec(detik) : Menit = Makedec(menit) : Jam = Makedec(jam)

If Detik > 59 Then Detik = 0

If Menit > 59 Then Menit = 0

If Jam > 23 Then

Jam = 0

Gosub Detik

End If

Return

Seting:

If Pinb.3 = 1 Then Gosub Disply_seting

Disply_seting:

      Locate 3 , 1

      Lcd "Jam = "

      If Jam < 10 Then

      Lcd "0" ; Jam ; ":" ;

      Else

      Lcd Jam ; ":" ;

      End If

      If Menit < 10 Then

      Lcd "0" ; Menit ; ":" ;

      Else

      Lcd Menit ; ":" ;

      End If

      If Detik < 10 Then

      Lcd "0" ; Detik

      Else

      Lcd Detik

      End If

Locate 4 , 1

If Jam = 6 Then

Lcd "selamat pagi "

End If

Locate 4 , 1

If Jam = 10 Then

Lcd "selamat Siang"

End If

Locate 4 , 1

If Jam = 16 Then

Lcd "selamat sore"

End If

Return

Pustbottom:

   Debounce Pinb.0 , 0 , Detik , Sub

   Debounce Pinb.1 , 0 , Menit , Sub

   Debounce Pinb.2 , 0 , Jam , Sub

Return

Detik:

      Incr Detik

      If Detik > 59 Then Detik = 0

      Detik = Makebcd(detik)

      I2cstart

      I2cwbyte Ds1307w

      I2cwbyte 0

      I2cwbyte Detik

      I2cstop

      Return

Menit:

      Incr Menit

      If Menit > 59 Then Menit = 0

      Menit = Makebcd(menit)

      I2cstart

      I2cwbyte Ds1307w

      I2cwbyte 1

      I2cwbyte Menit

      I2cstop

      Return

Jam:

      Incr Jam

      If Jam > 23 Then Jam = 0

      Jam = Makebcd(jam)

      I2cstart

      I2cwbyte Ds1307w

      I2cwbyte 2

      I2cwbyte Jam

      I2cstop

Return

semoga bisa bermafaat ..^_^