Timer de 3 secondes, puis stop !

Version imprimable

Amis du matin bonjour,

j'ai un petit soucis dans mon programme que je souhaiterais vous exposé, j'ai une méthode intitulé

Code:

Ouvrir_porte_sortie()

qui ouvre un relais sur une carte relié en au port série, voici le contenu de cette méthode :
Code:

1 2 3 4 5 6 Sub Ouvrir_porte_sortie() 'ouvrir la porte de sortie des secours Address_Byte = 0 Command_Byte = 8 Data_byte = 1 Send_cmd(Address_Byte, Command_Byte, Data_byte) End Sub
Elle contient les paramétré à envoyé a la carte (et à la méthode Send_cmd) pour l'ouverture du relais correspondant.

Et j'ai un bouton qui lorsque je clique dessus, appel la méthode "Ouvrir_porte_sortie()"

Jusque la aucun probléme tous fonctionne, mais le probléme arrive maintenant : en faite je souhaite ouvrir le relais, (lancer la méthode "Ouvrir_porte_sortie()" lorsque je clique sur le bouton toujours, mais seulement pendant 3 secondes, et après ces 3 secondes appelé une dernière fois la méthode "Ouvrir_porte_sortie()" pour refermer le relais.

Donc j'ai fait ceci :

Lorsque je clique sur mon bouton je lance timer4 :
Code:

1 2 Timer4.Start() Timer4.Interval = 3000
et dans mon timer j'appelle ma méthode :

Code:

Ouvrir_porte_sortie()

Le gros soucis est que une fois que je clique sur le bouton concerné le relais est éteint 3 secondes puis ce rallume 3 secondes puis est éteint 3 secondes puis ce rallume.....etc jusqu'à ce que je ferme le port série !

pourriez vous m'aider ???

Bonjour

Un petit bout de code pouvant peut être t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Class Form1
      Dim compteSec As Integer
 
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Timer1.Start()
           Timer1.Interval = 1000
      End Sub
 
      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
           If compteSec < 3 Then
               compteSec = compteSec + 1
               TextBox1.Text = compteSec
           Else
              Timer1.Stop()
           End If
      End Sub
End Class

Salut,

dans ton Timer4.Tick
tu met

Code:

1
2
3
Timer4.Stop() 'Arrete ton Timer (ne se relance donc pas automatiquement)
Timer4.Enable = False '(désactive ton timer)
Ouvrir_porte_sortie()

Citation:

Envoyé par AcidLines

Bonjour

Un petit bout de code pouvant peut être t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Class Form1
      Dim compteSec As Integer
 
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Timer1.Start()
           Timer1.Interval = 1000
      End Sub
 
      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
           If compteSec < 3 Then
               compteSec = compteSec + 1
               TextBox1.Text = compteSec
           Else
              Timer1.Stop()
           End If
      End Sub
End Class

Pas besoin d'exécuter trois fois un timer d'une seconde :aie:. Mieux vaut en utiliser un de trois secondes.

Bon Dev, @+
Mat

15/07/2011, 13h03
AcidLines

Citation:

Envoyé par matll

Salut,
Pas besoin d'exécuter trois fois un timer d'une seconde :aie:. Mieux vaut en utiliser un de trois secondes.
Mat

Je sais c'était juste un exemple à adapter au besoin :ccool:
15/07/2011, 13h59
gastoncs

Merci j'ai essayé les deux solutions et elle fonctionne toutes très bien, j'ai quand même opté pour la deuxième plus petite et simple en code, mais merci a vous