Tableau Byte et déclaration

Réponse acceptée !
toosdu87 -> OK mais quel est le but?
un tableau de byte d'une "bonjour" donnerait un tableau de 0 à 6, contenant les codes ascii de chaque lettre

ici tu as un tableau de décimal (nombres à virgules donc) et tu voudrais tout mettre dans un tableau de byte, donc en fait juste un tableau d'entier positifs de 0 à 255 ?

peux-tu expliquer le but stp?

si c'est juste ce que je viens de dire (étrange...), çà donnerait quelque chose dans ce goût là :

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim i As Integer

        ' "Tableauemission contient des valeurs décimales."
        Dim Tableauemission(0 To 9) As Double
        For i = 0 To 9
            Tableauemission(i) = i * 2.05
        Next i

        'tableau de byte
        Dim Octet_hexa() As Byte

        'remplissage et cast
        ReDim Octet_hexa(Tableauemission.GetUpperBound(0))
        For i = 0 To 9
            Octet_hexa(i) = Convert.ToByte(Tableauemission(i))
        Next i

        'verif
        For i = 0 To 9
            System.Console.WriteLine(String.Format("{0}. '{1}' devient '{2}'", i, Tableauemission(i), Octet_hexa(i)))
        Next i
    End Sub
Coloration syntaxique vb/vba/vb.net


TRACE :

0. '0' devient '0'
1. '2,05' devient '2'
2. '4,1' devient '4'
3. '6,15' devient '6'
4. '8,2' devient '8'
5. '10,25' devient '10'
6. '12,3' devient '12'
7. '14,35' devient '14'
8. '16,4' devient '16'
9. '18,45' devient '18'

---

Prenez un instant pour répondre à ce sondage svp 

Réponse acceptée !
Merci PCPT,

pour récap:
je remplie mon tableau de string (qui sont des valeurs HEXA) de la façon suivante:

Tableau_emission(7) = Val(

"&h" + Mid(Parameter_number, 3, 2)) ''''D2

Tableau_emission(8) = Val(

"&h" + Mid(Parameter_number, 1, 2)) ''''D3Je travail uniquement avec des entiers.
Mon tableau permet de créer une trame que je vais envoyer par RS232 a un microcontroleur.
C'est pourquoi il faut que je convertisse en Octet.

En tout cas grâce à toi et aux autres que je remercie, le code marche très bien de cette façon, c'est exactement ce que je voulais. MERCI

Dim Octet_hexa AsByte()

'remplissage et cast

ReDim Octet_hexa(Longueur_Trame + 1)

For i = 0 To Longueur_Trame + 1

Octet_hexa(i) = Convert.ToByte(Tableau_emission(i))

Next i

Me.COM_NITOO.Write((Octet_hexa), 0, Octet_hexa.Length)
***Dernière petite question, est ce que Convert.toByte utilise la classe Convert DOTNET?





Cyril