Membuat Kendali Tampilan DOT Matric untuk Menampilkan Nama Berjalan Kekiri

LAPORAN PRAKTEK 9 Membuat Kendali Tampilan DOT Matric untuk Menampilkan Nama Berjalan Kekiri

---

Dikerjakan Oleh: Rabindreas ,NIS :8894 ,Kelas :XI TOI

---

1. Tujuan:
   A.Setelah siswa praktek diharapkan dapat :
   • Melakukan pemrograman mikrokontroler dengan bahasa Basic (Bascom)
   • Membuat rangkaian pengendali Tampilan DOT Matric untuk Menampilkan Nama Berjalan Kekiri
   • Menguji coba rangkaian dengan benar
   
   
2. Alat & Bahan :
   A.Alat :
   • Komputer dengan simulator Proteus
   • Gambar rencana kerja
   • Rencana program
   
   B.Bahan :
   • IC ATMEGA8
   • LCD MATRIX 5*7
   • IC 74HC573
   • NOT
   
   
3. Keselamatan Kerja
   
   • Berdo'a sebelum melakukan praktik
   • Tidak boleh bersendau gurau saat pelaksanaan praktik
   • Menghidupkan & mematikan komputer dengan prosuder yang benar
   
   
4. Instruksi Kerja
   
   • Memastikan alat & bahan siap digunakan
   • Memastikan telah memahami gambar kerja & source code program
   • Menulis source program dengan Bascom 89s51
   • Membuat rangkaian simulator rangkaian dengan Proteus
   • Membuat complier kode program untuk mendapatkan file #HEX
   • Melakukan uji coba rangkaian simulator
   
   
5. Gambar
   
   
   A.Rangkaian DOT Matric
   
   
   
   B.Tampilan pada DOT Matric
   
   
   
   
   
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
   
   A = I + 40
   Portd = Lookup(a , Text00)
   Portb = 256
   Portb = 0
   
   A = I + 45
   Portd = Lookup(a , Text00)
   Portb = 512
   Portb = 0
   
   A = I + 50
   Portd = Lookup(a , Text00)
   Portb = 1024
   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 50 , 73 , 73 , 73 , 38 , 0
   Data 126 , 1 , 1 , 1 , 126 , 0
   Data 127 , 8 , 28 , 34 , 65 , 0
   Data 50 , 73 , 73 , 73 , 38 , 0
   Data 127 , 73 , 73 , 65 , 99 , 0
   Data 50 , 73 , 73 , 73 , 38 , 0
   Data &H00 , &H00 , &H00 , &H00 , &H00
   Data 2 , 21 , 21 , 17 , 15 , 0
   Data 2 , 5 , 5 , 5 , 31 , 0
   Data 2 , 21 , 21 , 17 , 15 , 0
   Data 31 , 1 , 1 , 3 , 0 , 0
   Data 2 , 21 , 21 , 17 , 15 , 0
   Data 31 , 4 , 4 , 3 , 0 , 0
   Data &H00 , &H00 , &H00 , &H00 , &H00
   Data 127 , 72 , 72 , 72 , 48 , 0
   Data 0 , 1 , 47 , 9 , 0 , 0
   Data 31 , 1 , 1 , 3 , 0 , 0
   Data 0 , 1 , 47 , 9 , 0 , 0
   Data 31 , 4 , 4 , 3 , 0 , 0
   Data 2 , 21 , 21 , 17 , 15 , 0
   Data 15 , 16 , 16 , 16 , 15 , 0
   Data 31 , 4 , 14 , 17 , 0 , 0
   Data 30 , 1 , 1 , 1 , 30 , 0
   Data &H00 , &H00 , &H00 , &H00 , &H00
   Data 62 , 65 , 65 , 65 , 62 , 0
   Data 127 , 1 , 1 , 1 , 3 , 0
   Data 127 , 73 , 73 , 65 , 99 , 0
   Data 127 , 8 , 8 , 8 , 127 , 0
   Data &H00 , &H00 , &H00 , &H00 , &H00
   Data 127 , 73 , 73 , 65 , 99 , 0
   Data 127 , 8 , 28 , 34 , 65 , 0
   Data 62 , 65 , 65 , 65 , 62 , 0
   Data &H00 , &H00 , &H00 , &H00 , &H00
   Data 127 , 1 , 6 , 1 , 127 , 0
   Data 0 , 65 , 127 , 65 , 0 , 0
   Data 65 , 127 , 65 , 65 , 62 , 0
   Data 0 , 65 , 127 , 65 , 0 , 0
   Data 64 , 33 , 31 , 33 , 64 , 0
   Data 31 , 36 , 68 , 36 , 31 , 0
   Data 127 , 16 , 8 , 4 , 127 , 0
   Data 64 , 64 , 127 , 64 , 64 , 0
   Data 62 , 65 , 65 , 65 , 62 , 0
   
   

7. Kesimpulan
   

   Dalam membuat rangkaian maupun pemrograman mikrokontroler,harus benar-benar paham/mengerti
   teori yang di berikan oleh instruktur,setelah sudah memahaminya,mulai memraktekannya dengan kete-
   litian & kesabaran.

   Mengetahui

   ---

   INTRUKTUR		NAMA SISWA
   ( Suparno,Spd. )		( Rabindreas ,P )