Search the Community

#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #NoTrayIcon ;EINMALIGE AKTIONEN AM ANFANG DirCreate(".\tmp") global $wirklich = 0 if not FileExists("./log.txt") then FileWrite("./log.txt","@@Textlog Datei zur Judo Anzeige@@" & @CRLF & @CRLF & @CRLF & @CRLF) EndIf global $blauipponint = 1 main() While 1 ;HAUPTGUISWITCH $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exitfunc() Case $yukoblau yukoblau() case $wazablau wazablau() case $ipponblau ipponblau() case $shidoblau shidoblau() Case $yukoweiss yukoweiss() case $wazaweiss wazaweiss() case $ipponweiss ipponweiss() case $shidoweiss shidoweiss() case $dellog dellog() EndSwitch ;BEENDEN JA NEIN SWITCH switch $wirklich case 6 finalexit() EndSwitch WEnd func main() global $maingui = GUICreate("Judo Anzeige Hauptfenster",800,600) GUICtrlCreateLabel("Blau/Rot",100,70) GUICtrlCreateLabel("Weiss",600,70) ;BLAU global $yukoblau = GUICtrlCreateButton("Yuko",50,100,60,30) GUICtrlCreateButton("Yuko zurück",140,100,90,30) global $wazablau =GUICtrlCreateButton("Waza-ari",50,150,60,30) GUICtrlCreateButton("Waza-ari zurück",140,150,90,30) global $ipponblau = GUICtrlCreateButton("Ippon",50,200,60,30) GUICtrlCreateButton("Ippon zurück",140,200,90,30) global $shidoblau = GUICtrlCreateButton("Shido",50,250,60,30) GUICtrlCreateButton("Shido zurück",140,250,90,30) ;WEISS global $yukoweiss = GUICtrlCreateButton("Yuko",550,100,60,30) GUICtrlCreateButton("Yuko zurück",640,100,90,30) global $wazaweiss = GUICtrlCreateButton("Waza-ari",550,150,60,30) GUICtrlCreateButton("Waza-ari zurück",640,150,90,30) global $ipponweiss = GUICtrlCreateButton("Ippon",550,200,60,30) GUICtrlCreateButton("Ippon zurück",640,200,90,30) global $shidoweiss = GUICtrlCreateButton("Shido",550,250,60,30) GUICtrlCreateButton("Shido zurück",640,250,90,30) GUICtrlCreateButton("Anzeigeeinstellungen ändern",20,20) GUICtrlCreateButton("Anzeige auf Hauptbildschirm an/aus",200,20) global $dellog = GUICtrlCreateButton("Log löschen",420,20) ;ANZEIGE AUF DEM AUSWAHLFENSTER GUICtrlCreateLabel("Ippon",113,480) $blauipponint = GUICtrlCreateInput("", 100, 500, 50, 20, $ES_READONLY) GUISetState(@SW_SHOW, $maingui) EndFunc Func Exitfunc() global $wirklich = MsgBox(4,"Wirklich beenden?", "Wollen sie die Judo Turnier Anzeige wirklich beenden?") ; Yes, No, Cancel EndFunc Func finalexit() ;anzeige schleissen dateien entfernen etc fehlt Exit EndFunc Func dellog() FileDelete("./log.txt") FileWrite("./log.txt","@@Textlog Datei zur Judo Anzeige@@" & @CRLF & @CRLF & @CRLF & @CRLF) EndFunc ;FUNKTIONEN ZU DEN WERTUNGEN IPPON WAZAARI YUKO SHIDO ;BLAU Func yukoblau() FileWrite("./log.txt","yukoblau" & @crlf) FileWrite("./tmp/yukoblau.judo","") endfunc Func wazablau() FileWrite("./log.txt","wazablau" & @crlf) FileWrite("./tmp/wazablau.judo","") endfunc Func ipponblau() FileWrite("./log.txt","ipponblau" & @crlf) FileWrite("./tmp/ipponblau.judo","") endfunc Func shidoblau() FileWrite("./log.txt","shidoblau" & @crlf) FileWrite("./tmp/shidoblau.judo","") endfunc ;WEISS Func yukoweiss() FileWrite("./log.txt","yukoweiss" & @crlf) FileWrite("./tmp/yukoweiss.judo","") endfunc Func wazaweiss() FileWrite("./log.txt","wazaweiss" & @crlf) FileWrite("./tmp/wazaweiss.judo","") endfunc Func ipponweiss() FileWrite("./log.txt","ipponweiss" & @crlf) FileWrite("./tmp/ipponweiss.judo","") endfunc Func shidoweiss() FileWrite("./log.txt","shidoweiss" & @crlf) FileWrite("./tmp/shidoweiss.judo","") endfunc why does the input box in gui stay blank even if I defined $blauipponint as 1 in line 19?