Discussion :

[Persons]

Bonjour à tous

Voila mon problème :
j' utilise le composant mscomm pour envoyer des données sur le port série. Ces données sont des valeurs hexadécimales (0A 10 1A etc...)

Pourriez vous m'indiquer comment formater ces données pour les envoyer sur le port série (un exemple serait le bien venu).

Merci d'avance pour vos explications!

[HPJ]

Si ton MSComm est en mode binaire, convertit tes chaines hexa en octets:

Code :

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

1
2
Dim octet As Byte
octet = Val("&h" & chaineHexa)

Si ton MSComm est en mode texte, convertit tes chaines hexa en caractères:

Code :

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

1
2
Dim s As String
s = Chr(Val("&h" & chaineHexa))

[Persons]

Désolé HPJ
Mon MSComm est bien en mode binaire mais en utilisant :

Code :

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

1
2
3
Dim octet As Byte
octet = Val("&h" & "0A")
mscomm1.output = octet

J'ai l'erreur suivante :
error 380
Valeur de propriété non valide

Si tu as une idée?

[HPJ]

Comme il est écrit dans l'aide de la propriété Output, tu ne dois pas envoyer un octet seul mais un tableau d'octets...

[Persons]

HPJ est ce k'il te serait possible de m'expliquer mon erreur par un exemple concret car je ne comprends pas du tout mon erreur et j'aimerai bien comprendre! merci d'avance pour ton aide.

[HPJ]

Pour envoyer des données vers le composant MsComm en mode binaire tu dois affecter un tableau d'octets à la propriété Output.

Tu dois convertir ta chaine de valeurs hexa en un tableau d'octets.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim chaine As String
Dim tableau(0 to 2) As Byte 
Dim i As Integer
 
chaine = "1A0123" ' 3 octets
 
For i = 0 to 2
   ' convertit chaque couplet de caractères hexa en une valeur entière
   tableau(i) = Val("&h" & mid(chaine, i * 2, 2))
Next i
 
MsComm.Output = tableau

[Persons]

Merci à toi HPJ. Ton aide m'a été très précieuse. Je te remercie pour toutes explications et ta rapidité à me répondre.