Pages

Selasa, 23 April 2013

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 !

19 komentar:

  1. ntar mas tenang aja pasti aku kasihi

    BalasHapus
  2. saya minta sourcecodenyajuga donk..sm mungkin skematik yg lebih jelas karena yg ini kan pk bus dan juga berupa image..

    BalasHapus
  3. Silahkan kunjungi kembali sudah ada source codenya

    BalasHapus
  4. Mas, saya lagi belajar mikro. Mohon penjelasannya, bagaimana kode hexa desimal menjadi huruf "B" mialnya ?

    BalasHapus
  5. Salam kenal, dischematic ada gerbang not itu ic apa ya pakenya..

    BalasHapus
  6. maav mas mau nanyak? untuk U2 s/d u9 itu pake apa ? aku cari to u c90 g ketemu.

    BalasHapus
  7. Bos mau tanya kalau yg pake sistem spi dengan ic max7219 dot matrix 8x8 gimana ya ?pusing nih...tolong kirim ke email donk!terima kasih atas bantuannya.

    BalasHapus
  8. Sebetulnya untuk IC utama boleh pakai Atmega atau MCS sama saja tinggal programnya menyesuaikan aja mas sedangn IC yang lain 74HC573 sebagai PIPO dan Gerbang NOT atau 7404 atau 7406

    BalasHapus
  9. mas tolong beri tahu source codenya membuat huruf F dan L

    BalasHapus
  10. mas bisa kirimi shematic n source code ke emai riyadi88@gmail.com
    pengen belajar
    terima kasih

    BalasHapus
  11. gan ane mau tanya di file datanya tu ada tulisan desimal 65 hex 41 maksudtnya itu apa ane kaga paham... tolong pencerahannya. trimss.
    Titus

    BalasHapus
  12. pak mohon penjelasannya coding yang ini:For S = 0 To 165.
    cara menghitingnya sampe angka 165 gmna???
    trima kasih pak bantuannya...

    BalasHapus
  13. mas . tolong schema nya "fahrizal.yudi@gmail.com"
    pleas

    BalasHapus
  14. For S = 0 To 165
    E = S + 4
    For Refresh = 1 To 5
    Scan = &H01
    For I = S To E

    Maaf pak mau nanya nilai2 deaimal itu didapat dari mana ya itungannya
    Email aja pak trimakasih
    jagresdosq@gmail.com

    BalasHapus
  15. A = I + 25
    Portd = Lookup(a , Text00)
    Portb = 32
    Portb = 0
    mas klo ini maksudnya apa?

    BalasHapus

Silahkan berkomentar !