German DEC to BIN

Discussion in 'German Forum' started by Sinan Tuzcu, Feb 11, 2019.

  1. Sinan Tuzcu

    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. :)
     
  2. OliverA

    OliverA Well-Known Member Licensed User

    100 in binary = 4 in dec
     
  3. Sinan Tuzcu

    Sinan Tuzcu Active Member Licensed User

    Hallo,

    was genau muss ich da schreiben?

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

    sendet -57
     
  4. MarkusR

    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
    Code:
    Dim Zahl As Int
        Zahl = 
    132 +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: Feb 12, 2019
  5. OliverA

    OliverA Well-Known Member Licensed User

    Falsch:
    Richtig:
    BinVar1 = Bit.ParseInt(BinVar1,2)
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice