IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Convertir un nombre en binaire


Sujet :

VB 6 et antérieur

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Janvier 2012
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2012
    Messages : 5
    Points : 6
    Points
    6
    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
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 152
    Points
    17 152
    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
    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 ← ← 👈

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, 13h32
  2. [FAQ] Comment convertir un nombre entier en binaire ?
    Par c-candide dans le forum Contribuez
    Réponses: 3
    Dernier message: 07/08/2009, 23h22
  3. convertir nombre en binaire
    Par chris069 dans le forum MATLAB
    Réponses: 6
    Dernier message: 16/04/2009, 17h24
  4. convertir un nombre en binaire
    Par deubelte dans le forum C++
    Réponses: 3
    Dernier message: 13/11/2008, 14h51
  5. [LG] Convertir un nombre binaire en décimal
    Par minela28x dans le forum Langage
    Réponses: 5
    Dernier message: 05/01/2006, 11h33

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