AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 le Jeu du MasterMind

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: le Jeu du MasterMind   2006-12-08, 12:17

Bon ben je vois que tout le monde s'endort par ici alors je viens poster mon petit jeu peut être que ça vous réveillera un peu...!
Veuillez m'excuser mais le code est assez long est sera donc publier en plusieurs parties car le forum est limité dans sn nombre de ligne lors des envois de messages. En même temps pour un jeu de qualité pareil c'est normal ! lol

Les includes à copier en début de script sont les suivants :
#include <GUIconstants.au3>
#include <Date.au3>
#NoTrayIcon

Maintenant place au code en espérant que tout se copiera bien........

[code]
Opt("GUIOnEventMode", 1)
GUICreate("_ . - ° - . _ . - > M a s t e r M i n d < - . _ . - ° - . _",370,625,-1,-1,$WS_SYSMENU)
$fichier = GUICtrlCreateMenu("Fichier")
$fichierRecommencer = GUICtrlCreateMenuitem("Nouvelle partie (Shift+Alt+N)",$fichier)
GUICtrlSetOnEvent($fichierRecommencer,"recommencer")
$fichierDebuter = GUICtrlCreateMenuitem("Débuter la partie (Shift+Alt+D)",$fichier)
GUICtrlSetOnEvent($fichierDebuter,"debuter")
$fichierQuitter = GUICtrlCreateMenuitem("Quitter",$fichier)
GUICtrlSetOnEvent($fichierQuitter,"quitter")
$options = GUICtrlCreateMenu("Options")
$optionsChangerNiveau = GUICtrlCreateMenuitem("Changer de niveau",$options)
GUICtrlSetOnEvent($optionsChangerNiveau,"changerNiveau")
$optionsCompteARebours = GUICtrlCreateMenuitem("Mode compte-à-rebours (Shift+Alt+C)",$options)
GUICtrlSetOnEvent($optionsCompteARebours,"compteARebours")
;ligne 6
$lbl61 = GUICtrlCreateLabel("",30,10,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl61,"appeler61")
$lbl62 = GUICtrlCreateLabel("",80,10,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl62,"appeler62")
$lbl63 = GUICtrlCreateLabel("",130,10,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl63,"appeler63")
$lbl64 = GUICtrlCreateLabel("",180,10,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl64,"appeler64")
$lbl65 = GUICtrlCreateLabel("",230,10,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl65,"appeler65")
$verif61 = GUICtrlCreateLabel("",305,20,10,10,$SS_SUNKEN)
$verif62 = GUICtrlCreateLabel("",325,20,10,10,$SS_SUNKEN)
$verif63 = GUICtrlCreateLabel("",315,30,10,10,$SS_SUNKEN)
$verif64 = GUICtrlCreateLabel("",305,40,10,10,$SS_SUNKEN)
$verif65 = GUICtrlCreateLabel("",325,40,10,10,$SS_SUNKEN)
;ligne 5
$lbl51 = GUICtrlCreateLabel("",30,70,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl51,"appeler51")
$lbl52 = GUICtrlCreateLabel("",80,70,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl52,"appeler52")
$lbl53 = GUICtrlCreateLabel("",130,70,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl53,"appeler53")
$lbl54 = GUICtrlCreateLabel("",180,70,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl54,"appeler54")
$lbl55 = GUICtrlCreateLabel("",230,70,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl55,"appeler55")
$verif51 = GUICtrlCreateLabel("",305,80,10,10,$SS_SUNKEN)
$verif52 = GUICtrlCreateLabel("",325,80,10,10,$SS_SUNKEN)
$verif53 = GUICtrlCreateLabel("",315,90,10,10,$SS_SUNKEN)
$verif54 = GUICtrlCreateLabel("",305,100,10,10,$SS_SUNKEN)
$verif55 = GUICtrlCreateLabel("",325,100,10,10,$SS_SUNKEN)
;ligne 4
$lbl41 = GUICtrlCreateLabel("",30,130,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl41,"appeler41")
$lbl42 = GUICtrlCreateLabel("",80,130,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl42,"appeler42")
$lbl43 = GUICtrlCreateLabel("",130,130,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl43,"appeler43")
$lbl44 = GUICtrlCreateLabel("",180,130,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl44,"appeler44")
$lbl45 = GUICtrlCreateLabel("",230,130,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl45,"appeler45")
$verif41 = GUICtrlCreateLabel("",305,140,10,10,$SS_SUNKEN)
$verif42 = GUICtrlCreateLabel("",325,140,10,10,$SS_SUNKEN)
$verif43 = GUICtrlCreateLabel("",315,150,10,10,$SS_SUNKEN)
$verif44 = GUICtrlCreateLabel("",305,160,10,10,$SS_SUNKEN)
$verif45 = GUICtrlCreateLabel("",325,160,10,10,$SS_SUNKEN)
;ligne 3
$lbl31 = GUICtrlCreateLabel("",30,190,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl31,"appeler31")
$lbl32 = GUICtrlCreateLabel("",80,190,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl32,"appeler32")
$lbl33 = GUICtrlCreateLabel("",130,190,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl33,"appeler33")
$lbl34 = GUICtrlCreateLabel("",180,190,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl34,"appeler34")
$lbl35 = GUICtrlCreateLabel("",230,190,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl35,"appeler35")
$verif31 = GUICtrlCreateLabel("",305,200,10,10,$SS_SUNKEN)
$verif32 = GUICtrlCreateLabel("",325,200,10,10,$SS_SUNKEN)
$verif33 = GUICtrlCreateLabel("",315,210,10,10,$SS_SUNKEN)
$verif34 = GUICtrlCreateLabel("",305,220,10,10,$SS_SUNKEN)
$verif35 = GUICtrlCreateLabel("",325,220,10,10,$SS_SUNKEN)
;ligne 2
$lbl21 = GUICtrlCreateLabel("",30,250,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl21,"appeler21")
$lbl22 = GUICtrlCreateLabel("",80,250,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl22,"appeler22")
$lbl23 = GUICtrlCreateLabel("",130,250,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl23,"appeler23")
$lbl24 = GUICtrlCreateLabel("",180,250,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl24,"appeler24")
$lbl25 = GUICtrlCreateLabel("",230,250,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl25,"appeler25")
$verif21 = GUICtrlCreateLabel("",305,260,10,10,$SS_SUNKEN)
$verif22 = GUICtrlCreateLabel("",325,260,10,10,$SS_SUNKEN)
$verif23 = GUICtrlCreateLabel("",315,270,10,10,$SS_SUNKEN)
$verif24 = GUICtrlCreateLabel("",305,280,10,10,$SS_SUNKEN)
$verif25 = GUICtrlCreateLabel("",325,280,10,10,$SS_SUNKEN)
;ligne 1
$lbl11 = GUICtrlCreateLabel("",30,310,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl11,"appeler11")
$lbl12 = GUICtrlCreateLabel("",80,310,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl12,"appeler12")
$lbl13 = GUICtrlCreateLabel("",130,310,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl13,"appeler13")
$lbl14 = GUICtrlCreateLabel("",180,310,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl14,"appeler14")
$lbl15 = GUICtrlCreateLabel("",230,310,50,50,$SS_SUNKEN)
GUICtrlSetOnEvent($lbl15,"appeler15")
$verif11 = GUICtrlCreateLabel("",305,320,10,10,$SS_SUNKEN)
$verif12 = GUICtrlCreateLabel("",325,320,10,10,$SS_SUNKEN)
$verif13 = GUICtrlCreateLabel("",315,330,10,10,$SS_SUNKEN)
$verif14 = GUICtrlCreateLabel("",305,340,10,10,$SS_SUNKEN)
$verif15 = GUICtrlCreateLabel("",325,340,10,10,$SS_SUNKEN)
;bouton de vérification
$cmdVerifier = GUICtrlCreateButton("V é r i f i e r",80,372,150,25)
GUICtrlSetOnEvent($cmdVerifier,"verifier")
;ligne à trouver
$lbl01 = GUICtrlCreateLabel("",30,410,50,50,$SS_SUNKEN)
$lbl02 = GUICtrlCreateLabel("",80,410,50,50,$SS_SUNKEN)
$lbl03 = GUICtrlCreateLabel("",130,410,50,50,$SS_SUNKEN)
$lbl04 = GUICtrlCreateLabel("",180,410,50,50,$SS_SUNKEN)
$lbl05 = GUICtrlCreateLabel("",230,410,50,50,$SS_SUNKEN)
;texte concernant le temps écoulé ou le temps restant
$lblTempsEcoule = GUICtrlCreateLabel("T e m p s é c o u l é : ",75,480)
$lblTemps = GUICtrlCreateLabel("00:00:00",195,480)
;contrôles divers
$cmdDebuter = GUICtrlCreateButton("D é b u t e r l a p a r t i e",10,510,165,25)
GUICtrlSetOnEvent($cmdDebuter,"debuter")
$cmdRecommencer = GUICtrlCreateButton("N o u v e l l e p a r t i e",185,510,165,25)
GUICtrlSetOnEvent($cmdRecommencer,"recommencer")
$cmdCompteARebours = GUICtrlCreateButton("M o d e c o m p t e - à - r e b o u r s",85,540,200,25)
GUICtrlSetOnEvent($cmdCompteARebours,"compteARebours")
;création des touches de raccourcis
HotKeySet("+!d","debuter")
HotKeySet("+!v","verifier")
HotKeySet("+!n","recommencer")
HotKeySet("+!c","compteARebours")
;déclaration des variables
$nb = -1
$control = 1
$ancienControl = ""
$ligneEnCours = 1
$incomplet = 0
$gagne = 0
$debuter = 0
$temps = 0
$compteARebours = 0
$choixNiveau = 1
$nouvellePosition = 0
Dim $tabControl[5]
Dim $tabChoixCouleur[5]
$tabChoixCouleur[0]= -1
$tabChoixCouleur[1]= -1
$tabChoixCouleur[2]= -1
$tabChoixCouleur[3]= -1
$tabChoixCouleur[4]= -1

Dim $tabCouleurAleatoire[5]
Dim $tabTemporaire[5]
Dim $tabCouleur[8]
$tabCouleur[0]= 0x000000
$tabCouleur[1]= 0x0000FF
$tabCouleur[2]= 0xFF0000
$tabCouleur[3]= 0x00FF00
$tabCouleur[4]= 0xFF00FF
$tabCouleur[5]= 0x00FFFF
$tabCouleur[6]= 0xFFFF00
$tabCouleur[7]= 0xFFFFFF
Call("Recommencer")
GUISetOnEvent($GUI_EVENT_CLOSE,"quitter")
GUISetState()
While 1

Sleep(1000)

;permet de définir l'endroit où doit s'afficher les messages de raccourcis
$tabFenetre = WinGetPos("_ . - ° - . _ . - > M a s t e r M i n d < - . _ . - ° - . _")
$tabCurseur = GUIGetCursorInfo()
$abscisse = $tabCurseur[0]
$ordonnee = $tabCurseur[1]
If $ordonnee>=510 And $ordonnee<=534 Then
If $abscisse>=10 And $abscisse<=174 Then
ToolTip("Débuter la partie : Shift+Alt+D",$abscisse+12+$tabFenetre[0],$ordonnee+50+$tabFenetre[1])
Else
If $abscisse>=185 And $abscisse<=349 Then
ToolTip("Nouvelle partie : Shift+Alt+N",$abscisse+12+$tabFenetre[0],$ordonnee+50+$tabFenetre[1])
Else
ToolTip("")
EndIf
EndIf
Else
ToolTip("")
EndIf
If $ordonnee>=372-$nouvellePosition And $ordonnee<=396-$nouvellePosition Then
If $abscisse>=80 And $abscisse<=229 Then
ToolTip("Vérifier : Shift+Alt+V",$abscisse+12+$tabFenetre[0],$ordonnee+50+$tabFenetre[1])
EndIf
EndIf
If $ordonnee>=540 And $ordonnee<=564 Then
If $abscisse>=85 And $abscisse<=284 Then
ToolTip("Mode compte-à-rebours : Shift+Alt+C",$abscisse+12+$tabFenetre[0],$ordonnee+50+$tabFenetre[1])
EndIf
EndIf

;met à jour le temps écoulé ou le temps restant
If $debuter = 1 And $gagne = 0 Then
If $compteARebours = 1 Then
$temps = $temps - 1
GUICtrlSetData($lblTemps,_DateTimeFormat(_DateAdd('s',$temps,_NowCalcDate()&" 00:01:30"),5))
If GUICtrlRead($lblTemps) <= "00:00:15" Then
GUICtrlSetColor($lblTemps,0xFF0000)
EndIf
If GUICtrlRead($lblTemps) = "00:01:30" Then
GUICtrlSetData($lblTemps,"00:00:00")
Call("fin")
MsgBox(64,"P E R D U ! ! !","Le temps est écoulé, vous avez perdu")
EndIf
Else
$temps = $temps + 1
GUICtrlSetData($lblTemps,_DateTimeFormat(_DateAdd('s',$temps,_NowCalcDate()&" 00:00:00"),5))
EndIf
EndIf
WEnd
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-08, 12:20

suite du code...

[code]
Func changerNiveau()
;affiche un message permettant de changer le niveau
$choix = InputBox("Choix du niveau","Saisissez :"[email]&@LF&@LF[/email]&" 1 => Facile"[email]&@LF[/email]&" 2 => Difficile"[email]&@LF[/email]&" 3 => Très Difficile",$choixNiveau)
;While StringIsInt($choixNiveau) <> 1
While $choix <> 1 And $choix <> 2 And $choix <> 3
$choix = InputBox("Choix du niveau","Saisissez :"[email]&@LF&@LF[/email]&" 1 => Facile"[email]&@LF[/email]&" 2 => Difficile"[email]&@LF[/email]&" 3 => Très Difficile",$choixNiveau)
WEnd
$choixNiveau = $choix
;affiche/cache les contrôles selon le niveau
If $choixNiveau >= 1 Then
GUICtrlSetState($lbl61,$GUI_SHOW)
GUICtrlSetState($lbl62,$GUI_SHOW)
GUICtrlSetState($lbl63,$GUI_SHOW)
GUICtrlSetState($lbl64,$GUI_SHOW)
GUICtrlSetState($lbl65,$GUI_SHOW)
GUICtrlSetState($verif61,$GUI_SHOW)
GUICtrlSetState($verif62,$GUI_SHOW)
GUICtrlSetState($verif63,$GUI_SHOW)
GUICtrlSetState($verif64,$GUI_SHOW)
GUICtrlSetState($verif65,$GUI_SHOW)
GUICtrlSetState($lbl51,$GUI_SHOW)
GUICtrlSetState($lbl52,$GUI_SHOW)
GUICtrlSetState($lbl53,$GUI_SHOW)
GUICtrlSetState($lbl54,$GUI_SHOW)
GUICtrlSetState($lbl55,$GUI_SHOW)
GUICtrlSetState($verif51,$GUI_SHOW)
GUICtrlSetState($verif52,$GUI_SHOW)
GUICtrlSetState($verif53,$GUI_SHOW)
GUICtrlSetState($verif54,$GUI_SHOW)
GUICtrlSetState($verif55,$GUI_SHOW)
If $choixNiveau >= 2 Then
GUICtrlSetState($lbl61,$GUI_HIDE)
GUICtrlSetState($lbl62,$GUI_HIDE)
GUICtrlSetState($lbl63,$GUI_HIDE)
GUICtrlSetState($lbl64,$GUI_HIDE)
GUICtrlSetState($lbl65,$GUI_HIDE)
GUICtrlSetState($verif61,$GUI_HIDE)
GUICtrlSetState($verif62,$GUI_HIDE)
GUICtrlSetState($verif63,$GUI_HIDE)
GUICtrlSetState($verif64,$GUI_HIDE)
GUICtrlSetState($verif65,$GUI_HIDE)
GUICtrlSetState($lbl51,$GUI_SHOW)
GUICtrlSetState($lbl52,$GUI_SHOW)
GUICtrlSetState($lbl53,$GUI_SHOW)
GUICtrlSetState($lbl54,$GUI_SHOW)
GUICtrlSetState($lbl55,$GUI_SHOW)
GUICtrlSetState($verif51,$GUI_SHOW)
GUICtrlSetState($verif52,$GUI_SHOW)
GUICtrlSetState($verif53,$GUI_SHOW)
GUICtrlSetState($verif54,$GUI_SHOW)
GUICtrlSetState($verif55,$GUI_SHOW)
If $choixNiveau > 2 Then
GUICtrlSetState($lbl51,$GUI_HIDE)
GUICtrlSetState($lbl52,$GUI_HIDE)
GUICtrlSetState($lbl53,$GUI_HIDE)
GUICtrlSetState($lbl54,$GUI_HIDE)
GUICtrlSetState($lbl55,$GUI_HIDE)
GUICtrlSetState($verif51,$GUI_HIDE)
GUICtrlSetState($verif52,$GUI_HIDE)
GUICtrlSetState($verif53,$GUI_HIDE)
GUICtrlSetState($verif54,$GUI_HIDE)
GUICtrlSetState($verif55,$GUI_HIDE)
EndIf
EndIf
EndIf
Call("recentrerControles")
Call("recommencer")
EndFunc
Func debuter()
;activation/désactivation des différents contrôles lors du début d'une partie
$debuter = 1
GUICtrlSetState($lbl11,$GUI_ENABLE)
GUICtrlSetState($lbl12,$GUI_ENABLE)
GUICtrlSetState($lbl13,$GUI_ENABLE)
GUICtrlSetState($lbl14,$GUI_ENABLE)
GUICtrlSetState($lbl15,$GUI_ENABLE)
GUICtrlSetState($cmdVerifier,$GUI_ENABLE)
GUICtrlSetState($cmdCompteARebours,$GUI_DISABLE)
GUICtrlSetState($optionsCompteARebours,$GUI_DISABLE)
GUICtrlSetState($cmdDebuter,$GUI_DISABLE)
GUICtrlSetState($fichierDebuter,$GUI_DISABLE)
GUICtrlSetState($optionsChangerNiveau,$GUI_DISABLE)
EndFunc
Func recommencer()
;remet les valeurs par défaut
$ancienControl = ""
$ligneEnCours = 1
$gagne = 0
$debuter = 0
$temps = 0
$compteARebours = 0
GUICtrlSetData($lblTemps,"00:00:00")
GUICtrlSetColor($lblTemps,0x000000)
;réinitialisation des cases de couleurs
GUICtrlSetBkColor($lbl01,0xE0DFE3)
GUICtrlSetBkColor($lbl02,0xE0DFE3)
GUICtrlSetBkColor($lbl03,0xE0DFE3)
GUICtrlSetBkColor($lbl04,0xE0DFE3)
GUICtrlSetBkColor($lbl05,0xE0DFE3)
GUICtrlSetBkColor($lbl11,0xE0DFE3)
GUICtrlSetBkColor($lbl12,0xE0DFE3)
GUICtrlSetBkColor($lbl13,0xE0DFE3)
GUICtrlSetBkColor($lbl14,0xE0DFE3)
GUICtrlSetBkColor($lbl15,0xE0DFE3)
GUICtrlSetBkColor($lbl21,0xE0DFE3)
GUICtrlSetBkColor($lbl22,0xE0DFE3)
GUICtrlSetBkColor($lbl23,0xE0DFE3)
GUICtrlSetBkColor($lbl24,0xE0DFE3)
GUICtrlSetBkColor($lbl25,0xE0DFE3)
GUICtrlSetBkColor($lbl31,0xE0DFE3)
GUICtrlSetBkColor($lbl32,0xE0DFE3)
GUICtrlSetBkColor($lbl33,0xE0DFE3)
GUICtrlSetBkColor($lbl34,0xE0DFE3)
GUICtrlSetBkColor($lbl35,0xE0DFE3)
GUICtrlSetBkColor($lbl41,0xE0DFE3)
GUICtrlSetBkColor($lbl42,0xE0DFE3)
GUICtrlSetBkColor($lbl43,0xE0DFE3)
GUICtrlSetBkColor($lbl44,0xE0DFE3)
GUICtrlSetBkColor($lbl45,0xE0DFE3)
GUICtrlSetBkColor($lbl51,0xE0DFE3)
GUICtrlSetBkColor($lbl52,0xE0DFE3)
GUICtrlSetBkColor($lbl53,0xE0DFE3)
GUICtrlSetBkColor($lbl54,0xE0DFE3)
GUICtrlSetBkColor($lbl55,0xE0DFE3)
GUICtrlSetBkColor($lbl61,0xE0DFE3)
GUICtrlSetBkColor($lbl62,0xE0DFE3)
GUICtrlSetBkColor($lbl63,0xE0DFE3)
GUICtrlSetBkColor($lbl64,0xE0DFE3)
GUICtrlSetBkColor($lbl65,0xE0DFE3)

;réinitialisation des cases de vérification
GUICtrlSetBkColor($verif11,0xE0DFE3)
GUICtrlSetBkColor($verif12,0xE0DFE3)
GUICtrlSetBkColor($verif13,0xE0DFE3)
GUICtrlSetBkColor($verif14,0xE0DFE3)
GUICtrlSetBkColor($verif15,0xE0DFE3)
GUICtrlSetBkColor($verif21,0xE0DFE3)
GUICtrlSetBkColor($verif22,0xE0DFE3)
GUICtrlSetBkColor($verif23,0xE0DFE3)
GUICtrlSetBkColor($verif24,0xE0DFE3)
GUICtrlSetBkColor($verif25,0xE0DFE3)
GUICtrlSetBkColor($verif31,0xE0DFE3)
GUICtrlSetBkColor($verif32,0xE0DFE3)
GUICtrlSetBkColor($verif33,0xE0DFE3)
GUICtrlSetBkColor($verif34,0xE0DFE3)
GUICtrlSetBkColor($verif35,0xE0DFE3)
GUICtrlSetBkColor($verif41,0xE0DFE3)
GUICtrlSetBkColor($verif42,0xE0DFE3)
GUICtrlSetBkColor($verif43,0xE0DFE3)
GUICtrlSetBkColor($verif44,0xE0DFE3)
GUICtrlSetBkColor($verif45,0xE0DFE3)
GUICtrlSetBkColor($verif51,0xE0DFE3)
GUICtrlSetBkColor($verif52,0xE0DFE3)
GUICtrlSetBkColor($verif53,0xE0DFE3)
GUICtrlSetBkColor($verif54,0xE0DFE3)
GUICtrlSetBkColor($verif55,0xE0DFE3)
GUICtrlSetBkColor($verif61,0xE0DFE3)
GUICtrlSetBkColor($verif62,0xE0DFE3)
GUICtrlSetBkColor($verif63,0xE0DFE3)
GUICtrlSetBkColor($verif64,0xE0DFE3)
GUICtrlSetBkColor($verif65,0xE0DFE3)

;activation/désactivation des cases de couleurs
GUICtrlSetState($lbl11,$GUI_DISABLE)
GUICtrlSetState($lbl12,$GUI_DISABLE)
GUICtrlSetState($lbl13,$GUI_DISABLE)
GUICtrlSetState($lbl14,$GUI_DISABLE)
GUICtrlSetState($lbl15,$GUI_DISABLE)
GUICtrlSetState($lbl21,$GUI_DISABLE)
GUICtrlSetState($lbl22,$GUI_DISABLE)
GUICtrlSetState($lbl23,$GUI_DISABLE)
GUICtrlSetState($lbl24,$GUI_DISABLE)
GUICtrlSetState($lbl25,$GUI_DISABLE)
GUICtrlSetState($lbl31,$GUI_DISABLE)
GUICtrlSetState($lbl32,$GUI_DISABLE)
GUICtrlSetState($lbl33,$GUI_DISABLE)
GUICtrlSetState($lbl34,$GUI_DISABLE)
GUICtrlSetState($lbl35,$GUI_DISABLE)
GUICtrlSetState($lbl41,$GUI_DISABLE)
GUICtrlSetState($lbl42,$GUI_DISABLE)
GUICtrlSetState($lbl43,$GUI_DISABLE)
GUICtrlSetState($lbl44,$GUI_DISABLE)
GUICtrlSetState($lbl45,$GUI_DISABLE)
GUICtrlSetState($lbl51,$GUI_DISABLE)
GUICtrlSetState($lbl52,$GUI_DISABLE)
GUICtrlSetState($lbl53,$GUI_DISABLE)
GUICtrlSetState($lbl54,$GUI_DISABLE)
GUICtrlSetState($lbl55,$GUI_DISABLE)
GUICtrlSetState($lbl61,$GUI_DISABLE)
GUICtrlSetState($lbl62,$GUI_DISABLE)
GUICtrlSetState($lbl63,$GUI_DISABLE)
GUICtrlSetState($lbl64,$GUI_DISABLE)
GUICtrlSetState($lbl65,$GUI_DISABLE)

;activation/désactivation des différentes commandes
GUICtrlSetState($cmdVerifier,$GUI_DISABLE)
GUICtrlSetState($cmdDebuter,$GUI_ENABLE)
GUICtrlSetState($fichierDebuter,$GUI_ENABLE)
GUICtrlSetState($cmdCompteARebours,$GUI_ENABLE)
GUICtrlSetState($optionsCompteARebours,$GUI_ENABLE)
GUICtrlSetState($optionsChangerNiveau,$GUI_ENABLE)

;choix des nouvelles couleurs de façon aléatoire
For $i = 0 to 4
$tabCouleurAleatoire[$i] = Random(0,7,1)
Next
EndFunc

[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-08, 12:21

suite du code...

[code]
Func verifier()
;vérifie si toute les cases de la ligne à vérifier ont une couleur
For $j = 0 to 4
If $tabChoixCouleur[$j] = -1 Then
$incomplet = 1
ExitLoop
EndIf
Next
;vérifie selon la ligne en cours si celle-ci correspond a la solution
If $ligneEnCours <= 7-$choixNiveau And $incomplet = 0 Then
Select
Case $ligneEnCours = 1
;passe à la ligne suivante
GUICtrlSetState($lbl11,$GUI_DISABLE)
GUICtrlSetState($lbl12,$GUI_DISABLE)
GUICtrlSetState($lbl13,$GUI_DISABLE)
GUICtrlSetState($lbl14,$GUI_DISABLE)
GUICtrlSetState($lbl15,$GUI_DISABLE)
GUICtrlSetState($lbl21,$GUI_ENABLE)
GUICtrlSetState($lbl22,$GUI_ENABLE)
GUICtrlSetState($lbl23,$GUI_ENABLE)
GUICtrlSetState($lbl24,$GUI_ENABLE)
GUICtrlSetState($lbl25,$GUI_ENABLE)
;vérifie la ligne
Call("tableauDeControl",$verif11,$verif12,$verif13,$verif14,$verif15)
Call("verification")
Case $ligneEnCours = 2
;passe à la ligne suivante
GUICtrlSetState($lbl21,$GUI_DISABLE)
GUICtrlSetState($lbl22,$GUI_DISABLE)
GUICtrlSetState($lbl23,$GUI_DISABLE)
GUICtrlSetState($lbl24,$GUI_DISABLE)
GUICtrlSetState($lbl25,$GUI_DISABLE)
GUICtrlSetState($lbl31,$GUI_ENABLE)
GUICtrlSetState($lbl32,$GUI_ENABLE)
GUICtrlSetState($lbl33,$GUI_ENABLE)
GUICtrlSetState($lbl34,$GUI_ENABLE)
GUICtrlSetState($lbl35,$GUI_ENABLE)
;vérifie la ligne
Call("tableauDeControl",$verif21,$verif22,$verif23,$verif24,$verif25)
Call("verification")
Case $ligneEnCours = 3
;passe à la ligne suivante
GUICtrlSetState($lbl31,$GUI_DISABLE)
GUICtrlSetState($lbl32,$GUI_DISABLE)
GUICtrlSetState($lbl33,$GUI_DISABLE)
GUICtrlSetState($lbl34,$GUI_DISABLE)
GUICtrlSetState($lbl35,$GUI_DISABLE)
GUICtrlSetState($lbl41,$GUI_ENABLE)
GUICtrlSetState($lbl42,$GUI_ENABLE)
GUICtrlSetState($lbl43,$GUI_ENABLE)
GUICtrlSetState($lbl44,$GUI_ENABLE)
GUICtrlSetState($lbl45,$GUI_ENABLE)
;vérifie la ligne
Call("tableauDeControl",$verif31,$verif32,$verif33,$verif34,$verif35)
Call("verification")
Case $ligneEnCours = 4
;passe à la ligne suivante
GUICtrlSetState($lbl41,$GUI_DISABLE)
GUICtrlSetState($lbl42,$GUI_DISABLE)
GUICtrlSetState($lbl43,$GUI_DISABLE)
GUICtrlSetState($lbl44,$GUI_DISABLE)
GUICtrlSetState($lbl45,$GUI_DISABLE)
GUICtrlSetState($lbl51,$GUI_ENABLE)
GUICtrlSetState($lbl52,$GUI_ENABLE)
GUICtrlSetState($lbl53,$GUI_ENABLE)
GUICtrlSetState($lbl54,$GUI_ENABLE)
GUICtrlSetState($lbl55,$GUI_ENABLE)
;vérifie la ligne
Call("tableauDeControl",$verif41,$verif42,$verif43,$verif44,$verif45)
Call("verification")
;affiche un message si perdu en mode très difficile
If $choixNiveau = 3 Then
GUICtrlSetState($cmdVerifier,$GUI_DISABLE)
If $gagne = 0 Then
GUICtrlSetBkColor($lbl01,$tabCouleur[$tabCouleurAleatoire[0]])
GUICtrlSetBkColor($lbl02,$tabCouleur[$tabCouleurAleatoire[1]])
GUICtrlSetBkColor($lbl03,$tabCouleur[$tabCouleurAleatoire[2]])
GUICtrlSetBkColor($lbl04,$tabCouleur[$tabCouleurAleatoire[3]])
GUICtrlSetBkColor($lbl05,$tabCouleur[$tabCouleurAleatoire[4]])
$gagne = 1
MsgBox(64,"P E R D U ! ! !","Aucune de vos solutions n'a été concluante, vous avez perdu")
EndIf
EndIf
Case $ligneEnCours = 5
;passe à la ligne suivante
GUICtrlSetState($lbl51,$GUI_DISABLE)
GUICtrlSetState($lbl52,$GUI_DISABLE)
GUICtrlSetState($lbl53,$GUI_DISABLE)
GUICtrlSetState($lbl54,$GUI_DISABLE)
GUICtrlSetState($lbl55,$GUI_DISABLE)
GUICtrlSetState($lbl61,$GUI_ENABLE)
GUICtrlSetState($lbl62,$GUI_ENABLE)
GUICtrlSetState($lbl63,$GUI_ENABLE)
GUICtrlSetState($lbl64,$GUI_ENABLE)
GUICtrlSetState($lbl65,$GUI_ENABLE)
;vérifie la ligne
Call("tableauDeControl",$verif51,$verif52,$verif53,$verif54,$verif55)
Call("verification")
;affiche un message si perdu en mode difficile
If $choixNiveau = 2 Then
GUICtrlSetState($cmdVerifier,$GUI_DISABLE)
If $gagne = 0 Then
GUICtrlSetBkColor($lbl01,$tabCouleur[$tabCouleurAleatoire[0]])
GUICtrlSetBkColor($lbl02,$tabCouleur[$tabCouleurAleatoire[1]])
GUICtrlSetBkColor($lbl03,$tabCouleur[$tabCouleurAleatoire[2]])
GUICtrlSetBkColor($lbl04,$tabCouleur[$tabCouleurAleatoire[3]])
GUICtrlSetBkColor($lbl05,$tabCouleur[$tabCouleurAleatoire[4]])
$gagne = 1
MsgBox(64,"P E R D U ! ! !","Aucune de vos solutions n'a été concluante, vous avez perdu")
EndIf
EndIf
Case $ligneEnCours = 6
GUICtrlSetState($cmdVerifier,$GUI_DISABLE)
;bloque la dernière ligne
GUICtrlSetState($lbl61,$GUI_DISABLE)
GUICtrlSetState($lbl62,$GUI_DISABLE)
GUICtrlSetState($lbl63,$GUI_DISABLE)
GUICtrlSetState($lbl64,$GUI_DISABLE)
GUICtrlSetState($lbl65,$GUI_DISABLE)
;vérifie la ligne
Call("tableauDeControl",$verif61,$verif62,$verif63,$verif64,$verif65)
Call("verification")
;affiche un message si perdu en mode facile
If $gagne = 0 Then
GUICtrlSetBkColor($lbl01,$tabCouleur[$tabCouleurAleatoire[0]])
GUICtrlSetBkColor($lbl02,$tabCouleur[$tabCouleurAleatoire[1]])
GUICtrlSetBkColor($lbl03,$tabCouleur[$tabCouleurAleatoire[2]])
GUICtrlSetBkColor($lbl04,$tabCouleur[$tabCouleurAleatoire[3]])
GUICtrlSetBkColor($lbl05,$tabCouleur[$tabCouleurAleatoire[4]])
$gagne = 1
MsgBox(64,"P E R D U ! ! !","Aucune de vos solutions n'a été concluante, vous avez perdu")
EndIf
EndSelect
$ligneEnCours = $ligneEnCours + 1
Else
;affiche un message si des case de la ligne en cours n'ont pas de couleur
MsgBox(64,"Ligne incomplète","Pour pouvoir lancer la vérification, vous devez avoir choisi une couleur pour chaque case")
$incomplet = 0
EndIf
EndFunc
Func tableauDeControl($controlVerif1,$controlVerif2,$controlVerif3,$controlVerif4,$controlVerif5)
;tableau recevant toutes les cases d'une ligne en cours
$tabControl[0] = $controlVerif1
$tabControl[1] = $controlVerif2
$tabControl[2] = $controlVerif3
$tabControl[3] = $controlVerif4
$tabControl[4] = $controlVerif5
EndFunc
Func verification()
$nbBienPlace = 0
$nbExiste = 0
For $x = 0 to 4
$tabTemporaire[$x] = $tabCouleurAleatoire[$x]
Next

For $x = 0 to 4
If $tabChoixCouleur[$x] = $tabTemporaire[$x] Then
$nbBienPlace = $nbBienPlace + 1
$tabTemporaire[$x] = -1
$tabChoixCouleur[$x] = -1
EndIf
Next

For $a = 0 to $nbBienPlace-1
GUICtrlSetBkColor($tabControl[$a],0x000000)
Next

For $y = 0 to 4
If $tabChoixCouleur[$y] <> -1 Then
For $z = 0 to 4
If $tabTemporaire[$z] <> -1 And $tabChoixCouleur[$y] = $tabTemporaire[$z] Then
$nbExiste = $nbExiste + 1
$tabTemporaire[$z] = -1
ExitLoop
EndIf
Next
EndIf
Next

For $j = 0 to 4
$tabChoixCouleur[$j] = -1
Next
For $b = $nbBienPlace to $nbBienPlace+$nbExiste-1
GUICtrlSetBkColor($tabControl[$b],0xFF0000)
Next
If $nbBienPlace = 5 Then
Call("fin")
$heure = StringLeft(GUICtrlRead($lblTemps),2)
$minute = StringMid(GUICtrlRead($lblTemps),4,2)
$seconde = StringRight(GUICtrlRead($lblTemps),2)
If $heure <> "00" Then
MsgBox(64,"G A G N E ! ! !","Vous avez gagné en "&$heure&" heure(s) "&$minute&" minute(s) "&$seconde&" secondes")
Else
If $minute <> "00" Then
MsgBox(64,"G A G N E ! ! !","Vous avez gagné en "&$minute&" minute(s) "&$seconde&" secondes")
Else
MsgBox(64,"G A G N E ! ! !","Vous avez gagné en "&$seconde&" secondes")
EndIf
EndIf
EndIf
EndFunc

[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-08, 12:21

suite du code...

[code]

Func fin()
;bloque le bouton vérifier
GUICtrlSetState($cmdVerifier,$GUI_DISABLE)
;affiche la bonne solution
GUICtrlSetBkColor($lbl01,$tabCouleur[$tabCouleurAleatoire[0]])
GUICtrlSetBkColor($lbl02,$tabCouleur[$tabCouleurAleatoire[1]])
GUICtrlSetBkColor($lbl03,$tabCouleur[$tabCouleurAleatoire[2]])
GUICtrlSetBkColor($lbl04,$tabCouleur[$tabCouleurAleatoire[3]])
GUICtrlSetBkColor($lbl05,$tabCouleur[$tabCouleurAleatoire[4]])
;si le compte à rebours est lancé alors on verrouille les contrôle de la ligne en cours
If $compteARebours = 1 Then
$ligneEnCours = $ligneEnCours - 1
EndIf
;si le compte à rebours n'est pas lancé alors on verrouille les contrôle de la ligne suivante
Select
Case $ligneEnCours = 0
GUICtrlSetState($lbl11,$GUI_DISABLE)
GUICtrlSetState($lbl12,$GUI_DISABLE)
GUICtrlSetState($lbl13,$GUI_DISABLE)
GUICtrlSetState($lbl14,$GUI_DISABLE)
GUICtrlSetState($lbl15,$GUI_DISABLE)
Case $ligneEnCours = 1
GUICtrlSetState($lbl21,$GUI_DISABLE)
GUICtrlSetState($lbl22,$GUI_DISABLE)
GUICtrlSetState($lbl23,$GUI_DISABLE)
GUICtrlSetState($lbl24,$GUI_DISABLE)
GUICtrlSetState($lbl25,$GUI_DISABLE)
Case $ligneEnCours = 2
GUICtrlSetState($lbl31,$GUI_DISABLE)
GUICtrlSetState($lbl32,$GUI_DISABLE)
GUICtrlSetState($lbl33,$GUI_DISABLE)
GUICtrlSetState($lbl34,$GUI_DISABLE)
GUICtrlSetState($lbl35,$GUI_DISABLE)
Case $ligneEnCours = 3
GUICtrlSetState($lbl41,$GUI_DISABLE)
GUICtrlSetState($lbl42,$GUI_DISABLE)
GUICtrlSetState($lbl43,$GUI_DISABLE)
GUICtrlSetState($lbl44,$GUI_DISABLE)
GUICtrlSetState($lbl45,$GUI_DISABLE)
Case $ligneEnCours = 4
GUICtrlSetState($lbl51,$GUI_DISABLE)
GUICtrlSetState($lbl52,$GUI_DISABLE)
GUICtrlSetState($lbl53,$GUI_DISABLE)
GUICtrlSetState($lbl54,$GUI_DISABLE)
GUICtrlSetState($lbl55,$GUI_DISABLE)
Case $ligneEnCours = 5
GUICtrlSetState($lbl61,$GUI_DISABLE)
GUICtrlSetState($lbl62,$GUI_DISABLE)
GUICtrlSetState($lbl63,$GUI_DISABLE)
GUICtrlSetState($lbl64,$GUI_DISABLE)
GUICtrlSetState($lbl65,$GUI_DISABLE)
EndSelect
$gagne = 1
EndFunc
;toutes les fonctions permettant de changer de couleur sur le clique d'une case
Func appeler11()
Call("change",$lbl11)
EndFunc
Func appeler12()
Call("change",$lbl12)
EndFunc
Func appeler13()
Call("change",$lbl13)
EndFunc
Func appeler14()
Call("change",$lbl14)
EndFunc
Func appeler15()
Call("change",$lbl15)
EndFunc
Func appeler21()
Call("change",$lbl21)
EndFunc
Func appeler22()
Call("change",$lbl22)
EndFunc
Func appeler23()
Call("change",$lbl23)
EndFunc
Func appeler24()
Call("change",$lbl24)
EndFunc
Func appeler25()
Call("change",$lbl25)
EndFunc
Func appeler31()
Call("change",$lbl31)
EndFunc
Func appeler32()
Call("change",$lbl32)
EndFunc
Func appeler33()
Call("change",$lbl33)
EndFunc
Func appeler34()
Call("change",$lbl34)
EndFunc
Func appeler35()
Call("change",$lbl35)
EndFunc
Func appeler41()
Call("change",$lbl41)
EndFunc
Func appeler42()
Call("change",$lbl42)
EndFunc
Func appeler43()
Call("change",$lbl43)
EndFunc
Func appeler44()
Call("change",$lbl44)
EndFunc
Func appeler45()
Call("change",$lbl45)
EndFunc
Func appeler51()
Call("change",$lbl51)
EndFunc
Func appeler52()
Call("change",$lbl52)
EndFunc
Func appeler53()
Call("change",$lbl53)
EndFunc
Func appeler54()
Call("change",$lbl54)
EndFunc
Func appeler55()
Call("change",$lbl55)
EndFunc
Func appeler61()
Call("change",$lbl61)
EndFunc
Func appeler62()
Call("change",$lbl62)
EndFunc
Func appeler63()
Call("change",$lbl63)
EndFunc
Func appeler64()
Call("change",$lbl64)
EndFunc
Func appeler65()
Call("change",$lbl65)
EndFunc

[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-08, 12:22

suite et fin du code...

[code]

Func change($control)
;si on clique sur un autre contrôle on repart soit de la couleur déjà choisie
;soit de la couleur de départ si aucune couleur ne lui avait été affectée auparavant
If $control <> $ancienControl Then
$ancienControl = $control
If $tabChoixCouleur[StringRight($control,1)] <> -1 Then
$nb = $tabChoixCouleur[StringRight($control,1)] + 1
Else
$nb = 0
EndIf
;on enregistre dans un tableau la couleur choisie
GUICtrlSetBkColor($control,$tabCouleur[$nb])
$tabChoixCouleur[StringRight($control,1)] = $nb
Else
;sinon si on clique sur le même contrôle alors on affiche les couleurs suivantes
If $nb = 7 Then
$nb = 0
Else
$nb = $nb + 1
EndIf
;on enregistre dans un tableau la couleur choisie
GUICtrlSetBkColor($control,$tabCouleur[$nb])
$tabChoixCouleur[StringRight($control,1)] = $nb
EndIf
EndFunc
Func compteARebours()
;on indique comme quoi le compte-à-rebours à été lancé
$compteARebours = 1
GUICtrlSetState($cmdCompteARebours,$GUI_DISABLE)
GUICtrlSetState($optionsCompteARebours,$GUI_DISABLE)
EndFunc
Func recentrerControles()
;définit le nombre de pixel
Select
Case $choixNiveau = 1
$nouvellePosition = 0
Case $choixNiveau = 2
$nouvellePosition = 30
Case $choixNiveau = 3
$nouvellePosition = 60
EndSelect
;modification de la position des contrôles
;ligne 6
GUICtrlSetPos($lbl61,30,10-$nouvellePosition)
GUICtrlSetPos($lbl62,80,10-$nouvellePosition)
GUICtrlSetPos($lbl63,130,10-$nouvellePosition)
GUICtrlSetPos($lbl64,180,10-$nouvellePosition)
GUICtrlSetPos($lbl65,230,10-$nouvellePosition)
GUICtrlSetPos($verif61,305,20-$nouvellePosition)
GUICtrlSetPos($verif62,325,20-$nouvellePosition)
GUICtrlSetPos($verif63,315,30-$nouvellePosition)
GUICtrlSetPos($verif64,305,40-$nouvellePosition)
GUICtrlSetPos($verif65,325,40-$nouvellePosition)
;ligne 5
GUICtrlSetPos($lbl51,30,70-$nouvellePosition)
GUICtrlSetPos($lbl52,80,70-$nouvellePosition)
GUICtrlSetPos($lbl53,130,70-$nouvellePosition)
GUICtrlSetPos($lbl54,180,70-$nouvellePosition)
GUICtrlSetPos($lbl55,230,70-$nouvellePosition)
GUICtrlSetPos($verif51,305,80-$nouvellePosition)
GUICtrlSetPos($verif52,325,80-$nouvellePosition)
GUICtrlSetPos($verif53,315,90-$nouvellePosition)
GUICtrlSetPos($verif54,305,100-$nouvellePosition)
GUICtrlSetPos($verif55,325,100-$nouvellePosition)
;ligne 4
GUICtrlSetPos($lbl41,30,130-$nouvellePosition)
GUICtrlSetPos($lbl42,80,130-$nouvellePosition)
GUICtrlSetPos($lbl43,130,130-$nouvellePosition)
GUICtrlSetPos($lbl44,180,130-$nouvellePosition)
GUICtrlSetPos($lbl45,230,130-$nouvellePosition)
GUICtrlSetPos($verif41,305,140-$nouvellePosition)
GUICtrlSetPos($verif42,325,140-$nouvellePosition)
GUICtrlSetPos($verif43,315,150-$nouvellePosition)
GUICtrlSetPos($verif44,305,160-$nouvellePosition)
GUICtrlSetPos($verif45,325,160-$nouvellePosition)
;ligne 3
GUICtrlSetPos($lbl31,30,190-$nouvellePosition)
GUICtrlSetPos($lbl32,80,190-$nouvellePosition)
GUICtrlSetPos($lbl33,130,190-$nouvellePosition)
GUICtrlSetPos($lbl34,180,190-$nouvellePosition)
GUICtrlSetPos($lbl35,230,190-$nouvellePosition)
GUICtrlSetPos($verif31,305,200-$nouvellePosition)
GUICtrlSetPos($verif32,325,200-$nouvellePosition)
GUICtrlSetPos($verif33,315,210-$nouvellePosition)
GUICtrlSetPos($verif34,305,220-$nouvellePosition)
GUICtrlSetPos($verif35,325,220-$nouvellePosition)
;ligne 2
GUICtrlSetPos($lbl21,30,250-$nouvellePosition)
GUICtrlSetPos($lbl22,80,250-$nouvellePosition)
GUICtrlSetPos($lbl23,130,250-$nouvellePosition)
GUICtrlSetPos($lbl24,180,250-$nouvellePosition)
GUICtrlSetPos($lbl25,230,250-$nouvellePosition)
GUICtrlSetPos($verif21,305,260-$nouvellePosition)
GUICtrlSetPos($verif22,325,260-$nouvellePosition)
GUICtrlSetPos($verif23,315,270-$nouvellePosition)
GUICtrlSetPos($verif24,305,280-$nouvellePosition)
GUICtrlSetPos($verif25,325,280-$nouvellePosition)
;ligne 1
GUICtrlSetPos($lbl11,30,310-$nouvellePosition)
GUICtrlSetPos($lbl12,80,310-$nouvellePosition)
GUICtrlSetPos($lbl13,130,310-$nouvellePosition)
GUICtrlSetPos($lbl14,180,310-$nouvellePosition)
GUICtrlSetPos($lbl15,230,310-$nouvellePosition)
GUICtrlSetPos($verif11,305,320-$nouvellePosition)
GUICtrlSetPos($verif12,325,320-$nouvellePosition)
GUICtrlSetPos($verif13,315,330-$nouvellePosition)
GUICtrlSetPos($verif14,305,340-$nouvellePosition)
GUICtrlSetPos($verif15,325,340-$nouvellePosition)
;bouton de vérification
GUICtrlSetPos($cmdVerifier,80,372-$nouvellePosition)
;ligne à trouver
GUICtrlSetPos($lbl01,30,410-$nouvellePosition)
GUICtrlSetPos($lbl02,80,410-$nouvellePosition)
GUICtrlSetPos($lbl03,130,410-$nouvellePosition)
GUICtrlSetPos($lbl04,180,410-$nouvellePosition)
GUICtrlSetPos($lbl05,230,410-$nouvellePosition)
;texte concernant le temps écoulé ou le temps restant
GUICtrlSetPos($lblTempsEcoule,75,480-$nouvellePosition)
GUICtrlSetPos($lblTemps,195,480-$nouvellePosition)
EndFunc
Func quitter()
;permet de quitter l'application
Exit
EndFunc
[/code]

[b]Bon jeu à tousssssssssssss ![/b]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
TerminAdminAtor
Admin
Admin


Nombre de messages : 234
Date d'inscription : 22/10/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-08, 20:07

J'ai quelques erreurs
[code]C:\Documents and Settings\**\Bureau\mastermind.au3(238,51) : ERROR: syntax error
$choix = InputBox("Choix du niveau","Saisissez :"[
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\**\Bureau\mastermind.au3(238,66) : ERROR: syntax error
$choix = InputBox("Choix du niveau","Saisissez :"[email]&@LF&@LF[
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\**\Bureau\mastermind.au3(241,52) : ERROR: syntax error
$choix = InputBox("Choix du niveau","Saisissez :"[
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\**\Bureau\mastermind.au3(241,67) : ERROR: syntax error
$choix = InputBox("Choix du niveau","Saisissez :"[email]&@LF&@LF[
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://autoit-fr.realbb.net
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-11, 10:53

ah oui c'est en mettant dans les balises de code sur autoit qu'il a interprété mon code d'une autre facon.
pour corriger les erreurs que tu as il faut que tu remplace les 2-3 lignes qui se trouvent avant If $choixNiveau >= 1 Then de la fonction changerNiveau() par celles-ci :
;affiche un message permettant de changer le niveau
$choix = InputBox("Choix du niveau","Saisissez :"[email]&@LF&@LF[/email]&" 1 => Facile"[email]&@LF[/email]&" 2 => Difficile"[email]&@LF[/email]&" 3 => Très Difficile",$choixNiveau)
;While StringIsInt($choixNiveau) <> 1
While $choix <> 1 And $choix <> 2 And $choix <> 3
$choix = InputBox("Choix du niveau","Saisissez :"[email]&@LF&@LF[/email]&" 1 => Facile"[email]&@LF[/email]&" 2 => Difficile"[email]&@LF[/email]&" 3 => Très Difficile",$choixNiveau)
WEnd
$choixNiveau = $choix
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-11, 11:45

ouai bon ben ça ne veut pas se copier comme il faut qu'on y mette entre les balises codes ou non. Normalement il suffit de supprimer [email] et [/email] dans les lignes et ça devrait passer.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
KITKAT
Membre


Nombre de messages : 36
Age : 28
Date d'inscription : 23/12/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-23, 01:21

j'ai copié le script tel quel chez moi et j'ai l'erreur pour les nivaux,
bon si on enleve [email][/email]le jeu se lance mais je peux pas choisir de couleur(je pense qu'il ya des boutons pour les couleurs)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
TerminAdminAtor
Admin
Admin


Nombre de messages : 234
Date d'inscription : 22/10/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-23, 02:11

Voilà je met le script qui marche sur le premier site qui m'est passé sous la main:
[url=http://www.sharebigfile.com/file/42888/Mastermind-par-Hellboy-21.au3.html]http://www.sharebigfile.com/file/42888/Mastermind-par-Hellboy-21.au3.html[/url]

Sinon ça marche très bien,il faut pour commencer le jeu cliquer sur la première case à droite sur la deuxième ligne en partant du bas...

Sinon je viens de voire un erreur, quand le jeu se met en arrière plan, par exemple là à l'instant ou j'ai activé cette fenêtre IE pour écrire cela ça met:
[quote]Line 179
$abscisse=$tabCurseur[0]
$abscisse=$tabCurseur ^ ERROR

Error:Subscript used with non-Array variable[/quote]

Ah que je l'aime cette erreur:rabbit: ,lol elle m'est que trop familière.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://autoit-fr.realbb.net
KITKAT
Membre


Nombre de messages : 36
Age : 28
Date d'inscription : 23/12/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-23, 03:15

le but du mastermind etant de trouver les couleurs,comment on fait les propositions???:oops:
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
TerminAdminAtor
Admin
Admin


Nombre de messages : 234
Date d'inscription : 22/10/2006

MessageSujet: Re: le Jeu du MasterMind   2006-12-23, 04:05

Okay il est tard et c'est mon dernier jours de cours demain,mais bon juste deux heures d'svt... lol

Alors je veux bien t'expliquer avec une petite image:

[img]http://img274.imageshack.us/img274/851/mmindvd4.jpg[/img]


Voilà ( dsl pour la pub à droite mdr ) , bon 1) tu lance une partie
2)débuter une partie
3)puis tu clique en premier sur la case qui est en vert sur l'image,à chaque couleur elle change de couleur,tu choisis la couleur qu tu veux.
4)Puis tu passe à la case à côté etc...
5)Tu clique sur vérifier,et à droite dans les 5petites cases ça te met lesquelles sont justes

Exemple ( bon rigolez pas mais si tard j'arrive plus à réfléchir :p) :
[img]http://servimg.com/u/10/02/34/47/mmind10.jpg[/img]

J'ai pas encore bien compris les 5 cases (celles qui indiquent le résultat)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://autoit-fr.realbb.net
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: le Jeu du MasterMind   2007-01-07, 22:10

salut tout le monde, désolé ça fait un bail que je ne suis pas revenu.
Les 5 cases sur la droite de chaque ligne indique par une couleur noire qu'une couleur est a la bonne place et par une couleur rouge qu'une couleur est bien présente dans la solution mais qu'elle est mal placée. Attention pour ne pas que ce soit trop simple les couleurs noire et rouge ne sont pas placée dans le bon ordre. Si vous avez d'autres questions n'hésitez pas.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: le Jeu du MasterMind   2007-01-07, 22:23

Si vous désirez le code qui marche vraiment pour faciliter les différents test du jeu laisser vos adresses j'essairai de vous envoyer le code et l'.exe
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: le Jeu du MasterMind   Aujourd'hui à 22:43

Revenir en haut Aller en bas
 
le Jeu du MasterMind
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [résolu]Problème de code pour le jeu MasterMind (AS2)

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Scripts-
Sauter vers: