Programmierung Tropfensteuerung

[Sauerbruch]

Hallo Cybererror,

also für mich müsstest Du glaube ich nochmal etwas genauer beschreiben, was das Programm denn nun genau machen soll! Ab einer gewissen Code-Länge finde ich es nämlich zunehmend schwierig eine Vorstellung davon zu bekommen, was der Code denn machen soll - insbesondere wenn er es nicht tut

Ich verstehe auch nicht ganz diese Unmenge von Variablen - wozu brauchst Du denn diese ganzen Integers?

1 Die Poti Zeiteinstellung soll nur verändert werden wenn ich auch am Poti drehe und wenn nicht gedreht wird soll der alte wert weiter stehen? da weiß ich noch nicht wie ich das realiesiere?

Wieso lässt Du das Poti nicht ganz einfach regelmäßig in der Hauptschleife abfragen? Wenn Du keinen neuen Wert einstellst, wird halt immer wieder der gleiche Wert übernommen, d.h. unterm Strich ändert sich auch nichts - wäre das nicht in Ordnung?

Ohne den Code auch nur ansatzweise im Detail verstanden zu haben, ist mir aber schon mal ein "No-Go" aufgefallen:

Das Unterprogramm Start_tat wird über ein GOTO verlassen - und das muss zu Problemen führen!
Wieso? Weil der Controller bei jedem GOSUB-Befehl diejenige Adresse, bei der das Hauptprogramm gerade war, auf den sogenannten "Stack" legt. Wird das Unterprogramm regulär über den Befehl "Return" verlassen, holt sich der Controller genau diese Adresse vom Stack zurück und macht dort weiter, wo er unterbrochen wurde. Kommt aber kein Return, wird beim nächsten GOSUB wieder ´ne Adresse auf den Stack gelegt, d.h. er wächst und wächst bis er überläuft, und das führt zu unkontrollierten, instabilen Zuständen, die oft damit umschrieben werden, dass sich der Controller "aufhängt".

Aber um zu schauen, ob nicht noch andere Bugs in dem Code stecken, müsste erst mal klar sein, was das Programm denn nun genau tun soll.
Also: Stell Dir mal vor ich wäre der Controller, und Du müsstest mir in Klartext ganz genau (!) beschreiben, was ich wann tun soll

Dann kommen wir bestimmt irgendwie weiter!

[Cybererror]

ich will ein Programm, mit dem man einfach nur 3 Zeiten eingeben kann, zeit des 1 Tropfen ( Ventil auf,.. warten... Ventil zu) dann Zeit zwischen 1. und 2. Tropfen und für aus lösen der Kamera gemessen vom auslösen des 1 Tropfen. Wollte ich per Interrupt machen.

Wie kann ich denn ein Unterprogramm aufrufen wenn nicht mit goto oder sosub? soll ja eigenständige Unterprogramme sein..

[Sauerbruch]

Okay - es sollen also nur drei Zeiten eingeben werden...
Nennen wir sie mal Zeit1, Zeit2 und Zeit3, dann würde ich das vom Prinzip her so machen:

...
Dim Zeit1 as Word
Dim Zeit2 as Word
Dim Zeit3 as Word
Dim X as Word
...

Do

Locate 1,1
LCD "Zeit 1:"

Eingabe_Zeit1:
X = Getadc(1)

Zeit1 = X * ..... 
Zeit1 = Zeit1 + ...
(Hier wird der GetADC-Wert in einen passenden Wert für Zeit1 umgerechnet, je nachdem welchen Wertebereich Zeit1 haben soll)   

Locate 2,1
LCD Zeit1; "   " '3 Leerstellen, damit "alte" Ziffern vom vorigen Wert überschrieben werden, wenn Zeit1 weniger Stellen haben sollte als der vorige Wert 

If Taster1 = 1 then goto Eingabe_Zeit1
Bitwait Taster1, set 'Wartet ab, bis der Taster losgelassen wurde
waitms 10 'noch eine kurze Pause, um Prellen abklingen zu lassen

CLS

Locate 1,1
LCD "Zeit 2:"

Eingabe_Zeit2:
X = Getadc(1)

Zeit2 = X * ...
Zeit2 = Zeit2 + ...
(Erneut: Berechnung von Zeit2 aus GetADC-Wert...)

Locate 2,1
LCD Zeit2; "   " 

If Taster1 = 1 then goto Eingabe_Zeit2
Bitwait Taster1, set
waitms 10


...
(gleiches Spiel für Zeit 3)

...und fertig!

Und Du hast schon recht, dass man ein Unterprogramm natürlich nur mit GOSUB anspringen kann. Aber man muss es unbedingt mit Return verlassen, und nicht mit einem GOTO!

[Cybererror]

Und wie mache ich das mit dem timer 1 das man in auf eine bestimmte Zeit einstellte..? Zum Beispiel 230ms ? Und für verschiedene Werte verwenden kann? Oder ist mein Ansatz richtig?

[Cybererror]

Das Unterprogramm Start_tat wird über ein GOTO verlassen - und das muss zu Problemen führen!
Wieso? Weil der Controller bei jedem GOSUB-Befehl diejenige Adresse, bei der das Hauptprogramm gerade war, auf den sogenannten "Stack" legt.
Dann kommen wir bestimmt irgendwie weiter!

Verstehe ich das richtig das ein Gosub immer ein return benötigt?
Aber wie ist das mit goto? das kann man doch in einer schleife sogar laufen lassen?
Also tausche ich mein Gosub in Goto?

[peterfido]

Ich habe mir den Code nicht angesehen. Aber ein Goto zum hin- und herspringen macht keinen Sinn. da kann man den Code gleich an die entsprechende Stelle packen. Ein gosub wird genutzt, wenn bestimmte Codesegmente öfter benutzt werden. So spart man Platz und braucht nur eine Sub ändern, wenn was geändert werden soll.

Es braucht nicht jedes Gosub ein Return. Am Ende muss aber ein Return kommen.
Z.B.

  ...
   do
       gosub sb1
       x=5
       gosub sb2
       ...
       ...
       ...
   loop
   end
sb1:
     x=3
sb2:
    y=x+1
return

[Sauerbruch]

Es braucht nicht jedes Gosub ein Return. Am Ende muss aber ein Return kommen.

Das stimmt - aber es ist natürlich unerlässlich, dass das RETURN auch ausgeführt wird! Es dürfen also keine GOTO-Befehle davor stehen, die den Controller wieder irgendwo anders hinspringen lassen!