Counting down 4 digit dengan bascom avr dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Skema rangkaian Counting down 4 digit dengan bascom avr dan at mega 8535

Source code  Counting down 4 digit dengan bascom avr dan at mega 8535

$regfile = "m8535.dat"

$crystal = 16000000

Config Portc = Output

Config Portd = Output

Dim I As Byte , J As Byte, Count As Integer , Tem1 As Integer , Tem2

As Integer

Dim Rib As Integer , Rat As Integer , Pul As Integer , Sat As

Integer

Count = 9999

Do

Rib = Count / 1000

Tem1 = Count Mod 1000

Rat = Tem1 / 100

Tem2 = Tem1 Mod 100

Pul = Tem2 / 10

Sat = Tem2 Mod 10

For J = 0 To 50

Portd = &HFE

Portc = Lookup(rib , Angka)

Waitms 5

Portd = &HFD

Portc = Lookup(rat , Angka)

Waitms 5

Portd = &HFB

Portc = Lookup(pul , Angka)

Waitms 5

Portd = &HF7

Portc = Lookup(sat , Angka)

Waitms 5

Next

Decr Count

If Count < 0 Then Count = 9999

Loop

End

Angka:

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

, &H90