michi/franz_blowdryer
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed pattern of Valves

Browse Source 
Added Pulse / Pause setting via Node-Switch
This commit is contained in:
Michael Rest
2014-12-02 09:35:40 +01:00
parent 82910c6d2c
commit 5c8f1ab46f
2 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Logical/blowdryer/bolwdryer.st
View File

@@ -8,18 +8,20 @@ END_PROGRAM
PROGRAM _CYCLIC
usPulseSet := gusNode;
IF (usPulse >= usPulseSet) AND gbInEnalbeDryer THEN
usPulseSet := (gusNode MOD 16) * 2;
usPauseSet := (gusNode / 16) * 2;
IF (usPulse = usPulseSet) AND gbInEnalbeDryer THEN
gbOuValveA[usValveA + 1] := FALSE;
gbOuValveB[usValveB + 1] := FALSE;
ELSIF (usPulse >= (usPulseSet + usPauseSet)) AND gbInEnalbeDryer THEN
usPulse := 0;
gbOuValveA[usValveA] := FALSE;
gbOuValveA[usValveB] := FALSE;
usValveA := ((usValveA + 1) MOD 15) + 1;
usValveB := ((usValveB + 1) MOD 15) + 1;
gbOuValveA[usValveA] := TRUE;
gbOuValveA[usValveB] := TRUE;
usValveA := ((usValveA + 1) MOD 16);
usValveB := ((usValveB + 1) MOD 16);
gbOuValveA[usValveA + 1] := TRUE;
gbOuValveB[usValveB + 1] := TRUE;
ELSIF NOT gbInEnalbeDryer THEN
gbOuValveA[usValveA] := FALSE;
gbOuValveA[usValveB] := FALSE;
gbOuValveA[usValveA + 1] := FALSE;
gbOuValveB[usValveB + 1] := FALSE;
END_IF
usPulse := usPulse + 2; //2ms Cycle

1
Logical/blowdryer/bolwdryer.var
View File

@@ -1,5 +1,6 @@
VAR
usPulse : USINT := 0; (*[ms]*)
usPauseSet : USINT := 12; (*[ms]*)
usPulseSet : USINT := 12; (*[ms]*)
usValveA : USINT := 1;
usValveB : USINT := 8;