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