penekanan push button di port 3 untuk mengendalikan led di port 0

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

MENYALAKAN LAMPU LED DI PORT 0 Dilengkapi Dengan Push button

---

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 Pengendali Nyala Lampu LED Di P0 Dilengkapi Dengan Push Button.

Alat Dan Bahan :

1. Alat :
   
   • Komputer Dengan Software Proteus.
   • Gambar Rencana Kerja.
   • Rencana Program.
   
   
2. Bahan :
   • Ic AT89S51
   • LED
   • Resistor 10K
   • Resistor 100R
   • Kondensator 33 p
   • Button
   • Crystal
   • Resistor Pack 8

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 89s51.
• Membuat rangkaian simulator rangkaian dengan proteus.
• Membuat komplier kode program untuk mendapatkan file *HEX.
• Melakukan uji coba rangkaian simulator.

Gambar Kerja : 

Source Code :

$regfile = "reg51.dat"
$crystal = 12000000

Do

If P3.0 = 0 And P0.0 = 1 Then
P0.0 = 0

Waitms 250
End If

If P3.0 = 0 And P0.0 = 0 Then
P0.0 = 1
Waitms 250
End If

If P3.1 = 0 And P0.1 = 1 Then
P0.1 = 0
Waitms 250
End If

If P3.1 = 0 And P0.1 = 0 Then
P0.1 = 1
Waitms 250
End If

If P3.2 = 0 And P0.2 = 1 Then
P0.2 = 0
Waitms 250
End If

If P3.2 = 0 And P0.2 = 0 Then
P0.2 = 1
Waitms 250
End If

If P3.3 = 0 And P0.3 = 1 Then
P0.3 = 0
Waitms 250
End If

If P3.3 = 0 And P0.3 = 0 Then
P0.3 = 1
Waitms 250
End If

If P3.4 = 0 And P0.4 = 1 Then
P0.4 = 0
Waitms 250
End If

If P3.4 = 0 And P0.4 = 0 Then
P0.4 = 1
Waitms 250
End If


If P3.5 = 0 And P0.5 = 1 Then
P0.5 = 0
Waitms 250
End If

If P3.5 = 0 And P0.5 = 0 Then
P0.5 = 1
Waitms 250
End If

If P3.6 = 0 And P0.6 = 1 Then
P0.6 = 0
Waitms 250
End If

If P3.6 = 0 And P0.6 = 0 Then
P0.6 = 1
Waitms 250
End If

If P3.7 = 0 And P0.7 = 1 Then
P0.7 = 0
Waitms 250
End If

If P3.7 = 0 And P0.7 = 0 Then
P0.7 = 1
Waitms 250
End If

Loop

Kesimpulan :

siap dibuka