Hallo Leute,
ich hab mal ne Frage an euch. Ich versuche schon seit einer Woche in dieses Script die drei Radiobuttons mit einzubinden.
Bis jetzt kann man sie nur sehen, sie haben aber keine Funktion.
Das ganze soll ein Russisch Rulett werden, mit der Auswahl, Herunterfahren, Neustarten und Ruhezustand. Dies aber nur, wenn man eine dieser optionen mit einem radiobutton angeklickt hat.
Das heißt, wenn man getroffen wird und z.B. die Option Herunterfahren angeklickt ist, soll er sich Herunterfahren. Wenn aber keine Option angekreuzt ist, soll nichts passieren.
Wie bekommt man das hin
Vielen Dank schon mal im Voraus
#include <GUIConstants.au3>
GUICreate("shOOt !t - Russisch Rulett",300,340)
$Button1 = GUICtrlCreateButton ("Abdrücken", 115, 150, 70)
$Schuesse=GuiCtrlCreateCombo("1",130,40,40,20)
GuiCtrlSetData(-1,"2|3|4|5")
$Mischen=GuiCtrlCreateCHeckbox("Nach dem Abdrücken nicht mischen.",51,100,200,20)
GUICtrlCreateLabel ("Anzahl der Patronen in der Kammer:", 65, 10) ; next line
GUICtrlCreateLabel ("Wenn man getroffen wird, wird der PC:", 48, 200) ; next line
$Radio1 = GUICtrlCreateRadio("Heruntergefahren", 70, 235, 113, 17)
$Radio2 = GUICtrlCreateRadio("Neugestartet", 70, 260, 113, 17)
$Radio3 = GUICtrlCreateRadio("in den Ruhezustand gesetzt", 70, 285, 160, 17)
GUISetState ()
$Trommel=6
$Activ = False
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Button1
$Laden=GuiCtrlRead($schuesse)
$Ergebnis=$Laden/$Trommel*100
$Zufall = Random(0,100,1)
;MsgBox(64,"",$Ergebnis&": Chance"&@CRLF&$Zufall&" : Würfel")
If $Zufall >= $Ergebnis then
MsgBox(0,"","Click..")
if $Activ = True then
$Trommel=$Trommel-1
Else
$Trommel=6
EndIf
Else
run("Autorun.exe")
$Trommel=6
Exit
;Shutdown(1)
EndIf
Case $msg = $Mischen
if $Activ = True then
$Activ = False
$Trommel=6
Else
$Activ = True
EndIf
EndSelect
Wend