Hallo


Hab da n Problem.

Ich will in Bascom den Zustand eines Pins mit einer Variable vergleichen.
funzt aber nicht so ganz. Hab leider keinen Schimmer warum.

Dachte mir, vielleicht kann mir hier einer weiterhelfen.



Quelltext:


$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600



Dim Links As Byte
Dim Rechts As Byte
Dim Enter As Byte
Dim Status As Byte





Abfrage:

If Pina.1 = 1 Then Status = 1 Else Status = 0
End If

Do

If Pina.1 = Status Then
Else Goto Linksdreh
End If

If Pina.2 = Status Then
Else Goto Rechtsdreh
End If

Loop




Linksdreh:

Set Pind.1
Wait 1
Reset Pind.1
Waitms 500
Goto Abfrage



Rechtsdreh:

Set Pind.3
Wait 1
Reset Pind.3
Waitms 500
Goto Abfrage



Greeez