taobin_project/inter/tha/hardware/powder_schedule.ev

97 lines
2.5 KiB
Text
Raw Normal View History

DEBUGVAR LastTimeUseChannel10InMinute
DEBUGVAR CurrentXMLFileName0
SAVELOG "powder schedule version 1.02"
If SystemTimeHourInt = 22 Then
If SystemTimeMinuteInt = 50 Then
; idle
; and time match
If PowderStatus = "" Then
Var PowderStatus = "tricker"
Var PowderTestStep = 1
EndIf
EndIf
If SystemTimeMinuteInt = 60 Then
; idle
; and time match
Var PowderStatus = ""
Var PowderTestStep = 0
SAVELOG "PowderScheduleForCh10 reset reset reset"
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" "powder-set-channel-for-low-push-stage=10,powder-set-time-for-low-push-stage=8,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