Prendre le contrôle d'un bouton par le port série

gigawatt Messages postés 23 Date d'inscription jeudi 30 juin 2005 Statut Membre Dernière intervention 17 septembre 2010 - 24 août 2009 à 18:56
jmf0 Messages postés 1566 Date d'inscription mardi 26 décembre 2000 Statut Membre Dernière intervention 5 avril 2013 - 24 août 2009 à 22:42
Bonjour
je souhaiterais prendre le contrôle d'un bouton CommandClick par le port série afin de le mettre à true.
Voici mon code de test par le port série.

'Bouton marche machine
Private Sub Command1_Click()
CTSact = True

Private Sub Timer3_Timer()
CTSact = CTS
If (CTSact <> CTSanc) Then Affichage
CTSanc = CTSact
End Sub

Sub Affichage()
Etat$ = Time$ + " CTS=" + Str$(CTSact)
Text1.Text = Etat$
Open "Donnée.TXT" For Append As #1
Print #1, Etat$
Close 1
End Sub

Merci pour toutes soluces proposées
A+
Gigawatt

2 réponses

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
24 août 2009 à 19:58
Salut
Difficile à comprendre :
Un bouton qui se trouve où ?
Un port série qui se trouve où ?
Tu communiques avec quoi ?
Déjà, as-tu installé le composant MSComm sur une de tes formes ?
Explique ce que tu cherches à faire, parce que c'est loin d'être clair.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
0
jmf0 Messages postés 1566 Date d'inscription mardi 26 décembre 2000 Statut Membre Dernière intervention 5 avril 2013 8
24 août 2009 à 22:42
Boinsoir, Jack,

Ton petit doigt ne te dit pas ce que le mien me dit ?
Aucune explication, aucun suivi ne viendront jamais (je ne suis même pas certain de ce que l'outil de développement utilisé soit celui correspondant à la présente section... )
On verra bien (euh... "on verra" risque fort d'être un euphémisme ...)
0
Rejoignez-nous