Membuat Kendali Tampilan DOT Matrix Untuk Menampilkan Nama

Geplaas deur hendra_prasetyo on Vrydag 03 Mei 2013 / Etikette:

Nama hendra prasetyo
Kelas XI TOI
NO/Induk 15/8883
Alamat Balong,jenawi,karanganyar
Tempat karanganyar
Tanggal Lahir 05, september, 1995
Jenis Kelamin Pria
Hobi olahraga

MEMBUAT KENDALI TAMPILAN DOT MATRIX Untuk Menampilkan Nama

Wellcome in hendra prasetyo

  1. Tujuan :
    Setelah siswa praktek diharapkan dapat :


    • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
    • Menguji Coba Rangkaian Dengan Benar.
    • Membuat Rangkaian MEMBUAT KENDALI TAMPILAN DOT MATRIX Untuk Menampilkan Nama

  2. Alat Dan Bahan :
    1. Alat :
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.

    2. Bahan :
      • Ic 74HC573
      • IC ATMEGA 8
      • MATRIX 5*7 GREEN
      • NOT

  3. Keselamatan Kerja :
    • Berdo'alah sebelum melakukan Praktek.
    • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
    • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

  4. Instruksi Kerja :
    • Memastikan alat dan bahan siap digunakan.
    • Memastikan telah memahami gambar kerja dan source code program.
    • Menulis source program dengan bascom AVR.
    • Membuat rangkaian simulator rangkaian dengan proteus.
    • Membuat komplier kode program untuk mendapatkan file *HEX.
    • Melakukan uji coba rangkaian simulator.
  5. Gambar Kerja :


  7. Source Code : 
    $regfile = "m8def.dat"
$crystal = 10000000

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 1
Portc = 0

Next I

Next Refresh
Next S

Loop

End

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 &H00 , &H00 , &H00 , &H00 , &H00
Data 0 , 9 , 21 , 22 , 0 , 0                                 
Data 30 , 1 , 1 , 30 , 0 , 0                                  
Data 0 , 63 , 8 , 7 , 0 , 0                                   
Data 0 , 19 , 21 , 21 , 15 , 0                                
Data 8 , 15 , 16 , 16 , 8 , 0                                 
Data 0 , 6 , 9 , 63 , 0 , 0                                   
Data 0 , 8 , 47 , 0 , 0 , 0                                   


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
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
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
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
  8. Kesimpulan :

0 opmerkings:

Plaas 'n opmerking