Guten Morgen!
Nachfolgend mein (angefangenes Programm):
Reicht für so eine Aufgabe eventuel die I oder soll ich die II nehmen?Code:'********************************************************** ' C-Control Station ' ' Springbrunnen Regelung ' ' Die Haupt-Pumpe (Hp) läuft grunsätzlich immer, ausser wenn ' es nicht genug Wasser im Brunnen hat. ' ' Der Wasserspiegel wird konstant via Drucksensor (Ds) gemes- ' sen und bei bedarf nach gefüllt via Magnetventil (Mv) oder ' abgepumpt via kleine Pumpe (Kp). ' ' Der Wasserstrahl ist über den Wasserspiegel kontrolliert. ' Je höher der Wasserspiegel, desto tiefer der Stahl. Je ' tiefer der Wasserspiegel desto höher der Strahl. ' ' Der Anenometer [Windmesser] (Am) bewirkt eine Reduzierung ' des Wasserstrahls bei Wind. Diese wird durch einen ' Schwellwert, der über eine Durchschnitts-Windmessung von ' 1 min gemessen. ' ' Es sind 2 Betriebsarten einstellbar. ' ' Automatisch (F1): ' Hiermit wird der Stahl immer auf das Maximum gebracht. ' ' Halbautomatisch (F2): ' Hiermit kann man eine selbst definierte Höhe des Wasser- ' stahls festlegen den aber mit der Windmessung reduziert ' wird. ' ' Manuel (F3): ' Hiermit kann man eine selbst definierte Höhe des Wasser- ' stahls festlegen der ohne Windmessung immer gleich bleibt. ' ' Die Betriebsart wird via F1, F2 und F3 bestimmt. ' ' Auf dem Display ist immer die Aktuelle Wasserstrahlhöhe ' zu sehen. '********************************************************** ' --- Definitionen --- ' die Relais define Hp port[7] define Mv port[8] define Kp port[9] ' der Drucksensor define Ds port[1] ' der Anenometer define Am ad[5] ' die Folien-Funktionstasten define F1 port[9] define F2 port[10] define F3 port[11] ' eine Variable zur Speicherung der Windgeschwindigkeit define Wgs word define Strahlhöhe = ? ' Konstanten define C10 10 ' = 10 ' --- das Programm --- ' Initialisierung Hp = OFF Mv = OFF Mp = OFF ' Taste Abfrage if F1 then gosub activateMode1 if F2 then gosub activateMode2 if F3 then gosub activateMode3 ' Endlosschleife für Automatisch #loop ' Automatischer Modus #Mode1 ' Halbautomatisch #Mode1 ' Taste Abfrage #Mode1 goto loop
Gruss
Ron







					
					
					
						
Zitieren

Lesezeichen