Programm funktioniert nicht --> Hilfe

[strunz]

Hallo Leute,

ich habe meinen Bot nun soweit, dass ich denn mal "zum Leben" erwecken könnte. Leider bin ich im Programmieren noch ein Newbie.
Habe bis her nur das "Hello World" Programm erfolgreich zum laufen gebracht. (Also funktioniert die Hardware)

Jetzt wollte ich das Programm für die Liniensensorik schreiben, und bin so weit gekommen:

Rem   Portc.0 = 1 --> Motor links vor
Rem   Portc.1 = 1 --> Motor links rück
Rem   Portc.2 = 1 --> Motor rechts vor
Rem   Portc.3 = 1 --> Motor rechts rück

Rem Sensor links --> Porta.0 (sw =1)
Rem Sensor rechts --> Porta.1 (sw =1)


    $regfile = "m32def.dat"
    $crystal = 4000000
    $baud = 9600



   Config Portc = Output
   Config Porta = Input



   Do

   If Porta.0 = 0 Then
   Portc.0 = 1
   Portc.1 = 0
   Portc.2 = 0
   Portc.3 = 0
   End If


   If Porta.0 = 1 Then
   Portc.0 = 1
   Portc.1 = 0
   Portc.2 = 1
   Portc.3 = 0
   End If


   If Porta.1 = 0 Then
   Portc.0 = 0
   Portc.1 = 0
   Portc.2 = 1
   Portc.3 = 0
   End If


   If Porta.1 = 1 Then
   Portc.0 = 1
   Portc.1 = 0
   Portc.2 = 1
   Portc.3 = 0
   End If

   Loop

Meiner Meinung nach müsste da doch was gehen!?
Aber wenn ich das Programm in den Controller schreibe, tut sich gar nichts

Was mache ich falsch?
Was stimmt mit dem Programm nicht?

P.S. Die Motortreiber Schaltung funktioniert (getestet)
Die Signale der Ssensoren stehen alle an, wie sie sollten.

[x-ryder]

da darf nicht Porta.x stehen sondern Pina.x, weil das die schreibweise für nen eingang ist

[strunz]

Au ja,
danke für die rasche antwort.
jetzt tut sich immerhin schon etwas. der fährt ständig vor...
aber leider nur die ganze zeit, egal was an PortA anliegt.

da hast ja auch doppelbelegungen drinne, wenn an porta.0 ne 1 iss und an a.1 auch, iss ja zwei sachen gleichzeitig, gleiches problem mit 0

[strunz]

ja, dass is ja möglich porta.0 und porta.1 gleichzeitig 1 bedeutet: der untergrund ist schwarz --> beide motoren drehen...