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