Hier ist mal mein Taschenrechner:
code
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Taschenrechner by Bahadir", 346, 386, 100, 100)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput("", 56, 8, 281, 21)
;~ GUICtrlSetState(-1, $GUI_DISABLE)
$exit = GUICtrlCreateButton("Exit", 8, 32, 75, 25, $WS_GROUP)
$delete = GUICtrlCreateButton("Delete", 96, 32, 75, 25, $WS_GROUP)
$ac = GUICtrlCreateButton("AC", 184, 32, 75, 25, $WS_GROUP)
$pi = GUICtrlCreateButton("Pi", 264, 32, 75, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Wurzel", 8, 64, 51, 33, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Sin", 64, 64, 51, 33, $WS_GROUP)
$Button7 = GUICtrlCreateButton("CoSin", 120, 64, 51, 33, $WS_GROUP)
$Button8 = GUICtrlCreateButton("x^x", 8, 104, 51, 33, $WS_GROUP)
$Button9 = GUICtrlCreateButton("Tan", 64, 104, 51, 33, $WS_GROUP)
$Button10 = GUICtrlCreateButton("ASin", 120, 104, 51, 33, $WS_GROUP)
$Button11 = GUICtrlCreateButton("Bruch", 8, 144, 51, 33, $WS_GROUP)
$Button12 = GUICtrlCreateButton("ATan", 64, 144, 51, 33, $WS_GROUP)
$Button13 = GUICtrlCreateButton("ACosin", 120, 144, 51, 33, $WS_GROUP)
$Button14 = GUICtrlCreateButton("Clear", 8, 184, 51, 33, $WS_GROUP)
$Button15 = GUICtrlCreateButton("x ²", 64, 184, 51, 33, $WS_GROUP)
$Button16 = GUICtrlCreateButton("x-¹", 120, 184, 51, 33, $WS_GROUP)
$Button17 = GUICtrlCreateButton("1", 184, 64, 43, 25, $WS_GROUP)
$Button18 = GUICtrlCreateButton("2", 240, 64, 43, 25, $WS_GROUP)
$Button19 = GUICtrlCreateButton("3", 296, 64, 43, 25, $WS_GROUP)
$Button20 = GUICtrlCreateButton("4", 184, 96, 43, 25, $WS_GROUP)
$Button21 = GUICtrlCreateButton("5", 240, 96, 43, 25, $WS_GROUP)
$Button22 = GUICtrlCreateButton("6", 296, 96, 43, 25, $WS_GROUP)
$Button23 = GUICtrlCreateButton("7", 184, 128, 43, 25, $WS_GROUP)
$Button24 = GUICtrlCreateButton("8", 240, 128, 43, 25, $WS_GROUP)
$Button25 = GUICtrlCreateButton("9", 296, 128, 43, 25, $WS_GROUP)
$Button27 = GUICtrlCreateButton("Komma", 184, 192, 43, 25, $WS_GROUP)
$Button28 = GUICtrlCreateButton("= (Lösung)", 240, 192, 99, 25, $WS_GROUP)
$Button29 = GUICtrlCreateButton("+ (Plus)", 8, 256, 75, 25, $WS_GROUP)
$Button30 = GUICtrlCreateButton("- (Minus)", 88, 256, 83, 25, $WS_GROUP)
$Button31 = GUICtrlCreateButton("/ (Geteilt)", 184, 256, 75, 25, $WS_GROUP)
$Button32 = GUICtrlCreateButton("* (Mal)", 264, 256, 75, 25, $WS_GROUP)
$Input2 = GUICtrlCreateInput("", 8, 8, 41, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("0", 184, 160, 43, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("00", 240, 160, 43, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("000", 296, 160, 43, 25, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("Notizen", 8, 288, 329, 89)
$Button4 = GUICtrlCreateButton("Credits", 8, 224, 331, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button4
MsgBox(64,"Über/Credits","Dieser Taschenrechner ist von BBM gecodet")
Case $Button3
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"000" )
Case $Button2
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"00" )
Case $ac
Guictrlsetdata($Input1,"Cleared...")
Sleep(100)
Guictrlsetdata($Input1,"")
Case $exit
Exit
Case $delete
$old=GUICtrlRead($Input1)
Guictrlsetdata($Input1,StringTrimRight(Guictrlread($Input1),1))
Case $pi
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"3.14")
Case $Button5
$old=GUICtrlRead($Input1)
Guictrlsetdata($Input1,Sqrt(GUictrlread($Input1)))
Case $Button6
$old = GUictrlread($Input1)
Guictrlsetdata($Input1,Execute(Sin($old))&$old)
Case $Button7
$old = GUictrlread($Input1)
Guictrlsetdata($Input1,Execute(Cos($old))&$old)
Case $Button8
$old=GUICtrlRead($Input1)
$Input=Inputbox("Taschenrechner","Hoch wie viel?")
Guictrlsetdata($Input1,Execute(GUICtrlRead($Input1)*GUICtrlRead($Input1)^$Input))
Case $Button9
$old = GUictrlread($Input1)
Guictrlsetdata($Input1,Execute(Tan($old))&$old)
Case $Button10
$old = GUictrlread($Input1)
Guictrlsetdata($Input1,Execute(ASin($old))&$old)
Case $Button11
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"(Zahl1/Zahl2)")
Case $Button12
$old = GUictrlread($Input1)
Guictrlsetdata($Input1,Execute(ATan($old))&$old)
Case $Button13
$old = GUictrlread($Input1)
Guictrlsetdata($Input1,Execute(ACos($old))&$old)
Case $Button14
Guictrlsetdata($Input1,"")
Case $Button15
$old = GUictrlread($Input1)
Guictrlsetdata($Input1,Execute($old*$old))
Case $Button16
$old = GUictrlread($Input1)
GUictrlsetdata($Input1,Execute(Guictrlread($Input1)^-1))
Case $Button17
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"1" )
Case $Button18
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"2" )
Case $Button19
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"3" )
Case $Button20
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"4" )
Case $Button21
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"5" )
Case $Button22
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"6" )
Case $Button23
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"7" )
Case $Button24
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"8" )
Case $Button25
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"9" )
Case $Button27
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"." )
Case $Button28
$old=GUICtrlRead($Input1)
$iErgebnis = Execute($old)
GUICtrlSetData($Input2,"")
GUICtrlSetData($Input1,$iErgebnis )
Case $Button29
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input2,"+")
GUICtrlSetData($Input1,$old&"+" )
Case $Button30
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input2,"-")
GUICtrlSetData($Input1,$old&"-" )
Case $Button31
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input2,"/")
GUICtrlSetData($Input1,$old&"/" )
Case $Button32
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input2,"*")
GUICtrlSetData($Input1,$old&"*" )
Case $Button1
$old=GUICtrlRead($Input1)
GUICtrlSetData($Input1,$old&"0" )
EndSwitch
WEnd
mal euer feedback hören