p
u
b
l
i
c
i
t
é
publicité
  1. #1
    Invité de passage
    Inscrit en
    janvier 2012
    Messages
    5
    Détails du profil
    Informations forums :
    Inscription : janvier 2012
    Messages : 5
    Points : 0
    Points
    0

    Par défaut Convertir un nombre en binaire

    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

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Inscrit en
    décembre 2004
    Messages
    3 674
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 674
    Points : 6 401
    Points
    6 401

    Par défaut

    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

Discussions similaires

  1. Algo pour convertir un nombre binaire en décimal
    Par Eole92 dans le forum Général Python
    Réponses: 12
    Dernier message: 13/11/2011, 12h32
  2. [FAQ] Comment convertir un nombre entier en binaire ?
    Par c-candide dans le forum Contribuez
    Réponses: 3
    Dernier message: 07/08/2009, 22h22
  3. convertir nombre en binaire
    Par chris069 dans le forum MATLAB
    Réponses: 6
    Dernier message: 16/04/2009, 16h24
  4. convertir un nombre en binaire
    Par deubelte dans le forum C++
    Réponses: 3
    Dernier message: 13/11/2008, 13h51
  5. [LG] Convertir un nombre binaire en décimal
    Par minela28x dans le forum Langage
    Réponses: 5
    Dernier message: 05/01/2006, 10h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo