Pages

Jumat, 30 Maret 2012

Animasi text dengan dot matrix 7 x 40

Rangkaian dan Bahan :


  1. Bahan :
    • 1 IC Atamega 8
    • 8 IC 74HC573
    • 8 Gerbang NOT
    • 8 Dot Matrix 5 x 7
  2. Rangkaian :
  3. Code List :
    $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
      M = 165 - S
      E = M + 4
      For Refresh = 1 To 5
       Scan = &H01
       For I = M 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
    
     For S = 0 To 153
      M = 153 - S
      E = M + 4
      For Refresh = 1 To 5
       Scan = &H01
       For I = M To E
    
        Portd = Lookup(i , Text01)
        Portb = 1
        Portb = 0
    
        A = I + 5
        Portd = Lookup(a , Text01)
        Portb = 2
        Portb = 0
    
        A = I + 10
        Portd = Lookup(a , Text01)
        Portb = 4
        Portb = 0
    
        A = I + 15
        Portd = Lookup(a , Text01)
        Portb = 8
        Portb = 0
    
        A = I + 20
        Portd = Lookup(a , Text01)
        Portb = 16
        Portb = 0
    
        A = I + 25
        Portd = Lookup(a , Text01)
        Portb = 32
        Portb = 0
    
        A = I + 30
        Portd = Lookup(a , Text01)
        Portb = 64
        Portb = 0
    
        A = I + 35
        Portd = Lookup(a , Text01)
        Portb = 128
        Portb = 0
    
        Portc = Scan
        Rotate Scan , Left , 1
        Waitms 5
        Portc = 0
    
       Next I
      Next Refresh
     Next S
    
    
     For S = 0 To 45
      M = 45 - S
      E = M + 4
      For Refresh = 1 To 5
       Scan = &H01
       For I = M To E
    
        Portd = Lookup(i , Text02)
        Portb = 1
        Portb = 0
    
        A = I + 5
        Portd = Lookup(a , Text02)
        Portb = 2
        Portb = 0
    
        A = I + 10
        Portd = Lookup(a , Text02)
        Portb = 4
        Portb = 0
    
        A = I + 15
        Portd = Lookup(a , Text02)
        Portb = 8
        Portb = 0
    
        A = I + 20
        Portd = Lookup(a , Text02)
        Portb = 16
        Portb = 0
    
        A = I + 25
        Portd = Lookup(a , Text02)
        Portb = 32
        Portb = 0
    
        A = I + 30
        Portd = Lookup(a , Text02)
        Portb = 64
        Portb = 0
    
        A = I + 35
        Portd = Lookup(a , Text02)
        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:
    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
    Data &H7F , &H20 , &H18 , &H20 , &H7F , &H00                'M
    Data &H7F , &H08 , &H14 , &H22 , &H41 , &H00                'K
    Data &H00 , &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
    Text01:
    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 &H02 , &H01 , &H41 , &H7E , &H40 , &H00                'J
    Data &H00 , &H41 , &H7F , &H01 , &H00 , &H00                'l
    Data &H1F , &H08 , &H10 , &H10 , &H0F , &H00                'n
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
    Data &H3F , &H44 , &H44 , &H44 , &H3F , &H00                'A
    Data &H7F , &H09 , &H11 , &H11 , &H0E , &H00                'b
    Data &H00 , &H11 , &H5F , &H01 , &H00 , &H00                'i
    Data &H1F , &H10 , &H0C , &H10 , &H0F , &H00                'm
    Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00                'a
    Data &H1F , &H08 , &H10 , &H10 , &H0F , &H00                'n
    Data &H18 , &H05 , &H05 , &H05 , &H1E , &H00                'y
    Data &H1E , &H01 , &H01 , &H02 , &H1F , &H00                'u
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
    Data &H7F , &H10 , &H08 , &H04 , &H7F , &H00                'N
    Data &H0E , &H11 , &H11 , &H11 , &H0E , &H00                'o
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
    Data &H00 , &H21 , &H7F , &H01 , &H00 , &H00                '1
    Data &H36 , &H49 , &H49 , &H49 , &H36 , &H00                '8
    Data &H00 , &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 &H00 , &H00 , &H00 , &H00 , &H00
    Text02:
    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 &H00 , &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 &H00 , &H00 , &H00 , &H00 , &H00
    

12 komentar:

  1. mantap buanget artikelnya pak......jadi pengen praktek nich.kalau ic registernya 74HC573 diganti dengan 74hc595 menggunakan gerbang not uln2003 bisa gak pak?????

    BalasHapus
  2. Untuk penggatian register 74HC573 dengan 74HC595 berbeda karena 74HC573 PIPO sedangkan 74HC595 SIPO

    BalasHapus
  3. Untuk jalan ke kiri, ke atas dan ke bawah secript harus dirubah mas

    BalasHapus
  4. skema g jelas pak. itu gerbang apa dioda

    BalasHapus
  5. kalo registernya lebih dari 8 gimana pak?

    BalasHapus
  6. Untuk register lebih dari 8 tinggal di sambungkan dan di hubungkan dengan port yang lain jika sidah penuh ganti ic dengan type lain dan disesuaikan codenya gan

    BalasHapus
  7. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  8. pak, minta pencerahannya, tolong jelaskan yang bagian ini : for s=0 to 165. 165 itu data yang mana pak???

    trima kasih pak

    BalasHapus
  9. for s = 0 to 165 maksudnya jumlah data untuk text00 sebanyak 166 kolom (0 s/d 165)
    yaitu jumlah kolom yang digunakan untuk menampilkan tulisan pada data text00 ( tiap huruf = 6 kolom)

    BalasHapus

Silahkan berkomentar !