Code: Alles auswählen
Define.l Color
Color = $1234FF
Define.b Red, Green, Blue
Red = Color & $FF
Green = (Color >> 8) & $FF
Blue = (Color >> 16) & $FF
Debug Red
Debug Green
Debug Blue
Debug ""
;oder so:
Red = Red(Color)
Green = Green(Color)
Blue = Blue(Color)
Debug Red
Debug Green
Debug Blue
Debug ""
;oder so:
Structure Color4B
Red.b
Green.b
Blue.b
Reserved.b
EndStructure
Define.Color4B *Colors = @Color
Debug *Colors\Red & $FF
Debug *Colors\Green & $FF
Debug *Colors\Blue & $FF
Allerdings musst du daran denken, dass Byte in PureBasic signed ist, also
der Wertebereich von -128 bis 127 geht und somit -1 (=255) der höchste
Wert ist.
Deswegen kannst du bei den ersten beiden Methoden entweder einfach
Long- statt Byte-Variablen nutzen, oder du schreibst hinter die Debug-
Zeilen noch ein & $FF, wie ich es bei der letzten Methode gemacht habe.