taobin_project/xml/page_show_error.xml

<Page>
<X> 0 </X>
<Y> 608 </Y>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "0xEAE6E1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
	Var countClick = 0
	Var countClick2 = 0


	DEBUGVAR MachineStage
	DEBUGVAR stop_now


	OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"

	Var DirImage = "ROOT/taobin_project/image/vending_error"

	Var show_error_normal = "Invisible"
	Var show_error_sp1 = "Enable"

	;If EmergencyStop = "true" Then
	;	Var stop_now = "true"
	;	If show_eng = "true" Then 
	;		Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
	;	Else
	;		Var DirImage = "ROOT/taobin_project/image/vending_error"
	;	EndIf
	;EndIf
	
	If MachineStage = "mcu-upgrade" Then
		If show_eng = "true" Then 
			Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
		Else
			Var DirImage = "ROOT/taobin_project/image/vending_error"
		EndIf
	EndIf

	If NeedUpgrade = "true" Then
		If show_eng = "true" Then 
			Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
			
		Else
			Var DirImage = "ROOT/taobin_project/image/vending_error"
		EndIf
	EndIf

	DEBUGVAR stop_now
	DEBUGVAR MachineStage

	If MachineStage = "close-maintenance" Then
		If stop_now = "true" Then
			If show_eng = "true" Then 
				Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
			Else
				Var DirImage = "ROOT/taobin_project/image/vending_error"
			EndIf
		Else
			
			Var show_error_normal = "Enable"
			Var show_error_sp1 = "Invisible"
			
			If show_eng = "true" Then 
				Var DirImage = "ROOT/taobin_project/image/close_en/"
			Else
				Var DirImage = "ROOT/taobin_project/image/close_th"
			EndIf
			
		EndIf
	EndIf


	DEBUGVAR DirImage

	If MachineStage = "drink-failed" Then
		If stop_now = "true" Then
			If show_eng = "true" Then 
				Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
				
			Else
				Var DirImage = "ROOT/taobin_project/image/vending_error"
			EndIf
		Else
			Var show_error_normal = "Enable"
			Var show_error_sp1 = "Invisible"
			If show_eng = "true" Then 
				Var DirImage = "ROOT/taobin_project/image/close_en/"
				
			Else
				Var DirImage = "ROOT/taobin_project/image/close_th"
			EndIf
		EndIf
	EndIf
	
	If NETCORE_LOST_CNT > 0 Then
		If show_eng = "true" Then 
			Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
			
		Else
			Var DirImage = "ROOT/taobin_project/image/vending_error"
		EndIf
	EndIf

	If NETCORE_EVENT_CNT_X >= 30 Then
		Var NETCORE_EVENT_CNT_X = 0
		If show_eng = "true" Then 
			Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
			
		Else
			Var DirImage = "ROOT/taobin_project/image/vending_error"
		EndIf
	EndIf
 

	StopLongPlay

	If LEDSet = "true" Then

	Else
		LED LedDoorCup On 255 0 0 255
		LED LedDoorLid Off 255 255 255 255
	EndIf

	Var MaintenanceCard = 20
	Random MaintenanceCard
	Var index = 1 + MaintenanceCard
	If show_eng = "true" Then 
		Var RandomImage = "ROOT/taobin_project/image/close_en/Frame" + index
		Var RandomImage =  RandomImage + ".png"
	Else
		Var RandomImage = "ROOT/taobin_project/image/close_en/Frame" + index
		Var RandomImage =  RandomImage + ".png"
	EndIf

	DEBUGVAR Seeker
	DEBUGVAR DoorCupPosition
	DEBUGVAR DoorLidPosition
	DEBUGVAR EmergencyStop
	
	Var TimeOut = 0
	Var textStep = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
	DEBUGVAR NETCORE_LOST_CNT
	DEBUGVAR MachineStage
	DEBUGVAR NETCORE_EVENT_CNT_TMP
	
	Var EmergencyStop = "-"
	
	If DoorCupPosition = "bottom" Then

		If stop_now_from_door_cup = 1 Then
			Var stop_now = "false"
			Var EmergencyStop = "false"
			SAVELOG "stop_now_from_door_cup is set"
			Var stop_now_from_door_cup = 0
			Var MachineErrorDetailAll = " --- "

		EndIf
	Else
		Var EmergencyStop = "true"
	EndIf

	If EmergencyStop = "true" Then
		If DoorCupPosition = "bottom" Then
			; It normal 
			Var EmergencyStop = "false"
		Else
			Var MachineErrorDetailAll = "Emergency stop!"

		EndIf
	Else

		Var MachineErrorDetailAll = MachineErrorDetail + " / "
		Var MachineErrorDetailAll = MachineErrorDetailAll + MachineErrorDetailEng


		If textStep > 3 Then
			Var textStep = 0
			Var MachineErrorDetailAll = MachineErrorDetailAll +  "  [ \ ]"
		EndIf
		If textStep = 3 Then
			Var MachineErrorDetailAll = MachineErrorDetailAll +  "  [ - ]"
		EndIf
		If textStep = 2 Then
			Var MachineErrorDetailAll = MachineErrorDetailAll +  "  [ / ]"
		EndIf
		If textStep = 1 Then
			Var MachineErrorDetailAll = MachineErrorDetailAll +  "  [ | ]"
		EndIf

		Var textStep = 	textStep + 1	

		;DEBUGVAR MachineErrorDetailAll
		;DEBUGVAR textStep

		If NETCORE_LOST_CNT > 0 Then

		Else
			
			DEBUGVAR NCIC07_EVENT_CNT
			DEBUGVAR NETCORE_EVENT_CNT_TMP

			If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then 
				
				Var NETCORE_LOST_COUNT_UP = NETCORE_LOST_COUNT_UP + 1
				DEBUGVAR NETCORE_LOST_COUNT_UP

				If NETCORE_LOST_COUNT_UP > 300 Then
					SAVELOG " NETCORE_LOST_COUNT_UP out !"
					Reboot
				EndIf

				Var NETCORE_LOST_COUNT_UP_STR = " Net " + NETCORE_LOST_COUNT_UP
				
				If textStep = 4 Then
					Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " ###"
				EndIf
				If textStep = 3 Then
					Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " ###"
				EndIf
				If textStep = 2 Then
					Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " ##"
				EndIf
				If textStep = 1 Then
					Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " #"
				EndIf
			Else
				; zone all ok

				If stop_now_from_netcore_event = 1 Then
					Var stop_now = "false"
					SAVELOG "stop_now_from_netcore_event is set"
					Var stop_now_from_netcore_event = 0
				EndIf

				

				If MachineStage = "" Then
					
					Var LEDSet = "false"
					Open "ROOT/taobin_project/xml/page_board.xml"

				EndIf
				If MachineStage = "show-menu" Then
					
					Var LEDSet = "false"
					Open "ROOT/taobin_project/xml/page_board.xml"

				EndIf
				If MachineStage = "remove-cup" Then
				
					Var LEDSet = "false"
					Open "ROOT/taobin_project/xml/page_remove_cup.xml"

				EndIf

				If MachineStage = "drink-failed" Then
				Var FirstOpen = 1
					Var LEDSet = "true"
					;Open "ROOT/taobin_project/xml/page_show_error.xml"
					Refresh
				EndIf

				If FirstOpen = 1 Then
					Var FirstOpen = 0
					If MachineStage = "close-maintenance" Then
					
						Var LEDSet = "true"
						;Open "ROOT/taobin_project/xml/page_show_error.xml"
						Refresh

					EndIf
				EndIf
			EndIf
		EndIf

		


	EndIf

	Var TimeOut = TimeOut + 1
	If TimeOut > 60 Then
		Var TimeOut = 0
		Open "ROOT/taobin_project/xml/page_show_error.xml"

	EndIf

	Refresh
	TimerReset

	Var LEDSet = "true"
	;Open "ROOT/taobin_project/xml/page_show_error.xml"
</EventTimeout>

<Image>
<State> show_error_normal </State>
<X> 127 </X>
<Y> 688 </Y>
<Filename> Var(DirImage + "/img1.png") </Filename>
</Image>

<Image>
<State> show_error_normal </State>
<X> 0 </X>
<Y> 924 </Y>
<Filename> RandomImage </Filename>
</Image>

<Image>
<State> show_error_sp1 </State>
<X> 0 </X>
<Y> 897 </Y>
<Filename> Var(DirImage + "/img1.png") </Filename>
</Image>

<Image>
<State> show_error_sp1 </State>
<X> 0 </X>
<Y> 694 </Y>
<Filename> Var(DirImage + "/text1.png") </Filename>
</Image>

<Image>
<State> show_error_sp1 </State>
<X> 0 </X>
<Y> 1685 </Y>
<Filename> Var(DirImage + "/text2.png") </Filename>
</Image>


<Button>
<X> 990 </X>
<Y> 640 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp  </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	; eng
	If show_eng = "true" Then 
		Var show_eng = "false"
	Else
		Var show_eng = "true"
	EndIf
	
	Var ClickCountMainTe = 0

	Open "ROOT/taobin_project/xml/page_show_error.xml"
</EventClick>
</Button>

<Button>
<X> 0 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var countClick = countClick + 1
	If countClick = 3 Then
		
	EndIf

	If countClick = 10 Then
		Var countClick = 0
		MainMenu
	EndIf
	Refresh
</EventClick>
</Button>



<Button>
<X> 870 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	
</EventClick>
</Button>


<Text>
<X> 5 </X>
<Y> 1868 </Y>
<Size> 24 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xDE794E </Color>
<Value> MachineErrorDetailAll </Value>
</Text>


</Page>