Signed Binary annoying ?

[Droopy]

Code updated For 5.20+

Convert signed binary to unsigned binary ( as long )

Code: Select all

Procedure SignedBinaryToUnsigned(Byte.b)
  If Byte & %10000000 
    Byte=Byte & %01111111
    Retour=Byte+128
  Else
    Retour=Byte
  EndIf
  ProcedureReturn Retour
EndProcedure

and for testing

Code: Select all

;/                                     Unsigned   Signed
Debug SignedBinaryToUnsigned(%00000000) ; 0         0
Debug SignedBinaryToUnsigned(%01111111) ; 127       127
Debug SignedBinaryToUnsigned(%10000000) ; 128       -128
Debug SignedBinaryToUnsigned(%11111111) ; 255       -1

[Pupil]

Convert signed binary to unsigned binary ( as long )

Code: Select all

Procedure SignedBinaryToUnsigned(Byte.b)
  If Byte & %10000000 
    Byte=Byte & %01111111
    Retour=Byte+128
  Else
    Retour=Byte
  EndIf
  ProcedureReturn Retour
EndProcedure

and for testing

Code: Select all

;/                                     Unsigned   Signed
Debug SignedBinaryToUnsigned(%00000000) ; 0         0
Debug SignedBinaryToUnsigned(%01111111) ; 127       127
Debug SignedBinaryToUnsigned(%10000000) ; 128       -128
Debug SignedBinaryToUnsigned(%11111111) ; 255       -1

Why not use this?...

Code: Select all

Procedure SignedBinaryToUnsigned(byte.b)
  ProcedureReturn byte & $ff
EndProcedure

... or just using this 'MyByteVar & $ff' inline instead!

[Droopy]

Thanks I found this Fred code in the Us Forum this morning

Thanks

[traumatic]

...in the Us Forum...

Where?

[Droopy]

Here : viewtopic.php?t=5225&highlight=signed

[traumatic]

Thanks Droopy, I just wondered what the US-forums were