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
v�o l�c

12 komentar:

  1. Unknown18 Maret 2013 pukul 13.24

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

    BalasHapus
  2. Suparno, M.Pd25 Mei 2013 pukul 20.52

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

    BalasHapus
  3. Azmal7 Oktober 2013 pukul 15.00

    good job mas......

    BalasHapus
  4. Suparno, M.Pd1 November 2013 pukul 01.04

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

    BalasHapus
  5. Digitalizer5 Juni 2014 pukul 09.58

    Nyimak gan.

    BalasHapus
  6. Unknown6 September 2014 pukul 21.57

    skema g jelas pak. itu gerbang apa dioda

    BalasHapus
  7. Digitalizer9 Oktober 2014 pukul 23.49

    Ijin belajar pak,...

    BalasHapus
  8. pujangga pinggir kota3 Desember 2014 pukul 13.14

    kalo registernya lebih dari 8 gimana pak?

    BalasHapus
  9. Suparno, M.Pd26 Januari 2015 pukul 20.52

    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
  10. M. Jhoni13 Maret 2016 pukul 18.08

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  11. M. Jhoni13 Maret 2016 pukul 18.11

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

    trima kasih pak

    BalasHapus
  12. Suparno, M.Pd12 Mei 2016 pukul 15.05

    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 !