Moving sign sederhana dengan BASCOM (‘YES’ berjalan kekiri) dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Moving sign sederhana dengan BASCOM (‘YES’ berjalan kekiri) dengan bascom dan at mega 8535

Skematik rangkaian Moving sign sederhana dengan BASCOM (‘YES’ berjalan kekiri) dengan bascom dan at mega 8535

source code  Moving sign sederhana dengan BASCOM (‘YES’ berjalan kekiri) dengan bascom dan at mega 8535

$regfile = "m8535.dat"

$crystal = 16000000

Config Portc = Output

Config Portd = Output

Dim I As Byte , J As Byte , B As Byte , K As Byte

Dim Geser As Byte , Tem As Byte

Geser = 1

Do

For I = 0 To 20

B = Geser - 1

For K = 0 To 4

Portd = Lookup(k , Kolom)

Portc = Lookup(b , Baris)

Waitms 2

Incr B

Tem = Geser + 3

If B > Tem Then B = Geser - 1

Next

Next

Incr Geser

If Geser > 18 Then Geser = 1

Loop

End

Kolom:

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

Baris:

Data &B11111000,&B11110111,&B10000111,&B11110111,&B11111000

Data &B11111111

Data &B11000001,&B10110110,&B10110110,&B10110110,&B10110110

Data &B11111111

Data &B10111001,&B10110110,&B10110110,&B10110110,&B11001110

Data &B11111

Data &B11111000,&B11110111,&B10000111,&B11110111,&B11111000