Autoitte Matematiksel Işlemler Nasıl Yapılır?

[nightmare3519]

Edited September 2, 2014 by nightmare3519

[SimpsoN_Bart]

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