MEMBUAT KENDALI 4 MOTOR DC BERURUTAN

BioDaTAKu

Nama	Suhardi
Kelas	XI TOI
NO/Induk	33/8901
Alamat	Banaran,Jenggrik,Kedawung,Sragen
Tempat	Sragen
Tanggal Lahir	09, Agustus, 1996
Jenis Kelamin	Pria
Laporan	Pengendali 4 Motor DC Berjalan secara Berurutan

LAPORAN PRAKTEK 8

Pengendali 4 Motor DC Berjalan secara Berurutan

---

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 4 Motor DC Berjalan secara Berurutan

Alat Dan Bahan :

1. Alat :
   
   • Komputer Dengan Software Proteus.
   • Gambar Rencana Kerja.
   • Rencana Program.
   
   
2. Bahan :
   • IC AT89S51
   • LED BLUE
   • LED GREEN
   • LED RED
   • LED YELLOW
   • LM044L
   • MINRES1K
   • BUTTON
   • MOTOR
   • RELAY
   • RESPACK-8
   • 1N4001
   • 2N2219

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 :

'=====================================================================
' Pengendali 4 Motor DC Berjalan secara Berurutan
' Nama    : Suhardi
' Tanggal : 26 Maret 2013
' Sekolah : SMK Binawiyata Sragen
' Program : Teknik Otomasi Industri
'=====================================================================
$regfile = "reg51.dat"
$crystal = 12000000
Config Lcdpin = Pin , Db4 = P0.4 , Db5 = P0.5 , Db6 = P0.6 , Db7 = P0.7 , E = P0.1 , Rs = P0.0
Config Lcd = 20 * 4
Cursor Off
P2 = 128
P3 = 255
P1 = 0
Locate 1 , 1
Lcd "PENGENDALI MOTOR DC"
Locate 2 , 1
Lcd " DENGAN AT89S51"
Wait 2
Locate 1 , 1
Lcd "TEK.OTOMASI INDUSTRI "
Locate 2 , 1
Lcd " SMK BINAWIYATA SRG "
Wait 3
Locate 3 , 1
Lcd " .:: MOTOR READY ::. "
Do
'Star Motor 1
If P3.0 = 0 And P2 = 128 Then
P1 = 1
P2 = 1
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 : 0 "
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Star Motor 2
If P3.1 = 0 And P1 = 1 Then
P1 = 3
P2 = 3
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Star Motor 3
If P3.2 = 0 And P1 = 3 Then
P1 = 7
P2 = 7
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 :((=))"
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Star Motor 4
If P3.3 = 0 And P1 = 7 Then
P1 = 15
P2 = 15
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 :((=))"
Locate 4 , 12
Lcd "M4 :((=))"
End If
'Stop Motor 4
If P3.7 = 0 And P1 = 15 Then
P1 = 7
P2 = 7
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 :((=))"
Locate 4 , 12
Lcd "M4 : 0"
End If
'Stop Motor 3
If P3.6 = 0 And P1 = 7 Then
P1 = 3
P2 = 3
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Stop Motor 2
If P3.5 = 0 And P1 = 3 Then
P1 = 1
P2 = 1
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 : 0 "
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Stop Motor 1
If P3.4 = 0 And P1 = 1 Then
P1 = 0
P2 = 128
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 : 0 "
Locate 3 , 12
Lcd "M2 : 0 "
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
Loop

Kesimpulan :

THANK YOU VERY MUCH