gandalf
13.04.2005, 12:40
Hallo Leute,
ich knoble gerade an einer einfachen Motorsteuerung.
Wie schaffe ich das die Eingänge gegeneinander zu verriegeln ?
So stelle ich mir das vor:
Wenn Taster "Auf" gedrückt ist, dann sperre Taster "Zu" für 30 Sekunden und umgekehrt. Sinn ist ein "spielen" (und damit Kurzschluß des Motorstroms) bei gleichzeitiger Betätigung der Taster zu verhindern. Ein "Loslassen" der Taster führt zu sofortigem "Stop"
.
.
If Pind.1 = 0 Then 'Wenn Taster "Auf" (Pin PD1) gedrückt
Call Eins: 'Sub "Auf"
Else 'Wenn Taster nicht gedrückt
Call Drei: 'Grüne LED aus
End If
'-------------------------------------------------
'
If Pind.2 = 0 Then 'Wenn Taster "Zu" (Pin PD2) gedrückt
Call Zwei: 'Sub "Zu"
Else 'Wenn Taster nicht gedrückt
Call Drei: 'Grüne LED aus
End If
'-------------------------------------------------------------------------------
Sub Eins: 'Subroutine "AUF"
Portd.5 = 1 'Grüne LED (Pin PD5) " AUF " an
'Waitms 450
End Sub
Sub Zwei: 'Subroutine " ZU "
Portd.6 = 1 'Rote LED (Pin PD6) " ZU " an
'Waitms 450
End Sub
Sub Drei: 'Subroutine " AUS "
Portd.5 = 0 'Grüne LED (Pin PD5) "AUF " aus
Portd.6 = 0 'Rote LED (Pin PD6) " ZU " aus
'Waitms 450
End Sub
ich knoble gerade an einer einfachen Motorsteuerung.
Wie schaffe ich das die Eingänge gegeneinander zu verriegeln ?
So stelle ich mir das vor:
Wenn Taster "Auf" gedrückt ist, dann sperre Taster "Zu" für 30 Sekunden und umgekehrt. Sinn ist ein "spielen" (und damit Kurzschluß des Motorstroms) bei gleichzeitiger Betätigung der Taster zu verhindern. Ein "Loslassen" der Taster führt zu sofortigem "Stop"
.
.
If Pind.1 = 0 Then 'Wenn Taster "Auf" (Pin PD1) gedrückt
Call Eins: 'Sub "Auf"
Else 'Wenn Taster nicht gedrückt
Call Drei: 'Grüne LED aus
End If
'-------------------------------------------------
'
If Pind.2 = 0 Then 'Wenn Taster "Zu" (Pin PD2) gedrückt
Call Zwei: 'Sub "Zu"
Else 'Wenn Taster nicht gedrückt
Call Drei: 'Grüne LED aus
End If
'-------------------------------------------------------------------------------
Sub Eins: 'Subroutine "AUF"
Portd.5 = 1 'Grüne LED (Pin PD5) " AUF " an
'Waitms 450
End Sub
Sub Zwei: 'Subroutine " ZU "
Portd.6 = 1 'Rote LED (Pin PD6) " ZU " an
'Waitms 450
End Sub
Sub Drei: 'Subroutine " AUS "
Portd.5 = 0 'Grüne LED (Pin PD5) "AUF " aus
Portd.6 = 0 'Rote LED (Pin PD6) " ZU " aus
'Waitms 450
End Sub