Runing Text 7 x 56 Dot Matrix dengan AT89S51

1. Rangkaian Simulator dengan Proteus :

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 !

Share: