Programmierung Tropfensteuerung

[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!