title image


Smiley Re: VB6: Einfaches Konvertieren in eine binäre Zahl...
Vielleicht hilft Dir folgende Funktion weiter:



Function bin(Zahl As Integer) As String

v = 1

Do

bin = Abs(CInt((Zahl And v)) 0) & bin

v = v * 2

Loop Until v >= 255

If Zahl > 255 Then bin = "--------"

End Function



Sie funktioniert jedoch nur im Bereich 0-255 und kennt keine negative Zahlen.



Gruß



Martin

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: