[VB6] mscomm

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!

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

Code:

---

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:

---

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

---

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

Code:

---

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?

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...

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.

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:

---

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

---

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