MEMBUAT KENDALI TAMPILAN DOT MATRIX Untuk Menampilkan Nama

BioDaTAKu

Nama	Suhardi
Kelas	XI TOI
NO/Induk	33/8901
Alamat	Banaran,Jenggrik,Kedawung,Sragen
Tempat	Sragen
Tanggal Lahir	09, Agustus, 1996
Jenis Kelamin	Pria
Hobi	Internetan, Mencoba hal-hal baru,dll

LAPORAN PRAKTEK 9

MEMBUAT KENDALI TAMPILAN DOT MATRIX Untuk Menampilkan Nama

---

Wellcome in My html

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 :
   
   
6. 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                                  'S
   Data 30 , 1 , 1 , 30 , 0 , 0                                  'U
   Data 0 , 63 , 8 , 7 , 0 , 0                                   'H
   Data 0 , 19 , 21 , 21 , 15 , 0                                'A
   Data 8 , 15 , 16 , 16 , 8 , 0                                 'R
   Data 0 , 6 , 9 , 63 , 0 , 0                                   'D
   Data 0 , 8 , 47 , 0 , 0 , 0                                   'I
   
   
   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
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   

7. Kesimpulan :

THANK YOU VERY MUCH