Conditions en cascade

Bonjour,

je tente de réaliser un petit jeu, ou il faut reproduire une suite (de couleur
ou de formes ou de sons ...).

Grace aux adhérents de vbfrance j'y arrive lentement mais sûrement !

Ma question est la suivante :

Je tire au sort la suite suivante : ROUGE puis VERT puis JAUNE.
Je dois reproduire à l'identique cette suite, c'est à dire cliquer sur rouge
puis vert puis jaune et afficher mon form2 (qui représente par ex "Gagné").

C'est cette fonction que je n'arrive pas à réaliser :
si rouge
puis si vert
puis si jaune
alors form2.show

Je vous remercie d'avance

KMIKZ

on admet que chaque couleur est stockée dans une variable ( a toi de trouver comment acquerir ces données, je connais pas le reste du programme). Il y a donc 3 variables, tirage1, tirage2 et tirage3 dans lesquelles sont stocké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écté.

Daemonight


<----------------------------------------------->
On reconnait un bon developpeur au baobab qu'il a dans la main...

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é"
    end if
  Else
    cpt = 0
    msgBox "Perdu"
  End If
End Sub

Utilisation : clic sur le bouton tirage puis sur les labels.

Loup Gris

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

Merci pour ces conseils, je tâcherai d'en faire bon usage.
Mais en ce moment le temps me manque pour me plonger à fond dans mon projet
Bonne soirée.
KMIKZ