Scruter un port parallèle en permanceRésolu

Question

Salut à tous,

Etant débutant en VB6, j'ai un problème pour scruter mon port parallèle en permance.
Je m'explique : mon bout de programme me permet de reçevoir une impulsion à partir d'un bouton poussoir (BP1) que j'ai placé sur une entrée de mon port mais il faut que je clic en même temps sur un boutton (Command1) que j'ai mis sur mon Form .
Je voudrai reçevoir mon impulsion en appuyant uniquement sur mon boutton poussoir (BP1) sans avoir recourt au Command1 du Form mais je vois pas comment faire ?

Voila le morceau de mon programme :

Private Sub Command1_click()

ValeurPort = Inp(&H379)                    'Lecture du port    If ValeurPort 112 Then                 'si la valeur du port 112 alors BP1 = 1


    Out &H37A, 4                                ' Allume la sortie 1 et
    Text1 = "Impulsion reçu"                  ' Affiche que l'impulsion a été reçu.
    End If

End Sub

Si quelqu'un aurait une idée...
Merci.

Loïc.

cs_Jack · Answer

SalutPlace un Timer sur ta forme, rends-le Enabled True + Interval 250 (msec)
Double clique sur le timer afin de rentrer dans son code et colles-y le code que tu veux exécuter cycliquement.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Scruter un port parallèle en permance

1 réponse

Votre réponse

Discussions similaires