Menyalakan Led Di Port 0 Dilengkapi Dengan Button

LAPORAN PRAKTEK 2
MENYALAKAN LED DI PORT 0 Dilengkapi Dengan Button

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.

   
   
2. 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
   
   
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 89s51.
   • 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 = "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
   

7. kesimpulan