hi,
programmiere gerade mein erstes Programm in Bascom für einen sehr einfachen Roboter und da geht die IF Schleife nicht

Code:
'Roboter Projekt
'-------------------------------------------------------------- ---------------
$regfile = "m32def.dat"                                     'AT Mega 32
$crystal = 8000000                                          'Quarz: 8 MHz

'------------------ Pin setzten -----------------------------------------------
Ddra = &B11111000                                           'Pin PA 3-7 auf Output setzen
Porta = &B11111000                                          'Pin PA 3-7 auf High setzen

Ddrb = &B00000001                                           'Pin PB 0 auf Output setzen
Portb = &B00000001                                          'Pin PB 0 auf High setzen

'------------------------------------------------------------------------------
'------------------ MainLoop --------------------------------------------------
'------------------------------------------------------------------------------
Do

'------------------ Motore einschalten ----------------------------------------
   Porta.3 = 1                                              'Motor Rechts einschalten
   Porta.6 = 1                                              'Motor Links einschalten

'######################################################################################################################
  If Pina.0 = 0 Then                                        'Wenn bei PA0 Spannung anliegt
  'rückwärts fahren  
   Porta.4 = 0                                              'vorwärts Rechts
   Portb.0 = 0                                              'vorwärts Links
   Porta.5 = 1                                              'rückwärts Rechts
   Porta.7 = 1                                              'rückwärts Links
  End If
'######################################################################################################################
  If Pina.0 = 1 And Pina.1 = 1 And Pina.2 = 1 Then          'Wenn keine Spannung bei PA0, PA1 und PA2 anliegt
  'vorwärts fahren
   Porta.4 = 1                                              'vorwärts Rechts
   Portb.0 = 1                                              'vorwärts Links
   Porta.5 = 0                                              'rückwärts Rechts
   Porta.7 = 0                                              'rückwärts Links
  End If
'######################################################################################################################


Loop
End
und zwar ist es so , das wenn bei
If Pina.0 = 0 Then 'Wenn bei PA0 Spannung anliegt
'rückwärts fahren
Porta.4 = 0 'vorwärts Rechts
Portb.0 = 0 'vorwärts Links
Porta.5 = 1 'rückwärts Rechts
Porta.7 = 1 'rückwärts Links
End If
Spannung anliegt , fährt er wie gewollt rückwärts ...
aber wenn keine Spannung mehr anliegt fährt er immer noch rückwärts obwohl er vorwärts fahren sollte

BITTE helft mir , bin ratlos !!!!!!!!!
THX

MFG,
cyby \/