Menampilkan angka 4 digit dg tampilan 0123 dengan bascom avr dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Skema rangkaian Menampilkan angka 4 digit dg tampilan 0123 dengan bascom avr dan at mega 8535

Source code Menampilkan angka 4 digit dg tampilan 0123 dengan bascom avr dan at mega 8535

$regfile = "m8535.dat"

$crystal = 16000000

Config Portc = Output

Config Portd = Output

Dim I As Byte

Do

For I = 0 To 3

Portd = Lookup(i , Digit)

Portc = Lookup(i , Angka)

Waitms 5

Next

Loop

Digit:

Data &HFE , &HFD , &HFB , &HF7

Angka:

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