Discussion :

[altahir007]

Bonjour,

J'utilise un port série, j'envoi un char, il m'en retourne 2. Je stock ces deux char dans un tableau bufferin, j'aimerai les traiter pour obtenir un resulat entier selon ce décalage de byte. Bien entendu, tel quel, ça ne fonctionne pas, avez vous une idée pour convertir un char en byte ?

resultat = bufferin(0) << 8 & bufferin(1)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Dim bufferin() As Char = New Char(2) {}
 
SerialPort1.Write("C")
Sleep(100) 'petite pause pour attendre les bytes en retour
 
SerialPort1.Read(bufferin, 0, 2)
 
'ici la suite

[altahir007]

en delphi, j'utilisai ord(monchar) pour réaliser ce passe passe !

[altahir007]

j'ai l'impression que ça fonctionne
Qu'en pensez vous ?

Code :

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

1
2
3
4
5
6
7
8
 
        Dim byte1 As Byte
        Dim byte2 As Byte
        Dim resultat As Integer
 
        byte1 = Convert.ToByte(bufferin(0))
        byte2 = Convert.ToByte(bufferin(1))
        resultat = byte1 * 255 + byte2

[altahir007]

nan ça ne marche pas, un 0xFF deviens un 0X3F !