Récupérer deux mots de 8 bits par le port série

Question

Bonjour &#224; tous,

Quelq'un pourrait m'aider!
En deux mots, j'utilise un PIC 16F876 qui envoie deux mots de 8 bits afin de retransmettre une donn&#233;e analogique vers le pc par le port s&#233;rie
voil&#224; mon code: 
----------------------------------------------------
Dim dat(3)
Private Sub Command1_Click()
   If MSComm1.PortOpen = True Then
      MSComm1.PortOpen = False
   End If
   End


End Sub
Private Sub Form_Load()
Dim TempC
n = 0
    MSComm1.Settings = "9600,N,8,1" 'Set baud rate
    MSComm1.CommPort = 2           'Set comm port
    MSComm1.PortOpen = True         'Open comm port
    Form1.Visible = True            'Show the form
 Do
Start:
    For n = 1 To 2       
Do

       DoEvents
        Loop Until MSComm1.InBufferCount > 0
        dat(n) = Asc(MSComm1.Input) 'Store bytes in Array
        Debug.Print dat(n) ' Debug purposes only
         
          
    Next n
        Label1.Caption = dat(1)
          Label2.Caption = dat(2)
          Label3.Caption = (dat(1)*256)+dat(2)
       
          
       
 Loop
    
          
End Sub

-----------------------------------------------------
Mon probl&#232;me est que lorsque je lance le programme, il ne synchronise pas toujours sur le premier mot d 8 bits!!!!! Quelqu'un pourrait-il m'aider??????? Pour que le programme s'ynchronise sur le premier mot au lancement de celui-ci!!!!

Merci d'avance

Phil

cs_Jack · Answer

Ouh lala ! Attention
Tu as imbriqu&#233; deux boucles l'une dans l'autre : Dans l'ordre, tu as : For - Do - Next - Loop
Ca ne va pas du tout. Il faut imp&#233;rativement que le Loop soit avant le Next
Mais comme je ne sait pas ce que tu cherches &#224; faire avec ces boucles, difficile de t'aider &#224; restructurer. (et en regardant mieux, il y a plus de Do que de Loop ! je me demande comment VB peut se lancer !)

Si tu veux lire les donn&#233;es num&#233;riques issues du port Com, je te conseille de ne pas te compliquer la vie : lis les caract&#232;res et traite-les apr&#232;s.
Dans ton cas, tu dimensionnes ton tableau &#224; trois donn&#233;es. Et si le port Com en envoie plus, que se passe t-il ? le programme se plante ou bien ton tableau est &#233;cras&#233; : dans les deux cas, tu perds des donn&#233;es : c'est peut-&#234;tre ce qui t'arrive.

Ce qu'il faut que tu saches, c'est que quand tu mets 'MSComm1.Input', &#231;a lit toutes les donn&#233;es, mais aussi, &#231;a vide le buffer : Donc si tu n'exploites pas toutes les infos reccueillies, tu en perdras, c'est s&#251;r.
Donc, fait &#231;a en deux temps :
-1- Lit les donn&#233;es et stocke-les
-2- Analyse tes donn&#233;es apr&#232;s

' Variable de r&#233;ception
Dim Donn&#233;es As String
' Attend les donn&#233;es
Do While MSComm1.InBufferCount = 0
   DoEvents
Loop
' Lecture des donn&#233;es
Donn&#233;es = MSComm1.Input
' Analyse des donn&#233;es
For r = 1 To Len(Donn&#233;es)
   ' 1 est le 1er caract&#232;re ..
   Debug.Print "r = "; r; " --> "; Asc(Mid(Donn&#233;es, r, 1))
Next r

Pour le reste, &#224; toi de voir ce que tu vas faire de ces chiffres.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

duquep · Answer

Merci pour ton aide fructueuse!


La seule chose que je puise encore te demander, enfin si tu veux bien....


Comment dois-je faire pour afficher ces deux "mots" dans 2 label.En effet mon composant n'envoie que deux valeurs et j'aimerais qu'il lise ces deux valeurs en boucle.


Un tout tout grand merci.


 


PS voici le ligne du programme de mon composant &#233;lectronique qui envoie les donn&#233;es :


serout PortC.6,84,[VAR1.HighByte,VAR1.LowByte]<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />



Phil

duquep · Answer

Phil

Récupérer deux mots de 8 bits par le port série

3 réponses

Discussions similaires