Hab mal nen einfachen Rechner Programmiert, vllt habt ihr ne idee wie man das ganze verkürzen kann.
Für Ideeen für weitere Funktionen wäre ich dankbar, falls ihr nen Bug findet bitte sagen.
Hier das Skript:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <Math.au3>
#region GUI
guicreate("Claculator", 320, 220)
GUIctrlcreateinput("", 10, 10, 300, 30) ;ID=3
GUIctrlcreatebutton("1", 10, 50, 30, 30) ;ID=4
guictrlcreatebutton("4", 10, 90, 30, 30) ;ID=5
guictrlcreatebutton("7", 10, 130, 30, 30) ;ID=6
guictrlcreatebutton("0", 10, 170, 30, 30) ;ID=7
guictrlcreatebutton("2", 50, 50, 30, 30) ;ID=8
guictrlcreatebutton("5", 50, 90, 30, 30) ;ID=9
guictrlcreatebutton("8", 50, 130, 30, 30) ;ID=10
guictrlcreatebutton(".", 50, 170, 30, 30) ;ID=11
guictrlcreatebutton("3", 90, 50, 30, 30) ;ID=12
guictrlcreatebutton("6", 90, 90, 30, 30) ;ID=13
guictrlcreatebutton("9", 90, 130, 30, 30) ;ID=14
guictrlcreatebutton("(-)", 90, 170, 30, 30) ;ID=15
guictrlcreatebutton("+", 130, 50, 30, 30) ;ID=16
guictrlcreatebutton("-", 130, 90, 30, 30) ;ID=17
guictrlcreatebutton("*", 130, 130, 30, 30) ;ID=18
guictrlcreatebutton("/", 130, 170, 30, 30) ;ID=19
guictrlcreatebutton("x²", 170, 50, 30, 30) ;ID=20
guictrlcreatebutton("x^-1", 170, 90, 30, 30) ;ID=21
guictrlcreatebutton("^", 170, 130, 30, 30) ;ID=22
guictrlcreatebutton("sin", 210, 50, 30, 30) ;ID=23
guictrlcreatebutton("cos", 210, 90, 30, 30) ;ID=24
guictrlcreatebutton("tan", 210, 130, 30, 30) ;ID=25
guictrlcreatebutton("C", 250, 50, 30, 30) ;ID=26
guictrlcreatebutton("CE", 250, 90, 30, 30) ;ID=27
guictrlcreatebutton("PI", 250, 130, 30, 30) ;ID=28
guictrlcreatebutton("ENTER", 170, 170, 110, 30) ;ID=29
guiseticon("icon.ico")
guisetstate(@SW_SHOW)
#endregion GUI
#region Button Functions
dim $rechnung
$pi= 3.14159265358979323846264338328
while 1
$msg= guigetmsg()
if $msg= $GUI_EVENT_CLOSE Then Exit
Select
case $msg=4
$edit=guictrlread(3)
$string= $edit &1
guictrlsetdata( 3, $string)
case $msg=5
$edit=guictrlread(3)
$string= $edit &4
guictrlsetdata(3, $string)
case $msg=6
$edit=guictrlread(3)
$string= $edit &7
guictrlsetdata(3, $string)
case $msg= 7
$edit = guictrlread(3)
$string= $edit &0
guictrlsetdata(3, $string)
case $msg= 8
$edit=guictrlread(3)
$string= $edit &2
guictrlsetdata(3, $string)
case $msg=9
$edit=guictrlread(3)
$string= $edit &5
guictrlsetdata(3, $string)
case $msg= 10
$edit=guictrlread(3)
$string= $edit &8
guictrlsetdata(3, $string)
case $msg = 11
$edit= guictrlread(3)
$string= $edit &.
guictrlsetdata(3, $string)
case $msg= 12
$edit=guictrlread(3)
$string= $edit &3
guictrlsetdata(3, $string)
case $msg= 13
$edit= guictrlread(3)
$string= $edit &6
guictrlsetdata(3, $string)
case $msg= 14
$edit= guictrlread(3)
$string= $edit &9
guictrlsetdata(3, $string)
case $msg= 15
$edit= guictrlread(3)
$string= -& $edit
guictrlsetdata(3, $string)
case $msg= 16
$edit=guictrlread(3)
$rechnung=$rechnung & $edit
$rechnung=$rechnung &"+"
guictrlsetdata(3,"")
case $msg= 17
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "-"
guictrlsetdata(3,"")
case $msg= 18
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "*"
guictrlsetdata(3, "")
case $msg= 19
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "/"
guictrlsetdata(3, "")
case $msg= 20
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "^2"
guictrlsetdata(3, "")
case $msg= 21
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "^-1"
guictrlsetdata(3, "")
case $msg=22
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "^"
guictrlsetdata(3, "")
case $msg=23
$edit=guictrlread(3)
$edit2= _radian( $edit )
$string= sin( $edit2 )
guictrlsetdata(3, $string)
case $msg= 24
$edit=guictrlread(3)
$edit2= _radian( $edit)
$string= cos( $edit2 )
guictrlsetdata(3, $string)
case $msg= 25
$edit=guictrlread(3)
$edit2= _radian( $edit )
$string= tan($edit2)
guictrlsetdata(3, $string)
case $msg= 26
guictrlsetdata(3, "")
case $msg= 27
$edit=guictrlread(3)
guictrlsetdata(3,"")
$rechnung=0
case $msg=28
$rechnung= $rechnung & $pi
guictrlsetdata(3, $pi)
case $msg=29
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$ergebnis= execute($rechnung)
guictrlsetdata(3, $ergebnis)
endselect
wend
#endregion Button Functions
Edit: Ich hab schon nen Bug gefunden, in meiner Rechtschreibung xD
Edit2: So hab jetz noch den Icon Hochgeladen, das skript werde ich so bald ich Zeit habe verbessern