Jetzt habe ich den Code nochmal überarbeitet, aber was bedeutet schon wieder die Fehlermeldung: LOOP expected?
CODE:
Code:
$regfile = "m32def.dat" 'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
$framesize = 32 'Stackanweisungen, die eigentlich nur bei größeren Programmen
$swstack = 32 'wirklich nötig werden
$hwstack = 32
$crystal = 16000000 'Die Frequenz des verwendeten Quarzes
$baud = 9600 'Baudrate für RS232-Ausgabe
Config Porta.0 = Output
Motorlinks Alias Porta.0
Config Porta.1 = Output
Motorrechts Alias Porta.1
Porta.0 = 0
Porta.1 = 0
Config Pinb.0 = Input
Taster Alias Pinb.0
Config Pinb.1 = Input
Fotolinks Alias Pinb.1
Config Pinb.2 = Input
Fotorechts Alias Pinb.2
Portb.0 = 1
Portb.1 = 0
Portb.2 = 0
Do
If Taster = 0 Then
Do
If Fotolinks = 1 Then
Motorlinks = 1
Else
Motorlinks = 0
End If
If Fotorechts = 1 Then
Motorrechts = 1
Else
Motorrechts = 0
End If
Else
Motorlinks = 0
Motorrechts = 0
End If
Loop
Lesezeichen