German DEC to BIN

Sinan Tuzcu

Active Member
Licensed User
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

Expert
Licensed User
100 in binary = 4 in dec
 

Sinan Tuzcu

Active Member
Licensed User
Hallo,

was genau muss ich da schreiben?

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

sendet -57
 

MarkusR

Well-Known Member
Licensed User
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
B4X:
    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.
 
Last edited:

OliverA

Expert
Licensed User
Top