Programmieren einer C-Control I
Hallo leutz!
Zuerst mal: ich habe noch kein plan von C-Control!
Ich hab mal eben ein bischen Code geschrieben und wollte mal fragen ob diese gültig ist. Hab eben noch kein C-Control um es zu prüfen. Will zuerst sicher sein dass ich es kappiere bevor ich kaufe.
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. Eine Durchschnittsmessung
' (Schwellwert) von 1 Minute ist für ein ruhiges verhalten.
'
' Es sind 3 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 der aber bei Wind via 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]
define FTaste byte
' eine Variable zur Speicherung der Windgeschwindigkeit
define Wgs word
' Variablen zur Speicherung der Wasserstrahlhöhe
define Strahlhöhe byte
define StrahlhöheAktuell byte
' Konstanten
define C10 10 ' = 10
' --- das Programm ---
' Initialisierung
Hp = OFF
Mv = OFF
Kp = OFF
' Endlosschleife
#loop
' Tastenabfrage
if not (FTaste = 1 or FTaste = 2 or FTaste = 3) then goto Auswahl
if FTaste = 1 then gosub Automatisch
if FTaste = 2 then gosub Halbautomatisch
if FTaste = 3 then gosub Manuel
goto loop
' Betriebsarte auswählen
#Auswahl
Hp = OFF
Print "Bitte eine Betriebsart auswählen"
wait F1 or F2 or F3
if F1 then FTaste = 1
if F2 then FTaste = 2
if F3 then FTaste = 3
Return
' Schleifen der einzelnen Betriebsarten
' Endlosschleife für Automatisch
#Automatisch
#Loop1
'Das Programm:
goto loop1
' Endlosschleife für Halbautomatisch
#Halbautomatisch
#Loop2
'Das Programm:
goto loop2
' Endlosschleife für Manuel
#Manuel
#Loop3
'Das Programm:
goto loop3
#Loop4
'Windmessung
goto Loop4
Gruss
Ron