Beiträge von blubbstar

$GUI = GUICreate("Start", 300, 40)
$Button = GUICtrlCreateButton("Titel ändern", 10, 10, 280, 20)
GUISetState()

While True
$msg = GUIGetMsg()
If $msg = -3 Then Exit
if $msg = $Button Then WinSetTitle($GUI, "", "Geändert")
WEnd

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 579, 283, 192, 124)
$Label1 = GUICtrlCreateLabel("Bitte Betrag eingeben", 48, 32, -1, 17)
$Label2 = GUICtrlCreateLabel("Bitte Betrag eingeben", 224, 32, -1, 17)
$Label3 = GUICtrlCreateLabel("Zwischensumme", 400, 32, 124, 17)
$Input1 = GUICtrlCreateInput("", 48, 56, 129, 21)
$Input2 = GUICtrlCreateInput("", 224, 56, 129, 21)
$Input3 = GUICtrlCreateInput("", 400, 56, 129, 21)
$Button1 = GUICtrlCreateButton("Rechen", 424, 200, 97, 33, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("", 48, 88, 129, 169)
Local $Radio[6]
$Radio[1] = GUICtrlCreateRadio(" + 1,00€ ", 72, 105, -1, 25)
$Radio[2] = GUICtrlCreateRadio(" + 2,00€ ", 72, 135, -1, 25)
$Radio[3] = GUICtrlCreateRadio(" + 3,00€ ", 72, 165, -1, 25)
$Radio[4] = GUICtrlCreateRadio(" + 4,00€ ", 72, 195, -1, 25)
$Radio[5] = GUICtrlCreateRadio(" + 5,00€ ", 72, 225, -1, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Wert1 = GUICtrlRead($Input1)
$Wert2 = GUICtrlRead($Input2)
If StringRight($Wert1, 1) = "€" Then
$Wert1 = Number(StringTrimRight($Wert1, 1))
EndIf
If StringRight($Wert2, 1) = "€" Then
$Wert2 = Number(StringTrimRight($Wert2, 1))
EndIf
If $Wert1 > 55 Or $Wert1 < 10 Then ContinueLoop MsgBox(262144, "Error", "Wert von Input1 größer 55€ oder kleiner 10€.")
Local $add = ''
For $i = 1 To 5
If GUICtrlRead($Radio[$i]) = $GUI_CHECKED Then $add = $i
Next
If $add = '' Then ContinueLoop MsgBox(262144, "Error", "Bitte Radio auswählen.")
GUICtrlSetData($Input3, StringFormat("%.2f", $Wert1 + $Wert2 + $add) & "€")
EndSwitch
WEnd

Local $Rechenzeichen = '+-'
For $i = 0 To 9
$Zeichen = StringMid($Rechenzeichen, Random(1, StringLen($Rechenzeichen), 1), 1)
$Zahl1 = Random(0, 10, 1)
$Zahl2 = Random(0, 10, 1)
If $Zeichen = "-" And $Zahl1 < $Zahl2 Then
Local $tmp = $Zahl1
$Zahl1 = $Zahl2
$Zahl2 = $tmp
EndIf
$Input = InputBox("", "Wie viel ist " & $Zahl1 & $Zeichen & $Zahl2 & " ?")
If $Input = Execute($Zahl1 & $Zeichen & $Zahl2) Then
MsgBox(0, "", "Richtig")
Else
MsgBox(0, "", "Oh Schade Falsch")
EndIf
Next