Discussion :

[boettez]

Bonjour
Je veut compter le nombre d'impulsions qui est délivé par un contact sec branché sur le port série entre les pinoches CTS et DTR.
jusque là tout est ok.
Problême mon compteur tourne si je reste appuyer en permanence sur le contact sec.
Je voudrais qu'il se déclenche que sur front montant ou descendant, je pense il faut peut être utiliser KeyUp ou KeyDown.
Si quelqu'un a une soluce.
Merci d'avance
A+

Ci joint le code de comptage.

Code :

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

1
2
3
4
5
6
Private Sub Timer2_Timer()
CTSact = CTS
If (CTSact <> CTSanc) Then CTSanc = CTSact
If CTSact = "1" Then intSomme = intSomme + Text1.Text
Text2.Text = intSomme
End Sub

Pour infos:
CTSact=1 quand le contact sec est activé
CTSanc=0 quand le contact sec n'est pas activé
Résultat comptage dans text2.text

[ProgElecT]

Là il ne s’agit pas d’un problème de langage mais d’algorithme.
Il faut que tu ais une variable qui retienne le dernier état lut sur ton port série.
Dans la section général de ta form tu déclare une variable Dim OldEtat as Integer, dans la procédure événementiel (Timer2_Timer) tu commences par comparer si l’état précédant été égal à 0 et si le nouvel état = 1, la condition est remplis, tu mets OldEtat = 1 et tu traites la chose.
Au prochain passage dans (Timer2_Timer) OldEtat étant égal à 1, si le nouvel état et égal à 1 tu ne fait rien, si le nouvel état égal 0 tu mets OldEtat égal 0 et tu ne fait rien, au prochain passage de l’état à 1, la boucle recommence.

[boettez]

Bonjour

C'est ok
Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Timer2_Timer()
CTSnouv = CTS
If (CTSnouv <> CTSant) Then
CTSant = CTSnouv
If CTSnouv Then
intSomme = intSomme + Text1.Text
Text2.Text = intSomme
End If
End If
End Sub

Merci pour ta réponse.
A+