Discussion :

[idiart33]

Bonjour à tous
Je suis en train de réaliser un programme Windows forms sous VB.
Une des consignes est d'afficher dans un label en binaire.
J'ai trouvé sur internet une fonction pour convertir un nombre en binaire, mais elle n'est pas parfaite.
Elle ne tient pas compte des 4 bits ni des points entre 4 bits.
Donc au lieu de 0001.0000 j'ai 10000

Je pensais avoir résolu le problème des 4 bits mais ça me fait une boucle infinie si le nombre est supérieur à 15...
Voici le code :

Code VB.NET :

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

1
2
3
4
5
6
7
 
labbinaire.Text = Convert.ToString(CInt(txtNombre.Text), 2) 'convertion en décimale
        labhexa.Text = UCase(Convert.ToString(CInt(txtNombre.Text), 16)) 'conversion en hexadécimale
        Do While Len(labbinaire.Text) = 4 Or Len(labbinaire.Text) = 8 Or Len(labbinaire.Text) = 12 Or Len(labbinaire.Text) = 16
            labbinaire.Text = "0" & labbinaire.Text
        Loop
End sub

labbinaire.Text c'est un label où est affiché le nombre en binaire.
txtNombre.Text c'est le nombre en décimale

J'ai essayé avec 3 If de suite et ça marche, mais c'est long pour rien.

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
 
If Not Len(labbinaire.Text) = 4 Or Len(labbinaire.Text) = 8 Or Len(labbinaire.Text) = 12 Or Len(labbinaire.Text) = 16 Then
      labbinaire.Text = "0" & labbinaire.Text
End If
If Not Len(labbinaire.Text) = 4 Or Len(labbinaire.Text) = 8 Or Len(labbinaire.Text) = 12 Or Len(labbinaire.Text) = 16 Then
      labbinaire.Text = "0" & labbinaire.Text
End If
If Not Len(labbinaire.Text) = 4 Or Len(labbinaire.Text) = 8 Or Len(labbinaire.Text) = 12 Or Len(labbinaire.Text) = 16 Then
      labbinaire.Text = "0" & labbinaire.Text
End If

[J@ckHerror]

Bonjour,

J'ai trouvé sur internet une fonction pour convertir un nombre en binaire, mais elle n'est pas parfaite.

Quelle est cette fonction ? Je n'en vois pas dans ton code.

Elle ne tient pas compte des 4 bits ni des points entre 4 bits.
Donc au lieu de 0001.0000 j'ai 10000

Pas compris ?? je pense que tu ne dois pas utiliser le bon vocabulaire, bits digits décimale....

J'ai essayé avec 3 If de suite et ça marche, mais c'est long pour rien.

Je doute que ces 3 if soit vraiment long a s'exécuter...

Bref j'ai pas tout à fait compris ce que tu veux faire à la vue de ton code et de tes explications, mais si je me concentre sur

Une des consignes est d'afficher dans un label en binaire.

Je me dit que tu as un exercice ou tu dois convertir une valeur numérique saisie dans une zone de texte en valeur binaire ? j'ai bon ?

Sinon un conseil, utilise des variables et ne travail pas directement sur la propriété Text des controls. Et utilise les fonctions, la tu ne devrais qu'avoir une fonction qui prend un entier en paramètre et retourne un string (dans lequel il y aura l'entier convertie en binaire.

Bon code,
J@ck.

[idiart33]

Tu tombe mal, je viens de faire mon programme à l'instant... mais merci quand même.
PS : je parle bien de bits

[idiart33]

J'ai oublié un détail.

Code VB.NET :

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

1
2
3
 
MsgBox("Voulez vous vraiment effacer ?", MsgBoxStyle.YesNo, "Vider")
lstbPremiers.Items.Clear()

Je voulais que si je clic sur "oui" ça vide le listbox, et si je clic sur "non", ça ne fait rien.
Mais là oui et non vident le listbox...

[J@ckHerror]

Tu tombe mal

Désolé de déranger
J@ck.

[jopopmk]

Salut,

il faut regarder si le retour de l'appel à MsgBox est égal à MsgBoxResult.Yes.

Pour ton premier souci, pense à marquer le sujet comme résolu si t'as trouvé, pour que les helper ne perdent pas leur temps.
Et pense bien à indiquer la solution, pour que des personnes qui auraient le même problème sachent comment tu as fait.

Bon dev.

[idiart33]

il faut regarder si le retour de l'appel à MsgBox est égal à MsgBoxResult.Yes.

Comment savoir si le retout de l'appel à MsgBox est égal à MsgBoxResult.Yes?
ça signifie quoi?

Pour ton premier souci, pense à marquer le sujet comme résolu si t'as trouvé, pour que les helper ne perdent pas leur temps.
Et pense bien à indiquer la solution, pour que des personnes qui auraient le même problème sachent comment tu as fait.

Si je le fais, on peut encore répondre?

[clementmarcotte]

Bonjour

[QUOTE=idiart33;8765780]Comment savoir si le retout de l'appel à MsgBox est égal à MsgBoxResult.Yes?
ça signifie quoi?

Avec une MessageBox

Avec une MsgBox

[jopopmk]

Re,

oui, même si tu marques comme résolu on peut continuer à discuter (toutefois on préfère un topic par question en général).

Pour le retour dont je parle, il faut voir que MsgBox est une fonction, elle renvoie donc une valeur que tu peux interpréter.
Alors je suis pas bien doué en VB.NET (mon langage .NET c'est plutôt le C#) mais ça pourrait donner un truc du genre :

Code :

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

1
2
3
If MsgBox("Voulez vous vraiment effacer ?", MsgBoxStyle.YesNo, "Vider") =  MsgBoxResult.Yes Then
   lstbPremiers.Items.Clear()
EndIf

edit : grillé par clementmarcotte, qui en plus file les liens qui vont bien vers la MSDN

[idiart33]

Merci c'est bon ça fonctionne !