nightmare3519 Posted March 14, 2013 Share Posted March 14, 2013 (edited) Edited September 2, 2014 by nightmare3519 Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted March 14, 2013 Share Posted March 14, 2013 Autoit de bazı işlemler için string veya number kullanılır. Help dosyasına bakabilirsin, bunun dışında basit bir hesap makinesi yapmak için Execute de kullanabilirsin hem kodlarında uzamaz. GUICreate("Hesap Makinesi", 320, 200) $input = GUICtrlCreateInput("", 10, 10, 300, 20) $bTopla = GUICtrlCreateButton("+", 10, 40, 75, 30) $bCikar = GUICtrlCreateButton("-", 85, 40, 75, 30) $bBol = GUICtrlCreateButton("/", 160, 40, 75, 30) $bCarp = GUICtrlCreateButton("*", 235, 40, 75, 30) $bn7 = GUICtrlCreateButton("7", 10, 70, 75, 30) $bn8 = GUICtrlCreateButton("8", 85, 70, 75, 30) $bn9 = GUICtrlCreateButton("9", 160, 70, 75, 30) $bnC = GUICtrlCreateButton("C", 235, 70, 75, 60) $bn4 = GUICtrlCreateButton("4", 10, 100, 75, 30) $bn5 = GUICtrlCreateButton("5", 85, 100, 75, 30) $bn6 = GUICtrlCreateButton("6", 160, 100, 75, 30) $bn1 = GUICtrlCreateButton("1", 10, 130, 75, 30) $bn2 = GUICtrlCreateButton("2", 85, 130, 75, 30) $bn3 = GUICtrlCreateButton("3", 160, 130, 75, 30) $bEsittir = GUICtrlCreateButton("=", 235, 130, 75, 60) $bn0 = GUICtrlCreateButton("0", 10, 160, 150, 30) $bvirgul = GUICtrlCreateButton(",", 160, 160, 75, 30) GUISetState() While 1 Switch GUIGetMsg() Case -3 ExitLoop Case $bnC GUICtrlSetData($input, "") Case $bn1 GUICtrlSetData($input, GUICtrlRead($input) & "1") Case $bn2 GUICtrlSetData($input, GUICtrlRead($input) & "2") Case $bn3 GUICtrlSetData($input, GUICtrlRead($input) & "3") Case $bn4 GUICtrlSetData($input, GUICtrlRead($input) & "4") Case $bn5 GUICtrlSetData($input, GUICtrlRead($input) & "5") Case $bn6 GUICtrlSetData($input, GUICtrlRead($input) & "6") Case $bn7 GUICtrlSetData($input, GUICtrlRead($input) & "7") Case $bn8 GUICtrlSetData($input, GUICtrlRead($input) & "8") Case $bn9 GUICtrlSetData($input, GUICtrlRead($input) & "9") Case $bTopla GUICtrlSetData($input, GUICtrlRead($input) & " + ") Case $bCikar GUICtrlSetData($input, GUICtrlRead($input) & " - ") Case $bBol GUICtrlSetData($input, GUICtrlRead($input) & " / ") Case $bCarp GUICtrlSetData($input, GUICtrlRead($input) & " * ") Case $bn0 GUICtrlSetData($input, GUICtrlRead($input) & "0") Case $bvirgul GUICtrlSetData($input, GUICtrlRead($input) & ".") Case $bEsittir GUICtrlSetData($input, Execute(GUICtrlRead($input))) EndSwitch WEnd Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.