Proc ChangeRGB
Parameters n%
Declare r%,g%,b%
r% = TestBit(n%,0) * 255
g% = TestBit(n%,1) * 255
b% = TestBit(n%,2) * 255
Cls Rgb(R%,G%,B%)
Print "Der Hexwert ist:",Hex$(RGB(R%,G%,B%))," ",n%
Print "Die einzelnen Farben sind:",R%,G%,B%
EndProc
Randomize
Cls Rnd($FFFFFF)
WhileLoop 0,7
WaitInput
ChangeRGB(&Loop)
Wend
Print "Das sind die Grundfarben und deren Mischfarben"
WaitInput