Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  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 Francis MILLET
    Inscrit en
    décembre 2004
    Messages
    3 495
    Détails du profil
    Informations personnelles :
    Nom : Homme Francis MILLET
    Âge : 58
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 495
    Points : 6 373
    Points
    6 373

    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 :
    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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •