convertion binaire decimal

convertion binaire decimal - VB/VBA/VBS - Programmation

Marsh Posté le 09-12-2006 à 21:18:14    

Bonjour,
 
Je suis debutant dans le langage VB
 
J'aimerais developper du petit logiciel afin de convertir du decimal en binaire sous VB6, ceci par soustration successive. Aurait il une personne pour m'aider?
 
en plusieurs etapes:
 
Recherche d'abord la plus grande puissance de 2 inferieur ou egale au nombre donné
soustraire cette puissance de 2 au nombre
 
 
Merci par avance

Reply

Marsh Posté le 09-12-2006 à 21:18:14   

Reply

Marsh Posté le 10-12-2006 à 01:34:52    

A tout hasard les 2 : Decimal vers Binaire et l'inverse


Public Function Decimal_Binaire(NombreDecimal As Long) As String
Dim tmp As String
Dim n As Long
 
    n = NombreDecimal
 
    tmp = Trim(Str(n Mod 2))
    n = n \ 2
 
    Do While n <> 0
        tmp = Trim(Str(n Mod 2)) & tmp
        n = n \ 2
    Loop
 
    Decimal_Binaire = tmp
End Function
 
Public Function Binaire_Decimal(Binaire As String) As Long
Dim n As Long
Dim s As Integer
 
    For s = 1 To Len(Binaire)
        n = n + (Mid(Binaire, Len(Binaire) - s + 1, 1) * (2 ^ (s - 1)))
    Next s
 
    Binaire_Decimal = n
End Function


Message édité par kiki29 le 10-12-2006 à 01:43:54
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed