Menampilkan karater tanda tanya pada dot matrik 5x7 bascom avr dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Menampilkan karater tanda tanya pada  dot matrik 5x7 bascom avr dan at mega 8535

Gambar skema rangkaian Menampilkan karater tanda tanya pada  dot matrik 5x7 bascom avr dan at mega 8535

Source code Menampilkan karater tanda tanya pada  dot matrik 5x7 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 4

Portd = Lookup(i , Kolom)

Portc = Lookup(i , Baris)

Waitms 5

Next

Loop

End

Kolom:

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

Baris:

Data &B11111001,&B11111110,&B10001110,&B1110110, &B11111001