Code-Beispiel

RGB-Konvertierung

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Jojo	22.02.2011

FreeBasic hat die vordefinierten Makros RGB und RGBA zum Erstellen von RGB-Farben. Aber wie kommt man wieder an die Komponenten der einzelnen Farben ran?

Wer schon mal mit HTML-Farbcodes gearbeitet hat, weiß sicherlich, wie diese aufgebaut sind: Sie bestehen aus drei Hex-Komponenten für R, G und B. Jede Komponente reicht von 00 bis FF, also 0 bis 255 dezimal. Ganz ähnlich speichert FreeBASIC auch Farbwerte (allerdings mit einer zusätzlichen Alpha-Komponente). Der Farbton weiß entspricht zum Beispiel dem Code &HFFFFFF. Wenn man also diese Zahl in drei Komponenten zerlegen könnte...

Der folgende Code ist langsamer und länger, aber verständlicher. Er legt ein logisches UND auf den Farbcode und filtert so die drei Komponenten heraus. Dabei werden Codes noch so geteilt, dass sie Werte zwischen 0 und 255 ergeben. Die führenden Nullen dienen lediglich zum Verständnis und können weggelassen werden.

Dim As UInteger farbe = RGBA(255, 254, 253, 128)



Print "alpha = ", (farbe And &HFF000000) \ &H01000000

Print "rot = ", (farbe And &H00FF0000) \ &H00010000

Print "gruen = ", (farbe And &H0000FF00) \ &H00000100

Print "blau = ", farbe And &H000000FF

Wesentlich eleganter und schneller geht das mit Bitshiften:

Dim As UInteger farbe = RGBA(255, 254, 253, 128)



Print "alpha = ", (farbe Shr 24) And &HFF

Print "rot = ", (farbe Shr 16) And &HFF

Print "gruen = ", (farbe Shr 8) And &HFF

Print "blau = ", farbe And &HFF

oder auch:

Dim As UInteger farbe = RGBA(255, 254, 253, 128)



'   HiWord         LoWord

'HiByte LoByte HiByte LoByte

'alpha   rot   gruen   blau

Print "alpha = ", HiByte (HiWord (farbe))

Print "rot = ",   LoByte (HiWord (farbe))

Print "gruen = ", HiByte (LoWord (farbe))

Print "blau = ",  LoByte (LoWord (farbe))

und für die Pointer-Freaks:

Dim As UInteger farbe = RGBA(255, 254, 253, 128)



Print "alpha = ", Cast(UByte Ptr, @farbe)[3]

Print "rot = ",   Cast(UByte Ptr, @farbe)[2]

Print "gruen = ", Cast(UByte Ptr, @farbe)[1]

Print "blau = ",  Cast(UByte Ptr, @farbe)[0]

Linktipp: Online-Mischtool für RGB-Farbwerte

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 08.12.2008 von Jojo angelegt.
Die aktuellste Version wurde am 22.02.2011 von Jojo gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.