Animasi Dot Matrik (titik berjalan dari pojok kiri bawah keatas trus ke dalam sampai pusat) dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Animasi Dot Matrik (titik berjalan dari pojok kiri bawah keatas trus ke dalam sampai pusat) dengan bascom dan at mega 8535

Skema rangkaian Animasi Dot Matrik (titik berjalan dari pojok kiri bawah keatas trus ke dalam sampai pusat) dengan bascom dan at mega 8535

Source code Animasi Dot Matrik (titik berjalan dari pojok kiri bawah keatas trus ke dalam sampai pusat) dengan bascom dan at mega 8535

$regfile = "m8535.dat"

$crystal = 16000000

Config Portc = Output

Config Portd = Output

Dim I As Byte , J As Byte

Do

For I = 0 To 33

Portd = Lookup(i , Kolom)

Portc = Lookup(i , Baris)

Waitms 100

Next

For J = 0 To 20

For I = 34 To 36

Portd = Lookup(i , Kolom)

Portc = Lookup(i , Baris)

Waitms 5

Next

Next

For J = 0 To 20

For I = 37 To 41

Portd = Lookup(i , Kolom)

Portc = Lookup(i , Baris)

Waitms 5

Next

Next

Loop

End

Kolom:

Data &HFE , &HFE , &HFE , &HFE , &HFE , &HFE , &HFE

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

Data &HEF , &HEF , &HEF , &HEF , &HEF , &HEF

Data &HF7 , &HFB , &HFD

Data &HFD , &HFD , &HFD , &HFD , &HFD

Data &HFB , &HF7

Data &HF7 , &HF7 , &HF7 , &HF7

Data &HFB , &HFB , &HFB

Data &HFD , &HFB , &HF7

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

Baris:

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

Data &HFE , &HFE , &HFE , &HFE

Data &HFD , &HFB , &HF7 , &HEF , &HDF , &HBF

Data &HBF , &HBF , &HBF

Data &HDF , &HEF , &HF7 , &HFB , &HFD

Data &HFD , &HFD

Data &HFB , &HF7 , &HEF , &HDF

Data &HDF , &HEF , &HF7

Data &B11100011 , &B11101011 , &B11100011

Data &B11000001,&B11011101,&B11011101,&B11011101,&B11000001