oliviertang
Messages postés2Date d'inscriptionmardi 19 mai 2009StatutMembreDernière intervention 1 juin 2010
-
1 juin 2010 à 18:19
oliviertang
Messages postés2Date d'inscriptionmardi 19 mai 2009StatutMembreDernière intervention 1 juin 2010
-
1 juin 2010 à 20:02
Bonjour,
Je suis débutant en VB, je sais pas si mon poste va bien dans ce thème, désolé si ce n'est pas le cas.
J'ai crée un jeu de quizz mais je voudrai que l'on indique le score en cours obtenu si l'on quitte le quizz avant d'avoir terminé toutes les question.
Je voudrai savoir comment récupérer ma variable "nbBonneRep" de mon bouton "suivant" dans mon bouton "quitter".
Je voudrai que l'on affiche "voulez vous vraiment quitter le jeu? Vous avez pour le moment "nbBonneRep".
Merci d'avance pour vos reponse!
Voici le code de mon bouton Quitter et mon bouton Suivant :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitter.Click
If MessageBox.Show("Voulez-vous vraiment quitter le jeu?", "Confirmer", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Me.Dispose()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuivant.Click
Static ind As Integer
Static i As Integer
Static nbBonneRep As Integer = 0
Call repOk(ind)
i = ind + 1
Call affichage(i)
If (repOk(ind) = True) Then
lbReponse.Items.Insert(index:=i, item:="Question " & ind + 1 & " : Bonne réponse!")
nbBonneRep = nbBonneRep + 1
Else
lbReponse.Items.Insert(index:=i, item:="Question " & ind + 1 & " : C'est faux...")
End If
ind = ind + 1
If (i = 10) Then
If (nbBonneRep = 10) Then
If (MessageBox.Show("BRAVO! Tu es un excellent connaisseur du sport, tu as : " & nbBonneRep & "/10 bonnes réponses!", "Résultat du questionnaire ", MessageBoxButtons.OK) = Windows.Forms.DialogResult.OK) Then
Me.Dispose()
End If
ElseIf (nbBonneRep >= 7 And nbBonneRep < 9) Then
If (MessageBox.Show("Pas mal pas mal.. tu t'approches du sans faute avec " & nbBonneRep & " bonnes réponses!", "Résultat du questionnaire ", MessageBoxButtons.OK) = Windows.Forms.DialogResult.OK) Then
Me.Dispose()
End If
ElseIf (nbBonneRep >= 4 And nbBonneRep < 7) Then
If (MessageBox.Show("C'est moyen tout ça! Tu as " & nbBonneRep & " bonnes réponses", "Résultat du questionnaire ", MessageBoxButtons.OK) = Windows.Forms.DialogResult.OK) Then
Me.Dispose()
End If
ElseIf (nbBonneRep >= 0 And nbBonneRep < 4) Then
If (MessageBox.Show("OULALA! Tu es vraiment un inculte au sport... Tu as " & nbBonneRep & " bonnes réponses..! ", "Résultat du questionnaire ", MessageBoxButtons.OK) = Windows.Forms.DialogResult.OK) Then
Me.Dispose()
End If
End If
oliviertang
Messages postés2Date d'inscriptionmardi 19 mai 2009StatutMembreDernière intervention 1 juin 2010 1 juin 2010 à 20:02
En faite dans la message box je veux qu'il affiche : "Voulez vous vraiment quitter le programme? Vous avez pour le moment xxx bonne réponse et en faite j'arrive pas a récupéré ma variable "nbBonneRep" de mon bouton "Suivant" pour faire cet affichage.