Kochrezept (für Programmierer und solche, die es werden wollen) zum Test von FHT80b + FHZ2000 +
FHZ1300WLAN + CCU1
------------------------------------------
Benötigte Komponenten:
1x CCU1
1x FHZ1300WLAN
1x FHZ2000
1x FHT80b
1x HMS100 TFK
HPCL+ Upgrade FHZ
------------------------------------------
Anzulegende Module:
HMS100 TFK = WohnzimmerFenster
FHT80b = ReglerWohnzimmer
------------------------------------------
Anzulegende Objekte:
WOVPos = Typ "Zahl"
WZist = Typ "Zahl"
------------------------------------------
Anzulegende Variablen:
Objekt "WohnzimmerFenster":
WZist - Typ Zahl
Objekt "ReglerWohnzimmer":
SchreibTextWZ - Typ Zeichen
LS - Typ Zeit
------------------------------------------
Makro Objekt "WohnzimmerFenster":
------------------------------------------
wenn WohnzimmerFenster="offen" dann
WZist:=ReglerWohnzimmer
ReglerWohnzimmer:=7,5
endewenn
wenn WohnzimmerFenster="geschlossen" dann
ReglerWohnzimmer:=WZist
endewenn
------------------------------------------
Makro Objekt "ReglerWohnzimmer":
------------------------------------------
LS := Zeit
WOVPos:= ReglerWohnzimmer.Ventilpos
warte("00:00:03")
SchreibTextWZ:=Datum+";"
SchreibTextWZ:=SchreibTextWZ+Uhrzeit+";"
SchreibTextWZ:=SchreibTextWZ+ReglerWohnzimmer+";"
SchreibTextWZ:=SchreibTextWZ+ReglerWohnzimmer.Temperatur+";"
SchreibTextWZ:=SchreibTextWZ+ReglerWohnzimmer.Ventilpos
Schreibedatei("TempWZ.txt",SchreibTextWZ,2)
-----------------------------------------
Der FHT80b wird an die FHZ1300WLAN angemeldet und betrieben, FHT-
Code = 1
FHZ2000 bekommt FHT- Code 0
------------------------------------------
...wird ggf. fortgesetzt, erst mal abwarten, ob die Hersteller die nötigen Komponenten auftreiben oder ob Spenden nötig sind
![Evil or Very Mad :evil:](./images/smilies/icon_evil.gif)