none
Problème de label changement de texte RRS feed

  • Question

  • Bonjour,

    Je suis actuellement entrain de concevoir une application avec des questions types générales.

    J'ai un label dans laquelle j'ai mis une question puis une textbox pour que l'utilisateur mette sa réponse et enfin un bouton ok pour validé.

    quand cela valide,   je n'arrive pas à faire un enchainement sur une autre question enfin de créer une autre question à après le label2.text= "Ok"  (voici le code)

    Public Class Form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Label1.Text = "Quelle est la capitale de la France?"
    
    
        End Sub
        Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Chr(13) Then
                Verification()
            End If
        End Sub
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Verification()
    
        End Sub
        Sub Verification()
    
    
            If TextBox1.Text = "Paris" Then
                Label2.Visible = True
                Label2.ForeColor = Color.Green
                Label2.Text = "OK"
    
            Else
                Label2.Visible = True
                Label2.ForeColor = Color.Red
                Label2.Text = " Réponse Incorrecte"
                MsgBox("Votre réponse est fause, Veuillez réessayer", vbOKOnly, "test")
                TextBox1.Clear()
            End If
        End Sub
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Me.Dispose()
        End Sub
    
        Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
    
        End Sub
    End Class
    Je voudrai savoir si je peux remodifier le text d'un label et aussi faire un Randomisation des questions.

    Aurait il un moyen pour faire tous cela en même temps

    http://img15.hostingpics.net/pics/317844test.jpg

    http://img15.hostingpics.net/pics/306099xxxs.jpg

    Merci de votre compréhension.


    • Modifié Yannel777 dimanche 15 décembre 2013 22:48
    dimanche 15 décembre 2013 22:46

Réponses

  • Bonjour,

    Pour désactiver le sont il faut marquer que la touche entrée a été gérée par vos soins (Handled) :

        Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Chr(13) Then
                Verification()
                e.Handled = True
            Else
                e.Handled = False
            End If
        End Sub

    Pour donner à l'utilisateur maximum 3 tentatives :

    Créer une variable dans votre formulaire :

        Private numéroQuestion As Integer
        Private random As Random = New Random()
    
        Private nbTentatives As Integer
    

    Dans la méthode InitialiserNouvelleQuestion() :

    Me.nbTentatives = 0
    Me.numéroQuestion = random.Next(0, questions.Length - 1)
    Label1.Text = Me.questions(Me.numéroQuestion)

    Et dans Verification() vous insultez l'utilisateur si nécessaire et vous démarrer votre timer pour initialiser une nouvelle question :

        Sub Verification()
    
            If TextBox1.Text = Me.réponses(Me.numéroQuestion) Then
                Label2.Visible = True
                Label2.ForeColor = Color.Green
                Label2.Text = "OK"
                Timer1.Start()
                Timer1.Interval = 1500
    
            Else
                Label2.Visible = True
                Label2.ForeColor = Color.Red
                Label2.Text = " Réponse Incorrecte"
                MsgBox("Votre réponse est fausse, Veuillez réessayer", vbOKOnly, "test")
                TextBox1.Focus()
                TextBox1.Clear()
                Label2.Visible = False
                Me.nbTentatives = Me.nbTentatives + 1
    
                If Me.nbTentatives = 3 Then
                    MsgBox("Zetes vraiment N-U-L !!")
    
                    Timer1.Start()
                    Timer1.Interval = 1500
                End If
            End If
    
        End Sub

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte logiciel/Consultant/Formateur Freelance - P.O.S Informatique
    Blog : http://gilles.tourreau.fr - Suivez-moi sur Twitter
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
    - MCSA : SQL Server 2012
    - MCITP : SQL Server 2008 Developper
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0 / TFS 2010 / Windows Azure

    • Marqué comme réponse Yannel777 mardi 17 décembre 2013 21:09
    mardi 17 décembre 2013 00:49
    Modérateur
  • Bonsoir, merci pour ton code  j'ai enfin trouver !!

    """Alea jacta est"" signifie ?"


    • Marqué comme réponse Yannel777 mardi 17 décembre 2013 21:08
    mardi 17 décembre 2013 21:08
  • Voici un aperçu de mon code  :

    Public Class Form1
    
        Private numéroQuestion As Integer
        Private random As Random = New Random()
        Private nbTentatives As Integer
        Private questions As String() =
            {
           "Quelle est la capitale de la France ?",
           "Quelle est la couleur du cheval blanc d'Henri IV?",
           "Qui a peint la Joconde?",
           "Quelle est l'espérance de vie du lapin domestique ?",
           "À partir de combien de km/h peut-on entendre un ""Bang""?",
           "En quelle année la marque ""Škoda"" a-t-elle été créée?",
           "Sur les 2 mains, combien a-t-on de phalanges ?",
           "Les célèbres Beatles étaient...?",
           "Qui a écrit ""L'Avare"" ?",
           """Alea jacta est"" signifie ?",
           "Combien de temps Nicolas Sarkozy est-il resté président de la République française ?",
           "Qu'est ce qu'un gecko?",
           "Qui a tiré la flèche fatale dans le talon d'Achille?",
           "Quel est le dieu suprême du panthéon égyptien?",
           "Quels sont les deux départements qui forment la Corse?",
           "Qu'est ce qu`un chèche?",
           "Dans quel lac le Nil prend-il sa source?",
           "Combien une araignée a-t-elle de pattes",
           "Combien de lettres possède l'alphabet grec?",
           "Dans quelle ville se trouve le Golden Gate Bridge?",
           "Christophe Colomb a découvert l'Amérique en ...",
           "Où se trouve le Massif Armoricain ?",
           "Anubis, gardien des nécropoles est un dieu ?",
           "L'intensité électrique s'exprime en ?",
           "Le TCHAD a une frontière commune avec quelle pays?",
           "Quels sont les pays frontaliers à la France",
           "Dans la superstition maritime, quel nom d'animal est tabou à bord d'un bateau?"
               }
    
        Private réponses As String() =
            {
           "Paris",
           "Blanc",
           "Léonard De Vinci",
           "7 ans",
           "1000",
           "1919",
           "28",
           "Anglais",
           "Molière",
           "Le sort en est jeté",
           "5 ans",
           "Un lézard",
           "Paris",
           "Amon",
           "Haute Corse et Corse du Sud",
           "Une écharpe",
           "Victoria",
           "8",
           "24",
           "San Francisco",
           "1492",
           "En Bretagne",
           "Egyptien",
           "Ampères",
           "Le Soudan",
           "9",
           "Le Lapin"
         }
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            TextBox1.TabIndex = 0
            InitialiserNouvelleQuestion()
        End Sub
    
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Verification()
    
        End Sub
        Sub Verification()
    
            If TextBox1.Text = Me.réponses(Me.numéroQuestion) Then
                Label2.Visible = True
                Label2.ForeColor = Color.Green
                Label2.Text = "OK"
                Timer1.Start()
                Timer1.Interval = 1500
    
            Else
                Label2.Visible = True
                Label2.ForeColor = Color.Red
                Label2.Text = " Réponse Incorrecte"
                MsgBox("Votre réponse est fausse, Veuillez réessayer", vbOKOnly, "test")
                TextBox1.Focus()
                TextBox1.Clear()
                Label2.Visible = False
                Me.nbTentatives = Me.nbTentatives + 1
    
                If Me.nbTentatives = 3 Then
                    MsgBox("La Réponse est " & Me.réponses(Me.numéroQuestion), 32, "Questions")
                    Timer1.Start()
                    Timer1.Interval = 1500
                End If
            End If
    
        End Sub
    
        Private Sub InitialiserNouvelleQuestion()
    
            Me.nbTentatives = 0
            Me.numéroQuestion = random.Next(0, questions.Length - 1)
            Label1.Text = Me.questions(Me.numéroQuestion)
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Me.Dispose()
        End Sub
        Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Chr(13) Then
                Verification()
                e.Handled = True
            Else
                e.Handled = False
            End If
        End Sub
    
    
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Timer1.Stop()
            TextBox1.Clear()
            Label2.Visible = False
            InitialiserNouvelleQuestion()
        End Sub
    
    End Class

    Merci infiniment pour votre aide !!!

    • Marqué comme réponse Yannel777 mardi 17 décembre 2013 21:41
    • Modifié Yannel777 mardi 17 décembre 2013 21:43
    mardi 17 décembre 2013 21:40

Toutes les réponses

  • Bonjour,

    Imports System.Drawing
    
    Public Class Form1
    
        Private questions As String() =
        {
            "Quel est la capital de France ?",
            "Quel est la couleur du cheval blanc d'Henri IV"
        }
    
        Private réponses As String() =
        {
            "PARIS",
            "BLANC"
        }
        Private numéroQuestion As Integer
        Private random As Random = New Random()
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            InitialiserNouvelleQuestion()
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Verification()
        End Sub
        Sub Verification()
            If TextBox1.Text = Me.réponses(Me.numéroQuestion) Then
                Label2.Visible = True
                Label2.ForeColor = Color.Green
                Label2.Text = "OK"
                MsgBox("You win !")
                InitialiserNouvelleQuestion()
            Else
                Label2.Visible = True
                Label2.ForeColor = Color.Red
                Label2.Text = " Réponse Incorrecte"
                MsgBox("Votre réponse est fause, Veuillez réessayer", vbOKOnly, "test")
                TextBox1.Clear()
            End If
        End Sub
    
        Private Sub InitialiserNouvelleQuestion()
            Me.numéroQuestion = random.Next(0, questions.Length - 1)
            Label1.Text = Me.questions(Me.numéroQuestion)
        End Sub
    End Class

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte logiciel/Consultant/Formateur Freelance - P.O.S Informatique
    Blog : http://gilles.tourreau.fr - Suivez-moi sur Twitter
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
    - MCSA : SQL Server 2012
    - MCITP : SQL Server 2008 Developper
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0 / TFS 2010 / Windows Azure

    • Proposé comme réponse Aurel Bera lundi 16 décembre 2013 09:33
    • Marqué comme réponse Yannel777 mardi 17 décembre 2013 21:09
    • Non marqué comme réponse Yannel777 mardi 17 décembre 2013 21:09
    lundi 16 décembre 2013 01:36
    Modérateur
  • Bonsoir, merci pour ton code,

    cependant j'ai remarqué qu'il fait une boucle entre

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            InitialiserNouvelleQuestion()
        End Sub


    et

    If TextBox1.Text = Me.réponses(Me.numéroQuestion) Then
                Label2.Visible = True
                Label2.ForeColor = Color.Green
                Label2.Text = "OK"
                InitialiserNouvelleQuestion()

    voici le code entier:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            InitialiserNouvelleQuestion()
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Verification()
        End Sub
        
    Sub Verification()
      If TextBox1.Text = Me.réponses(Me.numéroQuestion) Then
                Label2.Visible = True
                Label2.ForeColor = Color.Green
                Label2.Text = "OK"
                InitialiserNouvelleQuestion()

    Bref il ne va pas à ma deuxième Question après que j'ai appuyé sur ok

    voir image si dessous:



    Merci de votre compréhension.


    • Modifié Yannel777 lundi 16 décembre 2013 18:48
    lundi 16 décembre 2013 18:46
  • Après quelques heures de bidouillage sur mon logiciel.

    J'ai rajouté "un Timer" après si  la réponse est correct et j'ai rajouté + de questions pour que la commande "random" fasse effet.

    Je voulais savoir si il n'avait pas un moyen, après 3 tentatives de mauvaises réponses, cela donnerais la bonne réponse, est ce possible? 

    et je souhaiterai également, retirer le son après la commande:

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Chr(13) Then Verification()
        End Sub


    cependant, j'ai essayer cela:

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Chr(13) Then Verification()
            e.Handled = False
        End Sub

    mais cela ne fonctionne pas non plus.

    Et même chose pour la MsgBox quand j'ai cliqué sur OK:

     Else
                Label2.Visible = True
                Label2.ForeColor = Color.Red
                Label2.Text = " Réponse Incorrecte"
                MsgBox("Votre réponse est fausse, Veuillez réessayer", vbOKOnly, "test")
                TextBox1.Focus()
                TextBox1.Clear()
                Label2.Visible = False
            End If

    Bref, j'ai cherche partout sur internet pour savoir comment retirer le son mais je ne l'ai pas trouvé

    voici mes lignes de script:

    Public Class Form1
    
        Private numéroQuestion As Integer
        Private random As Random = New Random()
    
        Private questions As String() =
              {
           "Quelle est la capitale de la France ?",
           "Quelle est la couleur du cheval blanc d'Henri IV?",
           "Qui a peint la Joconde?",
           "Quelle est l'espérance de vie du lapin domestique ?",
           "À partir de combien de km/h peut-on entendre un <<Bang>> ?",
           "En quelle année la marque <<Skoda>> a-t-elle été créée?",
           "Sur les 2 mains, combien a-t-on de phalanges ?",
           "Les célèbres Beatles étaient...?",
           "Qui a écrit <<l'Avare>> ?",
           "Alea jacta est signifie ?",
           "Combien de temps Nicolas Sarkozy est-il resté président de la République française ?",
           "Qu`est ce qu`un gecko?",
           "Qui a tiré la fleche fatale dans le talon d'Achille?",
           "Quel est le dieu supreme du pantheon égyptien?",
           "Quels sont les deux départements qui forment la Corse?",
           "Qu`est ce qu`un chèche?",
           "Dans quel lac le Nil prend-il sa source?",
           "Combien une araignée a-t-elle de pattes",
           "Combien de lettres possède l`alphabet grec?",
           "Dans quelle ville se trouve le Golden Gate Bridge?",
           "Christophe Colomb a découvert l'Amérique en ...",
           "Où se trouve le Massif Armoricain ?",
           "ANUBIS, gardien des nécropoles est un dieu?",
           "L'intensité électrique s'exprime en ?",
           "Le TCHAD a une frontière commune avec quelle pays?",
           "Quels sont les pays frontaliers à la France",
           "Dans la superstition maritime, quel nom d'animal est tabou à bord d'un bateau?"
               }
    
        Private réponses As String() =
            {
           "Paris",
           "Blanc",
           "Léonard De Vinci",
           "7 ans",
           "1000",
           "1919",
           "28",
           "Anglais",
           "Molière",
           "Le sort en est jeté",
           "5 ans",
           "Un lezard ",
           "Paris",
           "Amon",
           "Haute Corse et Corse du Sud",
           "Une écharpe",
           "Victoria",
           "8",
           "24",
           "San Francisco ",
           "1492",
           "En Bretagne",
           "Egyptien",
           "Ampères",
           "Le soudan",
           "9",
           "Le Lapin"
         }
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            InitialiserNouvelleQuestion()
    
        End Sub
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Verification()
        End Sub
        Sub Verification()
    
            If TextBox1.Text = Me.réponses(Me.numéroQuestion) Then
                Label2.Visible = True
                Label2.ForeColor = Color.Green
                Label2.Text = "OK"
                Timer1.Start()
                Timer1.Interval = 1500
    
            Else
                Label2.Visible = True
                Label2.ForeColor = Color.Red
                Label2.Text = " Réponse Incorrecte"
                MsgBox("Votre réponse est fausse, Veuillez réessayer", vbOKOnly, "test")
                TextBox1.Focus()
                TextBox1.Clear()
                Label2.Visible = False
            End If
    
        End Sub
    
        Private Sub InitialiserNouvelleQuestion()
            Me.numéroQuestion = random.Next(0, questions.Length - 1)
            Label1.Text = Me.questions(Me.numéroQuestion)
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Me.Dispose()
        End Sub
    
        Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Chr(13) Then Verification()
            e.Handled = False
        End Sub
    
    
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Timer1.Stop()
            TextBox1.Clear()
            Label2.Visible = False
            InitialiserNouvelleQuestion()
        End Sub
    
    End Class

    Merci de votre compréhension




    • Modifié Yannel777 lundi 16 décembre 2013 22:58
    lundi 16 décembre 2013 22:51
  • Bonjour,

    Pour désactiver le sont il faut marquer que la touche entrée a été gérée par vos soins (Handled) :

        Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Chr(13) Then
                Verification()
                e.Handled = True
            Else
                e.Handled = False
            End If
        End Sub

    Pour donner à l'utilisateur maximum 3 tentatives :

    Créer une variable dans votre formulaire :

        Private numéroQuestion As Integer
        Private random As Random = New Random()
    
        Private nbTentatives As Integer
    

    Dans la méthode InitialiserNouvelleQuestion() :

    Me.nbTentatives = 0
    Me.numéroQuestion = random.Next(0, questions.Length - 1)
    Label1.Text = Me.questions(Me.numéroQuestion)

    Et dans Verification() vous insultez l'utilisateur si nécessaire et vous démarrer votre timer pour initialiser une nouvelle question :

        Sub Verification()
    
            If TextBox1.Text = Me.réponses(Me.numéroQuestion) Then
                Label2.Visible = True
                Label2.ForeColor = Color.Green
                Label2.Text = "OK"
                Timer1.Start()
                Timer1.Interval = 1500
    
            Else
                Label2.Visible = True
                Label2.ForeColor = Color.Red
                Label2.Text = " Réponse Incorrecte"
                MsgBox("Votre réponse est fausse, Veuillez réessayer", vbOKOnly, "test")
                TextBox1.Focus()
                TextBox1.Clear()
                Label2.Visible = False
                Me.nbTentatives = Me.nbTentatives + 1
    
                If Me.nbTentatives = 3 Then
                    MsgBox("Zetes vraiment N-U-L !!")
    
                    Timer1.Start()
                    Timer1.Interval = 1500
                End If
            End If
    
        End Sub

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte logiciel/Consultant/Formateur Freelance - P.O.S Informatique
    Blog : http://gilles.tourreau.fr - Suivez-moi sur Twitter
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
    - MCSA : SQL Server 2012
    - MCITP : SQL Server 2008 Developper
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0 / TFS 2010 / Windows Azure

    • Marqué comme réponse Yannel777 mardi 17 décembre 2013 21:09
    mardi 17 décembre 2013 00:49
    Modérateur
  • Merci beaucoup, cela m'a avancé dans mes recherches.

    Voici,ce que j'ai fait:

     Else
                Label2.Visible = True
                Label2.ForeColor = Color.Red
                Label2.Text = " Réponse Incorrecte"
                MsgBox("Votre réponse est fausse, Veuillez réessayer", vbOKOnly, "test")
                TextBox1.Focus()
                TextBox1.Clear()
                Label2.Visible = False
                Me.nbTentatives = Me.nbTentatives + 1
    
                If Me.nbTentatives = 2 Then
                    MsgBox("La Réponse est " & Me.réponses(Me.numéroQuestion), MsgBoxStyle.MsgBoxSetForeground, "Questions")
                    Timer1.Start()
                    Timer1.Interval = 1500
                End If
            End If
    
        End Sub

    J'ai essayé de changer l'intérieur du MsgBox pour avoir la bonne réponse par rapport à la question pour l'instant cela fonctionne  bien.

    Je voudrais savoir aussi comment mettre des guillemets dans les guillemets pour qu'il reconnaisse dans mon application?

    Par exemple:

     Private nbTentatives As Integer
        Private questions As String() =
    {
    "En quelle année la marque <<Skoda>> a-t-elle été créée?"
               }

    voici ce que cela donne

    Je trouve que ces guillemets là ce n'est pas très joli à voir, donc j'ai essayer cela.

    Private nbTentatives As Integer Private questions As String() = { "En quelle année la marque "Skoda" a-t-elle été créée?" } Private réponses As String() = { "1919"

    }

    Mais apparat cela ne fonctionne pas non plus

    voici les erreurs qui me détecte

    et

    http://img15.hostingpics.net/pics/198844ccc3.jpg

    Comment dois-je faire pour intégrer des guillemets dans ma question ?

    Merci de votre compréhension


    • Modifié Yannel777 mardi 17 décembre 2013 08:03
    mardi 17 décembre 2013 07:57
  • Bonjour

    Pour avoir " dans un String vous devez  utilizer ""  -

    theString = "jeu de caractères avec caractères spéciales "" "

    MessageBox.Show(theString)

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.



    • Modifié Aurel Bera mardi 17 décembre 2013 14:58
    mardi 17 décembre 2013 14:13
  • Bonsoir, merci pour ton code  j'ai enfin trouver !!

    """Alea jacta est"" signifie ?"


    • Marqué comme réponse Yannel777 mardi 17 décembre 2013 21:08
    mardi 17 décembre 2013 21:08
  • Voici un aperçu de mon code  :

    Public Class Form1
    
        Private numéroQuestion As Integer
        Private random As Random = New Random()
        Private nbTentatives As Integer
        Private questions As String() =
            {
           "Quelle est la capitale de la France ?",
           "Quelle est la couleur du cheval blanc d'Henri IV?",
           "Qui a peint la Joconde?",
           "Quelle est l'espérance de vie du lapin domestique ?",
           "À partir de combien de km/h peut-on entendre un ""Bang""?",
           "En quelle année la marque ""Škoda"" a-t-elle été créée?",
           "Sur les 2 mains, combien a-t-on de phalanges ?",
           "Les célèbres Beatles étaient...?",
           "Qui a écrit ""L'Avare"" ?",
           """Alea jacta est"" signifie ?",
           "Combien de temps Nicolas Sarkozy est-il resté président de la République française ?",
           "Qu'est ce qu'un gecko?",
           "Qui a tiré la flèche fatale dans le talon d'Achille?",
           "Quel est le dieu suprême du panthéon égyptien?",
           "Quels sont les deux départements qui forment la Corse?",
           "Qu'est ce qu`un chèche?",
           "Dans quel lac le Nil prend-il sa source?",
           "Combien une araignée a-t-elle de pattes",
           "Combien de lettres possède l'alphabet grec?",
           "Dans quelle ville se trouve le Golden Gate Bridge?",
           "Christophe Colomb a découvert l'Amérique en ...",
           "Où se trouve le Massif Armoricain ?",
           "Anubis, gardien des nécropoles est un dieu ?",
           "L'intensité électrique s'exprime en ?",
           "Le TCHAD a une frontière commune avec quelle pays?",
           "Quels sont les pays frontaliers à la France",
           "Dans la superstition maritime, quel nom d'animal est tabou à bord d'un bateau?"
               }
    
        Private réponses As String() =
            {
           "Paris",
           "Blanc",
           "Léonard De Vinci",
           "7 ans",
           "1000",
           "1919",
           "28",
           "Anglais",
           "Molière",
           "Le sort en est jeté",
           "5 ans",
           "Un lézard",
           "Paris",
           "Amon",
           "Haute Corse et Corse du Sud",
           "Une écharpe",
           "Victoria",
           "8",
           "24",
           "San Francisco",
           "1492",
           "En Bretagne",
           "Egyptien",
           "Ampères",
           "Le Soudan",
           "9",
           "Le Lapin"
         }
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            TextBox1.TabIndex = 0
            InitialiserNouvelleQuestion()
        End Sub
    
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Verification()
    
        End Sub
        Sub Verification()
    
            If TextBox1.Text = Me.réponses(Me.numéroQuestion) Then
                Label2.Visible = True
                Label2.ForeColor = Color.Green
                Label2.Text = "OK"
                Timer1.Start()
                Timer1.Interval = 1500
    
            Else
                Label2.Visible = True
                Label2.ForeColor = Color.Red
                Label2.Text = " Réponse Incorrecte"
                MsgBox("Votre réponse est fausse, Veuillez réessayer", vbOKOnly, "test")
                TextBox1.Focus()
                TextBox1.Clear()
                Label2.Visible = False
                Me.nbTentatives = Me.nbTentatives + 1
    
                If Me.nbTentatives = 3 Then
                    MsgBox("La Réponse est " & Me.réponses(Me.numéroQuestion), 32, "Questions")
                    Timer1.Start()
                    Timer1.Interval = 1500
                End If
            End If
    
        End Sub
    
        Private Sub InitialiserNouvelleQuestion()
    
            Me.nbTentatives = 0
            Me.numéroQuestion = random.Next(0, questions.Length - 1)
            Label1.Text = Me.questions(Me.numéroQuestion)
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Me.Dispose()
        End Sub
        Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Chr(13) Then
                Verification()
                e.Handled = True
            Else
                e.Handled = False
            End If
        End Sub
    
    
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Timer1.Stop()
            TextBox1.Clear()
            Label2.Visible = False
            InitialiserNouvelleQuestion()
        End Sub
    
    End Class

    Merci infiniment pour votre aide !!!

    • Marqué comme réponse Yannel777 mardi 17 décembre 2013 21:41
    • Modifié Yannel777 mardi 17 décembre 2013 21:43
    mardi 17 décembre 2013 21:40
  • Bonjour,  je voulais savoir dans ce code si on pouvais remplacer les questions par des images ? (le nbr de picturebox)

    qui amène à la même réponse?

    quelle est la ligne de commande?

    par exemple "image 1 + image 2 + image 3 + image 4 = la réponse"

    Merci de votre compréhension.

     
    samedi 18 juin 2016 17:12