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
Soyez sympa, pensez -y
Balises[CODE]...[/CODE]
Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Balises[C]...[/C] code intégré dans une phrase.
Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
👉 → → 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