DTR
Résolu
cs_AGG
Messages postés
46
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
9 décembre 2012
-
28 août 2007 à 16:14
cs_AGG Messages postés 46 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 9 décembre 2012 - 28 août 2007 à 20:58
cs_AGG Messages postés 46 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 9 décembre 2012 - 28 août 2007 à 20:58
2 réponses
Arnal88
Messages postés
96
Date d'inscription
samedi 21 octobre 2006
Statut
Membre
Dernière intervention
25 avril 2009
28 août 2007 à 18:56
28 août 2007 à 18:56
Salut !
Visiblement tu parles du port série de ton PC..
Outport n'est plus valable avec les versions modernes de Windows (raisons de sécurité)
Si tu programmes en VB6, il faut que tu charges le composant "Microsoft Comm Control" ou MSComm, qui a l'apparence d'un téléphone.
Place-le sur ta Form et exécute ceci :
Private Sub Form_Load()
MSComm1.CommPort = 1 '(si tu veux utiliser le port 1) MSComm1.PortOpen True 'ouvre le port> n'oublie pas de le refermer
MSComm1.DTREnable = False 'ceci te premet de piloter la ligne DTR
End Sub
Attention cependant : tout dépend de ce que tu veux faire avec ton programme. Si c'est pour créer un signal d'horloge, cela ne marchera pas car cette méthode met du temps à être exécutée (près de 100ms si je me rappelle bien..)
Visiblement tu parles du port série de ton PC..
Outport n'est plus valable avec les versions modernes de Windows (raisons de sécurité)
Si tu programmes en VB6, il faut que tu charges le composant "Microsoft Comm Control" ou MSComm, qui a l'apparence d'un téléphone.
Place-le sur ta Form et exécute ceci :
Private Sub Form_Load()
MSComm1.CommPort = 1 '(si tu veux utiliser le port 1) MSComm1.PortOpen True 'ouvre le port> n'oublie pas de le refermer
MSComm1.DTREnable = False 'ceci te premet de piloter la ligne DTR
End Sub
Attention cependant : tout dépend de ce que tu veux faire avec ton programme. Si c'est pour créer un signal d'horloge, cela ne marchera pas car cette méthode met du temps à être exécutée (près de 100ms si je me rappelle bien..)
cs_AGG
Messages postés
46
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
9 décembre 2012
28 août 2007 à 20:58
28 août 2007 à 20:58
J'avé fini par trouver moi mème ^^ :)
Merci :)
Private Sub com1_Click()
MSComm1.PortOpen = False
com1.Enabled = False
com2.Enabled = True
MSComm1.CommPort = "1"
MSComm1.PortOpen = True
End Sub
Private Sub com2_Click()
MSComm1.PortOpen = False
com2.Enabled = False
com1.Enabled = True
MSComm1.CommPort = "2"
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
MSComm1.DTREnable = True
End Sub
Private Sub Command2_Click()
MSComm1.DTREnable = False
End Sub
Private Sub Command3_Click()
MSComm1.RTSEnable = True
End Sub
Private Sub Command4_Click()
MSComm1.RTSEnable = False
End Sub
Private Sub Form_Load()
MSComm1.CommPort = "1"
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Merci :)
Private Sub com1_Click()
MSComm1.PortOpen = False
com1.Enabled = False
com2.Enabled = True
MSComm1.CommPort = "1"
MSComm1.PortOpen = True
End Sub
Private Sub com2_Click()
MSComm1.PortOpen = False
com2.Enabled = False
com1.Enabled = True
MSComm1.CommPort = "2"
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
MSComm1.DTREnable = True
End Sub
Private Sub Command2_Click()
MSComm1.DTREnable = False
End Sub
Private Sub Command3_Click()
MSComm1.RTSEnable = True
End Sub
Private Sub Command4_Click()
MSComm1.RTSEnable = False
End Sub
Private Sub Form_Load()
MSComm1.CommPort = "1"
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub