[..] Pendu

[bromy]

Bonjour,

J'essaye a faire un jeu du pendu, seulement, plusieurs choses ne fonctionnent pas et je n'arrive pas a les résoudres.
Voila mon

Voici la liste de mot

Liste de mot.txt

(15.13 Kio) Téléchargé 77 fois

Et le code :

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#region ### START Koda GUI section ### Form=c:\documents and settings\veron matthieu\bureau\autoit\pendu.kxf
$mot = 0
$ligne = ""
$taille = 0
$total = 11
$Final = ""
$result = ""
$result2 = ""
$lettre = 0
$resultdeja = ""
$Input1 = ""
$group = ""
$lettre = ""
$Boucle = ""
$rien = 0
$inconnues = ""
$Graphic1 = ""
$nombre = ""
$dessin = 0
$lettreTotale = ""
;;;;;;;;;;;;;;;;;;;
$ligne = Floor(Random(1, 1417))
$mot = FileReadLine("Liste de mot.txt", $ligne)
MsgBox(0, "mot", "" & $mot & "")
$taille = StringLen($mot) - 3
;~ MsgBox(0, "Taille du mot","" & $taille & "")
$inconnues = Tirets($taille)
;;;;;;;;;;;;;;;;;;;;
$Jeu = GUICreate("Jeu'broms", 633, 447, 192, 124)
GUISetFont(10, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Le jeu du Pendu", 85, 13, 462, 52)
GUICtrlSetFont(-1, 28, 400, 0, "Earth")
$Label2 = GUICtrlCreateLabel("Entrez une lettre", 8, 136, 206, 39)
GUICtrlSetFont(-1, 18, 800, 0, "Comic Sans MS")
$input = GUICtrlCreateInput("", 240, 144, 161, 24)
$Valider = GUICtrlCreateButton("Valider", 424, 136, 203, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 400, 0, "Comic Sans MS")
$Group1 = GUICtrlCreateGroup("Lettre utilisées", 416, 200, 169, 121)
GUISetState(@SW_SHOW)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label14 = GUICtrlCreateLabel($inconnues, 408, 376, 220, 20)
$Graphic1 = GUICtrlCreateGraphic(8, 176, 393, 257)
GUICtrlSetBkColor(-1, 0xece9d8)
#endregion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Valider

            $lettreTotale = GUICtrlRead($input)
            $lettre = StringLeft($lettreTotale, 1)
;~          MsgBox(0,"lettre saisi",$lettre)
            $result = StringInStr($mot, $lettre)
            $resultdeja = StringInStr($inconnues, $lettre)
;~          MsgBox(0,"position de la lettre saisi",$result)
            If ($result <> 0 And $resultdeja = 0) Then ; si on la trouve
                $nombre = $nombre + 1
                $inconnues = StringReplace($inconnues, $result, $lettre, 1) ; on remplace le $result ième tiret par la lettre saisie
                $result2 = StringInStr($mot, $lettre, 0, 1, $result + 1)
                While $result2 <> 0
                    $inconnues = StringReplace($inconnues, $result2, $lettre, 1) ; on remplace le $result ième tiret par la lettre saisie
                    $result2 = StringInStr($mot, $lettre, 0, 1, $result2 + 1)
                    $nombre = $nombre + 1
                WEnd
            EndIf


;~ While $total <> 0 and $lettre <> $taille
            $Final = $Final & "_"
;~  ;~ MsgBox(0, "","" & $Final & "")

            If $result = 0 Then $dessin = $dessin + 1
;~ MsgBox(0,"Dessin",$dessin)

            If $Boucle = 0 And $result = 0 Then
                $Label3 = GUICtrlCreateLabel($lettre, 424, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)


            EndIf

            If $Boucle = 1 And $result = 0 Then
                $Label4 = GUICtrlCreateLabel($lettre, 456, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 2 And $result = 0 Then
                $Label5 = GUICtrlCreateLabel($lettre, 488, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 3 And $result = 0 Then
                $Label6 = GUICtrlCreateLabel($lettre, 520, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 4 And $result = 0 Then
                $Label7 = GUICtrlCreateLabel($lettre, 552, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 5 And $result = 0 Then
                $Label8 = GUICtrlCreateLabel($lettre, 424, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 6 And $result = 0 Then
                $Label9 = GUICtrlCreateLabel($lettre, 456, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 7 And $result = 0 Then
                $Label10 = GUICtrlCreateLabel($lettre, 488, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 8 And $result = 0 Then
                $Label11 = GUICtrlCreateLabel($lettre, 520, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 9 And $result = 0 Then
                $Label12 = GUICtrlCreateLabel($lettre, 552, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 10 And $result = 0 Then
                $Label13 = GUICtrlCreateLabel($lettre, 424, 288, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf


            ;;;;;;;;;;;;;;;;;;;;;;;;;;;,
            If $Boucle = 0 And $result <> 0 Then
                $Label3 = GUICtrlCreateLabel($lettre, 424, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 1 And $result <> 0 Then
                $Label4 = GUICtrlCreateLabel($lettre, 456, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 2 And $result <> 0 Then
                $Label5 = GUICtrlCreateLabel($lettre, 488, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 3 And $result <> 0 Then
                $Label6 = GUICtrlCreateLabel($lettre, 520, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 4 And $result <> 0 Then
                $Label7 = GUICtrlCreateLabel($lettre, 552, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 5 And $result <> 0 Then
                $Label8 = GUICtrlCreateLabel($lettre, 424, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 6 And $result <> 0 Then
                $Label9 = GUICtrlCreateLabel($lettre, 456, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 7 And $result <> 0 Then
                $Label10 = GUICtrlCreateLabel($lettre, 488, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 8 And $result <> 0 Then
                $Label11 = GUICtrlCreateLabel($lettre, 520, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 9 And $result <> 0 Then
                $Label12 = GUICtrlCreateLabel($lettre, 552, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 10 And $result <> 0 Then
                $Label13 = GUICtrlCreateLabel($lettre, 424, 288, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)

            EndIf
            $Boucle = $Boucle + 1
            ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            If $dessin = 1 Then
                $Graphic1 = GUICtrlCreateGraphic(8, 176, 393, 257)
                GUICtrlSetBkColor(-1, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 30, 230)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 150, 230)
            EndIf

            If $dessin = 2 Then
                $Graphic1 = GUICtrlCreateGraphic(8, 176, 393, 257)
                GUICtrlSetBkColor(-1, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 30, 230)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 150, 230)

                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 90, 230)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 90, 30)
            EndIf

            If $dessin = 3 Then
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 130, 30)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 90, 60)
            EndIf

            If $dessin = 4 Then
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 90, 30)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 30)
            EndIf

            If $dessin = 5 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 30)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 50)
            EndIf

            If $dessin = 6 Then
                GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, 277.5, 50, 45, 50)
            EndIf

            If $dessin = 7 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 100)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 160)
            EndIf

            If $dessin = 8 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 100)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 260, 140)
            EndIf

            If $dessin = 9 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 100)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 340, 140)
            EndIf

            If $dessin = 10 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 160)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 260, 200)
            EndIf

            If $dessin = 11 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xfff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 160)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 340, 200)
            EndIf

            $Label14 = GUICtrlCreateLabel($inconnues, 408, 376, 220, 20)
            $rien = GUICtrlSetData($input, "")
            if ($result <> 0 And $Boucle = $taille) Then MsgBox(0, "", "Bravo tu as trouvé le mot")
            if ($result <> 0 And $Boucle = $taille) Then ProcessClose("AutoIt3.exe")
    EndSwitch
WEnd
;;;;;;;;;
Func Tirets($value)
    Local $ret = ""
    For $i = 1 To $value
        $ret = $ret & '.'
    Next
    Return $ret
EndFunc   ;==>Tirets

Pouvez vous m'aider ? Voici les quelques problemes que j'ai reperer.
Si le mot fait 5 lettres et que je tape 5 fois une lettre bonne, sa me fais quand meme gagner.
Mon dessin du pendu ne sâffiche que si je reduit et ré affiche la GUI.
Possibilité de bloqué un INPUT a 1 seul lettre ?
Si vous voyer d'autre probleme je veux bien le savoir x)

Merci
Bromy

[timmalos]

Plusieurs remarques:

-Random, si vous rajoutez le flag 1 vous obtenez un entier, ce qui evite l'utilisation de Floor
-On peut declarer ces variables avec un mot clef, utilisez le ca vous permet d'avoir un script plus lisible. Ici Global va très bien.

-Ensuite, concernant l'ecriture des lettres deja ecrites , vous devez pouvoir TOUT remplacer par juste:

Code : Tout sélectionner

GUICtrlCreateLabel($lettre, 424 + Mod($NbTotalEssais, 5) * 32, 224 + (Round($NbTotalEssais / 5)) * 32, 20, 20)
            If Not $result Then
                GUICtrlSetColor(-1, 0xFF0000)
            Else
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf
 

(A verifier, fait de tête)

[mikell]

Si le mot fait 5 lettres et que je tape 5 fois une lettre bonne, sa me fais quand meme gagner.

Tu pourrais, à chaque bonne lettre trouvée, redéfinir le mot à tester avec cette lettre en moins
exemple : CHAT, trouvé le A, prochain test sur le mot CHT

Mon dessin du pendu ne sâffiche que si je reduit et ré affiche la GUI.

Code : Tout sélectionner

#include <WinAPI.au3>
[color=#008000]et[/color]
 _WinAPI_RedrawWindow($Jeu, "", "", BitOR($RDW_INVALIDATE, $RDW_UPDATENOW))
[color=#008000]après les GUICtrlSetGraphic()[/color]

Possibilité de bloqué un INPUT a 1 seul lettre ?

Code : Tout sélectionner

$text = GuiCtrlRead($input)
If StringLen($text)>1 Then GuiCtrlSetData($input, StringLeft($text, 1)

(A verifier, fait de tête)

[pierrotm777]

J'avais trouvé cet exemple je ne sais plus trop où ! Je te le livre tel quel !
J'y ai ajouté un script permettant de découper un dictionnaire en trois afin d'obtenir trois niveau de difficultés

[timmalos]

Pour limiter l'input à un charactere, il y a plus simple:

Code : Tout sélectionner

GuiCtrlSetLimit($input,1)

[mikell]

Pour limiter l'input à un charactere, il y a plus simple:

Code : Tout sélectionner

GuiCtrlSetLimit($input,1)

... évidemment...

[bromy]

Merci a tous, des que je rentre lundi je test tout ça

[bromy]

Re,

deux autres problemes que je viens de voir,

Dans le mot "etat" par exemple
Si je rentre le "e", sa me met faux, il faut mettre le "é"; comment résoudre ce probleme sans a avoir a enlever tout les accents de ma liste de mots >< ?

Et
Dans le mot frapper par exemple
Il y a 2 p et 2 r,

Donc quand je met p il me met les deux, pareil pour le r, sauf que quand jai trouver le mot, faut que je rajoute encore 2 lettre pour avoir le "bravo, tu as trouver le mot"
Merci d'avance
Bromy

EDIT :

Pour ce qui est de ca :

Code : Tout sélectionner

GUICtrlCreateLabel($lettre, 424 + Mod($NbTotalEssais, 5) * 32, 224 + (Round($NbTotalEssais / 5)) * 32, 20, 20)
            If Not $result Then
                GUICtrlSetColor(-1, 0xFF0000)
            Else
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf

Je suis senser le mettre ou et a la place de quoi ? Pas tout compris

[mikell]

comment résoudre ce probleme sans a avoir a enlever tout les accents de ma liste de mots

Essaye ce petit script :

Code : Tout sélectionner

#include <Misc.au3>

While 1
    Sleep (100)
    If _IsPressed("32") OR _IsPressed("37") Then   [color=#FF0000]; <= le é ou le è[/color]
    MsgBox(0,"", "en fait ça écrit : e")    [color=#FF0000]; <= ligne à remplacer par : Send("e")[/color]
    ExitLoop
    EndIf
WEnd

a la place de quoi ?

Apparemment, à la place de tout ça :

► Afficher le texte

Code : Tout sélectionner

          If $Boucle = 0 And $result = 0 Then
                $Label3 = GUICtrlCreateLabel($lettre, 424, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)


            EndIf

            If $Boucle = 1 And $result = 0 Then
                $Label4 = GUICtrlCreateLabel($lettre, 456, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 2 And $result = 0 Then
                $Label5 = GUICtrlCreateLabel($lettre, 488, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 3 And $result = 0 Then
                $Label6 = GUICtrlCreateLabel($lettre, 520, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 4 And $result = 0 Then
                $Label7 = GUICtrlCreateLabel($lettre, 552, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 5 And $result = 0 Then
                $Label8 = GUICtrlCreateLabel($lettre, 424, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 6 And $result = 0 Then
                $Label9 = GUICtrlCreateLabel($lettre, 456, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 7 And $result = 0 Then
                $Label10 = GUICtrlCreateLabel($lettre, 488, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 8 And $result = 0 Then
                $Label11 = GUICtrlCreateLabel($lettre, 520, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 9 And $result = 0 Then
                $Label12 = GUICtrlCreateLabel($lettre, 552, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf

            If $Boucle = 10 And $result = 0 Then
                $Label13 = GUICtrlCreateLabel($lettre, 424, 288, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)

            EndIf


            ;;;;;;;;;;;;;;;;;;;;;;;;;;;,
            If $Boucle = 0 And $result <> 0 Then
                $Label3 = GUICtrlCreateLabel($lettre, 424, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 1 And $result <> 0 Then
                $Label4 = GUICtrlCreateLabel($lettre, 456, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 2 And $result <> 0 Then
                $Label5 = GUICtrlCreateLabel($lettre, 488, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 3 And $result <> 0 Then
                $Label6 = GUICtrlCreateLabel($lettre, 520, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 4 And $result <> 0 Then
                $Label7 = GUICtrlCreateLabel($lettre, 552, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 5 And $result <> 0 Then
                $Label8 = GUICtrlCreateLabel($lettre, 424, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 6 And $result <> 0 Then
                $Label9 = GUICtrlCreateLabel($lettre, 456, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 7 And $result <> 0 Then
                $Label10 = GUICtrlCreateLabel($lettre, 488, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 8 And $result <> 0 Then
                $Label11 = GUICtrlCreateLabel($lettre, 520, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 9 And $result <> 0 Then
                $Label12 = GUICtrlCreateLabel($lettre, 552, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)


            EndIf

            If $Boucle = 10 And $result <> 0 Then
                $Label13 = GUICtrlCreateLabel($lettre, 424, 288, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)

            EndIf

[bromy]

Pour le petit script j'ai compris
Mais je trouve pas comment faire pour que quand le joueur tape e, que le e marche aussi pour les é et è du mot a trouver.

[mikell]

En gros, tu fais une liste de conditions du genre

Code : Tout sélectionner

If StringInStr($motàtrouver, "e") Then
     If _IsPressed("32") OR _IsPressed("37") Then Send("e")
Else If StringInStr($motàtrouver, "é") Then
     If _IsPressed("45") OR _IsPressed("37") Then Send("é")
...etc...
EndIf

[bromy]

Donc j'ai rajouter sa

Code : Tout sélectionner

 Case $Valider
            
            If StringInStr($mot, "é") Then
            If _IsPressed("45") Then Send("é")
                endif
            If StringInStr($mot, "è") Then
            If _IsPressed("45") Then Send("è")
                endif
 

Je fais un test avec le mot "supérieur"
Je tape "e"; et sa me met sa comme erreur

If _IsPressed("45") Then Send("é")
If ^ ERROR

Edit :
J'ai rajouter sa :

Code : Tout sélectionner

$mot = StringReplace($mot, "é", "e")

Sauf que ducoup les accents n'apparaissent pas dans les lettres trouvés, si je prend un mot comme "pitié", sa donnera "pitie" et le joueur risque de rien comprendre x)

EDIT2 :

Tjr pas compris pour le :

Code : Tout sélectionner

 GUICtrlCreateLabel($lettre, 424 + Mod($NbTotalEssais, 5) * 32, 224 + (Round($NbTotalEssais / 5)) * 32, 20, 20)
            If Not $result Then
                GUICtrlSetColor(-1, 0xFF0000)
            Else
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf
 

Edit3 :

Code : Tout sélectionner

$liste = FileRead("Liste de mot.txt")
$Jeu = GUICreate("Jeu'broms", 200, 200, 200, 200)

$Label1 = GUICtrlCreateInput($liste,10,10,180,180)
GUISetState(@SW_SHOW)

J'aimerais ajouter une parti "Dico", qui s'ouvre quand je clic sur "Edition", puis "Dico"
Comment je peux faire pour que dans mon Input, s'affiche ma liste de mot, avec un mot par ligne, et pas tous a la suite sur une seul ligne :/
Pour par la suite ajouter une fonction Suprimer ou ajouter un mot.

[mikell]

If _IsPressed("45") Then Send("é")
If ^ ERROR

T'aurais pas oublié l'include des fois ?

Code : Tout sélectionner

#include <Misc.au3>
...
If StringInStr($motàtrouver, "é") Then
     If _IsPressed("45") OR _IsPressed("37") Then Send("é") ; <--  [color=#FF0000]45 = e, 37 = è, 32 = é[/color]

Pour ton Dico, je suggère quelques petites recherches sur le forum
Autre suggestion : tu essaies de résoudre trop de problèmes à la fois, fais ça progressivement un problème après l'autre, en comprenant bien à chaque fois ce que tu fais et pourquoi tu le fais
Ce que timmalos t'a proposé c'est de l'optimisation, c'est bien mais ce n'est pas indispensable alors garde ça pour la fin quand tu auras solutionné le reste

[legend]

voici un petit exemple qui fait rien de mal ^^

► Afficher le texte

Code : Tout sélectionner

#include <Misc.au3>
global $mot = "arrétez", $message = ""
For $i = 1 To StringLen($mot)
    $message &= "x"
Next
While 1
    Sleep(30)
    If _IsPressed(45) Then
        $str = StringInStr($mot, "e")
        If $str Then
            $message = StringReplace($message, $str, "e")
            $mot = StringReplace ($mot, $str, " ")
        Else
            $str = StringInStr($mot, "é")
            If $str Then
            $message = StringReplace($message, $str, "é")
            $mot = StringReplace ($mot, $str, " ")
            EndIf
        EndIf
        MsgBox(0, "", $message)
        MsgBox (0, "", $mot)
    EndIf
WEnd

je vous conseille de faire une fonction qui vérifie si la touche a été préssée et fait toutes ces actions si c'est le cas.
tu passe la touche (lettre) a chaque fois. ça aidera a raccourcir ton code et le rendre plus clair.
ce sera du genre :

► Afficher le texte

Code : Tout sélectionner

while 1
pendu("a")
pendu("b")
pendu("c")
pendu("d")
; etc ....
;autre evenements ici si tu veut
wend
func pendu ($lettre)
$lettre = stringtrimleft (stringtobinary ("a"), 2) ; c'est pas très professionnel mais ça marche en autoit   :mrgreen: (mr green marche pas dans la balise code :( :( :( )
$lettre -= 20
if _ispressed ($lettre) then

; ACTIONS A EXECUTER SI LA LETTRE EST PRESSEE.
; :P

endif
endfunc
 

[bromy]

Je m'y perd un peu la x)

Actuellement j'en suis a la

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <WinAPI.au3>
#include <Misc.au3>

;Déclaration variabes.
$total = 11
$dessin=0
$boucle=0
Global $sec = @SEC, $minute, $hour, $light, $time, $clocklabel

;;;;;;;;;;;;;;;;;;;
Global $ligne = Random(1, 1417,1)
Global $mot = FileReadLine("Liste de mot.txt", $ligne)
MsgBox(0, "mot", "" & $mot & "")
Global $taille = StringLen($mot)
Global $inconnues = Tirets($taille)
opt("WinWaitDelay", 100)
opt("WinTitleMatchMode", 4)
opt("WinDetectHiddenText", 1)
opt("MouseCoordMode", 0)
;;;;;;;;;;;;;;;;;;;;
$Jeu = GUICreate("Jeu'broms", 633, 447, 192, 124)
GUISetFont(10, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Le jeu du Pendu", 85, 13, 462, 52)
GUICtrlSetFont(-1, 28, 400, 0, "Earth")
$Label2 = GUICtrlCreateLabel("Entrez une lettre", 8, 136, 206, 39)
GUICtrlSetFont(-1, 18, 800, 0, "Comic Sans MS")
$input = GUICtrlCreateInput("", 240, 144, 161, 24)
GuiCtrlSetLimit($input,1)
$Valider = GUICtrlCreateButton("Valider", 424, 136, 203, 33, $WS_GROUP)
$labelchrono = GUICtrlCreateLabel("(Depart du chrono : Valider)",440,110)
GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
$Group1 = GUICtrlCreateGroup("Lettre utilisées", 416, 200, 169, 121)
GUISetState(@SW_SHOW)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label14 = GUICtrlCreateLabel($inconnues, 408, 376, 220, 20)
$Graphic1 = GUICtrlCreateGraphic(8, 176, 393, 257)
GUICtrlSetBkColor(-1, 0xece9d8)
$menu_fichier = GUICtrlCreateMenu("Fichier")
Global $menu_fichier_nouveau = GUICtrlCreateMenuItem("Nouveau", $menu_fichier)
Global $menu_fichier_quit = GUICtrlCreateMenuItem("Quit", $menu_fichier)
$menu_edition = GUICtrlCreateMenu("Edition")
Global $menu_edit_dico = GUICtrlCreateMenuItem("Ouvrir le dictionaire", $menu_edition)
$clocklabel = GUICtrlCreateLabel("Loading...",550, 5, 60, 20, 0x1000)
;;;;;;;;;;;;;;;;;;;;;


While 1
    

    $nMsg = GUIGetMsg()
        If $nMsg = -3 Then
        ExitLoop
    ElseIf $sec <> @SEC Then
        GUICtrlSetData($clocklabel, TimeSet())
    EndIf
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $menu_edit_dico
        _edition()
        Case $menu_fichier_quit
            Exit
        Case $Valider 
            $begin = TimerInit()
            $mot = StringReplace($mot, "é", "e")
            $mot = StringReplace($mot, "è", "e")

            
            $lettreTotale = GUICtrlRead($input)
            $lettre = StringLeft($lettreTotale, 1)
            $result = StringInStr($mot, $lettre)
            $resultdeja = StringInStr($inconnues, $lettre)
            If ($result <> 0 And $resultdeja = 0) Then ; si on la trouve
               Global $nombre = $nombre + 1
                $inconnues = StringReplace($inconnues, $result, $lettre, 1) ; on remplace le $result ième tiret par la lettre saisie
                $result2 = StringInStr($mot, $lettre, 0, 1, $result + 1)
                While $result2 <> 0
                    $inconnues = StringReplace($inconnues, $result2, $lettre, 1) ; on remplace le $result ième tiret par la lettre saisie
                    $result2 = StringInStr($mot, $lettre, 0, 1, $result2 + 1)
                    $nombre = $nombre + 1
                WEnd
            EndIf

Global  $Final = $Final & "_"

;;;;;;;;;;;;;;;;;;;;;;; Dessin du Pendu

            If $result = 0 Then $dessin = $dessin + 1

            If $Boucle = 0 And $result = 0 Then
                $Label3 = GUICtrlCreateLabel($lettre, 424, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)
            EndIf

            If $Boucle = 1 And $result = 0 Then
                $Label4 = GUICtrlCreateLabel($lettre, 456, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)
            EndIf

            If $Boucle = 2 And $result = 0 Then
                $Label5 = GUICtrlCreateLabel($lettre, 488, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)   
            EndIf

            If $Boucle = 3 And $result = 0 Then
                $Label6 = GUICtrlCreateLabel($lettre, 520, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)           
            EndIf

            If $Boucle = 4 And $result = 0 Then
                $Label7 = GUICtrlCreateLabel($lettre, 552, 224, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)
            EndIf

            If $Boucle = 5 And $result = 0 Then
                $Label8 = GUICtrlCreateLabel($lettre, 424, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)           
            EndIf

            If $Boucle = 6 And $result = 0 Then
                $Label9 = GUICtrlCreateLabel($lettre, 456, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)   
            EndIf

            If $Boucle = 7 And $result = 0 Then
                $Label10 = GUICtrlCreateLabel($lettre, 488, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)
            EndIf

            If $Boucle = 8 And $result = 0 Then
                $Label11 = GUICtrlCreateLabel($lettre, 520, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)       
            EndIf

            If $Boucle = 9 And $result = 0 Then
                $Label12 = GUICtrlCreateLabel($lettre, 552, 256, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)
            EndIf

            If $Boucle = 10 And $result = 0 Then
                $Label13 = GUICtrlCreateLabel($lettre, 424, 288, 20, 20)
                GUICtrlSetColor(-1, 0xFF0000)       
            EndIf


            ;;;;;;;;;;;;;;;;;;;;;;;;;;;,
            
            If $Boucle = 0 And $result <> 0 Then
                $Label3 = GUICtrlCreateLabel($lettre, 424, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf

            If $Boucle = 1 And $result <> 0 Then
                $Label4 = GUICtrlCreateLabel($lettre, 456, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)           
            EndIf

            If $Boucle = 2 And $result <> 0 Then
                $Label5 = GUICtrlCreateLabel($lettre, 488, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf

            If $Boucle = 3 And $result <> 0 Then
                $Label6 = GUICtrlCreateLabel($lettre, 520, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf

            If $Boucle = 4 And $result <> 0 Then
                $Label7 = GUICtrlCreateLabel($lettre, 552, 224, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf

            If $Boucle = 5 And $result <> 0 Then
                $Label8 = GUICtrlCreateLabel($lettre, 424, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)            
            EndIf

            If $Boucle = 6 And $result <> 0 Then
                $Label9 = GUICtrlCreateLabel($lettre, 456, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf

            If $Boucle = 7 And $result <> 0 Then
                $Label10 = GUICtrlCreateLabel($lettre, 488, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf

            If $Boucle = 8 And $result <> 0 Then
                $Label11 = GUICtrlCreateLabel($lettre, 520, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)
             

            EndIf

            If $Boucle = 9 And $result <> 0 Then
                $Label12 = GUICtrlCreateLabel($lettre, 552, 256, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)                       
            EndIf

            If $Boucle = 10 And $result <> 0 Then
                $Label13 = GUICtrlCreateLabel($lettre, 424, 288, 20, 20)
                GUICtrlSetColor(-1, 0x0000FF)
            EndIf
            
            $Boucle = $Boucle + 1
            
            ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            If $dessin = 1 Then
                $Graphic1 = GUICtrlCreateGraphic(8, 176, 393, 257)
                GUICtrlSetBkColor(-1, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 30, 230)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 150, 230)
            EndIf

            If $dessin = 2 Then
                $Graphic1 = GUICtrlCreateGraphic(8, 176, 393, 257)
                GUICtrlSetBkColor(-1, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 30, 230)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 150, 230)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 90, 230)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 90, 30)
            EndIf

            If $dessin = 3 Then
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 130, 30)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 90, 60)
            EndIf

            If $dessin = 4 Then
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 90, 30)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 30)
            EndIf

            If $dessin = 5 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 30)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 50)
            EndIf

            If $dessin = 6 Then
                GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, 277.5, 50, 45, 50)
            EndIf

            If $dessin = 7 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 100)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 160)
            EndIf

            If $dessin = 8 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 100)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 260, 140)
            EndIf

            If $dessin = 9 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 100)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 340, 140)
            EndIf

            If $dessin = 10 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffffff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 160)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 260, 200)
            EndIf

            If $dessin = 11 Then
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xfff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 300, 160)
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)
                GUICtrlSetGraphic(-1, $GUI_GR_LINE, 340, 200)
            EndIf

            $Label14 = GUICtrlCreateLabel($inconnues, 408, 376, 220, 20)
            $rien = GUICtrlSetData($input, "")
            if ($result <> 0 And $Boucle = $taille) Then 
                MsgBox(0, "", "Bravo tu as trouvé le mot")
                $dif = floor(TimerDiff($begin))/100 
                MsgBox(0,"Temps pour trouver le mot","Tu as mis " & $dif & " secondes pour trouver le mot")
            Endif
            if ($result <> 0 And $Boucle = $taille) Then ProcessClose("AutoIt3.exe")
    EndSwitch
WEnd

;;;;;;;;;;;;;;;;;;; Fonction Func

Func Tirets($value)
    Local $ret = ""
    For $i = 1 To $value
        $ret = $ret & '.'
    Next
    Return $ret
EndFunc   ;==>Tirets

Func _edition()



local $Dico = GUICreate("Dico", 200, 200, 200, 200)
local $Input = GUICtrlCreateInput("",10,10,180,180)
GUISetState(@SW_SHOW)

$liste = FileOpen("Liste de mot.txt")
    $nbr_mots = _FileCountLines("dico1")
    
For $i = 1 To $nbr_mots Step 1
    $line = FileReadLine($liste, $i)
    GUICtrlSetData($liste, "" &$line)
Next


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
        GUISetState(@SW_HIDE, $Dico)
            ExitLoop
            
    EndSwitch
WEnd
EndFunc

Func TimeSet()
    $hour = @HOUR
    $minute = @MIN
    $sec = @SEC
    If $hour = 0 Then
        $hour = 12
    ElseIf $hour = 12 Then
        $light = " PM"
    ElseIf $hour > 12 Then

    EndIf
    $time = $hour & ":" & $minute & ":" & $sec & $light
    Return $time
EndFunc ;==>TimeSet
 

Depuis mon premier message :
- j'ai modifier l'input bloqué a 1 lettre
- ajouter l'heure (pour le fun)
- ajouter le lien vers le dico, mais les mots ne s'affiche tjr pas
- ajouter un chrono pour calculer le temps qu)a fait le joueur a trouver le mot ( j'ai je n'arrive toujours pas afficher le chrono sur la GUi )
- J'ai toujours pas trouver comment faire pour que je ne soit pas obliger de minimizer; maximizer la GUI pour que le dessin s'affiche
-Toujours pas trouver comment reglé le coup de la saisi de la meme lettre plusieurs fois.

[legend]

regarde les fonctions _Timer . . .

Code : Tout sélectionner

$init = _Timer_Init ()
sleep (1000)
msgbox (0, "", _Timer_Diff ($init)) ; affichera une valeur proche de 1000ms (le temps passé dans le sleep entre le timerinit et le timerdiff)
 

donc _Timer_Init quand il fait le premier submit et _Timer_Diff quand il finit.

Si tu te perd dans ton propre script!!! comment veut tu qu'on s'y perd pas!
Personne ne voudra passer des heures a lire un code non commenté (ce sera comme s'il recode lui même)
je pense que mon exemple marche (juste testé sur la lettre E).
je te conseille de faire plusieurs fonctions avec un nom explicatif.
puis tu met une petite boucle qui ne dépasse pas 30lignes (et non pas 350)
si tu veut qu'on t'aide cherche toi même d'ou vient le problème.

[bromy]

Ça je l'est déjà fait, je voulais l'afficher sur la gui maintenant, mais j'ai pas trouver x)
Je mis perd pas dans mon code, mais dans toute vos solutions ^^

[bromy]

Re,
J'ai un peu avancer mon script, me reste juste le probleme que ma GUI ne s'actualise pas a chaque erreur, et ducoup il faut diminuer/mazimiser la page pour que le trait s'affiche, comment puis je reglé ca ?
merci
Bromy