taobin_project/inter/tha/hardware/powder_schedule.ev
wanlop run 7bc1f531c3 OK
2025-05-14 13:03:32 +07:00

93 lines
2.4 KiB
Text

DEBUGVAR LastTimeUseChannel10InMinute
DEBUGVAR CurrentXMLFileName0
SAVELOG "powder schedule version 1.08"
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 PowderScheduleForCh10 = "powder-run"
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=1,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