recuper les donnee du buffer

Question

salut,

j'ai fait un programme pour communiquer avec un sonar
j'arrive a lui envoyer des instructions, et j'ai un retour (diode Rx de ma carte qui s'allume)
le probleme c'est que je n'arrive pas a recuperer ses donnees 
voici une partie de mon programme
Dim bytecode1 As String
Dim buffer As Variant
bytecode1 = Chr$(&HFF) & Chr$(&H7) & Chr$(&H0) & Chr$(&HF8)
MSComm1.Output = bytecode1
MSComm1.InputMode = comInputModeBinary
buffer = buffer & MSComm1.Input
Text1.Text = buffer

j'ai essaye plusieur methode avec un timer mais a chaque fois je n'ai que la valeur 0 en retour, et j'ai aussi essaye de jouer sur les valeurs  des RThreshold...
j'attends en retour un code binaire, ou (255,254,7,0,_,_,248)

comment je dois faire pour recuperer les valeurs du buffer?
merci

PCPT · Answer

salut,
peut-&#234;tre y parviens-tu sans le savoir :
d&#232;s qu'un Chr(0) est dans une cha&#238;ne, le composant TextBox emp&#234;che son affichage ainsi que la cha&#238;ne qui le suit.
pour v&#233;rifier, essaie juste Debug.Print buffer. si le r&#233;sultat en fen&#234;tre d'execution te semble correct, il ne te reste qu'&#224; remplacer ce Chr.
@+
PCPT   [AFCK]

madmat88 · Answer

merci

maintenant je recupere les donnees mais en code machine
comment il faut faire pour avoir une reponse  en code ascii, car meme en changeant la dim de mon buffer rien ne change

PCPT · Answer

met un exemple.....
et buffer n'a pas a &#234;tre en Variant. (toujours &#224; &#233;viter d'ailleurs)

PCPT · Answer

exemple = une trame...., ton retour.

madmat88 · Answer

voici ce que je recupere
 &#255;&#254;
 &#255;&#254; 
&#255;&#254;
.....

PCPT · Answer

...si tu dis ne pas &#224; quoi &#231;&#224; devrait normalement correspondre, on est parti pour s'&#233;changer des posts pendant 2 mois avant la moindre r&#233;ponse utile....

madmat88 · Answer

c'est bon j'ai trouve voila le resultat: Dim commdata As String Dim msg As String commdata = MSComm1.Input if len(commdata) > 0 then For i = 1 To Len(commdata) msg = msg & "<" & Asc(Mid(commdata, i, 1)) & ">" Next i Text1.text= ">> " & msg End if et voila je recupere mes donnees sous la forme >> <255>..... merci

Recuper les donnee du buffer

7 réponses

Discussions similaires