ctct
11.12.2006, 07:20
Guten Morgen!
Nachfolgend mein (angefangenes Programm):
'************************************************* *********
' 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
Reicht für so eine Aufgabe eventuel die I oder soll ich die II nehmen?
Gruss
Ron
Nachfolgend mein (angefangenes Programm):
'************************************************* *********
' 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
Reicht für so eine Aufgabe eventuel die I oder soll ich die II nehmen?
Gruss
Ron