Simulator Pengendali Motor DC Putar kanan Kiri

Pada artikel kali ini saya posting sebuah simulator pengendali motor DC dengan Proteus untuk :

1. Putar kanan
2. Putar Kiri
3. Stop
4. Overload

dilengkapi dengan tampilan LCD 2 x 16 yang dapat melihat kondisi jalannya program :
Gambar Rangkaianya lengkap :

List Code Bascom AVR :
$regfile = "m8535.dat"
$crystal = 4000000

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

Ddrc.0 = 0 : Portc.0 = 1
Ddrc.1 = 0 : Portc.1 = 1
Ddrc.2 = 0 : Portc.2 = 1
Ddrc.3 = 0 : Portc.3 = 1
Ddrc.4 = 0 : Portc.4 = 1

Portb = 8

Config Portb = Output
Config Portc = Input
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Cursor Off

Locate 1 , 1
Lcd "  MOTOR READY  "
Locate 2 , 1
Lcd "BINA ELEKTRONIKA"
Wait 2



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

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

If Pinc.2 = 0 Then
Locate 1 , 1
Lcd "MOTOR BERHENTI "
Locate 2 , 1
Lcd "               "
Gosub Berhenti
End If

If Pinc.3 = 0 Then
Locate 1 , 1
Lcd "WADUH OVERLOAD "
Locate 2 , 1
Lcd "SILAHKAN RESET "
Gosub Ol
End If

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

Loop

Kanan:
Portb = 2
Waitms 0.3
Return

Kiri:
Portb = 1
Waitms 0.3
Return

Berhenti:
Portb = 8
Waitms 0.3
Return

Ol:
Portb = 4
Waitms 0.3
Return

Siap:
Portb = 8
Waitms 0.3
Return

End

Selamat mencoba dan semoga bermanfaat ......