dejgab
Messages postés1Date d'inscriptionmardi 24 février 2004StatutMembreDernière intervention24 février 2004
-
24 févr. 2004 à 20:11
pinje
Messages postés129Date d'inscriptionvendredi 25 juillet 2003StatutMembreDernière intervention24 août 2006
-
24 févr. 2004 à 21:15
Bonjour,
Je suis débutante et je suis en train de créer mon premier projet en VB6; grande découverte, quoi!
Mon projet est un jeu de l'oie qui fonctionne à peu près correctement, mais auquel je voudrai ajouter quelques fonctions. Notamment, je voudrais ajouter un comptage des points.
Voici comment je voudrai que cela fonctionne:
1- le pion avance sur la case n
2- la form1 apparait avec la question
3- bonne réponse : retour au plateau et UN POINT SUPPLEMENTAIRE.
Mauvaise réponse : apparition de la form2 qui passe un savon au joueur et qui propose soit de réessayer, soit de retourner au plateau, et, dans ce cas, UN POINT DE MOINS POUR LE JOUEUR.
J'ai mis en majuscule ce que je ne sais pas faire. le reste fonctionne déjà.
Tous les conseils sont les bienvenus!
Et je remercie celui qui viendra à on secours!
:shy) Gabdej
pinje
Messages postés129Date d'inscriptionvendredi 25 juillet 2003StatutMembreDernière intervention24 août 2006 24 févr. 2004 à 21:15
'Sur ta Form1, met une frame dans lequel tu mets 2 OptionButton
'avec 2 differentes reponses ainsi qu'un bouton Valid
'met ce code derriere le bouton valid quand l'utilisateur click dessus
Dim Score As Integer
Score = 100 'Score initial
If Option1 = True Then 'Si la reponse est juste
Plateau.Show 'retour au plateau
Score = Score + 1 'incremente le score
ElseIf Option2 = True Then 'Si la reponse est fausse
'plustot qu'une form2, utilise une message box
retry = MsgBox("T'es vraiment trop nul a ce jeu pourtant si simple" & _
vbCrLf & "Veux tu quand meme reesayer espece de boulet?", _
vbInformation + vbYesNo, "Comment qu't'es trop nul...")
If retry = vbYes Then 'l'utilisateur decide de reessayer
Form1.Show 'repose la question avec les 2 differentes reponses
ElseIf retry = vbNo Then
MsgBox "Looser"
Plateau.Show 'retour au plateau
Score = Score - 1 'enleve 1 point au score
End If