Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 242803 (4239)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Farben in Hexadezimal
Moritz Kersten
| Datum:25.07.02 22:05 (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 (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 (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