Rechner Problem inputboxen

Retry1992

Hallo ich hab ein Problem

Ich Schaff es nicht Das $inputbox1 als zahl erkannt wird

Code

Func Rechnen()
   $input1 = Number($input1)
   $input2 = Number($input2)
   $Ergebnis = $input2 / 100 * $input1
EndFunc

Es will so nicht Gehen^^

Retry1992

**chesstiger**

Klappt doch perfekt:

[autoit]

$input1 = InputBox("","Input 1:")
$input2 = InputBox("","Input 2:")
$Ergebnis = $input2 / 100 * $input1

[/autoit]

lg chess

Retry1992

wenn ich den Code Ausführen Kommt egal was ich oben eingebe immer das selbe ergebnis ...

Probier mal Bitte

Spoiler anzeigen

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Global $Checkbox1 = 0
Global $Checkbox2 = 0
Global $Checkbox3 = 0


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 422, 171, 192, 124)
$Label1 = GUICtrlCreateLabel("hhhhhhhhhhhhhh", 104, 8, 180, 25)
$Input1 = GUICtrlCreateInput("", 16, 56, 57, 21)
$Label2 = GUICtrlCreateLabel("% von", 80, 56, 52, 25)
$Input2 = GUICtrlCreateInput("", 144, 56, 121, 21)
$Button1 = GUICtrlCreateButton("Rechnen", 16, 88, 107, 73)
$Button2 = GUICtrlCreateButton("Exit", 152, 88, 107, 73)
$Checkbox1 = GUICtrlCreateCheckbox("Euro", 304, 56, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Dollar", 304, 72, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Mit Rechenweg", 304, 112, 97, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$msg = GUIGetMsg()
    	Select
			case $msg = -3
			Exit
			case $msg = $Button1
			Rechnen()
	    	case $msg = $Button2
			Exit
    	EndSelect
Wend

Func Rechnen()
   $input1 = Number($input1)
   $input2 = Number($input2)
   $Ergebnis = $input2 / 100 * $input1
   If $Checkbox1 = 1 And $Checkbox1 = 1 Then 
	  MsgBox(0,"Das Ergebnis","" & $input1 & "% von " & $input2 & " Euro = " & $Ergebnis & " Euro.")
   EndIf
EndFunc

Alles anzeigen

Für Verbesserungsvorschläge wär ich dankbar ...

Retry1992

**chesstiger**

Du musst die Daten in den Controls mit GUICtrlRead auslesen
Und am besten andere Variablennamen verwenden.

[autoit]

Func Rechnen()
$input1Read = Number(GUICtrlRead($input1))
$input2Read = Number(GUICtrlRead($input2))
$Ergebnis = $input2 / 100 * $input1
If GUICtrlRead($Checkbox1) = 1 Then
MsgBox(0,"Das Ergebnis","" & $input1Read & "% von " & $input2Read & " Euro = " & $Ergebnis & " Euro.")
EndIf
EndFunc

[/autoit]

Müsste eigentlich klappen

lg chess

Retry1992

Also Das Rechnen Geht jetzt aber das Ergebnis ist immer 0,24 egal was ich eingebe

Ok Habs Gefunden

$Ergebnis = $input2Read / 100 * $input1Read

Retry1992

**chesstiger**

Ups, ja, hab vergessen die Variablennamen da auch zu ändern

[autoit]

Func Rechnen()
$input1Read = Number(GUICtrlRead($input1))
$input2Read = Number(GUICtrlRead($input2))
$Ergebnis = $input2Read / 100 * $input1Read ;Hier war mein Fehler
If GUICtrlRead($Checkbox1) = 1 Then
MsgBox(0,"Das Ergebnis","" & $input1Read & "% von " & $input2Read & " Euro = " & $Ergebnis & " Euro.")
EndIf
EndFunc

[/autoit]

Sorry!

lg chess

Edit:
Gut, dass dus selber gefunden hast

RR04

Hallo, in Deinem Fall vielleicht lieber mit Radios ?

Spoiler anzeigen

[autoit]

#region ### START Koda GUI section ###
GUICreate("Form1", 422, 171, 192, 124)
GUICtrlCreateLabel("hhhhhhhhhhhhhh", 104, 8, 180, 25)
$Input1 = GUICtrlCreateInput("", 16, 56, 57, 21)
GUICtrlCreateLabel("% von", 80, 56, 52, 25)
$Input2 = GUICtrlCreateInput("", 144, 56, 121, 21)
$Button1 = GUICtrlCreateButton("Rechnen", 16, 88, 107, 73)
$Button2 = GUICtrlCreateButton("Exit", 152, 88, 107, 73)
$radio1 = GUICtrlCreateRadio("Euro", 304, 56, 97, 17)
GUICtrlSetState(-1, 1)
$radio2 = GUICtrlCreateRadio("Dollar", 304, 72, 97, 17)
;~ $Checkbox3 = GUICtrlCreateCheckbox("Mit Rechenweg", 304, 112, 97, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3, $Button2
ExitLoop
Case $Button1
_Rechnen()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Rechnen()
If GUICtrlRead($radio1) = 1 Then
$geld = " Euro"
Else
$geld = " Dollar"
EndIf
MsgBox(0, "Das Ergebnis", Number(GUICtrlRead($Input1)) & "% von " _
& Number(GUICtrlRead($Input2)) & $geld & " = " _
& Number(GUICtrlRead($Input2)) / 100 * Number(GUICtrlRead($Input1)) _
& $geld)
EndFunc ;==>_Rechnen
; Ende

[/autoit]