Discussion :

[michelraymond]

Bonjour,
Je voudrais savoir s'il existe, en Visual Basic, une instruction permettant de convertir un nombre en binaire
En turbo Basic nous avions Bin$(Valeur) qui répondait à la question
Merci pour votre réponse
MichelRaymond

[ProgElecT]

Salut

A ma connaissance il me semble pas qu'il y ai une fonction native en VB6.
Voici 2 fonctions qui te seront peut être utiles (codage/décodage sur 16 bits)

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
Option Explicit
Dim T As Integer, U  As Integer
Dim Result As Long
Dim Binnaire(16) As Long
Private Sub Form_Load()
For T = 1 To 16: Binnaire(T) = 2 ^ (T - 1): Next T
 
'conversion Binaire vers décimale
MsgBox "010010 = " & CbinCdec("010010"), vbInformation, "Binaire vers décimale"
'conversion décimale vers binaire
MsgBox "18 = " & CdecCbin("18"), vbInformation, "Décimale vers binaire"
End Sub
 
Private Function CbinCdec(EntreR As String) As Long
'conversion Binaire vers décimale
  Result = 0: U = Len(EntreR)
  For T = 1 To U
   If Mid$(EntreR, T, 1) = 1 Then Result = Result + Binnaire(U - (T - 1))
  Next T
  CbinCdec = Result
End Function
Private Function CdecCbin(EntreR As Long) As String
'conversion décimale vers binaire
Dim ResultString As String
  ResultString = "": Result = EntreR: U = 16
  For T = 1 To 16
   If Result >= Binnaire(U - (T - 1)) And Result <> 0 Then
    ResultString = ResultString & "1": Result = Result - Binnaire(U - (T - 1))
    Else
    ResultString = ResultString & "0"
   End If
  Next T
  CdecCbin = ResultString
End Function

Attention, le maximum conversion décimale = 65535, le maximum conversion binaire = 1111111111111111