Hardware durch ausreichend Tests funktionsfähig.
Meine Software sieht wie folgt aus :
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb.2 = Output
Config Pinc.5 = Input
Config Debounce = 30
Dim V As Integer
V = 0
Pinc.5 = 1
Debounce Pinc.5 , 0 , A , Sub
A:
V = V + 1
Return
If V = 1 Then
Portb.2 = 1
Else
Portb.2 = 0
End If
End
Die Led (Portb.2) sollte nach einmaligen betätigen der Taste (Pinc.5) leuchten, tut sie jedoch nicht!
Debounce Funktion und die Variable , sowie den Taster und Led habe ich einzelnd getestet, hat soweit alles funktioniert.
Denke das Problem liegt softwareseitig beim Einprellen der Taste.
Danke schonmal im Voraus !!!
Meine Software sieht wie folgt aus :
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb.2 = Output
Config Pinc.5 = Input
Config Debounce = 30
Dim V As Integer
V = 0
Pinc.5 = 1
Debounce Pinc.5 , 0 , A , Sub
A:
V = V + 1
Return
If V = 1 Then
Portb.2 = 1
Else
Portb.2 = 0
End If
End
Die Led (Portb.2) sollte nach einmaligen betätigen der Taste (Pinc.5) leuchten, tut sie jedoch nicht!
Debounce Funktion und die Variable , sowie den Taster und Led habe ich einzelnd getestet, hat soweit alles funktioniert.
Denke das Problem liegt softwareseitig beim Einprellen der Taste.
Danke schonmal im Voraus !!!