92 lines
2.3 KiB
Text
92 lines
2.3 KiB
Text
|
|
;DEBUGVAR ExhaustFanTime1Enable
|
|
;DEBUGVAR ExhaustFanTime1Hour
|
|
;DEBUGVAR ExhaustFanTime1Min
|
|
;
|
|
;DEBUGVAR ExhaustFanTime2Enable
|
|
;DEBUGVAR ExhaustFanTime2Hour
|
|
;DEBUGVAR ExhaustFanTime2Min
|
|
;
|
|
;DEBUGVAR ExhaustFanTime3Enable
|
|
;DEBUGVAR ExhaustFanTime3Hour
|
|
;DEBUGVAR ExhaustFanTime3Min
|
|
|
|
DEBUGVAR ExhaustFanMode1
|
|
DEBUGVAR ExhaustFanMode2
|
|
DEBUGVAR ExhaustFanMode3
|
|
|
|
DEBUGVAR AirTemperature
|
|
DEBUGVAR AirHumidity
|
|
|
|
|
|
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
|
|
|
|
DEBUGVAR CurrentTime1ToTime2
|
|
DEBUGVAR PreviseTime1ToTime2
|
|
If PreviseTime1ToTime2 = CurrentTime1ToTime2 Then
|
|
|
|
Else
|
|
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
|
|
|
|
DEBUGVAR LastTimeOfMainGateCloseUnitInMinute
|
|
DEBUGVAR MachineUpTimeUnitInMinute
|
|
|
|
If MachineStage = "close-maintenance" Then
|
|
Var CountDownForSetFanMode = 3
|
|
EndIf
|
|
|
|
If CountDownForSetFanMode = "" Then
|
|
Var CountDownForSetFanMode = 0
|
|
EndIf
|
|
|
|
If CountDownForSetFanMode > 0 Then
|
|
Var CountDownForSetFanMode = CountDownForSetFanMode - 1
|
|
DEBUGVAR CountDownForSetFanMode
|
|
EndIf
|
|
|
|
If CountDownForSetFanMode = 1 Then
|
|
Var PreviseTime2ToTime3 = ""
|
|
Var PreviseTime1ToTime2 = ""
|
|
SAVELOG "Update fan mode"
|
|
EndIf
|