DTR [Résolu]

cs_AGG 46 Messages postés jeudi 15 avril 2004Date d'inscription 9 décembre 2012 Dernière intervention - 28 août 2007 à 16:14 - Dernière réponse : cs_AGG 46 Messages postés jeudi 15 avril 2004Date d'inscription 9 décembre 2012 Dernière intervention
- 28 août 2007 à 20:58
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 :)
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Arnal88 96 Messages postés samedi 21 octobre 2006Date d'inscription 25 avril 2009 Dernière intervention - 28 août 2007 à 18:56
3
Merci
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..)

Merci Arnal88 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 124 internautes ce mois-ci

Commenter la réponse de Arnal88
Meilleure réponse
cs_AGG 46 Messages postés jeudi 15 avril 2004Date d'inscription 9 décembre 2012 Dernière intervention - 28 août 2007 à 20:58
3
Merci
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 cs_AGG 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 124 internautes ce mois-ci

Commenter la réponse de cs_AGG

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.