Discussion :

[bencheikh]

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

[B-Pascal]

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 :

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

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

[Maxence HUBICHE]

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

[B-Pascal]

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 :

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
 
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

[bencheikh]

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

[DarkVader]

bencheikh a écrit

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

B-Pascal a répondu

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