Hallo nechegris
Hier ein Stueck Code wie ich es machen wuerde.
Code:
 'Taktfrequenz des Quarzes einstellen (3,686411 MHz -> 1 Takt=0,00000027127s=0,27127us)

$regfile = "m8def.dat"                                      'Das ist immer die erste Zeile damit Bascom weiß welcher Chip das ist!!
 $crystal = 3686411
$baud = 9600
' Verwendete CPU festlegen (ATmega8)

'ports definieren
Config Portb = Output
Config Portd = Input
'Ddrd = &B00000000       **************??? Pullup ????? =&B11111111
'sensor rechts
Ls1 Alias Pind.2
'Sensor mitte
Ls2 Alias Pind.3
'Sensor links
Ls3 Alias Pind.4
' Hauptprogrammschleife
Do
' sensor 1 und 3 auf schwarzer Linie --> vor
If Ls1 = 0 And Ls3 = 0 Then
  'Portb = &B00000000
  Portb = &B00101011
End If
' Sensor 1 Auf Schwarzer Linie --> Links
If Ls1 = 0 And Ls3 = 1 Then
   'Portb = &B00000000
   Portb = &B00101000
End If
' sensor 3 auf schwarzer Linie --> rechts
If Ls3 = 0 And Ls1 = 1 Then
   'Portb = &B00000000
   Portb = &B00000011
End If
'kein sensor auf linie --> stop
If Ls1 = 1 And Ls3 = 1 Then
 Portb = &B00000000
End If

'Waitms 100
Loop
End
PortB= &B00000000 habe ich auskommentiert Du wuerdest immer alles Abschalten und es müßte neu gestartet werden wenn ich es richtig verstanden habe.
Problem Sensor Pullup eventuell einschalten ?
Gruß raggy