Bonjour,


suite à mon programme en vb, qui envoi des commandes à une carte de simulation.

j'aimerai pouvoir récupérer la réponse des trames et pouvoir les afficher dans une cellule, ou dans une textbox ect..

Comment faire ? je vous envoie la partie de mon programme qui envoie les commandes sur la carte de simulation. (l'envoi des commandes marche)

Cordialement,

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillisenconds As Long)
 
 
 
Private Sub CommandButton1_Click()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False         ' si le bouton 1 = true alors on fait appel à la fonction test_liaison
Call test_liaison
 
 
End Sub
 
 
Sub test_liaison()
 
Dim trame_recue As String
Dim buffer As String
 
mouchard = 1
 
 
MSComm1.CommPort = 3              'Comm1.CommPort = Sheets("Test&Réglage & PV").Range("port").Value      'permet de recuperer le numero du port com
MSComm1.Settings = "9600,N,8,1"   'configuration liaison série ( tjrs la même chose ) ' 9600 bauds, pas de parité, 8 bits de données et 1 bit d'arrêt.
MSComm1.PortOpen = True           'ouverture du port pour debuter la communication
MSComm1.SThreshold = 1
MSComm1.InputLen = 0             ' lecture total du buffer
 
 
 
MSComm1.Output = ActiveSheet.Cells(6, 9).Value & vbCrLf       ' envoi la saisie dans la cellule D2
 
 
Do
 
  DoEvents                                                    'indispensable sinon ça marche pas ( boucle de reception )
 
  trame_recue = trame_recue & MSComm1.Input
 
Loop Until InStr(trame_recue, vbCrLf)
 
 
 
 
fin:
 
MSComm1.PortOpen = False                                 'on ferme le port afin de terminer la communication
If mouchard = 1 Then                                     'si une trame a bien été envoyée
    MsgBox ("Opération terminée avec succès!")           'alors les caracteres sont bons et la communication est correcte
Else
    MsgBox ("Test échoué... nombre de trame envoyée par le pc :" & mouchard)    'sinon pb dans les caracteres
End If
 
 
End Sub 'fin