[VBA-E]communication port série
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:
Code:
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 'j’ouvre 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 |
J'aimerais afficher la récéption dans une listbox.
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!
