Discussion :

[mattboul]

Bonjour à tous,

je suis en train de programmer une petite appli pour apprendre les mots de vocabulaire en anglais. Donc j'ai crée divers form avec des variables comprennant le nom de l'utilisateur etc. Le souci c'est que je crée une form pour le test en lui meme, incluant 2 textbox et un bouton ok. Dans la première textbox apparait la question mais le reste du code s'execute et donc l'utilisateur n'a pas le temps de taper la reponse. J'ai pensé à inputbox, mais c'est trop compliqué à mettre en place car il faut que l'appli vérifie à la fois le numero de la question, puis le numéro de la reponse puis compare ce dernier à ce qui a été tapé. Je ne sais pas si je suis très clair... J'ai une variable tableau pour les questions (elles s'affichent au hasard avec random) puis je declare mes variables reponses... Je vous epargne le repetitif :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if question=quest0 then
rep=rep0

etc...

COmment faire pour que l'utilisateur puisse taper la reponse et qu'ensuite elle soit comparée ? L'api sleep ne marche pas...

Je me souviens que dans Qbasic, il y avait PAUSE ce qui s'implifiait quand meme la tache...

Merci d'avance,

Mattboul

[Vesta]

Tu démarre mal...

Pour faire très simple pour commencer...
Après tu te documentera sur la lecture des fichiers etc...

Dans une form :

Tu crée effectivement :

2 textbox :Txtquestion et TxtReponse
1 timer : Timer1 (avec dans Interval 1000 = 1seconde)
2 bouton : BtnValiderReponse BtnSuivant

UNE VARIABLE GLOBALE QUI STOCKE LE NO DE QUESTION EN COUR
cad que hors de toute procédures, tout en haut de la page de code par exemple, tu met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim CurrentQuestionNo As Integer

Le BtnSuivant sert a passer a la question suivante. Dans le code du bouton tu met la procédure de changement de question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub  BtnSuivant_Click()
     CurrentQuestionNo=int(100*Rnd()) 'Change la question 100 est le nombre de questions max alors faut le changer
     Txtquestion.text = Questions(CurrentQuestionNo) 'Questions est le tableau contenant les Questions
     TxtReponse.text = "" 'On vide la case réponse
End Sub

Le BtnValiderReponsesert a valider la réponse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub  BtnValiderReponse_Click()
     if BtnValiderReponse.text Reponses(CurrentQuestionNo) then 
          msgbox "bonne réponse"
    else
          msgbox "mauvaise réponse"
End Sub

Le timer pourrait par exemple gérer un temps de réponse maximal...
Renseigne toi pr ca

Courage

[méphistopheles]

COmment faire pour que l'utilisateur puisse taper la reponse et qu'ensuite elle soit comparée ? L'api sleep ne marche pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim reponse as string
reponse=inputbox("quelle est votre réponse")

sinon, à Vesta: c'est pas vraiment la peine de faire deux fonctions pour ça.

et si tu veut faire un tableau, autant le faire avec un type personalisé, du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
public type QuizPart
   question as string
   reponse as string
end type
dim quiz()as QuizPart

ou bien comme cela si tu aime le "soft":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim quiz() as string
redim quiz(maxquestions,2)

ah, tu à oublier de mettre un random() (mais bon, tu l'avais sous-etendu)


bonne chance

[mattboul]

Bonjour à vous,

Je vais essayer vos conseils, ils seront toujours mieux que ce que j'ai fait car effectivement j'avais mal commencé. Je m'y attèle et vous recontacte si j'ai de nouveau des soucis.

Merci encore

Mattboul

[mattboul]

Salut !

Ca y est sa marche ! J'ai un peu modifié vos conseils en fonction de mes besoins et il n'y a pas de problème ! Néanmoins, j'ai intégré une boucle pour faire en sorte de limité le quizz à 20 questions et sa ne marche pas. Que ca soit do while ou autre sa bloque...Je vais essayer de chercher... Il me faut une variable qui me permette d'afficher les statistiques du quizz à la fin des vingt questions ! Etant donné que sa fait 2 ans que j'ai pas approché VB, j'en bave ! **Merci encore !

[AlainTech]

Si tu butes sur quelque chose de précis, montre-nous ton code, on essayera de t'aider.