Seite 1 von 2

Hex-Zahlen umdrehen

Verfasst: 01.06.2009 11:59
von Josef Sniatecki
Hallo an alle,

habe mich seit Stunden gefragt, wieso bei meinem HTML-Generator in
Operno ständig die falschen Farben gezeigt werden, obwohl das Farbformat
RRGGBB ist. Nun habe ich in der PB-Hilfe gelesen, dass man die Hex-Zahlen
umdrehen muss, wenn man sie als ganzes Stück angeben möchte:
Also FF0000 (Rot) ist dann $0000FF

Das habe ich dann auch gemacht, jedoch gibt der folgende Code im
HTML-Generator immer noch falsche Farben zurück:

Code: Alles auswählen

HTMLCode+"#"+RSet(Hex(Color),6,"0")
Obwohl ich alle Farben umgekehrt angegeben habe, werden diese von
"Hex" falsch übersetzt.

Kann mir jemand helfen die Hex-Zahlen richtig darzustellen? Also im
RRGGBB-Format.

Danke im Voraus
Gruß Josef

Verfasst: 01.06.2009 12:13
von Kaeru Gaman

Code: Alles auswählen

Procedure.s Val2Color( Value.l )
  Protected Color.s
    Color = "#" + RSet( Hex( Value & $0000FF ) , 2, "0" ) + RSet( Hex( ( Value & $00FF00 ) / $000100 ) , 2, "0" ) + RSet( Hex( ( Value & $FF0000 ) / $010000 ) , 2, "0" ) 
  ProcedureReturn Color
EndProcedure

For n=0 To 19
  Col = Random( $FFFFFF )
  Debug RSet( Hex( Col ), 6, "0" ) + " - " + Val2Color( Col )
Next

Verfasst: 01.06.2009 12:17
von cxAlex

Code: Alles auswählen

Procedure TurnColor(Color.l)
  Protected tColor.l, *c1.byte, *c2.byte, i
  *c1 = @Color
  *c2 = @tColor + 2*SizeOf(Byte)
  For i = 0 To 2
    *c2\b=*c1\b
    *c1+SizeOf(Byte)
    *c2-SizeOf(Byte)
  Next
  ProcedureReturn tColor
EndProcedure

Color.l = $AABBCC
Debug Hex(Color,#PB_Long)
Color = TurnColor(Color)
Debug Hex(Color,#PB_Long)
Edit: Mist, Kaeru war schneller.

Verfasst: 01.06.2009 12:24
von Kaeru Gaman
hihi Bild

Verfasst: 01.06.2009 12:25
von Josef Sniatecki
Hm... jetzt habe ich die Qual der Wahl. Ich nehme mal den unteren, weil
dieser schneller aussieht. Nicht sauer werden Kaeru :mrgreen:

Wie war das nochmal in der Schule: Mühe anstatt Schnelligkeit

Trotzdem Danke an euch beide.

Verfasst: 01.06.2009 12:29
von cxAlex
@Kaeru:

Wo gibts den coolen Chinesen-Smilie? Auf ImageShack mag ich nicht verlinken.

Verfasst: 01.06.2009 12:38
von Kaeru Gaman
> weil dieser schneller aussieht.

das teil heißt "flitzer" und nennt sich "sportwagen":
Bild



> Auf ImageShack mag ich nicht verlinken.

warum?

dann musst du mir webspace spendieren.

dieser Smilie ist von mir, echt selbstgemacht!

ich hab noch ein paar andere im Angebot:

Bild Bild Bild Bild Bild

Bild
Bild Bild Bild Bild

Verfasst: 01.06.2009 12:43
von cxAlex

Verfasst: 01.06.2009 12:52
von Kaeru Gaman
geil, danke!

hatte das mehr als Gäg gemeint, aber ist super. Bild

PS:
ich schick dir ne PN, wenn ich neue mache...

Verfasst: 01.06.2009 12:55
von cxAlex
Kaeru Gaman hat geschrieben: ich schick dir ne PN, wenn ich neue mache...
Jo, machn wir so Bild.