;Opt("TrayIconHide", 1) #include #include #include #include Global $file Global $line1 Global $line2 Global $line3 Global $line4 Global $line5 Global $line6 Global $line7 Global $line8 Global $line9 Global $line10 Global $kontakty Global $Text Global $dulezite Global $vseobecne Global $nmsg1 Global $nmsg2 Global $nmsg3 Global $nmsg4 Global $nmsg5 Global $nmsg6 Global $nmsg7 Global $nmsg8 Global $nmsg9 Global $nmsg10 Global $nmsg11 Global $nmsg12 Global $nmsg13 Global $nmsg14 Global $nmsg15 Global $nmsg16 Global $nmsg17 Global $nmsg18 Global $nmsg19 Global $nmsg20 Global $nmsg21 Global $nmsg22 Global $nmsg23 Global $nmsg24 Global $nmsg25 Global $nmsg26 Global $nc1 Global $nc2 Global $nc3 Global $nc4 Global $nc5 Global $nc6 Global $nc7 Global $nc8 Global $nc9 Global $nc10 Global $nc11 Global $nc12 Global $nc13 Global $nc14 Global $nc15 Global $nc16 Global $nc17 Global $nc18 Global $nc19 Global $nc20 Global $nc21 Global $nc22 Global $nc23 Global $nc24 Global $nc25 Global $nc26 Global $msg1 Global $msg2 Global $msg3 Global $msg4 Global $msg5 Global $msg6 Global $msg7 Global $msg8 Global $msg9 Global $msg10 Global $msg11 Global $c1 Global $c2 Global $c3 Global $c4 Global $c5 Global $c6 Global $c7 Global $c8 Global $c9 Global $c10 Global $c11 Global $npoint Global $point Global $export Global $nacti Global $exporttext Global $cas Global $budik1 Global $oznacenibudiku1 Global $budikh1 Global $budikm1 Global $budik2 Global $oznacenibudiku2 Global $budikh2 Global $budikm2 Global $budik3 Global $oznacenibudiku3 Global $budikh3 Global $budikm3 Global $budik4 Global $oznacenibudiku4 Global $budikh4 Global $budikm4 Global $budik5 Global $oznacenibudiku5 Global $budikh5 Global $budikm5 Local $sFont = "Consolas" GUICreate("Reception tasks", 800, 600) GUISetState(@SW_SHOW) ;-------------------Konec------------------- $konec = GUICtrlCreateButton("Ukončit", 740, 0, 60, 20) ;------------------------------------------- GUICtrlCreateLabel ("Aktuální čas:", 570,5,80,15) GUISetFont(9, 400, 0, $sFont) GUISetFont (15) $cas = GUICtrlCreateLabel ("", 640,0,80,20) Casovafrekvence () Func Casovafrekvence () AdlibRegister("Casovafrekvence") GUICtrlSetData ($cas,""& @HOUR &":"& @MIN &":"& @SEC &"") EndFunc GUISetFont(8.5) GUICtrlCreateTab(1, 0, 800, 600) $file = FileOpen("Smeny.txt", 0) $line1 = FileReadLine ($file, 1) $line2 = FileReadLine ($file, 2) $line3 = FileReadLine ($file, 3) $line4 = FileReadLine ($file, 4) $line5 = FileReadLine ($file, 5) $line6 = FileReadLine ($file, 6) $line7 = FileReadLine ($file, 7) $line8 = FileReadLine ($file, 8) $line9 = FileReadLine ($file, 9) $line10 = FileReadLine ($file, 10) ;-------------------Denní------------------- ; 1 číslo - vzdálenost od levého kraje ; 2 číslo - vzdálenost od vrchu ; 3 číslo - šířka ; 4 číslo - výška GUICtrlCreateTabItem("Denní checklist") GUICtrlCreateLabel (" Zbývá", 740,100,50,50) GUICtrlSetBkColor(-1, 0x00FFFF) $Dview = GUICtrlCreateLabel ("", 755,120,50,50) $reset = GUICtrlCreateButton("Reset", 10, 572, 70, 20) $msg1 = GUICtrlCreateCheckbox("Příchod nejdéle v 6:50", 10, 30, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $msg2 = GUICtrlCreateCheckbox("Zhasnout markýzu", 10, 50, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $msg3 = GUICtrlCreateCheckbox("Kontrola odjezdových údajů v HT (ceny, faktury a pod.)", 10, 70, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $msg4 = GUICtrlCreateCheckbox("Objednat pečivo", 10, 90, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) GUICtrlCreateLabel(" ---== PRŮBĚŽNĚ ==---", 10, 110) $msg5 = GUICtrlCreateCheckbox("Kontrola emailů / řešení rezervací (odpovědi + zadávání do HT)", 10, 130, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $msg6 = GUICtrlCreateCheckbox("Udržovat pořádek na recepci / restauraci", 10, 150, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $msg7 = GUICtrlCreateCheckbox("Zalít kytky", 10, 170, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $msg8 = GUICtrlCreateCheckbox("V HT zaškrtávat uklizené pokoje", 10, 190, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $msg9 = GUICtrlCreateCheckbox("V den příjezdu stahovat peníze z virtuálních karet (expedia a pod.)", 10, 210, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $msg10 = GUICtrlCreateCheckbox("Zapisovat závady do notesu se závadami", 10, 230, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $msg11 = GUICtrlCreateCheckbox("Po snídani se musí vyčistit kávovar (tzn. nechat ho pak vyschnout a nepoužívat)", 10, 250, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) ;-------------------Noční------------------- ; 1 číslo - vzdálenost od levého kraje ; 2 číslo - vzdálenost od vrchu (+20) ; 3 číslo - šířka ; 4 číslo - výška GUICtrlCreateTabItem("Noční checklist") GUICtrlCreateLabel (" Zbývá", 740,100,50,50) GUICtrlSetBkColor(-1, 0x00FFFF) $Nview = GUICtrlCreateLabel ("", 755,120,50,50) $nreset = GUICtrlCreateButton("Reset", 10, 572, 70, 20) $nmsg1 = GUICtrlCreateCheckbox("Příchod nejdéle v 18:50", 10, 30, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg2 = GUICtrlCreateCheckbox("Rozsvítit markýzu / zhasnout restauraci", 10, 50, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg3 = GUICtrlCreateCheckbox("Udržovat pořádek na recepci / restauraci", 10, 70, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg4 = GUICtrlCreateCheckbox("Kontrola emailů / řešení rezervací (odpovědi + zadávání do HT)", 10, 90, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg5 = GUICtrlCreateCheckbox("Při příjezdu hostů, zakládat jejich příjezdové rezervace do příslušních desek / šanonů", 10, 110, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg6 = GUICtrlCreateCheckbox("Zadávat tržby z LB do HT", 10, 130, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg7 = GUICtrlCreateCheckbox("Zamknutý vchod od 23:00 - 5:00", 10, 150, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg8 = GUICtrlCreateCheckbox("Kontrola rezervací na další den + Předautorizace", 10, 170, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) GUICtrlCreateLabel(" ---== PŮLNOC ==---", 10, 190) $nmsg9 = GUICtrlCreateCheckbox("Zkontrolovat a doplnit papír v tiskárně / faxu", 10, 210, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg10 = GUICtrlCreateCheckbox("V HT vytisknout Platby kartou (v HT v kolonce Seznamy) & připnout k tomu uzávěrku z terminálu", 10, 230, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg11 = GUICtrlCreateCheckbox("Uzavřít Optimus", 10, 250, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg12 = GUICtrlCreateCheckbox("Nabít vstupní karty na příjezdové pokoje", 10, 270, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg13 = GUICtrlCreateCheckbox("Vytisknout a založit cizineckou policii (v kolonce sestavy - Kniha hostů / nezapomenout změnit datum)", 10, 290, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg14 = GUICtrlCreateCheckbox("Do uby prototype zadat + následě odeslat report pro cizineckou policii", 10, 310, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg15 = GUICtrlCreateCheckbox("Vytisknout příjezdy / odjezdy", 10, 330, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg16 = GUICtrlCreateCheckbox("Do příjezdových / odjezdových desek zadat příjezdy / nájezdy + vytisknuté příjezdy / odjezdy z HT", 10, 350, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg17 = GUICtrlCreateCheckbox("Vytisknout repórtku :) pro pokojskou (v HT v kolonce Provoz)", 10, 370, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg18 = GUICtrlCreateCheckbox("Vytisknout počasí a breakfast news", 10, 390, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg19 = GUICtrlCreateCheckbox("Spočítat a zapsat lobby bar", 10, 410, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg20 = GUICtrlCreateCheckbox("Posbírat proutěné tácky ze stolů v restauraci", 10, 430, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg21 = GUICtrlCreateCheckbox("Sudý týden - úklid šatny", 10, 450, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg22 = GUICtrlCreateCheckbox("Ráno vyplatit pečivála a prádelníka - v HT to zadat jako výdaj", 10, 470, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg23 = GUICtrlCreateCheckbox("Ráno zaslat report včetně No-show", 10, 490, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg24 = GUICtrlCreateCheckbox("Spočítat kasu a vytisknout předávku recepce / baru", 10, 510, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg25 = GUICtrlCreateCheckbox("Uklidit všechny papíry kam patří", 10, 530, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) $nmsg26 = GUICtrlCreateCheckbox("Předat směnu", 10, 550, 580, 20) GUICtrlSetState(1, $GUI_CHECKED) ;-------------------Info------------------- GUICtrlCreateTabItem("Info") $Text=GUICtrlCreateLabel ("", 10, 55, 780, 535) GUICtrlSetBkColor(-1, 0x99FFFF) $kontakty = GUICtrlCreateButton("Kontakty", 10, 30, 70, 20) $hesla = GUICtrlCreateButton("Hesla", 85, 30, 70, 20) $dulezite = GUICtrlCreateButton("Důležité", 160, 30, 70, 20) $vseobecne = GUICtrlCreateButton("Všeobecné", 235, 30, 70, 20) ;-------------------Služby------------------- GUICtrlCreateTabItem("Služby") GUISetFont(9, 500, 4, $sFont) GUICtrlCreateLabel(""& $line1, 10, 30, 780, 20) GUICtrlCreateLabel(""& $line2, 10, 50, 780, 20) GUICtrlSetBkColor(-1, 0x00FF00) GUICtrlCreateLabel(""& $line3, 10, 70, 780, 20) GUICtrlCreateLabel(""& $line4, 10, 90, 780, 20) GUICtrlSetBkColor(-1, 0x00FF00) GUICtrlCreateLabel(""& $line5, 10, 110, 780, 20) GUICtrlCreateLabel(""& $line6, 10, 130, 780, 20) GUICtrlSetBkColor(-1, 0x00FF00) GUICtrlCreateLabel(""& $line7, 10, 150, 780, 20) GUICtrlCreateLabel(""& $line8, 10, 170, 780, 20) GUICtrlSetBkColor(-1, 0x00FF00) GUICtrlCreateLabel(""& $line9, 10, 190, 780, 20) GUICtrlCreateLabel(""& $line10, 10, 210, 780, 20) GUICtrlSetBkColor(-1, 0x00FF00) ;-------------------Vzkazy------------------- GUICtrlCreateTabItem("Vzkazy") $export = GUICtrlCreateEdit(@CRLF & " Sem napsat, nebo načíst uložené vzkazy pro další směnu ", 10, 30, 775, 530) $uloz = GUICtrlCreateButton("Uložit", 10, 560, 100, 30) $nacti = GUICtrlCreateButton("Načíst", 125, 560, 100, 30) ;-------------------Buzení------------------- ; 1 číslo - vzdálenost od levého kraje ; 2 číslo - vzdálenost od vrchu ; 3 číslo - šířka ; 4 číslo - výška GUICtrlCreateTabItem("Buzení") GUISetFont(8.5,400,0) $budikh1 = GUICtrlCreateInput("0", 160, 30, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 23) $budikm1 = GUICtrlCreateInput("0", 235, 30, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 60) $budik1 = GUICtrlCreateCheckbox("Budík vypnutý", 10, 30, 150, 20) GUICtrlSetState(1, $GUI_CHECKED) GUICtrlCreateLabel("hodin", 205, 34, 40, 20) GUICtrlCreateLabel("minut", 280, 34, 40, 20) $budikh2 = GUICtrlCreateInput("0", 160, 50, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 23) $budikm2 = GUICtrlCreateInput("0", 235, 50, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 60) $budik2 = GUICtrlCreateCheckbox("Budík vypnutý", 10, 50, 150, 20) GUICtrlSetState(1, $GUI_CHECKED) GUICtrlCreateLabel("hodin", 205, 54, 40, 20) GUICtrlCreateLabel("minut", 280, 54, 40, 20) $budikh3 = GUICtrlCreateInput("0", 160, 70, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 23) $budikm3 = GUICtrlCreateInput("0", 235, 70, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 60) $budik3 = GUICtrlCreateCheckbox("Budík vypnutý", 10, 70, 150, 20) GUICtrlSetState(1, $GUI_CHECKED) GUICtrlCreateLabel("hodin", 205, 74, 40, 20) GUICtrlCreateLabel("minut", 280, 74, 40, 20) $budikh4 = GUICtrlCreateInput("0", 160, 90, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 23) $budikm4 = GUICtrlCreateInput("0", 235, 90, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 60) $budik4 = GUICtrlCreateCheckbox("Budík vypnutý", 10, 90, 150, 20) GUICtrlSetState(1, $GUI_CHECKED) GUICtrlCreateLabel("hodin", 205, 94, 40, 20) GUICtrlCreateLabel("minut", 280, 94, 40, 20) $budikh5 = GUICtrlCreateInput("0", 160, 110, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 23) $budikm5 = GUICtrlCreateInput("0", 235, 110, 40, 20) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 60) $budik5 = GUICtrlCreateCheckbox("Budík vypnutý", 10, 110, 150, 20) GUICtrlSetState(1, $GUI_CHECKED) GUICtrlCreateLabel("hodin", 205, 114, 40, 20) GUICtrlCreateLabel("minut", 280, 114, 40, 20) ;-------------------Cyklus-------------------- While 1 Switch GUIGetMsg() Case $budik1 If $oznacenibudiku1 = 0 Then $oznacenibudiku1 = 1 GUICtrlSetBkColor($budik1, 0x00FF00) GUICtrlSetData ($budik1,"Budík nastaven na "& int(GUICtrlRead($budikh1)) & ":" & int(GUICtrlRead($budikm1)) & "") Else $oznacenibudiku1 = 0 GUICtrlSetBkColor($budik1, 0xFFFFFF) GUICtrlSetData ($budik1,"Budík vypnutý") EndIf Case $budik2 If $oznacenibudiku2 = 0 Then $oznacenibudiku2 = 1 GUICtrlSetBkColor($budik2, 0x00FF00) GUICtrlSetData ($budik2,"Budík nastaven na "& int(GUICtrlRead($budikh2)) & ":" & int(GUICtrlRead($budikm2)) & "") Else $oznacenibudiku2 = 0 GUICtrlSetBkColor($budik2, 0xFFFFFF) GUICtrlSetData ($budik2,"Budík vypnutý") EndIf Case $budik3 If $oznacenibudiku3 = 0 Then $oznacenibudiku3 = 1 GUICtrlSetBkColor($budik3, 0x00FF00) GUICtrlSetData ($budik3,"Budík nastaven na "& int(GUICtrlRead($budikh3)) & ":" & int(GUICtrlRead($budikm3)) & "") Else $oznacenibudiku3 = 0 GUICtrlSetBkColor($budik3, 0xFFFFFF) GUICtrlSetData ($budik3,"Budík vypnutý") EndIf Case $budik4 If $oznacenibudiku4 = 0 Then $oznacenibudiku4 = 1 GUICtrlSetBkColor($budik4, 0x00FF00) GUICtrlSetData ($budik4,"Budík nastaven na "& int(GUICtrlRead($budikh4)) & ":" & int(GUICtrlRead($budikm4)) & "") Else $oznacenibudiku4 = 0 GUICtrlSetBkColor($budik4, 0xFFFFFF) GUICtrlSetData ($budik4,"Budík vypnutý") EndIf Case $budik5 If $oznacenibudiku5 = 0 Then $oznacenibudiku5 = 1 GUICtrlSetBkColor($budik5, 0x00FF00) GUICtrlSetData ($budik5,"Budík nastaven na "& int(GUICtrlRead($budikh5)) & ":" & int(GUICtrlRead($budikm5)) & "") Else $oznacenibudiku5 = 0 GUICtrlSetBkColor($budik5, 0xFFFFFF) GUICtrlSetData ($budik5,"Budík vypnutý") EndIf Case $kontakty GUICtrlSetData ($Text,"") Case $konec Exit Case $hesla GUICtrlSetData ($Text,"") ;------Označení------ ;---Denní--- Case $msg1 If $c1 = 0 Then $c1 = 1 GUICtrlSetBkColor($msg1, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c1 = 0 GUICtrlSetBkColor($msg1, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg2 If $c2 = 0 Then $c2 = 1 GUICtrlSetBkColor($msg2, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c2 = 0 GUICtrlSetBkColor($msg2, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg3 If $c3 = 0 Then $c3 = 1 GUICtrlSetBkColor($msg3, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c3 = 0 GUICtrlSetBkColor($msg3, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg4 If $c4 = 0 Then $c4 = 1 GUICtrlSetBkColor($msg4, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c4 = 0 GUICtrlSetBkColor($msg4, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg5 If $c5 = 0 Then $c5 = 1 GUICtrlSetBkColor($msg5, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c5 = 0 GUICtrlSetBkColor($msg5, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg6 If $c6 = 0 Then $c6 = 1 GUICtrlSetBkColor($msg6, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c6 = 0 GUICtrlSetBkColor($msg6, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg7 If $c7 = 0 Then $c7 = 1 GUICtrlSetBkColor($msg7, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c7 = 0 GUICtrlSetBkColor($msg7, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg8 If $c8 = 0 Then $c8 = 1 GUICtrlSetBkColor($msg8, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c8 = 0 GUICtrlSetBkColor($msg8, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg9 If $c9 = 0 Then $c9 = 1 GUICtrlSetBkColor($msg9, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c9 = 0 GUICtrlSetBkColor($msg9, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg10 If $c10 = 0 Then $c10 = 1 GUICtrlSetBkColor($msg10, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c10 = 0 GUICtrlSetBkColor($msg10, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $msg11 If $c11 = 0 Then $c11 = 1 GUICtrlSetBkColor($msg11, 0x00FF00) $point = $point +1 GUICtrlSetData ($Dview,""& 11 - $point) If $point = 11 Then MsgBox(0, "Konec", "Gratuluji, tvá denní směna je u konce. Můžeš jít domů. :)") EndIf Else $c11 = 0 GUICtrlSetBkColor($msg11, 0xFFFFFF) $point = $point -1 GUICtrlSetData ($Dview,""& 11 - $point) EndIf Case $reset GUICtrlSetState($msg1, $GUI_UNCHECKED) GUICtrlSetState($msg2, $GUI_UNCHECKED) GUICtrlSetState($msg3, $GUI_UNCHECKED) GUICtrlSetState($msg4, $GUI_UNCHECKED) GUICtrlSetState($msg5, $GUI_UNCHECKED) GUICtrlSetState($msg6, $GUI_UNCHECKED) GUICtrlSetState($msg7, $GUI_UNCHECKED) GUICtrlSetState($msg8, $GUI_UNCHECKED) GUICtrlSetState($msg9, $GUI_UNCHECKED) GUICtrlSetState($msg10, $GUI_UNCHECKED) GUICtrlSetState($msg11, $GUI_UNCHECKED) GUICtrlSetBkColor($msg1, 0xFFFFFF) GUICtrlSetBkColor($msg2, 0xFFFFFF) GUICtrlSetBkColor($msg3, 0xFFFFFF) GUICtrlSetBkColor($msg4, 0xFFFFFF) GUICtrlSetBkColor($msg5, 0xFFFFFF) GUICtrlSetBkColor($msg6, 0xFFFFFF) GUICtrlSetBkColor($msg7, 0xFFFFFF) GUICtrlSetBkColor($msg8, 0xFFFFFF) GUICtrlSetBkColor($msg9, 0xFFFFFF) GUICtrlSetBkColor($msg10, 0xFFFFFF) GUICtrlSetBkColor($msg11, 0xFFFFFF) $c1 = 0 $c2 = 0 $c3 = 0 $c4 = 0 $c5 = 0 $c6 = 0 $c7 = 0 $c8 = 0 $c9 = 0 $c10 = 0 $c11 = 0 $point = 0 GUICtrlSetData ($Dview,""& 11 - $point) ;---Noční--- Case $nmsg1 If $nc1 = 0 Then $nc1 = 1 GUICtrlSetBkColor($nmsg1, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc1 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg1, 0xFFFFFF) EndIf Case $nmsg2 If $nc2 = 0 Then $nc2 = 1 GUICtrlSetBkColor($nmsg2, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc2 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg2, 0xFFFFFF) EndIf Case $nmsg3 If $nc3 = 0 Then $nc3 = 1 GUICtrlSetBkColor($nmsg3, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc3 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg3, 0xFFFFFF) EndIf Case $nmsg4 If $nc4 = 0 Then $nc4 = 1 GUICtrlSetBkColor($nmsg4, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc4 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg4, 0xFFFFFF) EndIf Case $nmsg5 If $nc5 = 0 Then $nc5 = 1 GUICtrlSetBkColor($nmsg5, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc5 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg5, 0xFFFFFF) EndIf Case $nmsg6 If $nc6 = 0 Then $nc6 = 1 GUICtrlSetBkColor($nmsg6, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc6 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg6, 0xFFFFFF) EndIf Case $nmsg7 If $nc7 = 0 Then $nc7 = 1 GUICtrlSetBkColor($nmsg7, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc7 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg7, 0xFFFFFF) EndIf Case $nmsg8 If $nc8 = 0 Then $nc8 = 1 GUICtrlSetBkColor($nmsg8, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc8 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg8, 0xFFFFFF) EndIf Case $nmsg9 If $nc9 = 0 Then $nc9 = 1 GUICtrlSetBkColor($nmsg9, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc9 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg9, 0xFFFFFF) EndIf Case $nmsg10 If $nc10 = 0 Then $nc10 = 1 GUICtrlSetBkColor($nmsg10, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc10 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg10, 0xFFFFFF) EndIf Case $nmsg11 If $nc11 = 0 Then $nc11 = 1 GUICtrlSetBkColor($nmsg11, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc11 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg11, 0xFFFFFF) EndIf Case $nmsg12 If $nc12 = 0 Then $nc12 = 1 GUICtrlSetBkColor($nmsg12, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc12 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg12, 0xFFFFFF) EndIf Case $nmsg13 If $nc13 = 0 Then $nc13 = 1 GUICtrlSetBkColor($nmsg13, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc13 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg13, 0xFFFFFF) EndIf Case $nmsg14 If $nc14 = 0 Then $nc14 = 1 GUICtrlSetBkColor($nmsg14, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc14 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg14, 0xFFFFFF) EndIf Case $nmsg15 If $nc15 = 0 Then $nc15 = 1 GUICtrlSetBkColor($nmsg15, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc15 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg15, 0xFFFFFF) EndIf Case $nmsg16 If $nc16 = 0 Then $nc16 = 1 GUICtrlSetBkColor($nmsg16, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc16 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg16, 0xFFFFFF) EndIf Case $nmsg17 If $nc17 = 0 Then $nc17 = 1 GUICtrlSetBkColor($nmsg17, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc17 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg17, 0xFFFFFF) EndIf Case $nmsg18 If $nc18 = 0 Then $nc18 = 1 GUICtrlSetBkColor($nmsg18, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc18 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg18, 0xFFFFFF) EndIf Case $nmsg19 If $nc19 = 0 Then $nc19 = 1 GUICtrlSetBkColor($nmsg19, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc19 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg19, 0xFFFFFF) EndIf Case $nmsg20 If $nc20 = 0 Then $nc20 = 1 GUICtrlSetBkColor($nmsg20, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc20 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg20, 0xFFFFFF) EndIf Case $nmsg21 If $nc21 = 0 Then $nc21 = 1 GUICtrlSetBkColor($nmsg21, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc21 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg21, 0xFFFFFF) EndIf Case $nmsg22 If $nc22 = 0 Then $nc22 = 1 GUICtrlSetBkColor($nmsg22, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Konec", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc22 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg22, 0xFFFFFF) EndIf Case $nmsg23 If $nc23 = 0 Then $nc23 = 1 GUICtrlSetBkColor($nmsg23, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Text", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc23 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg23, 0xFFFFFF) EndIf Case $nmsg24 If $nc24 = 0 Then $nc24 = 1 GUICtrlSetBkColor($nmsg24, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Text", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc24 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg24, 0xFFFFFF) EndIf Case $nmsg25 If $nc25 = 0 Then $nc25 = 1 GUICtrlSetBkColor($nmsg25, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Text", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc25 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg25, 0xFFFFFF) EndIf Case $nmsg26 If $nc26 = 0 Then $nc26 = 1 GUICtrlSetBkColor($nmsg26, 0x00FF00) $npoint = $npoint +1 GUICtrlSetData ($Nview,""& 26 - $npoint) If $npoint = 26 Then MsgBox(0, "Text", "Gratuluji, tvá noční směna je u konce. Můžeš jít domů. :)") EndIf Else $nc26 = 0 $npoint = $npoint -1 GUICtrlSetData ($Nview,""& 26 - $npoint) GUICtrlSetBkColor($nmsg26, 0xFFFFFF) EndIf ;--------------------- Case $nreset GUICtrlSetState($nmsg1, $GUI_UNCHECKED) GUICtrlSetState($nmsg2, $GUI_UNCHECKED) GUICtrlSetState($nmsg3, $GUI_UNCHECKED) GUICtrlSetState($nmsg4, $GUI_UNCHECKED) GUICtrlSetState($nmsg5, $GUI_UNCHECKED) GUICtrlSetState($nmsg6, $GUI_UNCHECKED) GUICtrlSetState($nmsg7, $GUI_UNCHECKED) GUICtrlSetState($nmsg8, $GUI_UNCHECKED) GUICtrlSetState($nmsg9, $GUI_UNCHECKED) GUICtrlSetState($nmsg10, $GUI_UNCHECKED) GUICtrlSetState($nmsg11, $GUI_UNCHECKED) GUICtrlSetState($nmsg12, $GUI_UNCHECKED) GUICtrlSetState($nmsg13, $GUI_UNCHECKED) GUICtrlSetState($nmsg14, $GUI_UNCHECKED) GUICtrlSetState($nmsg15, $GUI_UNCHECKED) GUICtrlSetState($nmsg16, $GUI_UNCHECKED) GUICtrlSetState($nmsg17, $GUI_UNCHECKED) GUICtrlSetState($nmsg18, $GUI_UNCHECKED) GUICtrlSetState($nmsg19, $GUI_UNCHECKED) GUICtrlSetState($nmsg20, $GUI_UNCHECKED) GUICtrlSetState($nmsg21, $GUI_UNCHECKED) GUICtrlSetState($nmsg22, $GUI_UNCHECKED) GUICtrlSetState($nmsg23, $GUI_UNCHECKED) GUICtrlSetState($nmsg24, $GUI_UNCHECKED) GUICtrlSetState($nmsg25, $GUI_UNCHECKED) GUICtrlSetState($nmsg26, $GUI_UNCHECKED) GUICtrlSetBkColor($nmsg1, 0xFFFFFF) GUICtrlSetBkColor($nmsg2, 0xFFFFFF) GUICtrlSetBkColor($nmsg3, 0xFFFFFF) GUICtrlSetBkColor($nmsg4, 0xFFFFFF) GUICtrlSetBkColor($nmsg5, 0xFFFFFF) GUICtrlSetBkColor($nmsg6, 0xFFFFFF) GUICtrlSetBkColor($nmsg7, 0xFFFFFF) GUICtrlSetBkColor($nmsg8, 0xFFFFFF) GUICtrlSetBkColor($nmsg9, 0xFFFFFF) GUICtrlSetBkColor($nmsg10, 0xFFFFFF) GUICtrlSetBkColor($nmsg11, 0xFFFFFF) GUICtrlSetBkColor($nmsg12, 0xFFFFFF) GUICtrlSetBkColor($nmsg13, 0xFFFFFF) GUICtrlSetBkColor($nmsg14, 0xFFFFFF) GUICtrlSetBkColor($nmsg15, 0xFFFFFF) GUICtrlSetBkColor($nmsg16, 0xFFFFFF) GUICtrlSetBkColor($nmsg17, 0xFFFFFF) GUICtrlSetBkColor($nmsg18, 0xFFFFFF) GUICtrlSetBkColor($nmsg19, 0xFFFFFF) GUICtrlSetBkColor($nmsg20, 0xFFFFFF) GUICtrlSetBkColor($nmsg21, 0xFFFFFF) GUICtrlSetBkColor($nmsg22, 0xFFFFFF) GUICtrlSetBkColor($nmsg23, 0xFFFFFF) GUICtrlSetBkColor($nmsg24, 0xFFFFFF) GUICtrlSetBkColor($nmsg25, 0xFFFFFF) GUICtrlSetBkColor($nmsg26, 0xFFFFFF) $nc1 = 0 $nc2 = 0 $nc3 = 0 $nc4 = 0 $nc5 = 0 $nc6 = 0 $nc7 = 0 $nc8 = 0 $nc9 = 0 $nc10 = 0 $nc11 = 0 $nc12 = 0 $nc13 = 0 $nc14 = 0 $nc15 = 0 $nc16 = 0 $nc17 = 0 $nc18 = 0 $nc19 = 0 $nc20 = 0 $nc21 = 0 $nc22 = 0 $nc23 = 0 $nc24 = 0 $nc25 = 0 $nc26 = 0 $npoint = 0 GUICtrlSetData ($Nview,""& 26 - $npoint) ;-----------------ulozit/nacist---------------- Case $uloz FileDelete ( "export.txt" ) FileWrite("export.txt", GUICtrlRead($export)) Case $nacti GUICtrlSetData ($export,"") $exporttext = FileRead ("export.txt") GUICtrlSetData ($export , "" & $exporttext) Case $dulezite GUICtrlSetData ($Text,"") Case $vseobecne GUICtrlSetData ($Text,"") EndSwitch If $oznacenibudiku1 = 1 and @HOUR = int(GUICtrlRead($budikh1)) and @MIN = int(GUICtrlRead($budikm1)) Then SoundPlay("Buzení.mp3") GUICtrlSetData ($budikh1,"") GUICtrlSetData ($budikm1,"") EndIf If $oznacenibudiku2 = 1 and @HOUR = int(GUICtrlRead($budikh2)) and @MIN = int(GUICtrlRead($budikm2)) Then SoundPlay("Buzení.mp3") GUICtrlSetData ($budikh2,"") GUICtrlSetData ($budikm2,"") EndIf If $oznacenibudiku3 = 1 and @HOUR = int(GUICtrlRead($budikh3)) and @MIN = int(GUICtrlRead($budikm3)) Then SoundPlay("Buzení.mp3") GUICtrlSetData ($budikh3,"") GUICtrlSetData ($budikm3,"") EndIf If $oznacenibudiku4 = 1 and @HOUR = int(GUICtrlRead($budikh4)) and @MIN = int(GUICtrlRead($budikm4)) Then SoundPlay("Buzení.mp3") GUICtrlSetData ($budikh4,"") GUICtrlSetData ($budikm4,"") EndIf If $oznacenibudiku5 = 1 and @HOUR = int(GUICtrlRead($budikh5)) and @MIN = int(GUICtrlRead($budikm5)) Then SoundPlay("Buzení.mp3") GUICtrlSetData ($budikh5,"") GUICtrlSetData ($budikm5,"") EndIf WEnd ;---Nastavení budíku--- ;Tento script má 3 části ;První - Tab část - displej ;Druhá - cyklus ve While, který REAGUJE nastavení ;Třetí - samostatný cyklus bez jakékoli reakce, který pouze čeká na čas - před WEnd