Hast du mal versucht dieses Unterprogramm als Funktion zu deklarieren und die Variable manuell in die Funktion zu übergeben?
Hast du mal versucht dieses Unterprogramm als Funktion zu deklarieren und die Variable manuell in die Funktion zu übergeben?
Schaut ruhig mal auf meiner Homepage vorbei:
http://kampis-elektroecke.de
Oder folge mir auf Google+:
Daniel Kampert
Es gibt 10 Arten von Menschen. Die einen können Binär, die anderen nicht.
Gruß
Daniel
Ich kann das Programm garnicht kompilieren ?
Folgende Variablen sind vorher schon definiert worden
Um welche Funktion und welche Variable geht es in deinem Problem (Im Code-Block kann man nicht fett markieren) ?Code:Sub Fahrt() ' Local Lenkeinschlag As Byte ' Local Motorkraft As Word ' Local Sensor_rechts As Word ' Local Sensor_links As Word ' Local Poti As Word ' Local Ifr_sensor As Word ' Local Pos As Byte
mfg robert
Wer glaubt zu wissen, muß wissen, er glaubt.
Ich hab's im Gesamtcode die Variablenausgabe("Print Sensor_rechts") rot markiert. In diesem Modul tritt der Fehler auf:
Code:'Fahrt Funktionen Sub Neue_pos() Print Sensor_rechts If Sensor_links >= 700 Then If Sensor_rechts >= 700 Then If Pos > 5 Then Pos = 8 Else Pos = 0 End If End If If Sensor_rechts < 700 And Sensor_rechts >= 10 Then Pos = 7 End If If Sensor_rechts < 10 Then Pos = 6 End If Elseif Sensor_links < 700 And Sensor_links >= 10 Then If Sensor_rechts < 10 Then Pos = 5 End If If Sensor_rechts >= 700 Then Pos = 1 End If Else If Sensor_rechts < 10 Then Pos = 4 End If If Sensor_rechts >= 10 And Sensor_rechts < 700 Then Pos = 3 End If If Sensor_rechts >= 700 Then Pos = 2 End If End If Print "Pos in Neue_pos(): " ; Pos End Sub
Naja, wenn "pos" aber doppelt definiert ist, einmal als DIM ganz oben und dann als LOCAL (bei Sub Fahrt() ), wird es Probleme geben.
Aber eigentlich beschwert sich Bascom über sowas ?
mfg robert
Wer glaubt zu wissen, muß wissen, er glaubt.
so hatte es mal geändert aber es hat immer noch nicht funktioniert. Naja ich hab es jetzt alles in Fahrt() reingetan. Is zwar nicht sehr elegant aber es funktioniert...
naja vielen Dank für eure Hilfe, es wird schon![]()
Lesezeichen