BananaFredSoft Posted May 5, 2007 Share Posted May 5, 2007 Can anyone tell me why the buttons in this script don't work? I am going to go crazy if I can't figure it out... expandcollapse popup#include <GUIConstants.au3> $z = 0 $closd = 0 $am = "" GUICreate("Locked", @DesktopWidth, @DesktopHeight) $1 = GUICtrlCreateLabel("Do not touch computer", 80, 80, 800, 800) $button1 = GUICtrlCreateButton("1", 608, 720, 17, 17, 0) $button2 = GUICtrlCreateButton("2", 632, 720, 17, 17, 0) $button3 = GUICtrlCreateButton("3", 656, 720, 17, 17, 0) $button4 = GUICtrlCreateButton("4", 608, 744, 17, 17, 0) $button5 = GUICtrlCreateButton("5", 632, 744, 17, 17, 0) $button6 = GUICtrlCreateButton("6", 656, 744, 17, 17, 0) $button7 = GUICtrlCreateButton("7", 608, 768, 17, 17, 0) $button8 = GUICtrlCreateButton("8", 632, 768, 17, 17, 0) $button9 = GUICtrlCreateButton("9", 656, 768, 17, 17, 0) $Group1 = GUICtrlCreateGroup("Number Pad", 600, 704, 81, 113) $button10 = GUICtrlCreateButton("0", 632, 792, 17, 17, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $2 = GUICtrlCreateLabel("Time: " & @MIN & ":" & @HOUR, 10, 900) GUICtrlSetFont($1, 50) GUISetState(@SW_SHOW) HotKeySet(@WDAY, "wday") Func wday () Exit EndFunc While 1 $time = @HOUR & @MIN & @SEC If $time < @HOUR & @MIN & @SEC then GUICtrlDelete($2) $2 = GUICtrlCreateLabel("Time: " & @HOUR & ":" & @MIN & ":" & @SEC, 10, 900) EndIf $msg = GUIGetMsg () Select Case $msg = $GUI_EVENT_CLOSE $closd = 1 Case $msg = $button1 $am = $am & 1 Case $msg = $button2 $am = $am & 2 Case $msg = $button3 $am = $am & 3 Case $msg = $button4 $am = $am & 4 Case $msg = $button5 $am = $am & 5 Case $msg = $button6 $am = $am & 6 Case $msg = $button7 $am = $am & 7 Case $msg = $button8 $am = $am & 8 Case $msg = $button9 $am = $am & 9 Case $msg = $button10 $am = $am & 0 Case $am = @YEAR & @MDAY Exit EndSelect WEnd MsgBox(0, "Closed", "Closed:" & $closd) -ColinSite:www.bananafredsoft.comStuff:Simple Text Editor - MediaPlayer - Animator - BananaDB - BananaNotes - Chatta - Filesearch - Excuse GeneratorMy YouTube channel:http://www.youtube.com/user/colipat Link to comment Share on other sites More sharing options...
cppman Posted May 5, 2007 Share Posted May 5, 2007 (edited) expandcollapse popup#include <GUIConstants.au3> $z = 0 $closd = 0 $am = "" GUICreate("Locked", @DesktopWidth, @DesktopHeight) $1 = GUICtrlCreateLabel("Do not touch computer", 80, 80, 800, 200) $button1 = GUICtrlCreateButton("1", 608, 720, 17, 17, 0) $button2 = GUICtrlCreateButton("2", 632, 720, 17, 17, 0) $button3 = GUICtrlCreateButton("3", 656, 720, 17, 17, 0) $button4 = GUICtrlCreateButton("4", 608, 744, 17, 17, 0) $button5 = GUICtrlCreateButton("5", 632, 744, 17, 17, 0) $button6 = GUICtrlCreateButton("6", 656, 744, 17, 17, 0) $button7 = GUICtrlCreateButton("7", 608, 768, 17, 17, 0) $button8 = GUICtrlCreateButton("8", 632, 768, 17, 17, 0) $button9 = GUICtrlCreateButton("9", 656, 768, 17, 17, 0) $Group1 = GUICtrlCreateGroup("Number Pad", 600, 704, 81, 113) $button10 = GUICtrlCreateButton("0", 632, 792, 17, 17, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $2 = GUICtrlCreateLabel("Time: " & @MIN & ":" & @HOUR, 10, 900) GUICtrlSetFont($1, 50) GUISetState(@SW_SHOW) HotKeySet(@WDAY, "wday") Func wday () Exit EndFunc While 1 $time = @HOUR & @MIN & @SEC If $time < @HOUR & @MIN & @SEC then GUICtrlDelete($2) $2 = GUICtrlCreateLabel("Time: " & @HOUR & ":" & @MIN & ":" & @SEC, 10, 900) EndIf $msg = GUIGetMsg () Select Case $msg = $GUI_EVENT_CLOSE $closd = 1 Case $msg = $button1 $am = $am & 1 Case $msg = $button2 $am = $am & 2 Case $msg = $button3 $am = $am & 3 Case $msg = $button4 $am = $am & 4 Case $msg = $button5 $am = $am & 5 Case $msg = $button6 $am = $am & 6 Case $msg = $button7 $am = $am & 7 Case $msg = $button8 $am = $am & 8 Case $msg = $button9 $am = $am & 9 Case $msg = $button10 $am = $am & 0 Case $am = @YEAR & @MDAY Exit EndSelect WEnd MsgBox(0, "Closed", "Closed:" & $closd) (Here is a fixed version) Look at the size of your label. it overlaps the over controls. Edited May 5, 2007 by chris95219 Miva OS Project Link to comment Share on other sites More sharing options...
BananaFredSoft Posted May 9, 2007 Author Share Posted May 9, 2007 Thanks! expandcollapse popup#include <GUIConstants.au3> $z = 0 $closd = 0 $am = "" GUICreate("Locked", @DesktopWidth, @DesktopHeight) $1 = GUICtrlCreateLabel("Do not touch computer", 80, 80, 800, 200) $button1 = GUICtrlCreateButton("1", 608, 720, 17, 17, 0) $button2 = GUICtrlCreateButton("2", 632, 720, 17, 17, 0) $button3 = GUICtrlCreateButton("3", 656, 720, 17, 17, 0) $button4 = GUICtrlCreateButton("4", 608, 744, 17, 17, 0) $button5 = GUICtrlCreateButton("5", 632, 744, 17, 17, 0) $button6 = GUICtrlCreateButton("6", 656, 744, 17, 17, 0) $button7 = GUICtrlCreateButton("7", 608, 768, 17, 17, 0) $button8 = GUICtrlCreateButton("8", 632, 768, 17, 17, 0) $button9 = GUICtrlCreateButton("9", 656, 768, 17, 17, 0) $Group1 = GUICtrlCreateGroup("Number Pad", 600, 704, 81, 113) $button10 = GUICtrlCreateButton("0", 632, 792, 17, 17, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $2 = GUICtrlCreateLabel("Time: " & @MIN & ":" & @HOUR, 10, 900) GUICtrlSetFont($1, 50) GUISetState(@SW_SHOW) HotKeySet(@WDAY, "wday") Func wday () Exit EndFunc While 1 $time = @HOUR & @MIN & @SEC If $time < @HOUR & @MIN & @SEC then GUICtrlDelete($2) $2 = GUICtrlCreateLabel("Time: " & @HOUR & ":" & @MIN & ":" & @SEC, 10, 900) EndIf $msg = GUIGetMsg () Select Case $msg = $GUI_EVENT_CLOSE $closd = 1 Case $msg = $button1 $am = $am & 1 Case $msg = $button2 $am = $am & 2 Case $msg = $button3 $am = $am & 3 Case $msg = $button4 $am = $am & 4 Case $msg = $button5 $am = $am & 5 Case $msg = $button6 $am = $am & 6 Case $msg = $button7 $am = $am & 7 Case $msg = $button8 $am = $am & 8 Case $msg = $button9 $am = $am & 9 Case $msg = $button10 $am = $am & 0 Case $am = @YEAR & @MDAY Exit EndSelect WEnd MsgBox(0, "Closed", "Closed:" & $closd) (Here is a fixed version) Look at the size of your label. it overlaps the over controls. -ColinSite:www.bananafredsoft.comStuff:Simple Text Editor - MediaPlayer - Animator - BananaDB - BananaNotes - Chatta - Filesearch - Excuse GeneratorMy YouTube channel:http://www.youtube.com/user/colipat Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now