[VB6] Algoritmo per trasformare numero con virgola in binario

[davidesoft]

Salve,
vi spiego nel modo migliore possibile quale algoritmo non riesco a tradurre in linguaggio vb (è complicatissimo) :

prendiamo ad esempio un numero : 0,4

moltiplichiamo 0.4 x 2 = 0,8 >>> conserviamo la parte intera -> 0
moltiplichiamo 0,8 x 2 = 1,6 >>> conserviamo la parte intera -> 1
ogni volta azzero la parte intera>>> 0,6 x 2=1,2 >>> conservo ->1
stessa cosa >>> 0,2 x 2=0,4 >>> conservo la parte intera -> 0

a questo punto finisce il ciclo, perchè? perchè ho raggiunto numero di partenza (0,4).Quindi stampo in una textbox tutte le parti intere che ho conservato : 0110

Spero abbiate capito, se vi interessa questo è il metodo per trasformare un numero decimale con la virgola in binario con la virgola 0,4 decimale = 0,0110 cioè 0,110. Qualcuno è in grado di darmi una mano?Chi ci riesce è un genio!

[MdE2005]

Mi sa che non ho capito molto, cmq prova questo:

Private Function Converti(ByVal Numero)

n = Numero

Do

p = InStr(1, Numero, ",", vbTextCompare)

Numero = "0," & Right(Numero, Len(Numero) - p)

Numero = Numero * 2

totale = totale & Int(Numero)

Loop Until Numero = n

Converti = totale

End Function

Per usarla basta Msgbox Converti(NumerodaConvertire)

Ciao