taobin_project/inter/tha/hardware/powder_schedule.ev
2025-01-21 10:39:51 +07:00

107 lines
2.9 KiB
Text

DEBUGVAR LastTimeUseChannel10InMinute
DEBUGVAR CurrentXMLFileName0
SAVELOG "powder schedule version 1.07"
DEBUGVAR PowderPayPushLowScheduleTurnOn10
If PowderPayPushLowScheduleTurnOn10 = "1" Then
Var PowderPayPushLowScheduleTurnOn10 = 1
EndIf
If PowderPayPushLowScheduleTurnOn10 = 1 Then
If SystemTimeHourInt = 3 Then
If SystemTimeMinuteInt = 30 Then
; idle
; and time match
If PowderStatus = "" Then
Var PowderStatus = "tricker"
Var PowderTestStep = 1
EndIf
EndIf
If PowderStatus = "tricker" Then
If SystemTimeMinuteInt = 60 Then
; idle
; and time match
Var PowderStatus = ""
Var PowderTestStep = 0
SAVELOG "PowderScheduleForCh10 reset reset reset"
EndIf
EndIf
EndIf
EndIf
If PowderTestStep = 1 Then
If CurrentXMLFileName0 = "/mnt/sdcard/coffeevending/taobin_project/xml/page_board.xml" Then
Var PowderTestStep = 0
Var PowderScheduleForCh10 = "start"
SAVELOG "PowderScheduleForCh10 start start start"
EndIf
EndIf
DEBUGVAR PowderStatus
DEBUGVAR PowderTestStep
; setvar PowderScheduleForCh10 start
If PowderScheduleForCh10 = "" Then
Else
DEBUGVAR PowderScheduleForCh10
DEBUGVAR PowderDriverToLowPositionResult
If PowderScheduleForCh10 = "start" Then
Var MachinePowderCamTestResult = "hurr"
Var PowderScheduleForCh10 = "wait"
__CMD "CLI" "check-cam-powder" "-" "-"
Var PowderDriverToLowPositionResult = ""
EndIf
DEBUGVAR MachinePowderCamTestResult
If PowderScheduleForCh10 = "wait" Then
DEBUGVAR PowderScheduleForCh10
If MachinePowderCamTestResult = "pass" Then
Var PowderScheduleForCh10 = "powder-run"
Var MachinePowderCamTestResult = ""
EndIf
EndIf
If PowderScheduleForCh10 = "powder-run" Then
Var PowderScheduleForCh10 = "wait-low-test"
__CMD "CLI" "arm_id=1,arm_position=posi_ice_e" "-" "-"
__CMD "CLI" "powder-set-channel-for-low-push-stage=10,powder-set-time-for-low-push-stage=2,powder-low-push=xml" "-" "-"
DEBUGVAR PowderScheduleForCh10
EndIf
If PowderScheduleForCh10 = "wait-low-test" Then
DEBUGVAR PowderDriverToLowPositionResult
If PowderDriverToLowPositionResult = "" Then
Else
If PowderDriverToLowPositionResult = "pass" Then
SAVELOG " Powder driver low test channel 10 pass pass pass pass pass pass pass pass pass "
Var PowderScheduleForCh10 = ""
Else
SAVELOG " Powder driver low test channel 10 error "
Var PowderScheduleForCh10 = ""
EndIf
Var PowderDriverToLowPositionResult = ""
EndIf
EndIf
EndIf