Hi,
irgendwie läuft es nicht so ganz richtig, was mache ich falsch ? Der Fehler hängt bestimmt an den Radiobutton ?
Und wie kann ich, hier männl.,weibl. einen Buchstaben unterstreichen zur Tastatursteuerung ?
Wer kann helfen ?
Euer Ritzelrocker04
Spoiler anzeigen
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$GUI = GUICreate("iesis IdealGewichtsRechner v X.0", 401, 308, 193, 115)
[/autoit] [autoit][/autoit] [autoit]$tb_Groesse = GUICtrlCreateInput("Bitte geben Sie hier Ihre Körpergröße in cm ein !", 16, 16, 361, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)
$gb_Geschlecht = GUICtrlCreateGroup("Geschlecht", 16, 64, 193, 121)
[/autoit] [autoit][/autoit] [autoit]$rb_Maennlich = GUICtrlCreateRadio(" männlich", 32, 96, 113, 17)
[/autoit] [autoit][/autoit] [autoit]$rb_Weiblich = GUICtrlCreateRadio(" weiblich", 32, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$bn_Close = GUICtrlCreateButton("Beenden", 256, 256, 121, 25, 0)
[/autoit] [autoit][/autoit] [autoit]$lb_Version = GUICtrlCreateLabel("V X.0 Build 2007-10-02", 16, 288, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_Eingabe = GUICtrlRead($tb_Groesse)
$_Er = GUICtrlRead($rb_Maennlich)
Select
Case $nMsg = $bn_Rechnen
If $_Eingabe < 100 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
ElseIf $_Eingabe > 230 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
Else
If $_Er = 1 Then
$_Ergebnis = ($_Eingabe - 100) * 0.9
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
GUICtrlCreateIcon("Er.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$_Ergebnis = ($_Eingabe - 100) * 0.85
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
GUICtrlCreateIcon("Sie.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
EndSelect
EndIf
WEnd