MEMBUAT PROGRAM LCD

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 5

MEMBUAT PROGRAM TAMPILAN LCD

---

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 Program Tampilan LCD.

   
   
2. Alat Dan Bahan :
   1. Alat :
      
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.
      
      
   2. Bahan :
      • Ic ATMEGA32
      • LM016L
   
   
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 = "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 Lcdpin = 16 * 2
   
   Deflcdchar 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) ; "SUHARDI" ; Chr(1)
   Locate 4 , 1
   Lcd " SMK BINAWIYATA "
   Wait 1
   
   Cls
   Cursor Off
   Locate 1 , 1
   Lcd " SMK BINAWIYATA - TEST LCD BASCOM AVR "
   For Y = 1 To 46
       Shiftlcd Right
       Waitms 100
       Next
   
       Cls
   
   Loop
   

7. Kesimpulan :

THANK YOU VERY MUCH