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
|