Re-re-re-re bonjour!!
Décidemment, j'ai vraiment du mal!!
Je dois maintenant communiquer avec une balance via le port série.
Avec l'hyper terminal j'y arrive sans problème (à condition de cocher "Envoyer les fins de ligne avec saut de ligne" et "Reproduire localement les caractères entrés" dans Propriété/Onglet "paramètres"/Configuration Ascii)
Mais dès que je tente une programmation en vba, je n'y arrive plus...
J'ai trouvé ceci sur le forum (sa balance doit être exactement la même que la mienne) donc je sais que c'est possible :
http://www.developpez.net/forums/sho...t=port+s%E9rie
Je dois envoyer la trame "P CR LF" (CR correspond à caractère de saut de paragraphe et Lf à caractère de saut de ligne)
Voici mon code:
J'aimerais afficher la récéption dans une listbox.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Private Sub CommandButton1_Click() Dim trame As String Dim buffer$ With MSComm1 .CommPort = 5 'on utilise le port COM5: .PortOpen = True 'jouvre le port série .Settings = "2400,N,7,2" .Handshaking = comXOnXoff .Output = "P" & vbCrLf buffer$ = buffer$ & MSComm1.Input ListBox1.AddItem buffer$ End With End Sub
Comment faire pour réussir la communication?
NB:je ferme le port plus tard
J'espère que je ne vous ennuie pas trop avec mes pb de débutant!
Merci beaucoup en tout cas!
Partager