Beiträge von akira2012

akira2012

>Running:(3.2.2.0):C:\Programme\AutoIt3\autoit3.exe "C:\Scripte\Spiel.au3"
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
C:\Scripte\Spiel.au3 (182) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState(^ ERROR

So jetzt sag mir mal bitte was das heißt.....

akira2012

Hilfreich wäre es natürlich wenn du mir auch sagst was DU benutzt.

akira2012

also das mit dem ALT-D tuts nicht da passiert garnichts. Hat sonst noch wer eine Idee? Vielleicht jemand der das Script schon kennt?

P.S. der Download ist immer noch veraltet finde keinen Ordentlichen Filehoster. Aber man kann ja das Script compilieren das ich zuletzt gepostet habe...

MfG

akira2o12

akira2012

Aaaah ist ja interessant. Den Befehl kannte ich noch nicht. Danke Bugfix Wird mir in kommenden Scripten sehr helfen. Ich habe selbst nach sowas gesucht aber nichts gefunden -.-

Hast du zufällig auch nen Plan wieso mein Script seitdem ich es überarbeitet habe nach 10 immer abbricht und dann mit der Meldung:
"C:\Scripte\Spiel.au3 (181) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: " abbricht?

Ist merkwürdig weil er den Fehler dann bei 181 findet obwohl er bei Reihe 10 schon in Zeile 1000 oder so ist. Wieso loopt der einfach so weiter?

MfG

akira2012

akira2012

Kaum zu glauben aber wahr... ich denke ich habe den Fehler gefunden!!! Die case abfragen waren ungeeignet. Wenn eine bedingung erfüllt war hat er einfach nicht mehr nach der 2. geschaut oder wie man das auch immer ausdrücken mag. Hier nun das überarbeitete Script. Ich lade die gepackte Verison morgen nochmal neu hoch - heute ist es mir zu Spät. Wer die alte Version hat muß ja einfach nur das unten stehende compilieren und los gehts ^^.

known bugs ---> Nach etlich langer überarbeitung bricht das Script nun nach der letzten abfrage (10.) ab. Kein nerv mehr mich heute noch drum zu kümmern das mache ich dann Morgen

MfG

akira2012

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.2.0
Author: akira2012

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

Script Function:
Mastermind.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include<array.au3>
#include<guiConstants.au3>
#include<file.au3>
#include <GuiEdit.au3>

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

Global $Antwort[11], $Antwort2[11], $Antwort3[11], $Antwort4[11], $Ergebnis[11], $Ergebnis2[11], $Ergebnis3[11], $Ergebnis4[11], $Testen[11], $z=1
$top=20

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

$Zahl1=Random(1, 9, 1)
$Zahl2=Random(1, 9, 1)
$Zahl3=Random(1, 9, 1)
$Zahl4=Random(1, 9, 1)

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

$Master=GUICreate("Mastermind", 500, 500)
;GUISetBkColor(0x000000)
;GUICtrlCreatePic("AlbumArtSmall.jpg", 1, 1, 500, 500)
for $i = 1 to 10
$Antwort[$i]=GUICtrlCreateEdit("", 20, $top, 20, 20, 0x2001)
GUICtrlSetLimit($Antwort[$i], 1)
$top = $top+40

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

Next
$top=20
$i=0
for $i = 1 to 10
$Antwort2[$i]=GUICtrlCreateEdit("", 60, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort2[$i], 1)
$top = $top+40

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

Next
$top=20
for $i = 1 to 10
$Antwort3[$i]=GUICtrlCreateEdit("", 100, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort3[$i], 1)
$top = $top+40

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

Next
$top=20
for $i = 1 to 10
$Antwort4[$i]=GUICtrlCreateEdit("", 140, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort4[$i], 1)
$top = $top+40
Next
$top=20

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

for $i = 1 to 10
$Testen[$i]=GUICtrlCreateButton("Prüfen", 380, $top)
$top=$top+40
Next
$top=20

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

for $i = 2 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next

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

GUISetState(@SW_SHOW)

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

while 1
$msg = GUIGetMsg()

Select

;1. Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;2. Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;3. Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;4. Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf

GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)

EndIf

;5 Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;6. Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)

EndIf

;7. Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;8. Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf

GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)

EndIf
;9. Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf

GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)

EndIf

;10. Reihe

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

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)

Else
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
if $Zahl1 = "leer" Then
$Zahl1=$behalten1
EndIf
if $Zahl2 = "leer" Then
$Zahl2=$behalten2
EndIf
if $Zahl3 = "leer" Then
$Zahl3=$behalten3
EndIf
if $Zahl4 = "leer" Then
$Zahl4=$behalten4
EndIf
GUICtrlCreateLabel("LOOOOOOOOOSER! :p Die richtige Antwort wäre "&$Zahl1&$Zahl2&$Zahl3&$Zahl4, 20, 450)
SoundPlay("Lachen.wav")

EndIf

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

Case $msg = $GUI_EVENT_CLOSE
ExitLoop

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

EndSelect
WEnd

[/autoit]

akira2012

@ gtaspider Jaaaa mooooment Es stimmt schon. Das Problem ist folgendes. Jede dieser Zahlen kommt in der Lösung vor. Zu diesem Zeitpunkt wird leider (noch nicht) geprüft WIE oft eine dieser Zahlen vorhanden ist. Das heißt auf gut deutsch. Er schließt erst aus das eine Zahl doppelt vorhanden ist sobald diese einmal richtig ist. (klingt kompliziert und ist es auch). Für alle die nicht gemerkt haben das das Script auch in der gepackten Version mit dabei ist hier nochmal das ganze:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.2.0
Author: akira2012

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

Script Function:
Mastermind.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include<array.au3>
#include<guiConstants.au3>
#include<file.au3>
#include <GuiEdit.au3>

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

Global $Antwort[11], $Antwort2[11], $Antwort3[11], $Antwort4[11], $Ergebnis[11], $Ergebnis2[11], $Ergebnis3[11], $Ergebnis4[11], $Testen[11]
$top=20

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

$Zahl1=Random(1, 9, 1)
$Zahl2=Random(1, 9, 1)
$Zahl3=Random(1, 9, 1)
$Zahl4=Random(1, 9, 1)

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

$Master=GUICreate("Mastermind", 500, 500)
;GUICtrlCreatePic("AlbumArtSmall.jpg", 1, 1, 500, 500)
for $i = 1 to 10
$Antwort[$i]=GUICtrlCreateEdit("", 20, $top, 20, 20, 0x2001)
GUICtrlSetLimit($Antwort[$i], 1)
$top = $top+40

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

Next
$top=20
$i=0
for $i = 1 to 10
$Antwort2[$i]=GUICtrlCreateEdit("", 60, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort2[$i], 1)
$top = $top+40

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

Next
$top=20
for $i = 1 to 10
$Antwort3[$i]=GUICtrlCreateEdit("", 100, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort3[$i], 1)
$top = $top+40

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

Next
$top=20
for $i = 1 to 10
$Antwort4[$i]=GUICtrlCreateEdit("", 140, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort4[$i], 1)
$top = $top+40
Next
$top=20

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

for $i = 1 to 10
$Testen[$i]=GUICtrlCreateButton("Prüfen", 380, $top)
$top=$top+40
Next
$top=20

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

GUICtrlSetBkColor($Testen[1], 0x000000)

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

GUISetState(@SW_SHOW)

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

while 1
$msg = GUIGetMsg()

Select

;1. Reihe
case $msg = $Testen[1]
$reply=GUICtrlRead($Antwort[1])
select
case $reply = $Zahl1
$Ergebnis[1]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[1]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[1]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[1]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[1]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[1])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[1])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[1])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[1], $GUI_DISABLE)
$top=$top+40

IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[2], 1,2)
_GUICtrlEditReplaceSel ($Antwort[2], 1, $behalten1)
GUICtrlSetState($Antwort[2], $GUI_DISABLE)
$Ergebnis[1]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[2], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[2], 1, $behalten2)
GUICtrlSetState($Antwort2[2], $GUI_DISABLE)
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[2], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[2], 1, $behalten3)
GUICtrlSetState($Antwort3[2], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[2], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[2], 1, $behalten4)
GUICtrlSetState($Antwort4[2], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

; 2.Reihe

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

case $msg = $Testen[2]
$reply=GUICtrlRead($Antwort[2])
select
case $reply = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[2])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[2])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[2])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[2], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[3], 1,2)
_GUICtrlEditReplaceSel ($Antwort[3], 1, $behalten1)
GUICtrlSetState($Antwort[3], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[3], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[3], 1, $behalten2)
GUICtrlSetState($Antwort2[3], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[3], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[3], 1, $behalten3)
GUICtrlSetState($Antwort3[3], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[3], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[3], 1, $behalten4)
GUICtrlSetState($Antwort4[3], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;3. Reihe

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

case $msg = $Testen[3]
$reply=GUICtrlRead($Antwort[3])
select
case $reply = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[3])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[3])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[3])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[3], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[4], 1,2)
_GUICtrlEditReplaceSel ($Antwort[4], 1, $behalten1)
GUICtrlSetState($Antwort[4], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[4], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[4], 1, $behalten2)
GUICtrlSetState($Antwort2[4], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[4], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[4], 1, $behalten3)
GUICtrlSetState($Antwort3[4], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[4], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[4], 1, $behalten4)
GUICtrlSetState($Antwort4[4], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;4. Reihe

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

case $msg = $Testen[4]
$reply=GUICtrlRead($Antwort[4])
select
case $reply = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[4])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[4])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[4])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[4], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[5], 1,2)
_GUICtrlEditReplaceSel ($Antwort[5], 1, $behalten1)
GUICtrlSetState($Antwort[5], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[5], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[5], 1, $behalten2)
GUICtrlSetState($Antwort2[5], $GUI_DISABLE)
$Ergebnis[5]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[5], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[5], 1, $behalten3)
GUICtrlSetState($Antwort3[5], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[5], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[5], 1, $behalten4)
GUICtrlSetState($Antwort4[5], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

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

;5. Reihe

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

case $msg = $Testen[5]
$reply=GUICtrlRead($Antwort[5])
select
case $reply = $Zahl1
$Ergebnis[5]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[5]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[5]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[5]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[5]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[5])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[5])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[5])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[5], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[6], 1,2)
_GUICtrlEditReplaceSel ($Antwort[6], 1, $behalten1)
GUICtrlSetState($Antwort[6], $GUI_DISABLE)
$Ergebnis[5]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[6], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[6], 1, $behalten2)
GUICtrlSetState($Antwort2[6], $GUI_DISABLE)
$Ergebnis[6]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[6], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[6], 1, $behalten3)
GUICtrlSetState($Antwort3[6], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[6], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[6], 1, $behalten4)
GUICtrlSetState($Antwort4[6], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;6. Reihe

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

case $msg = $Testen[6]
$reply=GUICtrlRead($Antwort[6])
select
case $reply = $Zahl1
$Ergebnis[6]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[6]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[6]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[6]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[6]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[6])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[6])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[6])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[6], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else

if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[7], 1,2)
_GUICtrlEditReplaceSel ($Antwort[7], 1, $behalten1)
GUICtrlSetState($Antwort[7], $GUI_DISABLE)
$Ergebnis[6]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[7], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[7], 1, $behalten2)
GUICtrlSetState($Antwort2[7], $GUI_DISABLE)
$Ergebnis[7]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[7], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[7], 1, $behalten3)
GUICtrlSetState($Antwort3[7], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[7], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[7], 1, $behalten4)
GUICtrlSetState($Antwort4[7], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;7. Reihe

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

case $msg = $Testen[7]
$reply=GUICtrlRead($Antwort[7])
select
case $reply = $Zahl1
$Ergebnis[7]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[7]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[7]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[7]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[7]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[7])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[7])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[7])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[7], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else

if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[8], 1,2)
_GUICtrlEditReplaceSel ($Antwort[8], 1, $behalten1)
GUICtrlSetState($Antwort[8], $GUI_DISABLE)
$Ergebnis[7]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[8], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[8], 1, $behalten2)
GUICtrlSetState($Antwort2[8], $GUI_DISABLE)
$Ergebnis[8]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[8], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[8], 1, $behalten3)
GUICtrlSetState($Antwort3[8], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[8], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[8], 1, $behalten4)
GUICtrlSetState($Antwort4[8], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;8. Reihe

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

case $msg = $Testen[8]
$reply=GUICtrlRead($Antwort[8])
select
case $reply = $Zahl1
$Ergebnis[8]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[8]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[8]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[8]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[8]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[8])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[8])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[8])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[8], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else

if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[9], 1,2)
_GUICtrlEditReplaceSel ($Antwort[9], 1, $behalten1)
GUICtrlSetState($Antwort[9], $GUI_DISABLE)
$Ergebnis[8]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[9], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[9], 1, $behalten2)
GUICtrlSetState($Antwort2[9], $GUI_DISABLE)
$Ergebnis[9]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[9], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[9], 1, $behalten3)
GUICtrlSetState($Antwort3[9], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[9], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[9], 1, $behalten4)
GUICtrlSetState($Antwort4[9], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;9. Reihe

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

case $msg = $Testen[9]
$reply=GUICtrlRead($Antwort[9])
select
case $reply = $Zahl1
$Ergebnis[9]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[9]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[9]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[9]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[9]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[9])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[9])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[9])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[9], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else

if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[10], 1,2)
_GUICtrlEditReplaceSel ($Antwort[10], 1, $behalten1)
GUICtrlSetState($Antwort[10], $GUI_DISABLE)
$Ergebnis[9]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[10], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[10], 1, $behalten2)
GUICtrlSetState($Antwort2[10], $GUI_DISABLE)
$Ergebnis[10]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[10], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[10], 1, $behalten3)
GUICtrlSetState($Antwort3[10], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[10], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[10], 1, $behalten4)
GUICtrlSetState($Antwort4[10], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;10. Reihe

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

case $msg = $Testen[10]
$reply=GUICtrlRead($Antwort[10])
select
case $reply = $Zahl1
$Ergebnis[10]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[10]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[10]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[10]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[10]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[10])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[10])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[10])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[10], $GUI_DISABLE)
$top=$top+40

IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)

Else
GUICtrlCreateLabel("LOOOOOOOOOSER! :p", 20, 450)
SoundPlay("Lachen.wav")

EndIf

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

Case $msg = $GUI_EVENT_CLOSE
ExitLoop

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

EndSelect
WEnd

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

Bernd

Also das ist komisch. Ich sehs jetzt auch (hab den Fehler also auch gesehn) aber ich verstehe nicht wie es dazu kommt. Etwas was mir noch aufgefallen ist. Wenn man fertig ist (also gewonnen hat) Dann das Spiel minimiert und wieder maximiert sind die Farben auch TOTAL vertauscht. Ich bin irgendwie betriebsblind? Sieht wer wodran das liegt?

edit die 5.: Kann es sein (also das mit dem Minimieren) das es sich ja um eine Schleife handelt und der irgendwie bestimmte punkte einfach nochmal macht?

akira2012

Oha

Ok ich schau mal ob ich den Fehler finde aber bei mir selbst habe ich das noch nie beobachtet oO

Danke euch beiden erstmal fürs feedback

akira2012

Hallo Leute. Ich habe mir in der langen Zeit ohne Internet die Zeit was mit AutoIT vertrieben und ein kleines (nicht ganz fertiges) Mastermind spiel programmiert. Allerdings ist dieses nicht mit Farben sondern den Zahlen von 1-9. Kurze erklärung -->

grau = richtige Zahl - falsche stelle
grün = richtige Zahl - richtige stelle
rot = ratet mal

Ich habe jetzt wo ich wieder Internet habe auch gesehen das DJBasslord auch schon sowas gemacht hat aber ich denke mal das ist jetzt nicht soooo schlimm (hoffe ich zumindest). Anbei die Dateien als RAR Archiv.

Über positive und negative Kritik würde ich mich sehr freuen!

MfG

Akira2012

edit: Link funktioniert jetzt!
edit2: So die schlimmsten Fehler sind behoben hier kommt der Download:

akira2012

Hallo Lina

ich werde das Tool + Zusatzprogramme demnächst mal hier einstellen. Leider habe ich im Moment immer noch kein Internet aber es scheint das die Pappnasen von 1&1 das bald mal auf die Reihe bekommen und dann lade ich alles hoch.

MfG

akira2012

P.S. Ja es hat massig Nerven gekostet

akira2012

Lol Bugfix xD

Les dir das Schreiben mal richtig durch "Bitte behalten Sie das Original Rechnung unbedingt für Ihre Unterlagen." das Rechnung? Lol
Das hat irgendein abzocker Vollidiot geschrieben. Das merkt man schon an der Schreibart. Dazu kommt das die Emailadresse @finanzeinzug.blabla auch eher nicht "normal" für einen Anwalt ist, sondern "internetdummen" (nicht auf dich beziehen bitte) Angst machen soll. Sowas wird bei mir nichtmal gelesen - alles Futter für meinen Spamordner

MfG

akira2012

P.S. ICH WILL WIEDER INTERNET!!!!

akira2012

Hey Leute ich habe immer noch kein Internet nach dem Umzug. (1.5.) 1und1 sei dank.... (Gott verfluche Sie und Ihre Kinder bis in die 10. Generation!)

Ich meld mich wenn ich wieder on bin....

akira2012

Ich glaube die Arbeit mit dem Proggi kann ich mir sparen. DJ Basslord hat da ja schon was nettes gescriptet. Das macht ja eigentlich genau das was ich wollte also thnx bassi

nur schade das es nur mit den Nummerntasten funzt

akira2012

Hoi

hehe soleicht kommt man zur arbeit. Möchte aber darauf hinweisen das ich immo wegen umzug (letztes WE) kein internet habe! Werde aber ab und zu noch dazu kommen nachzuschaun und in spätestens 2 wochen bin ich wieder voll dabei. Vielleicht schaff ichs auch das internet bei mir so zu konfigurieren das es vorher läuft ma sehn. Das mit den PN ist nett da die besrpechungen wirklich außerhalb meines Terminplans liegen. Aber sonst verspreche ich seeeehr fleißig zu sein

MfG

akira2012

akira2012

Ok habs geschafft -.- Das hier war der Fehler:

For $i = 1 to $max
_GUICtrlListAddItem($2, $Listing[$i])
Next

Komischerweise ist das ein unterschied zu

For $i = 1 to $max
_GUICtrlListInsertItem($2, $Listing[$i])
Next

Naja was solls jetzt funktionierts endlich

MfG

Akira2012

akira2012

Leute ich komme nicht weiter. Es ist zum verzweifeln. Wenn ich das Array in ein Format umwandle das eigentlich sortiert werden sollte und es dann sortiere ist alles ok. Aber wenn ich dann in das alte Format umwandle ist alles wieder falsch es ist zum k o t * * *. Und mit dem Datumszeug da hab ichs auch nicht geschafft - da bleibt nur noch eins zu sagen :help:

Spoiler anzeigen

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

#include <Date.au3>
#include <String.au3>
#include <GUIConstants.au3>
#include <Array.au3>
#Include <File.au3>
#include <GUIConstants.au3>
#include <GuiCombo.au3>
#include <GuiList.au3>
#include <GuiEdit.au3>
#include <Date.au3>

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

dim $sort[1], $akt[40]
$ort = "S:\Fehlermeldungen\"

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

;UM DEN TEIL HIER GEHTS ###################

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

$Listing=_FileListToArray($ort, "*", 2)
For $i = 1 to $Listing[0]
$Listing[$i]=stringReplace($Listing[$i], ".", "")
;$Listing[$i]=_StringReverse($Listing[$i])
Next

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

for $i=1 to $Listing[0]
;$Listing[$i]=_StringReverse($Listing[$i])
$Listing[$i] = StringMid($Listing[$i],3,2) & "." & StringMid($Listing[$i],1,2) & "." & StringMid($Listing[$i],5,4)

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

;$Listing[$i]=_StringBetween($Listing[$i], "", "")
NEXT
_ArraySort($Listing, 1, 1)
_ArrayDisplay($Listing, "")
for $i=1 to $Listing[0]
$Listing[$i]=stringReplace($Listing[$i], ".", "")
_ArrayDisplay($Listing, "")
;$Listing[$i]=_StringReverse($Listing[$i])
;$Listing[$i] = StringMid($Listing[$i],3,2) & "." & StringMid($Listing[$i],1,2) & "." & StringMid($Listing[$i],5,4)

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

;$Listing[$i]=_StringBetween($Listing[$i], "", "")
NEXT

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

_ArrayDisplay($Listing, "")

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

; ###########################################

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

Opt("GUIOnEventMode", 0)

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

$Fehleransicht=GUICreate("Öffnen", 380, 450)

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

$2=GUICtrlCreateList("", 20, 30, 200, 150)
GUICtrlCreateLabel("Ordner wählen", 20, 10)
$3=GUICtrlCreateList("", 20, 220, 200, 150)
GUICtrlCreateLabel("Datei wählen", 20, 200)
$open=GUICtrlCreateButton("Öffnen", 245, 220, 110, 25)
$information=GUICtrlCreateButton("Info", 245, 260, 110, 25)
$neuste=GUICtrlCreateButton("Neuste Datei öffnen", 245, 300, 110, 25)
$zusammenfassen=GUICtrlCreateButton("Zusammenfassen", 245, 340, 110, 25)
$beenden=GUICtrlCreateButton("Beenden", 150, 400, 110, 25)
GUICtrlSetState($3, @sw_hide)
$max = $Listing[0]
For $i = 1 to $max
_GUICtrlListAddItem($2, $Listing[$i])
Next
GUISetState(@sw_show)

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

While 1
$msg = GUIGetMsg()

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

Select

Case $msg = $2
_GUICtrlListClear($3)
$Auslesen = GUICtrlRead($2)
$Ordner=_FileListToArray($Ort&$Auslesen&"\", "*", 1)
$max2 = $Ordner[0]
For $i = 1 to $max2
_GUICtrlListAddItem($3, $Ordner[$i])
Next
GUICtrlSetState($3, @sw_show)

Case $msg = $open
$auswahl=GUICtrlRead($3)
If NOT $auswahl = "" Then

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

$alri=FileRead($Ort&$Auslesen&"\"&$auswahl)
$open1=GUICreate($auswahl)
$edit = GUICtrlCreateButton("Editieren", 50, 350, 100, 25)
$druck = GUICtrlCreateButton("Drucken", 150, 350, 100, 25)
$beende=GUICtrlCreateButton("Beenden", 250, 350, 100, 25)
$groesse=_FileCountLines($Ort&$Auslesen&"\"&$auswahl)
$hoehe = $groesse*17
$breite = 400
$label=GUICtrlCreateLabel($alri, "1", "1", $breite, $hoehe, $SS_SUNKEN )
GUICtrlSetBkColor($label, 0X000000)
GUICtrlSetColor($label, 0XFFFFFF)
GUISetState(@sw_show, $open1)
GUISwitch($open1)
While 1

$msg1 = GUIGetMsg()

Select

Case $msg1=$edit
run("notepad "&$auswahl, $Ort&$Auslesen)
Case $msg1=$druck
_FilePrint($Ort&$Auslesen&"\"&$auswahl)

Case $msg1 = $GUI_EVENT_CLOSE
GUISetState(@sw_hide)
ExitLoop

Case $msg1 = $beende
GUISetState(@sw_hide)
ExitLoop

EndSelect

WEnd

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

;MsgBox(0, $auswahl, $alri)
Else
MsgBox(0x10, "Fehler!", "Sie haben keine Datei ausgewählt")
EndIf

Case $msg = $information
$auswahl=GUICtrlRead($3)
If NOT $auswahl = "" Then
$da=FileGetTime($Ort&$Auslesen&"\"&$auswahl, 1, 0)
$Filedatum = "Diese Datei wurde erstellt am: " & $da[2] & "." & $da[1] & "." & $da[0] & " um " & $da[3] & ":" & $da[4] & " Uhr"
$test=$Ort&$Auslesen&"\"&$auswahl
ToolTip($Filedatum, 500, 500, "Info", 1)
sleep(2000)
ToolTip("")
Else
MsgBox(0x10, "Fehler!", "Sie haben keine Datei ausgewählt")
EndIf

Case $msg = $GUI_EVENT_CLOSE
ExitLoop

case $msg = $neuste
$inhalt = _FileListToArray($Ort, "*", 2)

$max3 = $inhalt[0]

for $i = 1 to $max3
IF FileExists($Ort&$inhalt[$i]&"\*.txt") Then
$dateien = _FileListToArray($Ort&$inhalt[$i], "*", 1)
$max4 = $dateien[0]
for $id = 1 to $max4
$da=FileGetTime($Ort&$inhalt[$i]&"\"&$dateien[$id], 1, 0)
IF NOT $id = $max4 Then
$da2=FileGetTime($Ort&$inhalt[$i]&"\"&$dateien[$id+1], 1, 0)
Else
$da2=FileGetTime($Ort&$inhalt[$i]&"\"&$dateien[$id], 1, 0)
EndIf

$test = $da[2]&$da[1]&$da[3]&$da[4]&$da[5]
$test2 = $da2[2]&$da2[1]&$da[3]&$da[4]&$da[5]
If $test < $test Then
_ArrayInsert($sort, $i, $test)
Else
_ArrayInsert($sort, $i, $test2)
EndIf
$da=0
_ArraySort($sort, 1, 1)
Next
EndIf
Next

$inhalt = _FileListToArray($Ort, "*", 2)
$max3 = $inhalt[0]
for $i = 1 to $max3
IF FileExists($Ort&$inhalt[$i]&"\*.txt") Then
$dateien = _FileListToArray($Ort&$inhalt[$i], "*", 1)
$max4 = $dateien[0]
for $id = 1 to $max4
$da=FileGetTime($Ort&$inhalt[$i]&"\"&$dateien[$id], 1, 0)
$test = $da[2]&$da[1]&$da[3]&$da[4]&$da[5]
If $test = $sort[1] THEN
run("notepad "&$Ort&$inhalt[$i]&"\"&$dateien[$id])
EndIf
$da=0
Next
EndIf
Next

Case $msg = $zusammenfassen
$auswahl=GUICtrlRead($3)
$Auslesen = GUICtrlRead($2)
IF NOT $Auslesen = "" Then
$dateien = _FileListToArray($Ort&$Auslesen, "*", 1)
$da=FileGetTime($Ort&$Auslesen&"\"&$dateien[$dateien[0]], 1, 0)
$max5 = $dateien[0]
for $i = 1 to $max5
FileOpen($Ort&$Auslesen&"\Zusammenfassung vom "&$da[2]&"."&$da[1]&".txt", 1)
$zf=FileRead($Ort&$Auslesen&"\"&$dateien[$i])
FileWriteLine($Ort&$Auslesen&"\"&"Zusammenfassung vom "&$da[2]&"."&$da[1]&".txt", " ")
FileWriteLine($Ort&$Auslesen&"\"&"Zusammenfassung vom "&$da[2]&"."&$da[1]&".txt", $zf)
FileClose($Ort&$Auslesen&"\Zusammenfassung vom "&$da[2]&"."&$da[1]&".txt")
Next
$msg = MsgBox(4, "Drucken?", "Wollen Sie die Zusammenfassung jetzt ausdrucken?")
IF $msg = "6" Then
_FilePrint($Ort&$Auslesen&"\Zusammenfassung vom "&$da[2]&"."&$da[1]&".txt")
Else
EndIf
Else
MsgBox(0x10, "Fehler!", "Sie haben keinen Ordner zum Zusammenfassen ausgewählt! Bitte wählen Sie zuerst einen Ordner aus dem oberen Fenster!")
EndIf

Case $msg = $beenden
Exit

EndSelect
WEnd

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

dickes fettes EDIT:

Mir ist etwas aufgefallen. Die Daten sind schon richtig sortiert aber die CTRL List Sortiert die Daten scheinbar selber nochmal um -.- Also kann man das irgendwie abstellen?

akira2012

@ Peethebee Vielen Dank
@ FoXMorayno Vielen Dank
@ th.meger Vielen Dank und KANN JA JEDER BEHAUPTEN

Ich werde mir alle eure Lösungsvorschläge zu gemüte führen wenn ich wieder etwas luft habe (bin grad umgezogen mein PC zuhause ist nichtmal aufgebaut -.-). Bis dahin verbleibe ich in tiefster bewunderung an eure Fähigkeiten

MfG

akira2012

EDIT: @ peethebee Sag mal das mit den DLLs ist ja lustig. Woher weiß dann sB th.Meger das man die Userbla.dll braucht um die Tasten auszulesen. Ich sags ja ALIEN!

akira2012

Hm das das mit der Tastaturbelegung nicht geht ist schade das wäre mal eine feine Sache ^^. Das mit den Tastensenden alls ifpressed ist ja ok soweit aaaaber was ist wenn die taste 1 nicht gedruckt wird und ich dann die rücktaste benutze und ein nicht gewollter effekt in einem programm auftauchen sollte. Den Status der tasten abfragen sieht schon kompliziert genug aus für mich aber th.meger ist ja auch kein mensch :p
Naja vielleicht starte ich mal ein paar experimente wenn mein PC zuhause wieder funzt kann grad nur von der Arbeit aus online >_>

MfG

P.S. Wie lest ihr dll's aus? Ich mein woher weiß ich was in den DLLs drinnen steht ich kann die nichtmal öffnen oO

akira2012

Ok Snoozi bin halt noch ein noob aber so WÄRe es auch geangen (Bis zur ie.au3 hab ich mich noch nicht vorgeabreitet)

MfG

akira2012

Hm naja ich hätte mich ja auch gerne beteiligt aber eure Zeiten sich zu treffen im IRC Chat sind dann doch wohl eher was für Schüler oder Frühschichtler ^^. Ich kann leider nie vor 21.00 Uhr. Falls Ihr in diesen Zeitbereich übergeht mach ich gerne mit ;p

MfG

akira2012

Hilfreich wäre es auf jeden fall zu wissen wofür du das brauchst. Ansonsten denke ich das ist das Script an sich nicht schwer wenn du die Seiten "nur" aufrufen willst.

while 1

do

run("C:\Programme\Internet Explorer\iexplore.exe https://autoit.de/www.hurricane-gaming.de")

while 1

Do
_FileReadToArray("Ort der Datei wo die Internetseiten aufgeführt sind (Pro reihe eine)", $Internetseite)

for $i = 1 to $internetseite[0]
run("C:\Programme\Internet Explorer\iexplore.exe $internetseite[$i]")
WinWaitActive("", "", 10)
Winclose("")
Next
until $i = 10000000 ; wird nie passieren...
WEnd

oder so ähnlich...

Beiträge von akira2012

Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

Fehlerberichterstattung (bitte helfen ^^)

Mal wieder neue Trojaner-Post

n00b projekt die 2. action!

Tasten neu belegen.. (Tastatur)

n00b projekt die 2. action!

Sortierung von Arrays im Datumsformat

Sortierung von Arrays im Datumsformat

Tasten neu belegen.. (Tastatur)

Tasten neu belegen.. (Tastatur)

Zeitgesteuerter Pagewechsel

n00b projekt die 2. action!

Zeitgesteuerter Pagewechsel