Discussion :

[vinowan]

Bonjour,

je pense que je n'ai pas posté ce message dans le bon forum, c'est pourquoi je me permet de le replacer ici, j'espere que les modérateur m'excuseront.

donc voici mon probleme:

j'ai fait un petit programme en vb pour lire des code venant d'un pic(16F628A),
celui-ci m'envoi des code hexa qui sont interpreter en ascii par le pc,
je les transforme en suite en code decimale que j'affiche dans un label.

le probleme est que tout les code envoié supérieure à 128 decimale sont considérer par le pc comme des "?" (code ascii 63).

j'ai vu que la fonction de lecture readexisting me rend une chaine de ce type:
"??345678" les 2 "?" correspondant au code hexa 129 et 130.

que puisje faire pour régler ce probleme afin de pouvoir afficher 129 et 130 dans mon label?


voici la configuration de ma variable port Com de mon formulaire FormStart:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
FormStart.Com = My.Computer.Ports.OpenSerialPo rt(Me.ComboBox1.SelectedItem)
FormStart.Com.BaudRate = 9600
FormStart.Com.Parity = IO.Ports.Parity.None
FormStart.Com.DataBits = 8
FormStart.Com.StopBits = 1
FormStart.Com.Handshake = IO.Ports.Handshake.None

et voici comment je lis le port com:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

receive_string = Com.ReadExisting

merci pour votre aide.

[OhMonBato]

Je ne comprends pas trop, tu dis que ton Pic t'envois des codes hexadécimaux, la chaine que tu donnes en exemple (??345678) ne correspond pas à ça. D'où vient-elle ? C'est une chaine de code hexa que ton programme a déjà traduit en caractères ASCII ?
Que veux tu afficher au juste 129 et 130 ou les caractères dont le code ASCII est 129 ou 130 ?

[Pol63]

essaye de travailler en octet et de transformer après
donc readbytes au lieu de readexisting (et sendbytes)

[vinowan]

Les code envoyer par le pic sont en hexadecimal,

j'ai vu qu'il était interpreter par le pc (code vba) avec readexisting comme des code ascii

voici la string envoier par le pic en decimale " 128 129 51 52 53 54 55 56"
ou en hexa "80 81 33 34 35 36 37 38"

c'est pourquoi la chaine que je recois est "??345678" car avec readexisting on recois une string.

le code envoier par le pic 129 decimal (ou 81 hex) donne ? (caractere ascii) pour le vba
51 decimal (ou 33 hex) donne 3 (caractere asii) pour le vba

mon probleme est donc que j'envoi un code hexa qui est interpreter comme code asii par mon programme vba, j'arrive a convertir grace à la fonction ASC() le caratere asii en code decimal, mais cela ne fonctionne plus pour les code hexa superieure à 7F hex ou 127 decimal.

je vais essayer avec read byte.

merci pour votre aide.

[vinowan]

voila j'ai essayer aver redbyte et cela fonctionne mieux, merci.

mais j'ai un autre probleme.

je recois du pic une trame de 8 bytes toutes les 20 ms + ou -.

les code recus s'ajoute donc constament dans le buffer de reception, ce qui me donne une enorme trame apres seulement quelque seconde "128 51 52 53 ..."

le pic termine toujours une trame par 13 dec (CR = retour a la ligne)

je test donc le debut de la trame en attendant le code 13 pour ensuite debuter la lecture des 8 bytes à la suite l'un de l'autre.

le probleme est que lorsque j'arrette le pic le code vb continue a afficher les trame car le buffer n'est pas vide.

comment puisje faire pour effacer le buffer apres en avoir lu l'information dont j'ai besoin.

j'ai utilisé un timer (1s) pour la lecture du port com, exiterait il une facon de créer un evenement sur reception d'un byte ?

merci de vos reponse.

voici mon code:

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
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Dim receive_string As String = ""
 
        'attente du CR "13"
        Do Until receive_string = "13"
            receive_string = Com.ReadByte
        Loop
 
        'reception de la trame de 8 byte
        Label1.Text = Com.ReadByte
        Label2.Text = Com.ReadByte
        Label3.Text = Com.ReadByte
        Label4.Text = Com.ReadByte
        Label5.Text = Com.ReadByte
        Label6.Text = Com.ReadByte
        Label7.Text = Com.ReadByte
        Label8.Text = Com.ReadByte
 
        Label10.Text = "Reception OK"
        Label10.BackColor = Color.Lime
 
 
        Label9.Text = My.Computer.Clock.LocalTime.ToLongTimeString
 
    End Sub

[Pol63]

il ne faut pas faire ca sur un timer
il y a en effet un évènement qui signale l'arrivée d'octets