RedirectToNormalVersion when using inter/tha

inter/tha/hardware/powder_schedule.ev

@@ -0,0 +1,96 @@
+
+
+
+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