Discussion :

[gastoncs]

Amis du matin bonjour,

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

Code :

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

Ouvrir_porte_sortie()

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

Code :

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

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 :

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

1
2
Timer4.Start()
            Timer4.Interval = 3000

et dans mon timer j'appelle ma méthode :

Code :

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

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

[AcidLines]

Bonjour

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

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

[matll]

Salut,

dans ton Timer4.Tick
tu met

Code :

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

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

Bonjour

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

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
 
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 . Mieux vaut en utiliser un de trois secondes.


Bon Dev, @+
Mat

[AcidLines]

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

Je sais c'était juste un exemple à adapter au besoin

[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