DTR [Résolu]

Signaler
Messages postés
46
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
9 décembre 2012
-
Messages postés
46
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
9 décembre 2012
-
Bonjour,

je suis débutant en vb :D

Comment mètre le je DTR a 1 ou 2 en VB

j'ai tester sa mais j'ai une erreur

' Pour mettre à zéro le signal DTR
r = outport(ComAdress+4, inport(ComAdress+4) And &hFE)






' Pour mettre à un le signal DTR







r = outport(ComAdress+4, inport(ComAdress+4) Or 1)





Merci :)
A voir également:

2 réponses

Messages postés
96
Date d'inscription
samedi 21 octobre 2006
Statut
Membre
Dernière intervention
25 avril 2009

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..)
Messages postés
46
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
9 décembre 2012

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