hey Also ich bin Ziemlich neu in AutoIT und wollte mir für den Anfang einen Taschenrechner Scripten.. Doch der geht nicht hier mein Script
Code:
Dim $erstezahl, $auswahl, $ergebnis, $zweitezahl
$auswahl = InputBox ("Auswählen:", _
"Was möchtest du Rechnen?" & _
@LF & "Addieren (1)" _
@LF & "Subtrahieren (2)" _
@LF & "Multiplizieren (3)" _
@LF & "Division (4)", "Gib hier 1, 2, 3 oder 4 ein!")
Switch, $auswahl
Case 1
_add()
Case 2
_sub()
Case 3
_mul()
Case 4
_div()
Case Else
MsgBox(65, "Error", "Diese Funktion ist nicht verfügbar!", 5)
EndSwitch
Func _add()
$erstezahl = Inputbox ("1. Zahl", "Gib hier die 1. Zahl ein!")
$zweitezahl = InputBox ("2. Zahl", "Gib hier die 2. Zahl ein!")
$ergebnis = $erstezahl + $zweitezahl
EndFunc
Func _sub()
$erstezahl = Inputbox ("1. Zahl", "Gib hier die 1. Zahl ein!")
$zweitezahl = InputBox ("2. Zahl", "Gib hier die 2. Zahl ein!")
$ergebnis = $erstezahl - $zweitezahl
EndFunc
Func _mul()
$erstezahl = Inputbox ("1. Zahl", "Gib hier die 1. Zahl ein!")
$zweitezahl = InputBox ("2. Zahl", "Gib hier die 2. Zahl ein!")
$ergebnis = $erstezahl * $zweitezahl
EndFunc
Func _div()
$erstezahl = Inputbox ("1. Zahl", "Gib hier die 1. Zahl ein!")
$zweitezahl = InputBox ("2. Zahl", "Gib hier die 2. Zahl ein!")
$ergebnis = $erstezahl / $zweitezahl
EndFunc
MsgBox (65, "Ergebnis". "Das Ergebnis Lautet: " & $ergebnis