Menyalakan Lampu LED di P0

LAPORAN PRAKTEK 1
MENYALAKAN LAMPU LED DI PORT 0

1. Tujuan :
   Setelah siswa praktek diharapkan dapat :
   • Melakukan pemograman mikrokontroler dengan bahasa basic (BASCOM)
   • Membuat rangkaian pengendali nyala lampu LED di p0
   • Menguji coba rangkaian dengan benar
   
   
2. Alat dan Bahan :
   1. Alat :
      1. Komputer dengan software simulator proteus
      2. Gambar rencana kerja
      3. Rencana program
   2. Bahan :
      1. resistor 10k
      2. IC AT89s52
      3. resistor 220 ohm
      4. kondensator 33pf
      5. crystal 12 mhz
      6. lampu led
      
      
3. Keselamatan Kerja :
   • berdoalah sebelum melakukan praktek
   • dilarang bersendagurau saat praktek
   • menghidupkan dan mematikan komputer dengan prosedurnya
4. Intruksi Kerja :
   • Memastikan alat dan bahan siap digunakan
   • Memastikan telah memahami gambar kerja dan sourca code program
   • Menulis source program dgn bascom 8051
   • Membuat rangkaian simulator dengan proteus
   • Melakukan kompiler kode program untuk mendapatkan file *HEX
   • melakukan download file *HEX kedalam IC AT89s51
   • Melakukanuji rangkaian simulator
   • jika terjadi kesalahan lakukan perbaikan program atau rangkaian
   • membuat rangkaian kerja
   • membuat kesimpulan kerja
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 : 
8. Mengetahui

   ---

   INTRUKTUR		NAMA SISWA
   SUPARNO,Spd		SEPTIAN DWI HERLANGGA

    

Filecrop.com - search and download Mediafire, Hotfile and Rapidshare files