Probléme avec stopwatch

Version imprimable

salut

j'ai une petite application qui contient un stopwatch,
quand je clique sur F6 le chronométre se déclenche, sur F7 s'arrête et f8 me donne la duréé
le probléme est que la duréé est toujours 00:00 et je sais pas pourquoi
voila mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
dim a as stopwatch
public sub1 ........
if e.keycode = keys.F6
a.start()
end if
if e.keycode = keys.F7
a.stop()
end if
if e3keycode = keys.F8
r = a.elapsed()
end if

j'ai essayé ça aussi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
dim a as stop watch
public sub 1 ........
if e.keycode = keys.F6
a.start()
end if
 
end sub
public sub2 ..........
if e.keycode = keys.F7
a.stop()
end if
 
end sub
public sub3 ......
if e.keycode = keys.F8
r = a.elapsed()
end if
 
end sub

Remarque : j'ai importé system.diagnostic

quand je passe en mode débug détaillé le chrono se déclanche
et il s'arréte et je sais pas pourquoi la duree est null :aie:

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
 
 imports system.diagnostic
public class form1
dim a as new stopwatch
dim r as string
public sub form1_keydown ( byval sender as object, byval e as system.windows.forms.keyeventargs) handles me.keydown
if e.keycode = keys.F6 then
a.start()
end if
 
end sub
public sub  form11_keydown ( byval sender as object, byval e as system.windows.forms.keyeventargs) handles me.keydown
 
if e.keycode = keys.F7 then
a.stop()
end if
 
end sub
public sub form111_keydown ( byval sender as object, byval e as system.windows.forms.keyeventargs) handles me.keydown
 
if e3keycode = keys.F8 then
r = a.elapsed.tostring()
end if
 
end sub
end class

SVP aidez moi
merci

23/05/2008, 13h21
ToTo13

Bonjour,

je ne suis pas spécialiste en dotnet, mais il y a quelques chose qui me m'intrigue dans ton code :

Code:

e3keycode

alors que partout ailleurs tu utilises "e.keycode".
Si ce n'est pas ça... j'effacerai ma réponse si un modérateur ne le fait pas avant...
23/05/2008, 14h21
Pol63

si ton code est réellement ca, il n'y a pas de raison que ca ne marche pas, donc je soupconne que ce soit un copier coller sélectif, si c'est le cas, il faut que tu fasses un copier coller de ton code de toute ta fenetre, car le problème vient de ton code, ca c'est sur vu que c'est faisable
23/05/2008, 22h18
saraenim

salut,
je vous jure que c'est ça tout mon code et c'est pas faisable
j'ai essayé par 2 méthodes et toujours rien

non, je confirme que le code que tu nous as mis est pas ta fenetre entière, car tu fais imports de system.diagnostic alors que y a un S à diagnostic normalement

je viens de faire un nouveau projet et ca fonctionne chez moi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Class Form1
 
    Private Chrono As New System.Diagnostics.Stopwatch
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.F6
                Chrono.Reset()
                Chrono.Start()
                Me.Text = "Chrono démarré"
            Case Keys.F7
                Chrono.Stop()
                Me.Text = Chrono.ElapsedMilliseconds.ToString
        End Select
    End Sub
 
 
End Class

Me.Text affiche le texte dans la barre de titre de la fenetre

Y'a une erreur c'est normal :

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
Imports System.Diagnostics
 
Public Class Form1
 
    Dim a As New Stopwatch
    Dim r As String
    Public Sub form1_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F6 Then
            a.Start()
        End If
 
    End Sub
    Public Sub form11_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If e.KeyCode = Keys.F7 Then
            a.Stop()
        End If
 
    End Sub
    Public Sub form111_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If e.KeyCode = Keys.F8 Then 'c'est ici ce n'est pas e3keycode mais e.keycode !!
            r = a.Elapsed.ToString()
            MsgBox(r)
        End If
 
    End Sub
End Class

23/05/2008, 23h03
Pol63

deja dit
mais de toute facon, son erreur doit pas etre là, sinon ca pourrait pas compiler
je continue de croire qu'il a fait un copier coller arrangé en recopiant une paire de truc
ou alors il lutte ...
23/05/2008, 23h12
Danyel

Citation:

Envoyé par sperot51

je continue de croire qu'il a fait un copier coller arrangé en recopiant une paire de truc

Ca c'est sûr car il manque plein de choses et surtout il n'y a pas l'indentation auto.
24/05/2008, 12h32
Aspic

Mais le code que j'ai posté marche très bien ! Donc même s'il fait un copier/coller du code il n'y aura pas de problème........ ;)
24/05/2008, 15h42
ToTo13

Bonjour,

Citation:

Envoyé par Aspic

Code:

If e.KeyCode = Keys.F8 Then 'c'est ici ce n'est pas e3keycode mais e.keycode !!

même moi qui ne connaît pas du tout le .Net, j'ai vu ça...
Et apparemment il n'a pas essayé ma solution :(
24/05/2008, 21h54
Aspic

Comme quoi le .net est intuitif !!

Apparemment ca marche très bien donc soit il a pas testé, soit il a mal testé ;)
26/05/2008, 11h35
saraenim

salut, tout le monde
désolé j'ai été en déplacement c'est pour cela que j'ai pas vu vos solution
désolé une autre fois
merci beaucoupr pour votre aide à tous en plus vos solutions marche
:D
Sara
@+
26/05/2008, 19h38
Aspic

Citation:

Envoyé par saraenim

salut, tout le monde
désolé j'ai été en déplacement c'est pour cela que j'ai pas vu vos solution
désolé une autre fois
merci beaucoupr pour votre aide à tous en plus vos solutions marche
:D
Sara
@+

Heureusement que ca marche ;)

Bonne continuation :mrgreen: