[VB6] Converssion de nombre en binaire

[Resolu]Comment Afficher un nombre décimal sous forme binaire (octets) sans écrire de codes Merci

Il n'y a pas de contrôle VB natif qui affiche directement une valeur décimale en binaire.

Par contre, le code en VB est très simple. Défini deux controles, un text1 et un label1 et ajoute le code suivant pour voir ce que cela donne :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Text1_Change()   If Text1.Text = "" Then Exit Sub If InStr(Text1.Text, ".") Then Exit Sub   Label1.Caption = Oct$(Text1.Text)   End Sub

---

Euh ... ca fait de l'Octal là ...

En binaire, voilà ce que cela donne. Mais comme tu ne cherches pas de programmation, je ne sais pas si cela va répondre à ton attente ?

Code:

---

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

Private Sub Text1_Change() orig = Text1.Text   Dim nbe As String Dim numb As Double base = 2 If orig = "" Then Exit Sub   If orig > 1247483645 Then orig = Mid(CStr(orig), 1, Len(CStr(orig)) - 1) Text1 = Mid(Text1, 1, Len(Text1) - 1) End If numb = orig Do While numb <> 0 If numb Mod base > 9 Then nbe = Chr((numb Mod base) + 55) & nbe Else nbe = CStr(numb Mod base) & nbe End If numb = numb \ base Loop Label1 = nbe   End Sub

---

[resolu"]Comment Afficher un nombre décimal sous forme binaire (octets) sans écrire de codes Merci[/quote]

bencheikh a écrit

Citation:

---

Comment Afficher un nombre décimal sous forme binaire ...

---

B-Pascal a répondu

Citation:

---

If orig > 1247483645 Then
orig = Mid(CStr(orig), 1, Len(CStr(orig)) - 1)
Text1 = Mid(Text1, 1, Len(Text1) - 1)
End If
...

---

Pour la précision, un nombre décimal c'est limité à 96 bits pas 31 !
(31 bits correspond à If orig > 2147483647 Then)
mais si ça te suffit, c'est l'essentiel