Comment faire un décompte
pas très doué en vb
-
lokorn Messages postés 74 Statut Membre -
lokorn Messages postés 74 Statut Membre -
Bonjour tout le monde,
Je suis en train de créer un questionnaire avec à la fin un calcul de points.
Le problème, c'est que je suis bloqué pour calculer les points par question.
Ce calcule s'effectue comme ça :
Un nombre de points maximum est attribué, et plus on met de temps à répondre, plus
les points diminue (un point enlevé par seconde, ou un truc du genre)
je n'arrive pas à trouver le code.
Merci de m'aider.
Je suis en train de créer un questionnaire avec à la fin un calcul de points.
Le problème, c'est que je suis bloqué pour calculer les points par question.
Ce calcule s'effectue comme ça :
Un nombre de points maximum est attribué, et plus on met de temps à répondre, plus
les points diminue (un point enlevé par seconde, ou un truc du genre)
je n'arrive pas à trouver le code.
Merci de m'aider.
A voir également:
- Faire un décompte sur excel
- Comment faire un tri personnalisé sur excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment calculer la moyenne sur excel - Guide
- Faire un camembert sur excel - Guide
10 réponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Private Sub reponse2_Click() 'mauvaise réponse'
suivant.Visible = False
End Sub
Private Sub reponse3_Click() 'mauvaise réponse'
suivant.Visible = False
End Sub
Private Sub suivant_Click()
suivant.Visible = False 'cacher le bouton tant que la réponse est mauvaise'
Form3.Hide 'passer à la suite'
Form2.Show
Form1.Show
End Sub
Private Sub reponse1_Click() 'bonne réponse'
suivant.Visible = True 'le bouton s'affiche'
Timer1.Enabled = False 'fin du compteur'
End Sub
Je ne sais pas comment faire le compteur, mais j'ai vu sur internet qu'on pouvait arrêter un compteur avec Timer1.Enabled = False et le lancer avec = True
suivant.Visible = False
End Sub
Private Sub reponse3_Click() 'mauvaise réponse'
suivant.Visible = False
End Sub
Private Sub suivant_Click()
suivant.Visible = False 'cacher le bouton tant que la réponse est mauvaise'
Form3.Hide 'passer à la suite'
Form2.Show
Form1.Show
End Sub
Private Sub reponse1_Click() 'bonne réponse'
suivant.Visible = True 'le bouton s'affiche'
Timer1.Enabled = False 'fin du compteur'
End Sub
Je ne sais pas comment faire le compteur, mais j'ai vu sur internet qu'on pouvait arrêter un compteur avec Timer1.Enabled = False et le lancer avec = True
il faut que tu rajoute sur ta forme un controle "timer" (il ressemble a un chronomètre). tu peu le mettre n'importe ou car il ne s'affiche pas en lançant ton programme.
puis dans les propriétés du timer tu règles sa vitesse c'est a dire tous les combien de temps il va être appelé (en milliseconde)
puis dans les propriétés du timer tu règles sa vitesse c'est a dire tous les combien de temps il va être appelé (en milliseconde)
j avais pas vu que tu as déjà le timer.
tu rajoute timer1.Interval=1000 dans form.load ou bien directement dans les propriétés du timer
toute les 1000 millisecondes, le programme ira dans timer1
tu peu declarer une variable global que tu incremente dans timer et que tu recupère dans ton programme pour l'utiliser
as tu un mail ce sera plus facile?
tu rajoute timer1.Interval=1000 dans form.load ou bien directement dans les propriétés du timer
toute les 1000 millisecondes, le programme ira dans timer1
tu peu declarer une variable global que tu incremente dans timer et que tu recupère dans ton programme pour l'utiliser
as tu un mail ce sera plus facile?
