Comptabiliser des bonnes réponses sur un programme en .vbs [Résolu/Fermé]

Signaler
Messages postés
11
Date d'inscription
samedi 27 juin 2015
Statut
Membre
Dernière intervention
24 février 2017
-
Messages postés
11
Date d'inscription
samedi 27 juin 2015
Statut
Membre
Dernière intervention
24 février 2017
-
Bonjour, je crée un programme qui me permettra de réviser mes verbes irréguliers en .vbs. J'aimerais savoir s'il est possible de faire la comptabilisation pour savoir le nombre de bonnes réponses. Je bloque seulement dessus, toutes les autre instruction, je les connaît! Merci d'avance

1 réponse

Messages postés
394
Date d'inscription
mercredi 26 mars 2014
Statut
Membre
Dernière intervention
7 mars 2019
19
Bonjour,

Disons que la demande est très vague.

Fait une variable Points, Reponse et BonneReponse
Reponse sera la réponse que tu compare avec la bonne réponse.
On initialise points a zero, et on l'incrémente quand la reponse est bonne.

Points = 0

Boucle sur toute les réponse
Reponse = Aller chercher ici ce qui a été écrit.
BonneReponse = Aller cherche la bonne reponse

si Reponse = BonneReponse
Points = Point + 1
prochaine reponse


Aucune idée comment tu inscrit tes réponses. inputbox textbox ?,
et ou sont inscris les bonnes réponses pour comparer?

Tu sembles avoir déjà commencer ton programme, alors a toi de nous en dire plus.
Messages postés
11
Date d'inscription
samedi 27 juin 2015
Statut
Membre
Dernière intervention
24 février 2017

J'ai essayé d'inscrire les réponses avec inputbox, mais celui ci indique " dépassement de capacité", donc je vais essayer avec textbox.
Je vais citer le début du code:
MsgBox " Welcome to the test of irregular verbs" ( je présente le programme )
Dim msg
msg=InputBox (msg, "Etre")
If msg=be was were been Then
Messages postés
394
Date d'inscription
mercredi 26 mars 2014
Statut
Membre
Dernière intervention
7 mars 2019
19
Re-Bonjour

be et BE n'est pas identique.
Aussi, du texte doit être mis entre guillemet.
Voici un debut

Dim msg as string
Dim Point as integer

'Initialiser la variable point
Point = 0

'Texte de présentation
MsgBox " Welcome to the test of irregular verbs" 

'Première question
msg=InputBox (msg, "Etre")

'Evalue si la réponse est bonne
If  msg= "be" or msg= "was" or msg= "were" or msg= "been" Then
    'si oui
    Point = Point + 1
    msgbox "Réussi, vous avez " & Point & " points"
Else
    'Si non
    msgbox "Erreur, les réponses possible était be, was, were, been"
End if

'Prochaine question.....
Messages postés
11
Date d'inscription
samedi 27 juin 2015
Statut
Membre
Dernière intervention
24 février 2017

Merci pour ton explication, mais là il me met " fin d'instruction attendu" à la ligne 1 caractère 9!
Messages postés
394
Date d'inscription
mercredi 26 mars 2014
Statut
Membre
Dernière intervention
7 mars 2019
19
Peux-tu recopier l'intégralité de ton code ici.
Il sera plus facile de trouver ce qui cloche.

Edit :
Ah, je viens de lire sur les différence entre VBS et VBA.
Il semble que toutes les variables sont de type variant en VBS.
Donc, enlever les types de variable dans mon exemple précédent.

Dim msg
Dim Point
Messages postés
11
Date d'inscription
samedi 27 juin 2015
Statut
Membre
Dernière intervention
24 février 2017

Merci ça marche!