XProfan

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