Discussion :

[Crokflo]

Bonjour les développeurs,

Voila j'ai une question. Je récupère une données Rs232 en héxadécimal et je les affiches ensuite dans une TextBox et mon problème et l'orsque je reçois ma donnée hexa (par exemple : "05") ben il m'affiche juste "5", pour les autres aucun soucis (par exemple :"88" s'affiche "88"). je voudrais donc que dans ma TextBox il m'affiche bien le 0 devant les chiffres.

Je vous montre des Parties de mon code. Plus partique pour voir les variables:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class Form1
    Dim Data As Byte
    Dim don1(900000) As String
    Dim i As Integer = 1
     '-------------------------------Reception des données du port série -----------------------
    Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived
        Do While SerialPort1.BytesToRead <> 0
            Data = Data & Hex(SerialPort1.ReadByte)
            don1(i) = Data
            i = i + 1
            Data = 0
        Loop
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
    End Sub
      Public Sub DoUpdate()
        TextBox2.Text = don1(1) & " " & don1(2) & " " & don1(3) & " " & don1(4)

Voila si certain on une petite astuce ou la solution...

Merci d'avance

[Nathanael Marchand]

Utiliser String.Format plutot que de faire de la concaténation à tout va:

http://msdn.microsoft.com/en-us/library/0c899ak8.aspx

[Crokflo]

Ok merci je te remercie pour la réponse.

Maintenant une autre question, je n'arrive pas à trouver dans la library:

Est-ce qu'il y aurait un code pour simplifier ceci:

Code :

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

1
2
3
4
5
6
7
8
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()

Je veux Effacer Toutes les TextBox ensemble et je trouve que le code est un peu lourd ^^

Merci d'avance

[Nathanael Marchand]

Bof. Pas grand chose à faire. Si par exemple elles ont toutes le même parent, tu peux itérer sur la propriété Controls:

Code :

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

1
2
3
4
5
 
foreach(var textbox in parent.Controls.OfType<TextBox>())
{
    textbox.Clear();
}

Mais je suis pas sur que ca soit interessant.

[Crokflo]

Merci pour l'astuce

Mais retour à mon problème d'affichage
En faite le problème est que je veux afficher de l'héxadecimal mais que il ne m'affiche pas les zéros devant les nombres décimals (0 -> 9)(H00 -> H09)
Les commandes de format ne fonctionne pas du tout j'ai essayé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived
    Dim Data, Data1(50) As Byte
    Dim Data2(50), RF, ex As String
 
        Do While SerialPort1.BytesToRead <> 0
            Data = Data & SerialPort1.ReadByte
            Data1(i) = Data
            Data2(i) = Hex(Data1(i))
            Data2(i) = Data2(i).ToString("00") 'Celle ci ********
            i = i + 1
            Data = 0
        Loop

Le probleme est que je suis obligé de récuperer mes données dans une variable Byte. Lorsque mes données sont entierement en décimal il n'y a aucun problème mais quand il y a une lettre ben le programme fonctionne plus, logique. donc je suis obligé de passer mes variable en String. Donc voila tout mon soucis jespere mettre bien exprimé ^^

MERCI D'AVANCE

[Nathanael Marchand]

Voir ici pour l'hexa:
http://msdn.microsoft.com/en-us/libr...#XFormatString

[Anklor]

Premièrement "00" ne veut rien dire, si tu veux 2 caractères décimales c'est "D2"

Code :

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

Data2(i) = Data2(i).ToString("D2")

Mais comme tu le dis, cela ne marchera pas si les valeurs comprennent A,B,C,D,E,F

Maintenant, comme le dis Nathanael, il faut utiliser String.Format X (Héxa)

Code :

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

1
2
3
Data = Data & SerialPort1.ReadByte
Data1(i) = Data.ToString("X2")   'x2 si tu veux en minuscule
i +=  1

[Nathanael Marchand]

Premièrement "00" ne veut rien dire

Euh ben si! C'est un format custom a deux chiffres

[Anklor]

Je ne dis pas que ça marche pas, mais c'est pas standard.
pour un nombre à 2 chiffres c'est ""D2" non ?

[MABROUKI]

bonjour crokflot,croque bytes
Ce ne serait pas plus expeditif de passer par stringbuilder comme ceci.
code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Imports System.Text
Imports System.IO.Ports
 
Public Class Form2
    Dim Data(100000) As Byte
    Dim I As Integer = 0
    'à virer
    'Dim don1(900000) As String
 
    '-------------------------------Reception des données du port série -----------------------
    Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived
        Do While SerialPort1.BytesToRead <> 0
            Data(I) = SerialPort1.ReadByte
            'à virer
            '    'don1(i) = Data
            I = I + 1
        Loop
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
    End Sub
 
    Public Sub DoUpdate()
        'TextBox2.Text = don1(1) & " " & don1(2) & " " & don1(3) & " " & don1(4)
        TextBox2.Text = ByteArrayToString(Data)
    End Sub
 
    Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
        Dim i As Integer
        Dim sOutput As New StringBuilder(arrInput.Length)
        For i = 0 To arrInput.Length - 1
            sOutput.Append(arrInput(i).ToString("X2") & "-")
        Next
        Return sOutput.ToString()
    End Function
    'Pour Test
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AfficheHex()
    End Sub
    Private Sub AfficheHex()
        Do While I < 255
            Data(I) = Convert.ToByte(I)
            I = I + 1
            Me.Invoke(New EventHandler(AddressOf DoUpdateBis))
            If I > 255 Then
                'vide Data
                ReDim Data(100000)
                I = 0
            End If
        Loop
    End Sub
    Public Sub DoUpdateBis()
        TextBox2.Text = ByteArrayToString(Data)
    End Sub
End Class

Bon code....

[Crokflo]

Je vous remercie tous pour vos réponces. j'ai testé les 3 solutions et celle qui marchait le plus et la plus pratique et celle de Anklor.

Merci encore