Discussion :

[rosas]

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 :

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

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

[Jerede]

Bonjour,

Le mieux pour ça est d'utiliser la classe Stopwatch http://msdn.microsoft.com/en-us/libr...stopwatch.aspx

[getule]

Tu peux aussi utiliser le composant BackGroundWorker