none
Arrêt après un random , enregister le text ou/et un label dans une autre form (Vb2010 ) RRS feed

  • Question

  • Bonjour,

    Désolé pour le titre je ne savais pas quoi mettre !!! Bref

    Je suis actuellement sur un projet avec des questions/réponses.

    Je voudrais savoir, si il existe une commande qui arrête à la 10ème question,par exemple.

    Et enregistrer les questions/ réponses sous forme de texte dans une autre fenêtre (form2)

    Ainsi que les 2 labels pour signaler si la réponse est bonne ou pas + le score

    Voici mon code actuelle :

    Private numéroQuestion As Integer
        Private random As Random = New Random()
        Private nbTentatives As Integer
        Private questions As String() =
         {
               "To want",
               "Vouloir",
               "To allow",
               "Permettre",
               "To be",
               "Être",
               "To begin",
               "Commencer",
               "To come",
               "Venir",
               "To become",
               "Devenir",
               "To do",
               "Faire (Auxillaire)",
               "To feel",
               "Éprouver un sentiment",
               "To find",
               "Trouver",
               "To get",
               "Obtenir",
               "To give",
               "Donner",
               "To go",
               "Aller",
               "To have",
               "Avoir",
               "To hear",
               "Entendre",
               "To hold",
               "Tenir",
               "To keep",
               "Garder",
               "To know",
               "Connaitre, Savoir",
               "To leave",
               "Partir, quitter",
               "To make",
               "Faire, Fabriquer",
               "To mean",
               "Signifier",
               "To put",
               "Mettre",
               "To read",
               "Lire",
               "To run",
               "Courrir",
               "To say",
               "Dire",
               "To see",
               "Voir",
               "To set",
               "Fixer, poser",
               "To show",
               "Montrer",
               "To sit",
               "S'assoir",
               "To stand",
               "Être debout",
               "To take",
               "Prendre",
               "Tell",
               "Raconter, Dire",
               "To think",
               "Penser",
               "To write",
               "Écrire",
               "To look",
               "Regarder, Chercher",
               "To look for",
               "Rechercher",
               "To forget",
               "Oublier",
               "To forgive",
               "Pardonner",
               "To talk, To speak",
               "Parler",
               "To meet",
               "Rencontrer",
               "To need",
               "Avoir besoin de",
               "To break",
               "Casser Briser",
               "To ask",
               "Demander",
               "To pick up",
               "Ramasser",
               "To wait",
               "Attendre",
               "To build",
               "Constuire",
               "To Choose",
               "Choisir"
           }

        Private réponses As String() =
            {
               "Vouloir",
               "To want",
               "Permettre",
               "To allow",
               "Etre",
               "To be",
               "Commencer",
               "To begin",
               "Venir",
               "To come",
               "Devenir",
               "To become",
               "Faire",
               "To do",
               "Eprouver un sentiment",
               "To feel",
               "Trouver",
               "To find",
               "Obtenir",
               "To get",
               "Donner",
               "To give",
               "Aller",
               "To go",
               "Avoir",
               "To have",
               "Entendre",
               "To hear",
               "Tenir",
               "To hold",
               "Garder",
               "To keep",
               "Savoir",
               "To know",
               "Partir",
               "To leave",
               "Fabriquer",
               "To make",
               "Signifier",
               "To mean",
               "Mettre",
               "To put",
               "Lire",
               "To read",
               "Courrir",
               "To run",
               "Dire",
               "To say",
               "Voir",
               "To see",
               "Poser",
               "To set",
               "Montrer",
               "To show",
               "S'assoir",
               "To sit",
               "Etre debout",
               "To stand",
               "Prendre",
               "To take",
               "Raconter",
               "To tell",
               "Penser",
               "To think",
               "Ecrire",
               "To write",
               "Regarder",
               "To look",
               "Rechercher",
               "To look for",
               "Oublier",
               "To forget",
               "Pardonner",
               "To forgive",
               "Parler",
               "To talk",
               "Rencontrer",
               "To meet",
               "Avoir besoin de",
               "To need",
               "Casser",
               "To break",
               "Demander",
               "To ask",
               "Ramasser",
               "To pick up",
               "Attendre",
               "To wait",
               "Construire",
               "To built",
               "Choisir",
               "To choose"
             }

    Private Sub Verbes_Load_1(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 Label3.Visible = True Label3.ForeColor = Color.Green Label3.Text = "OK" Label5.Text = Val(Label5.Text) + 1 Timer1.Start() Timer1.Interval = 1000 Else Label2.Visible = True Label2.ForeColor = Color.Red Label2.Text = " Réponse Incorrecte" MsgBox("Votre réponse est fausse, Veuillez réessayer " & vbLf & "Your answer is wrong, please try again", vbOKOnly, "Erreur-Error") TextBox1.Focus() TextBox1.Clear() Label2.Visible = False Me.nbTentatives = Me.nbTentatives + 1 If Me.nbTentatives = 3 Then MsgBox("La Réponse est:" & vbLf & "The Answer is: " & Me.réponses(Me.numéroQuestion), 32, "Réponse") Timer1.Start() Timer1.Interval = 900 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 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() Label3.Visible = False InitialiserNouvelleQuestion() End Sub

    Est ce possible de faire cela ?

    (Je suis débutant)

    Merci de votre compréhension !!!



    • Modifié Yannel777 samedi 21 décembre 2013 19:47
    vendredi 20 décembre 2013 21:01

Réponses

  • J'ai trouvé voici la commande pour arrêter à la 10ème question et sauvegarder ce que j'ai fait dans une texte box  voici le code

     Sub SaveParty()
            Me.Label5.Text = "10"
            Dim q As String = Me.Label6.Text
            Me.Label6.Text = q
            Select Case MsgBox("Voulez-vous voir les résultats de votre test?" & vbLf & "Want to see the results of your test?", vbYesNo, "Sauvegarde-Save")
                Case MsgBoxResult.Yes
                    ' Do something if yes
                    Me.Label5.Text = "0"
                    Form1.TextBox1.AppendText(vbCrLf)
                    Form1.TextBox1.AppendText("Votre résultat est de-" & "Your result is: " & Me.Label6.Text & "/10")
                    Form1.Show()
                Case MsgBoxResult.No
                    ' Do something if
                    Accueil.Show()
                    Me.Hide()
            End Select
        End Sub

    A bientôt



    • Modifié Yannel777 samedi 28 décembre 2013 13:00
    • Marqué comme réponse Yannel777 samedi 28 décembre 2013 13:00
    samedi 28 décembre 2013 13:00

Toutes les réponses

  • Bonjour,

    Voici ce que j'ai fait, mais cependant, il y a beaucoup d'erreurs

    voici le code:

    Dim result As DialogResult
    Dim result2 As MsgboxResult
    
    If Label5.Text = Val(10) Then
                Label3.txt = "c'est fini"
                Timer2.Start()
                Timer2.Interval = 5000
                Timer2.Stop()
                Label3.Visible = False
                MsgBox("Voulez vous refaire une autre partie ", vbYesNo, "p")
                 If result = DialogResult.Yes Then
                       Label5.text=0
                       InitialiserNouvelleQuestion() 
                  ElseIf result = DialogResult.No Then
                             MsgBox("Voulez-vous quitter", vbYesNo, "p")
                              If result2=MsgboxResult.yes then
                                     Me.close
                              ElseIf result2=MsgboxResult.yes then
                                    Label5.text=0
                                    InitialiserNouvelleQuestion()   
                             End If 
                   EndIf     
    ElseIf            
      InitialiserNouvelleQuestion()
    End If

    Qu'en pensez-vous?
    Merci de votre compréhension!!!

    samedi 21 décembre 2013 15:52
  • J'ai trouvé voici la commande pour arrêter à la 10ème question et sauvegarder ce que j'ai fait dans une texte box  voici le code

     Sub SaveParty()
            Me.Label5.Text = "10"
            Dim q As String = Me.Label6.Text
            Me.Label6.Text = q
            Select Case MsgBox("Voulez-vous voir les résultats de votre test?" & vbLf & "Want to see the results of your test?", vbYesNo, "Sauvegarde-Save")
                Case MsgBoxResult.Yes
                    ' Do something if yes
                    Me.Label5.Text = "0"
                    Form1.TextBox1.AppendText(vbCrLf)
                    Form1.TextBox1.AppendText("Votre résultat est de-" & "Your result is: " & Me.Label6.Text & "/10")
                    Form1.Show()
                Case MsgBoxResult.No
                    ' Do something if
                    Accueil.Show()
                    Me.Hide()
            End Select
        End Sub

    A bientôt



    • Modifié Yannel777 samedi 28 décembre 2013 13:00
    • Marqué comme réponse Yannel777 samedi 28 décembre 2013 13:00
    samedi 28 décembre 2013 13:00