Membuat Program LCD

LAPORAN PRAKTEK 5 Membuat Program LCD

---

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 Program LCD
   • Menguji coba rangkaian dengan benar
   
   
2. Alat & Bahan :
   A.Alat :
   • Komputer dengan simulator Proteus
   • Gambar rencana kerja
   • Rencana program
   
   B.Bahan :
   • IC ATMEGA32
   • LCD 16*2 (LM016L)
   
   
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.Gambar Rangkaian Program LCD
   
   
   
   B.Gambar Kode ASCII
   
   
   
   
   
6. Source Code
   

   '===================================
   'LCD BASCOM AVR
   'PROGRAMER :Rabindreas
   'COMPANY   :SMK BINAWIYATA SRAGEN
   '===================================
   
   $regfile = "m32def.dat"
   $crystal = 8000000
   
   Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5,
   Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 , Rs=
   Portd.0
   Config Lcd = 20 * 2
   
   Deflcdhar 1 , 32 , 10 , 31 , 14 , 4 , 32 , 32 , 32
   'replace?with number(0-7)'
   
   Dim Y As Integer
   
   Do
   
   Cls
   Cursor Off
   Locate 1 , 1
   Lcd Chr(1) ; "LCD Bascom AVR" ; Chr(1)
   Locate 2 , 1
   Lcd "SMK BINAWIYATA"
   Wait 1
   
   Cls
   Cursor Off
   Locate 1 , 1
   Lcd "SMK BINAWIYATA-TEST LCD BASCOM AVR"
   For Y = 1 To 46
      Shifttlcd Left
      Waitms 250
      Next
   
      Cls
   
   
   Loop
   

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 )