Beiträge von Goldy

Wofür steht die 0 nach MsgBox ?
Also was für eine Funktion hat die ?

Weil wenn ich das weis könnte ich die ganze "Box" erklären

Case $Button36
$g = StringReplace(InputBox ("G","Gib hier die Länge der Seite g ein"), ",", ".")
$h = StringReplace(InputBox ("h","Gib hier die Länge der Seite h ein"), ",", ".")
$erg = $g*$h
MsgBox (0,"Der Flächeninhalt des Parallelogramms ist:",$erg)

Werde ich machen

Hatte mich nur vertan

Ich werde auch alles erstmal , also was meinen Taschenrechner betrifft in den einem Thread posten

Zitat von DaX

Goldy

Hier habe ich Dein Skript etwas anders strukturiert. Die Rechenarten habe ich in Funktionen ausgelagert. Außerdem habe ich den Steuerelemten eindeutige Namen vergeben.

Viel Spaß damit.

Spoiler anzeigen

[autoit]

AutoItSetOption("MustDeclareVars", 1)

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

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

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

_Main()

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

Func _Main()
;Variablendeklaration
Local $cmdAddition
Local $cmdSubtraction
Local $cmdMultiplication
Local $cmdDivision
Local $cmdTheoremOfPythagoras
Local $cmdPercentCalculation
Local $iNumber1
Local $iNumber2
Local $nMessage

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

;GUI erstellen
GUICreate("Calculator", 292, 139, 862, 127)
$cmdAddition = GUICtrlCreateButton("Addition", 8, 8, 81, 25, $WS_GROUP)
$cmdSubtraction = GUICtrlCreateButton("Subtraktion", 104, 8, 97, 25, $WS_GROUP)
$cmdMultiplication = GUICtrlCreateButton("Multiplikation", 8, 40, 81, 25, $WS_GROUP)
$cmdDivision = GUICtrlCreateButton("Division", 104, 40, 97, 25, $WS_GROUP)
$cmdTheoremOfPythagoras = GUICtrlCreateButton("Satz des Pythagoras", 8, 72, 193, 25, $WS_GROUP)
$cmdPercentCalculation = GUICtrlCreateButton("Prozentrechnung", 8, 104, 193, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

;Endlosschleife zum permanenten Abfragen der GUI-Nachrichten
While 1
$nMessage = GUIGetMsg()
Switch $nMessage
Case $GUI_EVENT_CLOSE
Exit
Case $cmdAddition
$iNumber1 = InputBox("Zahl1", "Hier bitte die erste Zahl eingeben")
$iNumber2 = InputBox("Zahl2", "Geben sie nun hier die zweite Zahl ein")
MsgBox(0, "Ergebnis", _Addition($iNumber1, $iNumber2))
Case $cmdSubtraction
$iNumber1 = InputBox("Zahl1", "Hier bitte die erste Zahl eingeben")
$iNumber2 = InputBox("Zahl2", "Geben sie nun hier die zweite Zahl ein")
MsgBox(0, "Ergebnis", _Subtraction($iNumber1, $iNumber2))
Case $cmdMultiplication
$iNumber1 = InputBox("Zahl1", "Hier bitte die erste Zahl eingeben")
$iNumber2 = InputBox("Zahl2", "Geben sie nun hier die zweite Zahl ein")
MsgBox(0, "Ergebnis", _Multiplication($iNumber1, $iNumber2))
Case $cmdDivision
$iNumber1 = InputBox("Zahl1", "Hier bitte die erste Zahl eingeben")
$iNumber2 = InputBox("Zahl2", "Geben sie nun hier die zweite Zahl ein")
MsgBox(0, "Ergebnis", _Division($iNumber1, $iNumber2))
Case $cmdTheoremOfPythagoras
$iNumber1 = InputBox("Zahl1", "Hier bitte die erste Zahl eingeben")
$iNumber2 = InputBox("Zahl2", "Geben sie nun hier die zweite Zahl ein")
MsgBox(0, "Ergebnis", _TheoremOfPythagoras($iNumber1, $iNumber2))
Case $cmdPercentCalculation
$iNumber1 = InputBox("Zahl1", "Hier bitte den Grundwert eingeben")
$iNumber2 = InputBox("Zahl2", "Geben sie nun hier den Prozentsatz ein")
MsgBox(0, "Ergebnis", _PercentCalculation($iNumber1, $iNumber2))
EndSwitch
Sleep(10)
WEnd
EndFunc ;==>_Main

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

Func _Addition($p_iSummand1, $p_iSummand2)
Return $p_iSummand1 + $p_iSummand2
EndFunc ;==>_Addition

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

Func _Subtraction($p_iMinuend, $p_iSubtrahend)
Return $p_iMinuend - $p_iSubtrahend
EndFunc ;==>_Subtraction

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

Func _Multiplication($p_iMultiplier, $p_iMultiplicand)
Return $p_iMultiplier * $p_iMultiplicand
EndFunc ;==>_Multiplication

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

Func _Division($p_iDividend, $p_iDivisor)
;Divisor darf nicht Null sein!
If $p_iDivisor <> 0 Then
Return $p_iDividend / $p_iDivisor
EndIf
EndFunc ;==>_Division

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

Func _TheoremOfPythagoras($p_iCathetusA, $p_iCathetusB)
Return Sqrt($p_iCathetusA * $p_iCathetusA + $p_iCathetusB * $p_iCathetusB)
EndFunc ;==>_TheoremOfPythagoras

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

Func _PercentCalculation($p_iPercentage, $p_iBasicValue)
Return $p_iPercentage / 100 * $p_iBasicValue
EndFunc ;==>_PercentCalculation

[/autoit]

Alles anzeigen

Vielen dank dafür , nur verstehe ich was dadrin steht nicht , da ich gerade erst mit AutoIT anfange und der Taschenrechner eigentlich dazu da ist das ich mir so gut es geht Grundkenntnisse aneigne.

Im moment habe ich Prozentrechnung fertig , arbeite gerade an der Zinsrechnung , und da wüsste ich bei deinem Script auch nicht wo ich was eingeben muss

Bei mir sieht die Prozentrechnung wie folgt aus :

Case $Button8
$zahl1 = InputBox ("Grundwert","Hier bitte den Grundwert (G) eingeben")
$zahl2 = InputBox ("Prozentsatz","Hier bitte den Prozentsatz (p) eingeben")
$zahl3 = $zahl1 * $zahl2
$zahl4 = $zahl3 / 100
MsgBox (0,"Der Prozentwert ist :",$zahl4)
Case $Button9
$zahl1 = InputBox("Prozentwert","Hier bitte den Prozentwert (W) eingeben")
$zahl2 = InputBox("Grundwert","Hier bitte den Grundwert (G) eingeben")
$zahl3 = $zahl1 - $zahl2
$zahl4 = $zahl3 * 100
$zahl5 = $zahl4 / $zahl2
MsgBox (0,"Der Prozentsatz ist:",$zahl5)
Case $Button10
$zahl1 = InputBox ("Prozentsatz","Hier bitte den Prozentsatz (p) eingeben")
$zahl2 = InputBox ("Prozentwert","Hier bitte den Prozentwert (W) eingeben")
$zahl3 = $zahl2 * 100
$zahl4 = $zahl3 / $zahl1
MsgBox (0,"Der Grundwert ist:",$zahl4)

Also ich gebe folgenes ein :

450000 Als Grundwert und 3,5 als Prozentsatz

Bei mir wird 13500 ausgerechnet , das müsste eigentlich 15750 sein.

Ich weis also gerade nicht wo der fehler ist

ok dass mit den

Func_BenutzerdefinierteFunktion , ist gut zu wissen , so kann man gut weiter arbeiten

Also das mit dem Punkt und Koma , gerade erst beim 2 mal gelesen und verstanden

Ich gebe immer 3,5 ein

Liegt evtl. daran.

Werde das gleich testen........

EDIT:

Ok es liegt wohl daran das ich "," anstatt von "." geschrieben habe.

Damit ist das Problem also gelöst

A ok vielen dank , also kann man z.B. anstat von Func_Prozent auch einfach was anderes hinschreiben?
z.B. Func_Wurzel ?

====================

Noch eine frage , ich habe diese Formel zum Berechnen des Prozentwertes gemacht nur geht die nicht.

$zahl1 = InputBox ("Zahl1","Hier bitte den Grundwert eingeben")
$zahl2 = InputBox ("Zahl2","Geben sie nun hier den Prozentsatz ein")
$zahl3 = $zahl1 * $zahl2
$zahl4 = $zahl3 / 100
MsgBox (0,"Ergebnis",$zahl4)

Nur wird im Moment nicht richtieg ausgerechnet,
was muss ich machen damit bei $zahl2 z.B. wenn man 15 eingibt automatisch ein % hinzugefügt wird und mit berechnet wird?

Hallo leute

Ich Coden gerade an einem Taschenrechner.

Und zwar bin ich gerade bei Prozent dran.

Atm sieht es bei mir so aus :

$zahl1 = InputBox ("Zahl1","Hier bitte den Grundwert eingeben")
$zahl2 = InputBox ("Zahl2","Geben sie nun hier den Prozentsatz ein")
$zahl3 = $zahl1 * $zahl2
$zahl4 = $zahl3 / 100
MsgBox (0,"Ergebnis",$zahl4)

Nur wird im Moment nicht richtieg ausgerechnet,
was muss ich machen damit bei $zahl2 z.B. wenn man 15 eingibt automatisch ein % hinzugefügt wird un mit berechnet wird?

mfG

Goldy

EDIT : Das Problem war, das ich nicht wusste das AutoIT "," nicht annimmt ...... wusste halt nicht das ich ein "." machen muss

Vielen dank

Könntest du mir evtl.

Func _ProzentRechnen()

erklären ? also was die aufgaben davon sind ?

Goldy

Hier der ganze "Script"

Ich hoffe das mir so jemand helfen kann

Habe gerade hier das gelesen , falls ich später noch fragen habe , werde ich mir das auch anschauen.

Herzlich Willkommen hier

Hallo AutoIT
Da ich mal kurzzeitig in der Schule VB hatte , habe ich ein paar Grundkenntnisse

Nun komme ich aber nicht weiter und zwar geht folgenes nicht :

(Dies ist nur ein ausschnit nicht der ganze code)

Case $Button6
$Form2 = GUICreate("Prozentrechngung", 496, 82, 390, 243)
$Button7 = GUICtrlCreateButton("Grundwert (G)", 8, 8, 145, 25, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Prozentwert (W)", 168, 8, 145, 25, $WS_GROUP)
$Button9 = GUICtrlCreateButton("Prozentsatz (p)", 328, 8, 145, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
EndSwitch
WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button7
$zahl1 = InputBox ("Zahl1","Hier bitte den Grundwert eingeben")
$zahl2 = InputBox ("Zahl2","Geben sie nun hier den Prozentsatz ein")
$zahl3 = $zahl1 * $zahl2
$zahl4 = $zahl3 / 100
MsgBox (0,"Ergebnis",$zahl4)
EndSwitch
WEnd

#Region ### START Koda GUI section ### Form=E:\Programme\AutoIt3\SciTE\Koda\Forms\Prozentrechnung.kxf
$Form2 = GUICreate("Prozentrechngung", 496, 82, 390, 243)
$Button7 = GUICtrlCreateButton("Grundwert (G)", 8, 8, 145, 25, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Prozentwert (W)", 168, 8, 145, 25, $WS_GROUP)
$Button9 = GUICtrlCreateButton("Prozentsatz (p)", 328, 8, 145, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button7
$zahl1 = InputBox ("Zahl1","Hier bitte den Grundwert eingeben")
$zahl2 = InputBox ("Zahl2","Geben sie nun hier den Prozentsatz ein")
$zahl3 = $zahl1 * $zahl2
$zahl4 = $zahl3 / 100
MsgBox (0,"Ergebnis",$zahl4)
EndSwitch
WEnd

Also mein 1 GUI wird Geöffnet klickt man nun auf Button 6 wird GUI2 geöffnet aber wenn ich nun auf Button 7 klicke kommt die MessageBox nicht wo ich den ersten
Wert eingeben kann ....

Was muss bzw. kann ich da machen?

Goldy

Hallo.

Ich heiße Goldy (geb. Christian).
Ich bin 15 Jahre alt und wohne in Mönchengladbach, nahe Düsseldorf.
Ich höre gerne J-Metal,Techno etc.
Ich bin im Moment dabei AutoIT so gut wie es geht zu lernen
Ich bin 1.65 groß und wiege 75 - 80 Kilogramm. Ich habe Grün-Braune Augen.

Falls noch fragen bestehen, so bitte ich euch mir diese zu stellen.

Mit freundlichen Grüßen Goldy