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

	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
 

	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
</EventOpen>
<Timeout> 5000 </Timeout>
<EventTimeout>
	DEBUGVAR EmergencyStop
	DEBUGVAR NETCORE_LOST_CNT
	DEBUGVAR DoorCupPosition
	DEBUGVAR MachineStage
	
	Var EmergencyStop = "-"
	
	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

		DEBUGVAR MachineStage
		If NETCORE_LOST_CNT > 0 Then

		Else
			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"

			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"

				EndIf
			EndIf
		EndIf

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

		EndIf
	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
	Open "ROOT/taobin_project/xml/page_show_error.xml"
</EventClick>

<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>