Envoie d'un hexadecimale à travers un port serie

marwa - 23 mars 2015 à 15:52
Zermelo Messages postés 378 Date d'inscription samedi 22 septembre 2012 Statut Membre Dernière intervention 13 août 2017 - 25 mars 2015 à 20:04
Bonjour,

je veux envoyer une trame de 32 bit via un port serieRS232 l'envoie est 8 bit par 8 bits ce pour cela je veux envoyer 4 fois un nombre hexadecimale sous forme 0x3F par exemple. La probleme que de le debut je declare l'entrée comme string et comme ca le port les lire comme etant un nombre asci. Mais je veux que le port le lire comme etant un hex.
Que ce que je doit faire alors pour povoir envoyer un nombre hexadecimale à un port serie ?

quelqu'un peut m'aider s'il vous plait ?

4 réponses

Zermelo Messages postés 378 Date d'inscription samedi 22 septembre 2012 Statut Membre Dernière intervention 13 août 2017 14
24 mars 2015 à 13:28
Bonjour marwa.

Voyez la classe
System.Convert
.
Bon courage.
0
Est ce que vous avez un exemple de code que je pourrais le suivre ? Puisque je suis débutante à vb.net et merci
0
Zermelo Messages postés 378 Date d'inscription samedi 22 septembre 2012 Statut Membre Dernière intervention 13 août 2017 14
24 mars 2015 à 16:54
Bonjour marwa.

Je me doutais bien que vous étiez débutante. Je vous suggère donc de télécharger (c'est gratuit) le cours de Philipppe Lasserre, à l'adresse suivante

lasserre.developpez.com/cours/vb-net/

Cordialement.
0
Zermelo Messages postés 378 Date d'inscription samedi 22 septembre 2012 Statut Membre Dernière intervention 13 août 2017 14
24 mars 2015 à 23:49
Bonsoir marwa.

En tapant dans Google "serial port vb 2010", vous trouverez beaucoup d'informations susceptibles de vous intéresser.

Bonne nuit.
0
Merci bien Zermelo
0
Zermelo Messages postés 378 Date d'inscription samedi 22 septembre 2012 Statut Membre Dernière intervention 13 août 2017 14
25 mars 2015 à 20:04
Bonsoir marwa.

Ci-jointe une fonction qui convertit un String en un tableau de Bytes,

Public Class Accueil

Public Function Bytes(ByVal Txt As String) As Byte()
Dim n As Integer = Txt.Length
Dim i As Integer
Dim Octs(n - 1) As Byte
For i = 0 To n - 1
Octs(i) = Asc(Txt.Substring(i, 1))
Next i
Return Octs
End Function

Private Function Asc(ByVal t As String) As Byte
Return Convert.ToByte(Char.Parse(t))
End Function

End Class


et qui pourrait peut-être vous être utile.

Cordialement.
0
Rejoignez-nous