title image


Smiley Re: Verständniss Problem...
>Das x ist doch nur dimensioniert und nicht belegt

Doch x ist mit 0 initialisiert.



Do

If (Dez And 2 ^ x) Then ' Vergleichen ob das x-te bit in Dez gesetzt ist

DezBin = "1" & DezBin ' Binär 1

Else

DezBin = "0" & DezBin ' Binär 0

End If



x = x + 1

Loop Until 2 ^ x > Dez ' Wenn (2^x) grösser als Dez


Gruss Uwe
Wenn weise Maenner nicht irrten, müssten die Narren verzweifeln. (Goethe)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: