do

inter/tha/hardware/exhaust_fan_schedule.ev

@@ -1,19 +1,27 @@
 
-DEBUGVAR ExhaustFanTime1Enable
-DEBUGVAR ExhaustFanTime1Hour
-DEBUGVAR ExhaustFanTime1Min
+;DEBUGVAR ExhaustFanTime1Enable
+;DEBUGVAR ExhaustFanTime1Hour
+;DEBUGVAR ExhaustFanTime1Min
+;
+;DEBUGVAR ExhaustFanTime2Enable
+;DEBUGVAR ExhaustFanTime2Hour
+;DEBUGVAR ExhaustFanTime2Min
+;
+;DEBUGVAR ExhaustFanTime3Enable
+;DEBUGVAR ExhaustFanTime3Hour
+;DEBUGVAR ExhaustFanTime3Min
 
-DEBUGVAR ExhaustFanTime2Enable
-DEBUGVAR ExhaustFanTime2Hour
-DEBUGVAR ExhaustFanTime2Min
+DEBUGVAR ExhaustFanMode1
+DEBUGVAR ExhaustFanMode2
+DEBUGVAR ExhaustFanMode3
 
-DEBUGVAR ExhaustFanTime3Enable
-DEBUGVAR ExhaustFanTime3Hour
-DEBUGVAR ExhaustFanTime3Min
+Var fan_mode_str = "set-fan-mode="
 
 If ExhaustFanTime1Enable = "true" Then
     If ExhaustFanTime2Enable = "true" Then
         TimeRange ExhaustFanTime1Hour ExhaustFanTime1Min ExhaustFanTime2Hour ExhaustFanTime2Min SystemTimeHourInt SystemTimeMinuteInt CurrentTime1ToTime2
+    Else
+        Var CurrentTime1ToTime2 = "true"
     EndIf
 EndIf
 
@@ -22,6 +30,38 @@ DEBUGVAR PreviseTime1ToTime2
 If PreviseTime1ToTime2 = CurrentTime1ToTime2 Then
     
 Else
-
-    ;__CMD "CLI" "set-fan-mode=1" "-" "-"
+    Var PreviseTime1ToTime2 = CurrentTime1ToTime2
+    If CurrentTime1ToTime2 = "true" Then
+        Var fan_mode_str_final = fan_mode_str + ExhaustFanMode1 
+        __CMD "CLI" fan_mode_str_final "-" "-"
+    EndIf
 EndIf
+
+
+
+If CurrentTime1ToTime2 = "false" Then
+
+    If ExhaustFanTime2Enable = "true" Then
+        If ExhaustFanTime3Enable = "true" Then
+            TimeRange ExhaustFanTime2Hour ExhaustFanTime2Min ExhaustFanTime3Hour ExhaustFanTime3Min SystemTimeHourInt SystemTimeMinuteInt CurrentTime2ToTime3
+        Else
+            Var CurrentTime2ToTime3 = "true"
+        EndIf
+
+    EndIf
+
+    DEBUGVAR CurrentTime2ToTime3
+    DEBUGVAR PreviseTime2ToTime3 
+
+    If PreviseTime2ToTime3 = CurrentTime2ToTime3 Then
+    
+    Else
+        Var PreviseTime2ToTime3 = CurrentTime2ToTime3
+        If CurrentTime2ToTime3 = "true" Then
+            Var fan_mode_str_final = fan_mode_str + ExhaustFanMode2
+        __CMD "CLI" fan_mode_str_final "-" "-"
+        EndIf
+    EndIf
+
+EndIf
+