Sujet Précédent Sujet Suivant

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

Résolu/Fermé
gp59 Messages postés 11 Date d'inscription samedi 27 juin 2015 Statut Membre Dernière intervention 24 février 2017 - 28 sept. 2015 à 19:32
gp59 Messages postés 11 Date d'inscription samedi 27 juin 2015 Statut Membre Dernière intervention 24 février 2017 - 29 sept. 2015 à 16:26
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 mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
28 sept. 2015 à 20:17
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 samedi 27 juin 2015 Statut Membre Dernière intervention 24 février 2017
28 sept. 2015 à 21:02
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 mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
Modifié par PlacageGranby le 28/09/2015 à 21:23
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 samedi 27 juin 2015 Statut Membre Dernière intervention 24 février 2017
28 sept. 2015 à 21:52
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 mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
Modifié par PlacageGranby le 28/09/2015 à 22:14
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 samedi 27 juin 2015 Statut Membre Dernière intervention 24 février 2017
29 sept. 2015 à 16:26
Merci ça marche!
0

Discussions similaires

programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
Pourquoi Program files (x86) et Programmes?
peer_at -
abdelhak -

7 réponses
GWXUX a cessé de fonctionner
ikam -
Adakhum -

9 réponses
"BONJOUR" : utilité de ce programme???
sunbeep -
onizukaille -

5 réponses
TV LG affiche le carré non programmé
Chantal Joubert -
Evancarreaujoho -

4 réponses