Conditions en cascade

Question

Bonjour,

je tente de r&#233;aliser un petit jeu, ou il faut reproduire une suite (de couleur 
ou de formes ou de sons ...).

Grace aux adh&#233;rents de vbfrance j'y arrive lentement mais s&#251;rement !

Ma question est la suivante :

Je tire au sort la suite suivante : ROUGE puis VERT puis JAUNE.
Je dois reproduire &#224; l'identique cette suite, c'est &#224; dire cliquer sur rouge 
puis vert puis jaune et afficher mon form2 (qui repr&#233;sente par ex "Gagn&#233;").

C'est cette fonction que je n'arrive pas &#224; r&#233;aliser :
si rouge 
puis si vert 
puis si jaune 
alors form2.show

Je vous remercie d'avance

KMIKZ

Daemonight · Answer

on admet que chaque couleur est stock&#233;e dans une variable ( a toi de
trouver comment acquerir ces donn&#233;es, je connais pas le reste du
programme). Il y a donc 3 variables, tirage1, tirage2 et tirage3 dans
lesquelles sont stock&#233;es les couleurs.



IF tirage1 = "rouge" THEN

    IF tirage2= "vert" THEN

        IF tirage3="jaune" THEN

            form2.show

       END IF

    END IF

END IF



J'espere que c'etait bien sa que tu cherchais , d'apres ce que j'ai compris, l'ordre doit etre resp&#233;ct&#233;.



Daemonight




<----------------------------------------------->
On reconnait un bon developpeur au baobab qu'il a dans la main...

cs_CanisLupus · Answer

Salut, je verrais bien un truc dans ce genre :

Un form avec un groupe de 3 labels (label1)
Label1(0).backcolor = rouge
Label1(1).backcolor = vert
Label1(2).backcolor = jaune
et 1 commandbutton (cmd_tirage)

et ce code dans le form :

Dim t(3) As Integer
Dim cpt As Integer


Private Sub cmd_Tirage_Click()
Dim i As Integer
  For i = 0 To 2
    t(i) = Int(3 * Rnd)
  Next
  cpt = 0
End Sub


Private Sub Label1_Click(Index As Integer)
  If t(cpt) = Index Then
    cpt = cpt + 1
    If cpt = 3 Then 
      cpt=0
      msgBox "Gagn&#233;"
    end if
  Else
    cpt = 0
    msgBox "Perdu"
  End If
End Sub

Utilisation : clic sur le bouton tirage puis sur les labels.

Loup Gris

cqui789 · Answer

ton jeu resemble a un jeu de mon enfance ou, si on touve la suite, on
tape une autre couleur qui s'ajoute a la suite et on recomence du
debut. je viens de faire un bout de programme

normalement, si on se trompe ou si on ne vas pas asse vite, il rapelle la serie, mais bon, il fait tard ici...

soit une form Form1 avec des boutons col(1) col(2) col(3).....(autant que tu veux)



Option Explicit

Public t As New Collection, cpt As Integer





Private Sub col_Click(Index As Integer)

If cpt = t.Count + 1 Then

  Form1.Caption = "bien, maintenant recommence du debut"

  t.Add Index

  cpt = 1

Else

  If t(cpt) = Index Then

    Form1.Caption = "Ok"

    If cpt t.Count Then Form1.Caption "gagne, tape la couleur suivante"

    cpt = cpt + 1

  Else

    Form1.Caption = "Mauvais, maintenant recommence du debut"

    cpt = 1

  End If

End If



End Sub



Private Sub Form_Load()

cpt = 1

Form1.Caption = "tape une couleur pour commencer"

End Sub

KMIKZ · Answer

Merci pour ces conseils, je t&#226;cherai d'en faire bon usage.
Mais en ce moment le temps me manque pour me plonger &#224; fond dans mon projet
Bonne soir&#233;e.
KMIKZ

Conditions en cascade

4 réponses

Discussions similaires