Comptabiliser des bonnes réponses sur un programme en .vbs

Résolu
gp59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
gp59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   26
 
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.
0
gp59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   26
 
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.....
0
gp59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour ton explication, mais là il me met " fin d'instruction attendu" à la ligne 1 caractère 9!
0
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   26
 
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
0
gp59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Merci ça marche!
0

Discussions similaires

A quoi sert l'application Bonjour?
patrick -
Ysis -

4 réponses