membuat progam tampilan lcd

Nama	Hendra
Kelas	XI TOI
NO/Induk	15/8883
Alamat	Balong,jenawi,karanganyar
Tempat	karanganyar
Tanggal Lahir	05,september, 1995
Jenis Kelamin	Pria
Hobi	Internetan, Mencoba hal-hal baru,dll

LAPORAN PRAKTEK

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.

Alat Dan Bahan :

1. Alat :
   
   • Komputer Dengan Software Proteus.
   • Gambar Rencana Kerja.
   • Rencana Program. Loop
   
   
2. Bahan :
   • Ic AT89S51
   • LED
   • Resistor 10K
   • Resistor 220 ohm
   • Kondensator 33 p

Keselamatan Kerja :

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

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.

Gambar Kerja :

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) ; "HENDRA P" ; 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

Kesimpulan :

thanyk you siap dibuka