Hasan BWnime

1. Tujuan Praktek.
   • Setelah praaktek siswa diharap dapat:
   1. Siswa dapat membuat rangkaian sederhana dengan mengunakan sebuah motor.
   2. Siswa dapat mengetahui cara kerja putaran motor DC.
   3. Siswa dapat menentukan putaran motor.
   4. siswa dapat menampilkan indikator dengan LCD.
2. Alat dan Bahan.
   1. Alat
      • Komputer dengan aplikasi Bascom 8051.
      • Sofware ISIS Proteus.
   2. Bahan
      • Lcd 16*2.
      • Ic AT89C51.
      • Clock.
      • Motor DC.
      • Lampu LED(kunig,hijau,merah).
      • Button.
      • Dioda 1N4001.
      • Transistor 2N2219.
      • Relay.
      • Respack.
3. Keselamata Kerja.
   1. Pakailah seragam praktek.
   2. Berdo'alah sebelum melaksanakan praktek.
   3. Pahami semua teori yang diberikan Instrukture.
   4. Dalam menjalankan komputer denga prosedur yang benar.
   5. Jangan bersendau gurau dalam melaksanakan praktek.
4. Langkah Kerja.
   1. Siapkan alat dan bahan yang akan digunakan.
   2. Pastikan alat dan bahan yang akan digunakan dalam keadaan baik.
   3. Buatlah gambar kerja.
   4. Rangkailah semua komponen seperti gambar kerja.
   5. Buatlah source code dengan Bascom 8051.
   6. Lalu kompile untuk mendapatkan file Hex*.
   7. Masukan file Hex* kedalam simulator ISIS Proteus.
   8. Jalankan programnya.
5. Gambar Kerja. 

  VI.Souce Code.


$regfile = "m8535.dat"
$crystal = 16000000

Cursor Off

Declare Sub Kanan()
Declare Sub Kiri()
Declare Sub Berhenti()
Declare Sub Ol()
Declare Sub Siap()

Ddrd.0 = 0 : Portd.0 = 1
Ddrd.1 = 0 : Portd.1 = 1
Ddrd.2 = 0 : Portd.2 = 1
Ddrd.3 = 0 : Portd.3 = 1
Ddrd.4 = 0 : Portd.4 = 1
Config Portb = Output
Config Portd = Input
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.2 , Db4 = Portc.4,
Config Lcdpin = Pin , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config Lcd = 16 * 2
Cursor Off
Cls
Locate 1 , 1
Lcd "   PENGENDALI   "
Locate 2 , 1
Lcd "    MOTOR DC    "
Portb = 8

Do
'Motor Putar Kanan
If Pind.0 = 0 And Portb = 8 Then
Locate 1 , 1
Lcd "  MOTOR SEDANG  "
Locate 2 , 1
Lcd " PUTAR KANAN>>> "
Gosub Kanan
End If

'Motor Putar Kiri
If Pind.1 = 0 And Portb = 8 Then
Locate 1 , 1
Lcd "  MOTOR SEDANG  "
Locate 2 , 1
Lcd " PUTAR KIRI <<< "
Gosub Kiri
End If

'stop
If Pind.2 = 0 And Pinb.2 = 0 Then
Locate 1 , 1
Lcd "MOTOR BERHENTI"
Locate 2 , 1
Lcd "    <<STOP>>    "
Gosub Berhenti
End If

If Pind.3 = 0 Then
Locate 1 , 1
Lcd " GAESS OVERLOAD "
Locate 2 , 1
Lcd " SILAKAN RESET  "
Gosub Ol
End If

If Pind.4 = 0 Then
Locate 1 , 1
Lcd "   MOTOR SIAP   "
Locate 2 , 1
Lcd "   DIJALANKAN   "
Gosub Siap
End If

Loop

Kanan:
Portb = 18
Waitms 0.3
Return
'
Kiri:
Portb = 17
Waitms 0.3
Return

Berhenti:
Portb = 8
Waitms 0.3
Return

Ol:
Portb = 4
Waitms 25
Portb = 0
Waitms 2
Portb = 4
Waitms 25
Portb = 0
Waitms 25
Portb = 4
Waitms 25
Portb = 0
Waitms 25
Portb = 4
Waitms 25
Portb = 0
Waitms 25
Portb = 4
Waitms 25
Portb = 0
Waitms 25
Locate 1 , 1
Lcd "       OK       "
Locate 2 , 1
Lcd "   RESET DULU   "
Return

Siap:
Portb = 8
Waitms 0.3
Return

End

Kesimpulan.

• Dalam praktik ini kita harus memahami prinsip kerja Motor DC,sehingga
  dapat membuat Motor berputar ke kanan/kiri.