Discussion :

[saraenim]

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 :

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

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 :

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
 
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

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
 
 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

[ToTo13]

Bonjour,

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

Code :

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

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...

[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

[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

[Pol63]

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 :

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
 
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

[Aspic]

Y'a une erreur c'est normal :

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
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

[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 ...

[Danyel]

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.

[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........

[ToTo13]

Bonjour,

Code :

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

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

[Aspic]

Comme quoi le .net est intuitif !!

Apparemment ca marche très bien donc soit il a pas testé, soit il a mal testé

[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

Sara
@+

[Aspic]

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

Sara
@+

Heureusement que ca marche

Bonne continuation