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
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
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)Attention, le maximum conversion décimale = 65535, le maximum conversion binaire = 1111111111111111
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
pourquoi pas, pour remercier, un
pour celui/ceux qui vous ont dépannés.
saut de ligne
OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager