pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

spiralNow

Browse source
This commit is contained in:
worawut 2024-10-01 17:44:14 +07:00 • committed by Kenta420
parent e4302019dc
commit f8a56c6948
9 changed files with 480 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
image/page2/bn_vending_machine2.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 18 KiB

BIN
image/page2/bp_vending_machine2.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 19 KiB

BIN
image/page2_en/page2/bn_vending_machine2.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 19 KiB

BIN
image/page2_en/page2/bp_vending_machine2.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 21 KiB

BIN
image/vending_error/textspiral.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 14 KiB

24
spiral/xml/page_catalog_vending_machine.xml
View file

@ -11,7 +11,7 @@
<EventOpen>
Var MachineSpiralStage = ""
Var SpiralOption = 0
Var SpiralSoftwareVersion = "1.11"
Var SpiralSoftwareVersion = "1.12"
Var ColorBrown = 0x746253
Var ColorBrown2 = 0x513C2F
@ -127,6 +127,21 @@
Var MenuSpiral1 = "PressForever"
Var Timeout = 0
If SetSpiralOnline = 1 Then
Var Menu1Selected = "Invisible"
Var Menu2Selected = "Invisible"
Var Menu3Selected = "Invisible"
Var Menu4Selected = "Invisible"
Var Menu5Selected = "Invisible"
Var Menu6Selected = "Invisible"
Var Menu7Selected = "Invisible"
Var Menu8Selected = "Invisible"
Var Menu11Selected = "Invisible"
Var Menu21Selected = "Invisible"
Var Menu22Selected = "Invisible"
EndIf
</EventOpen>
@ -207,9 +222,14 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If SpiralOnline = "true" Then
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog_with_vending.xml"
If SetSpiralOnline = 1 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Else
Open "ROOT/taobin_project/spiral/xml/page_catalog_vending_machine.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf

4
xml/page_catalog.xml
View file

@ -5,7 +5,9 @@
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
If SetSpiralOnline = 1 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If InternationalEnable = 1 Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml"
EndIf

12
xml/page_show_error.xml
View file

@ -31,6 +31,14 @@
; EndIf
;EndIf
If SpiralOnline = "true"
If show_eng = "true" Then
Var DirImageSpiral = "ROOT/taobin_project/image/page2_en/page2"
Else
Var DirImageSpiral = "ROOT/taobin_project/image/page2"
EndIf
EndIf
If MachineStage = "mcu-upgrade" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
@ -149,6 +157,10 @@
DEBUGVAR MachineStage
DEBUGVAR NETCORE_EVENT_CNT_TMP
If SpiralOnline = "true" Then
Open "ROOT/taobin_project/xml/page_show_error_spiral.xml"
EndIf
Var EmergencyStop = "-"
If DoorCupPosition = "bottom" Then

442
xml/page_show_error_spiral.xml Normal file
View file

@ -0,0 +1,442 @@
<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
Var SetSpiralOnline = 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 SpiralOnline = "true"
If show_eng = "true" Then
Var DirImageSpiral = "ROOT/taobin_project/image/page2_en/page2"
Else
Var DirImageSpiral = "ROOT/taobin_project/image/page2"
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
If SpiralOnline = "true" Then
Open "ROOT/taobin_project/xml/page_show_error_spiral.xml"
EndIf
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 + "/textspiral.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> 270 </X>
<Y> 944 </Y>
<Width> 100 </Width>
<Height> 100 </Height>
<State>SpiralOnlineStage</State>
<Filename> Var(DirImageSpiral + "/bn_vending_machine2.png") </Filename>
<FilenamePress> Var(DirImageSpiral + "/bp_vending_machine2.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If SpiralOnline = "true" Then
Var SetSpiralOnline = 1
Open "ROOT/taobin_project/spiral/xml/page_catalog_vending_machine.xml"
EndIf
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
</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>
<EventUnitTest6>
PushFile "/sdcard/" "RootManPicture" "scn_240703193755.png"
</EventUnitTest6>
</Page>