chronometre pour trouver un nombre
Bonjour,
J'ai fais un programme qui permet de deviner un nombre qui est choisi au hasard par l'ordinateur.
J'ai envie maintenant de modifier le programme pour que le temps passé pour trouver le nombre soit indiqué.
Voici mon programme, si quelqu'un peut m'aider c'est gentil !
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
| Sub devinette()
Dim nombre As Single
Dim nombre_saisi As Single
Dim lowerbound
Dim upperbound
Dim nombre_essais As Single
Dim temps_passé As Date
Dim start As Date
Dim finish As Date
lowerbound = 1
upperbound = 100
' initialisation du nombre aléatoire
Randomize
' fonction qui génère nombre aléatoire entre 1 et 100
nombre = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
nombre_essais = nombre_essais + 1
Do
start = Time ' Définit l'heure de début.
nombre_saisi = InputBox("Le nombre à deviner est dans l'intervalle: [" & lowerbound & "," & upperbound & "]")
nombre_essais = nombre_essais + 1
If nombre_saisi > nombre Then
upperbound = nombre_saisi
ElseIf nombre_saisi < nombre Then
lowerbound = nombre_saisi
Else
MsgBox ("Vous avez trouvé le nombre à deviner en " & nombre_essais & " fois")
finish = Time ' Définit l'heure de fin
temps_passé = finish - Time ' Calcule la durée totale.
temps_passé = MsgBox("s", finish, Time)
End If
Loop Until nombre_essais = 10
If nombre_essais = 10 Then
MsgBox ("Vous avez atteint le nombre d'essais maximum!")
End If
End Sub |
