Hi, ich glaube mit den Schalter lass ich.
Die 5V abfragenist einfacher.
Ich hab nun folgenedes Programm geschrieben. Ich versteh nur nivht, warum der nach ca. 8s. Tunback aufruft, obwohl ich nichts angeschlossen habe . Kann das jemand erklären?

Danke

Declare Sub Turnback()
Declare Sub Gerade()
$regfile = "m16def.dat"
$crystal = 16000000 'Quarzfrequenz
$baud = 9600

Wait 2

Sound Portd.7 , 350 , 400
Sound Portd.7 , 400 , 500
Wait 1
Sub Gerade()

Config Pina.5 = Input
If Pina.5 = 1 Then Call Turnback

Config Pinc.6 = Output
Config Pinc.7 = Output
Config Pind.4 = Output

Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pind.5 = Output
'Linker Motor ein
Portc.6 = 1
Portc.7 = 0
Portd.4 = 1

'Rechter Motor ein
Portb.0 = 1
Portb.1 = 0
Portd.5 = 1
Wait 3
If Pina.5 = 1 Then
Call Gerade

End Sub

Sub Turnback

'Linker Motor ein
Portc.6 = 0
Portc.7 = 1
Portd.4 = 1

'Rechter Motor ein
Portb.0 = 0
Portb.1 = 1
Portd.5 = 1
Waitms 350

'Ports für linken Motor
Config Pinc.6 = Output
Config Pinc.7 = Output
Config Pind.4 = Output
'Ports für rechten Motor
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pind.5 = Output

Portc.6 = 0
Portc.7 = 1
Portd.4 = 0

Portb.0 = 0
Portb.1 = 1
Portd.5 = 1
Sound Portd.7 , 400 , 400
Sound Portd.7 , 350 , 400
Wait 1
Call Gerade
End Sub