Infinitex0 Posted February 13, 2006 Share Posted February 13, 2006 expandcollapse popup#include <GUIConstants.au3> GUICreate("Formula Machine 1.0", 240, 125) $Tri = GUICtrlCreateButton("Triangles", 1, 1) $Squ = GUICtrlCreateButton("Squares", 1, 100) $Rec = GUICtrlCreateButton("Rectangle", 80, 50) GUISetState(@SW_SHOW) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $Tri GUICreate("Calculate Area Of Triangle", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $btnB = GUICtrlCreateInput("Base", 10, 35, 50, 20) ; will not accept drag&drop files $btnH = GUICtrlCreateInput("Height", 10, 60, 50, 20) $btn1 = GUICtrlCreateButton ("Ok", 10, 90, 60, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btn1 ExitLoop EndSelect WEnd MsgBox (4096, "Area ='s", GUICtrlRead($btnB)*GUICtrlRead($btnH)/2) Case $msg = $Squ GUICreate("Formula For Area Of Square", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $btnS = GUICtrlCreateInput( "Side", 10, 35, 50, 20) $btn2 = GUICtrlCreateButton("Ok", 10, 60, 50, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btn2 MsgBox (4096, "Area ='s", GUICtrlRead($btnS)*GUICtrlRead($btnS)) EndSelect WEnd EndSelect WEnd GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $Rec GUICreate("Calculate Area Of Rectangle", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $btnD = GUICtrlCreateInput("A", 10, 35, 50, 20) ; will not accept drag&drop files $btnD2 = GUICtrlCreateInput("B", 10, 60, 50, 20) $btnZ = GUICtrlCreateButton ("Ok", 50, 90, 60, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btnZ MsgBox (4096, "Area ='s", GUICtrlRead($btnD)*GUICtrlRead($btnD2)) EndSelect WEnd EndSelect WEnd Whenever I press the Rectangle button nothing happens. Any idea why? The below statement is False.The above statement is True.a lesson I learned from Greenmachine; give a man a code and he'll solve one problem. Teach a man to code and he'll solve all his problems.P.S please don't use autoIt as a virus creator/spyware maker(keyLogger especially)Cick this and help me[center]My Scripts:[/center][center]Port Scanner[/center] Link to comment Share on other sites More sharing options...
Valuater Posted February 13, 2006 Share Posted February 13, 2006 you are creating your GUI's inside a while loop, which creates them over and over creategui 1 creategui 2 while wend 8) Link to comment Share on other sites More sharing options...
flaxcrack Posted February 13, 2006 Share Posted February 13, 2006 expandcollapse popup#include <GUIConstants.au3> GUICreate("Formula Machine 1.0", 240, 125) $Tri = GUICtrlCreateButton("Triangles", 1, 1) $Squ = GUICtrlCreateButton("Squares", 1, 100) $Rec = GUICtrlCreateButton("Rectangle", 80, 50) GUISetState(@SW_SHOW) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $Tri GUICreate("Calculate Area Of Triangle", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $btnB = GUICtrlCreateInput("Base", 10, 35, 50, 20); will not accept drag&drop files $btnH = GUICtrlCreateInput("Height", 10, 60, 50, 20) $btn1 = GUICtrlCreateButton ("Ok", 10, 90, 60, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btn1 ExitLoop EndSelect WEnd MsgBox (4096, "Area ='s", GUICtrlRead($btnB)*GUICtrlRead($btnH)/2) Case $msg = $Squ GUICreate("Formula For Area Of Square", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $btnS = GUICtrlCreateInput( "Side", 10, 35, 50, 20) $btn2 = GUICtrlCreateButton("Ok", 10, 60, 50, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btn2 MsgBox (4096, "Area ='s", GUICtrlRead($btnS)*GUICtrlRead($btnS)) EndSelect WEnd EndSelect WEnd GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $Rec GUICreate("Calculate Area Of Rectangle", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $btnD = GUICtrlCreateInput("A", 10, 35, 50, 20); will not accept drag&drop files $btnD2 = GUICtrlCreateInput("B", 10, 60, 50, 20) $btnZ = GUICtrlCreateButton ("Ok", 50, 90, 60, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btnZ MsgBox (4096, "Area ='s", GUICtrlRead($btnD)*GUICtrlRead($btnD2)) EndSelect WEnd EndSelect WEnd Whenever I press the Rectangle button nothing happens. Any idea why? Strange...It worked for me... [quote] Gilbertson's Law: Nothing is foolproof to a sufficiently talented fool.Sandro Alvares: Flaxcrack is please not noob! i can report you is stop stupid. The Post[/quote]I made this: FWD & MD5PWD() Link to comment Share on other sites More sharing options...
pecloe Posted February 13, 2006 Share Posted February 13, 2006 i'm not sure how this is supposed to work but expandcollapse popup#include <GUIConstants.au3> GUICreate("Formula Machine 1.0", 240, 125) $Tri = GUICtrlCreateButton("Triangles", 1, 1) $Squ = GUICtrlCreateButton("Squares", 1, 100) $Rec = GUICtrlCreateButton("Rectangle", 80, 50) GUISetState(@SW_SHOW) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $Tri GUICreate("Calculate Area Of Triangle", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $btnB = GUICtrlCreateInput("Base", 10, 35, 50, 20); will not accept drag&drop files $btnH = GUICtrlCreateInput("Height", 10, 60, 50, 20) $btn1 = GUICtrlCreateButton ("Ok", 10, 90, 60, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btn1 ExitLoop EndSelect WEnd MsgBox (4096, "Area ='s", GUICtrlRead($btnB)*GUICtrlRead($btnH)/2) Case $msg = $Squ GUICreate("Formula For Area Of Square", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $btnS = GUICtrlCreateInput( "Side", 10, 35, 50, 20) $btn2 = GUICtrlCreateButton("Ok", 10, 60, 50, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btn2 MsgBox (4096, "Area ='s", GUICtrlRead($btnS)*GUICtrlRead($btnS)) EndSelect WEnd Case $msg = $Rec GUICreate("Calculate Area Of Rectangle", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $btnD = GUICtrlCreateInput("A", 10, 35, 50, 20); will not accept drag&drop files $btnD2 = GUICtrlCreateInput("B", 10, 60, 50, 20) $btnZ = GUICtrlCreateButton ("Ok", 50, 90, 60, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btnZ MsgBox (4096, "Area ='s", GUICtrlRead($btnD)*GUICtrlRead($btnD2)) EndSelect WEnd EndSelect WEnd Link to comment Share on other sites More sharing options...
Valuater Posted February 13, 2006 Share Posted February 13, 2006 (edited) Like this #include <GUIConstants.au3> $Main = GUICreate("Formula Machine 1.0", 240, 125) $Tri = GUICtrlCreateButton("Triangles", 1, 1) $Squ = GUICtrlCreateButton("Squares", 1, 100) $Rec = GUICtrlCreateButton("Rectangle", 80, 50) GUISetState(@SW_SHOW) GUISetState() $triangle = GUICreate("Calculate Area Of Triangle", 125, 125) GUICtrlCreateLabel("Input", -1, -1) GUICtrlSetState(-1, $GUI_ACCEPTFILES) $btnB = GUICtrlCreateInput("Base", 10, 35, 50, 20); will not accept drag&drop files $btnH = GUICtrlCreateInput("Height", 10, 60, 50, 20) $btn1 = GUICtrlCreateButton("Ok", 10, 90, 60, 20) GUISetState() $msg = 0 GUISetState(@SW_HIDE) $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $Tri GUISetState(@SW_SHOW, $triangle) Case $msg = $btn1 GUISetState(@SW_HIDE, $triangle) EndSelect WEnd 8) Edited February 13, 2006 by Valuater 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