Membuat Rangkaian MEMBUAT KENDALI MOTOR DC Untuk Putar Kanan,Kiri,Dengan "START","STOP","OL" Dan "RESET"

LAPORAN PRAKTEK 7
Membuat Rangkaian MEMBUAT KENDALI MOTOR DC Untuk Putar Kanan,Kiri,Dengan "START","STOP","OL" Dan "RESET"

1. Tujuan :
   Setelah siswa praktek diharapkan dapat :

   
   

   Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).

   Menguji Coba Rangkaian Dengan Benar.

   Membuat Rangkaian MEMBUAT KENDALI MOTOR DC Untuk Putar Kanan,Kiri,Dengan "START","STOP","OL" Dan "RESET"

   
   
2. Alat Dan Bahan :
   1. Alat :
      
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.
      
      
   2. Bahan :
      • Ic AT89S51
      • 3 LED
      • Resistor 1K
      • motor
      • relay
      • kondensator
      • AND
      • counter
      • lcd 16*2
      • button
      • resistor pack
   
   
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
   
   Config Lcdpin = Pin , Db4 = P0.4 , Db5 = P0.5 , Db6 = P0.6  
   Config Lcdpin = Pin ,Db7 = P0.7 , E = P0.0 , Rs = P0.1
   Cursor Off
   P2 = 0
   P3 = 0
   
   
   Locate 1 , 1
   Lcd "   MOTOR PUTAR   "
   Locate 2 , 1
   Lcd "   KANAN /KIRI"
   Wait 2
   Locate 1 , 1
   Lcd "      Oleh      "
   Locate 2 , 1
   Lcd "  SEPTIAN DWI HERLANGGA "
   Wait 3
   Locate 1 , 1
   Lcd "     TELAH         "
   Locate 2 , 1
   Lcd "      SIAP          "
   Wait 4
   
   Do
   If P1.0 = 0 And P2 = 0 Then
   P2 = 1
   P3.1 = 1
   
   Locate 1 , 1
   Lcd "  MOTOR BERPUTAR  "
   Locate 2 , 1
   Lcd "     KANAN    "
   End If
   
   If P1.1 = 0 And P2 = 1 Then
   P2 = 0
   P3.1 = 0
   
   Locate 1 , 1
   Lcd "  MOTOR SEDANG  "
   Locate 2 , 1
   Lcd "    BERHENTI   "
   End If
   
   If P1.2 = 0 And P2 = 0 Then
   P2 = 2
   P3.0 = 1
   
   Locate 1 , 1
   Lcd "  MOTOR BERPUTR  "
   Locate 2 , 1
   Lcd "      KIRI   "
   End If
   
   If P1.3 = 0 And P2 = 2 Then
   P2 = 0
   P3.0 = 0
   
   Locate 1 , 1
   Lcd "  MOTOR SEDANG  "
   Locate 2 , 1
   Lcd "    BERHENTI   "
   End If
   
   If P1.4 = 0 And P2 = 1 Then
   P2 = 4
   P3 = 4
   
   Locate 1 , 1
   Lcd "  MOTOR SEDANG  "
   Locate 2 , 1
   Lcd "  !!OVERLOAD!!   "
   End If
   
   If P1.4 = 0 And P2 = 2 Then
   P2 = 8
   P3 = 4
   
   Locate 1 , 1
   Lcd "  MOTOR SEDANG  "
   Locate 2 , 1
   Lcd "  !!OVERLOAD!!   "
   End If
   
   If P1.5 = 0 And P2 = 4 Then
   P2 = 0
   P3 = 0
   
   Locate 1 , 1
   Lcd "     MOTOR        "
   Locate 2 , 1
   Lcd "     READY        "
   End If
   
   If P1.5 = 0 And P2 = 8 Then
   P2 = 0
   P3 = 0
   
   Locate 1 , 1
   Lcd "     MOTOR        "
   Locate 2 , 1
   Lcd "     READY        "
   End If
   
   Loop
   

7. Kesimpulan : <