Membuat jam digital sederhana dengan bascom avr dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

skema rangkaian  jam digital sederhana dengan bascom avr dan at mega 8535

source code jam digital sederhana dengan bascom avr dan at mega 8535

$regfile = "m8535.dat"

$crystal = 16000000

Config Portc = Output

Config Portd = Output

Dim I As Byte

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

Dim Men_pul As Byte,Men_sat As Byte,Det_pul As Byte,Det_sat As Byte

Dim Jam_pul As Byte , Jam_sat As Byte

Jam = 10

Menit = 58

Detik = 50

Do

Jam_pul = Jam / 10

Jam_sat = Jam Mod 10

Men_pul = Menit / 10

Men_sat = Menit Mod 10

Det_pul = Detik / 10

Det_sat = Detik Mod 10

For I = 0 To 75

Portd = &HFE

Portc = Lookup(jam_pul , Angka)

Waitms 2

Portd = &HFD

Portc = Lookup(jam_sat , Angka)

Waitms 2

Portd = &HFB

Portc = Lookup(men_pul , Angka)

Waitms 2

Portd = &HF7

Portc = Lookup(men_sat , Angka)

Waitms 2

Portd = &HEF

Portc = Lookup(det_pul , Angka)

Waitms 2

Portd = &HDF

Portc = Lookup(det_sat , Angka)

Waitms 2

Next

Incr Detik

If Detik > 59 Then

Detik = 0

Incr Menit

If Menit > 59 Then

Menit = 0

Incr Jam

If Jam > 23 Then

Jam = 0

End If

End If

End If

Loop

End

Angka:

Data &HC0,&HF9,&HA4,&HB0,&H99,&H92,&H82,&HF8,&H80,&H90