Taschenrechner Buttons

05/31/2011 18:09 SourZ#1
hi
ich wollte grad nen taschenrechner programmieren, aber irgendwo is nen fehler^^

bei case 2,3 und 4 steht absichtilich noch nichts.

kann mir einer dann auch gleich schreiben wies richtig wäre? wäre nett :)

PHP Code:
#include <GUIConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 174, 251, 218, 158)
$Button1 = GUICtrlCreateButton("+", 16, 48, 137, 41, 0)
$Button2 = GUICtrlCreateButton("-", 16, 96, 137, 41, 0)
$Button3 = GUICtrlCreateButton("x", 16, 144, 137, 41, 0)
$Label1 = GUICtrlCreateLabel("Was möchten sie rechnen?", 16, 16, 141, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Hobo Std")
$Button4 = GUICtrlCreateButton("/", 16, 192, 137, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Zahl1 InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl2 InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl3 InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl4 InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl5 InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl6 InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl7 InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl8 InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl9 = $Zahl1 + $Zahl2

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $Zahl1
            $Zahl2
            $Zahl9
        Case $Button2
            
            
        Case $Button3
            
            
        Case $Button4
            
            
        
    EndSwitch
WEnd 
05/31/2011 19:47 BlackHybrid#2
Gibt doch ein TuT, das du dir ankuggen kannst.
[Only registered and activated users can see links. Click Here To Register...]
06/01/2011 20:06 SourZ#3
wäre trotzdem nett wenn mir jemand den richtigen code für meinen taschenrechner geben könnte :)
06/01/2011 21:49 BlackHybrid#4
Dann beschreib mal was du genau willst. Bei Case $Button1 stehen die Variablen alleine. Was du an der stelle auch immer machen möschtest dei Variablen müssen mit etwas im Zusammenhang stehen.
06/02/2011 15:13 Toasty-man#5
So schwer ist es auch nicht :O
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Rechner", 202, 170, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 8, 185, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("1", 8, 40, 43, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("2", 56, 40, 43, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("3", 104, 40, 43, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("4", 8, 72, 43, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("5", 56, 72, 43, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("6", 104, 72, 43, 25, $WS_GROUP)
$Button7 = GUICtrlCreateButton("7", 8, 104, 43, 25, $WS_GROUP)
$Button8 = GUICtrlCreateButton("8", 56, 104, 43, 25, $WS_GROUP)
$Button9 = GUICtrlCreateButton("9", 104, 104, 43, 25, $WS_GROUP)
$Button10 = GUICtrlCreateButton("0", 8, 136, 43, 25, $WS_GROUP)
$Button11 = GUICtrlCreateButton(".", 56, 136, 43, 25, $WS_GROUP)
$Button12 = GUICtrlCreateButton("=", 104, 136, 43, 25, $WS_GROUP)
$Button13 = GUICtrlCreateButton("+", 152, 40, 43, 25, $WS_GROUP)
$Button14 = GUICtrlCreateButton("-", 152, 72, 43, 25, $WS_GROUP)
$Button15 = GUICtrlCreateButton("*", 152, 104, 43, 25, $WS_GROUP)
$Button16 = GUICtrlCreateButton("/", 152, 136, 43, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{F1}", "clear")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "1")
        Case $Button2
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "2")
        Case $Button3
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "3")
        Case $Button4
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "4")
        Case $Button5
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "5")
        Case $Button6
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "6")
        Case $Button7
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "7")
        Case $Button8
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "8")
        Case $Button9
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "9")
        Case $Button10
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "0")
        Case $Button11
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & ".")
        Case $Button12
            GUICtrlSetData($Input1, Execute(GUICtrlRead($Input1)))
        Case $Button13
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "+")
        Case $Button14
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "-")
        Case $Button15
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "*")
        Case $Button16
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "/")
    EndSwitch
WEnd

Func clear()
       GUICtrlSetData($Input1, "")
       EndFunc 
so würde es bei mir aussehen mit F1 löschst du das was in dem input steht hab vergessen nen button fürs löschen der zahlen in der input vergessen deswegen hab ich einfach so gemacht das man f1 drücken muss :O
06/03/2011 19:16 Meikbrosoft#6
Dieser Teil ist falsch gesetzt:
PHP Code:
$Zahl1 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl2 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl3 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl4 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl5 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl6 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl7 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl8 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl9 = $Zahl1 + $Zahl2 
Das muss doch erst kommen wenn man auf +, -, : oder * gedrückt hat, deswegen muss man das im jedem Case $Button1-4 einfügen und nicht nach dem GUI. Außerdem hast du die = zwischen Variblen und Inputboxen vergessen. Wieso kommen so viele ? Mach du erstmal nur zwei Inputboxen. Ich würd dir raten, ein neues gui mit inputfeldern zu machen sieht schöner aus :)
Das Ergebnis kommt nie raus, weil du es nicht ausrechnest, machs doch mit ner msgbox :)

hier mal dein script überarbeitet:
PHP Code:
#include <GUIConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 174, 251, 218, 158)
$Button1 = GUICtrlCreateButton("+", 16, 48, 137, 41, 0)
$Button2 = GUICtrlCreateButton("-", 16, 96, 137, 41, 0)
$Button3 = GUICtrlCreateButton("x", 16, 144, 137, 41, 0)
$Label1 = GUICtrlCreateLabel("Was möchten sie rechnen?", 16, 16, 141, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Hobo Std")
$Button4 = GUICtrlCreateButton("/", 16, 192, 137, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
$Zahl1 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl2 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$ergebnis1 = $Zahl1 + $Zahl2
MsgBox(0,"Ergebnis",$ergebnis1)

        Case $Button2
            $Zahl3 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl4 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$ergebnis2 = $Zahl3 - $Zahl4
MsgBox(0,"Ergebnis",$ergebnis2)

        Case $Button3
            $Zahl5 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl6 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$ergebnis3 = $Zahl5 * $Zahl6
MsgBox(0,"Ergebnis",$ergebnis3)

        Case $Button4
            $Zahl7=InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl8 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$ergebnis4 = $Zahl7 / $Zahl8
MsgBox(0,"Ergebnis",$ergebnis4)


    EndSwitch
WEnd 
06/08/2011 16:28 Tobolobo#7
Habs mir erlaubt, übersichtlicher zu machen + neue Funktion.
Code:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Rechner", 235, 300, 0, 0)
GUISetBkColor(0x0066CC)
$Label1 = GUICtrlCreateLabel("Was möchtest du machen?", 3, 8, 233, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Addieren", 16, 48, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Subtrahieren", 16, 88, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Multiplizieren", 16, 128, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("Dividieren", 16, 168, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Potenzieren", 16, 208, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("Exit", 75, 260, 80, 40)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button6
			Exit
		Case $Button1
			$Addieren1 = InputBox("Zahl 1","Gib hier den 1. Summand an:","","",70,150)
			$Addieren2 = InputBox("Zahl 2","Gib hier den 2. Summand an:","","",70,150)
			$Ergebnis1 = $Addieren1 + $Addieren2
			SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis1,200,60)
			Sleep(3000)
			SplashOff()
		Case $Button2
			$Subtrahieren1 = InputBox("Zahl 1","Gib hier den Minuend an:","","",70,150)
			$Subtrahieren2 = InputBox("Zahl 2","Gib hier den Subtrahend an:","","",70,150)
			$Ergebnis2 = $Subtrahieren1 - $Subtrahieren2
			SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis2,200,60)
			Sleep(3000)
			SplashOff()
		Case $Button3
			$Multiplizieren1 = InputBox("Zahl 1","Gib hier den 1. Faktor an:","","",70,150)
			$Multiplizieren2 = InputBox("Zahl 2","Gib hier den 2. Faktor an:","","",70,150)
			$Ergebnis3 = $Multiplizieren1 * $Multiplizieren2
			SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis3,200,60)
			Sleep(3000)
			SplashOff()
		Case $Button4
			$Dividieren1 = InputBox("Zahl 1","Gib hier den Divident an:","","",70,150)
			$Dividieren2 = InputBox("Zahl 2","Gib hier den Divisor an:","","",70,150)
			If $Dividieren2 = 0 Then
				SplashTextOn("Fehler","Die Division durch 0" & Chr(13) &"ist nicht definiert!", 250,70)
				Sleep(2500)
				SplashOff()
			EndIf
			If $Dividieren2 > 0 Then
				$Ergebnis4 = $Dividieren1 / $Dividieren2
				SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis4,200,60)
				Sleep(3000)
				SplashOff()
			EndIf	
		Case $Button5
			$Potenzieren1 = InputBox("Potenzzahl","Gib hier die Zahl ein, die potenziert werden soll:","","",70,150)
			$Potenzieren2 = InputBox("Anzahl","Wie oft soll es potenziert werden?","","",70,150)
			$Ergebnis5 = $Potenzieren1 ^ $Potenzieren2
			SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis5,200,60)
			Sleep(3000)
			SplashOff()
	EndSwitch
WEnd