German DEC to BIN

[Sinan Tuzcu]

Hallo,

ist schon richtig spät geworden aber ich kämpfe immer noch damit, Dezimalzahlen nach Bin umzuwandeln.
Nun habe ich vieles im Forum gelesen aber nicht das richtige gefunden.

ich habe die Zahl 255 und soll so ausgegeben werden 11111111
Und bei der Zahl 32 = 00000100

Mit diesem hier Bit.ToBinaryString(32) bekomme ich dann für die 32 100000 ausgegeben.

Wer kennt sich damit aus.

PS. ParseINt habe ich nicht hinbekommen.

 

[OliverA]

100 in binary = 4 in dec

 

[Sinan Tuzcu]

Hallo,

was genau muss ich da schreiben?

BinVar1 = Bit.ToBinaryString(32)
BinVar1 = Bit.ParseInt(BinVar1,16)

sendet -57

 

[MarkusR]

Ich meine das kleinste Bit ist rechts. Dieses tobinary scheint führende Nullen weg zu lassen.
https://de.wikipedia.org/wiki/Binärcode

Beispiel 00110001

    Dim Zahl As Int
    Zahl = 1+ 32 +16
  
    Dim b As String =""
      
    If Bit.And(Zahl, 128) = 128 Then b=b & "1" Else b=b & "0"
    If Bit.And(Zahl, 64) = 64 Then b=b & "1" Else b=b & "0"
    If Bit.And(Zahl, 32) = 32 Then b=b & "1" Else b=b & "0"
    If Bit.And(Zahl, 16) = 16 Then b=b & "1" Else b=b & "0"
    If Bit.And(Zahl, 8) = 8 Then b=b & "1" Else b=b & "0"
    If Bit.And(Zahl, 4) = 4 Then b=b & "1" Else b=b & "0"
    If Bit.And(Zahl, 2) = 2 Then b=b & "1" Else b=b & "0"
    If Bit.And(Zahl, 1) = 1 Then b=b & "1" Else b=b & "0"
  
    Log(b)

Wenn du es anders herum haben willst mach einfach 1 oben bis 128 unten.

 

[OliverA]

Falsch:

BinVar1 = Bit.ParseInt(BinVar1,16)

Richtig:
BinVar1 = Bit.ParseInt(BinVar1,2)