Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 240988 (2424)
  Suchen
 Zurück zur Übersicht
 AutorThema: Farben in Hexadezimal
Moritz Kersten
Datum:25.07.02 22:05 Antwortenals Email verschicken (IsNoMK@gmx.de) 


Hallo,

wie kann ich anhand von den 3 RGB Farbwerten diese in Hexadezimalcode umrechnen also zB.: #0000FF für Rot usw. wie sie in HTML verwendet werden ?

Ich weiß wie die Hexadezimalfarben aufgebaut sind aber bin bis jetzt nicht drauf gekommen wie ich diese errechnene.

Moritz


Jörg Sellmeyer
Datum:26.07.02 00:21 Antwortenals Email verschicken (joerse@gmx.de) 


Meinst Du sowas:
Declare Farbe&,HexWert$,Rot$,Blau$,Grün$
WhileLoop 10
  Farbe& = rgb(rnd(31),rnd(31),rnd(31))
  Cls Farbe&
  HexWert$=Hex$(GetPixel(100,100))
  Rot$=Hex$(@GetRValue(GetPixel(100,100)))
  Blau$=Hex$(@GetBValue(GetPixel(100,100)))
  Grün$=Hex$(@GetGValue(GetPixel(100,100)))
  print "Farbe: #" + MkStr$("0",Mul(Int(Sub(Len(HexWert$),6)),-1)) + HexWert$
  print "Rot:   #" + MkStr$("0",Mul(Int(Sub(Len(Rot$),6)),-1)) + Rot$
  print "Blau:  #" + MkStr$("0",Mul(Int(Sub(Len(Blau$),6)),-1)) + Blau$
  print "Grün:  #" + MkStr$("0",Mul(Int(Sub(Len(Grün$),6)),-1)) + Grün$
  WaitInput
Wend
WaitInput

Gruß
Jörg


Moritz Kersten
Datum: 26.07.02 20:01 Antwortenals Email verschicken (IsNoMK@gmx.de) 


Stimmt ja, gibt ja ne Hex-Funktion hatte ich ganz übersehen. Würd aber evtl. auch gern wissen wie man das selbst umrechnen kann.

Moritz


 Zurück zur Übersicht