2. Source Codenya :
Teman teman yang menghendaki kode sourcenya seperti contoh di bawah ini silahkan di modifikasi sendiri. Ini contoh haanya jalan ke kiri untuk jalan ke kanan ke atas dan ke bawah silahkan di di modifikasi , prinsipnya hampirsama saja :
maaf untuk datanya ada yang neggunakan desimal dan ada yang menggunkan hexadesimal !
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = Output
Config Portc = Output
Config Portd = Output
Dim Scan As Byte
Dim I As Byte
Dim Refresh As Byte
Dim Index As Byte
Dim S As Byte
Dim M As Byte
Dim E As Byte
Dim A As Byte
Do
For S = 0 To 165
E = S + 4
For Refresh = 1 To 5
Scan = &H01
For I = S To E
Portd = Lookup(i , Text00)
Portb = 1
Portb = 0
A = I + 5
Portd = Lookup(a , Text00)
Portb = 2
Portb = 0
A = I + 10
Portd = Lookup(a , Text00)
Portb = 4
Portb = 0
A = I + 15
Portd = Lookup(a , Text00)
Portb = 8
Portb = 0
A = I + 20
Portd = Lookup(a , Text00)
Portb = 16
Portb = 0
A = I + 25
Portd = Lookup(a , Text00)
Portb = 32
Portb = 0
A = I + 30
Portd = Lookup(a , Text00)
Portb = 64
Portb = 0
A = I + 35
Portd = Lookup(a , Text00)
Portb = 128
Portb = 0
Portc = Scan
Rotate Scan , Left , 1
Waitms 5
Portc = 0
Next I
Next Refresh
Next S
Loop
End 'end program
Text00:
'contoh data hexadesimal
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H31 , &H49 , &H49 , &H49 , &H46 , &H00 'S
'contoh data desimal
Data 126 , 1 , 1 , 1 , 126 , 0 'U
Data 127 , 72 , 72 , 72 , 48 , 0
Data 31 , 36 , 68 , 36 , 31 , 0
Data 127 , 72 , 76 , 74 , 49 , 0
Data 127 , 48 , 8 , 6 , 127 , 0
Data 62 , 65 , 65 , 65 , 62 , 0
'contoh data hexadesimal
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H7F , &H49 , &H49 , &H49 , &H36 , &H00 'B
Data &H00 , &H11 , &H5F , &H01 , &H00 , &H00 'i
Data &H1F , &H08 , &H10 , &H10 , &H0F , &H00 'n
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00 'a
Data &H1E , &H01 , &H06 , &H01 , &H1E , &H00 'w
Data &H00 , &H11 , &H5F , &H01 , &H00 , &H00 'i
Data &H18 , &H05 , &H05 , &H05 , &H1E , &H00 'y
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00 'a
Data &H10 , &H7E , &H11 , &H01 , &H02 , &H00 't
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00 'a
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Data &H31 , &H49 , &H49 , &H49 , &H46 , &H00 'S
Data &H1F , &H08 , &H10 , &H10 , &H08 , &H00 'r
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00 'a
Data &H18 , &H25 , &H25 , &H25 , &H3E , &H00 'g
Data &H0E , &H15 , &H15 , &H15 , &H0C , &H00 'e
Data &H1F , &H08 , &H10 , &H10 , &H0F , &H00 'n
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Contohnya dapat di download di sini : Klik aja !