Keskustelu: Koodit: CoolBasic: RGB-arvon selvittäminen

'RGB-arvon selvittäminen - tehnyt herkko
'Tällä ohjelmalla voit valita mieleisesi värin, jonka jälkeen näet sen rgb-arvon ja
'voit liittää sen omaan ohjelmaasi.

Dim hiirenpaikka As String
Dim rr, gg, bb As Integer
ClsColor  255,255,255
Cls

Repeat
For r = 0 To 255
    Color r,0,0
    Line r,10,r,50
Next r

For g = 0 To 255
    Color 0,g,0
    Line g,51,g,91
Next g

For b = 0 To 255
    Color 0,0,b
    Line b,92,b,132
Next b

    alhaalla=0
    If MouseDown(1) Then alhaalla=1


    'katsotaan, minkä väririvin kohdalla hiiri on
    If alhaalla=0 Then hiirenpaikka = "" 'jos hiiri ei ole minkään värin kohdalla, hiirenpaikka on "tyhjä"
    If MouseY()<=132 And MouseX() <=255 And alhaalla=0 Then hiirenpaikka = "b"
    If MouseY()<=91 And MouseX() <=255 And alhaalla=0 Then hiirenpaikka = "g"
    If MouseY()<=50 And MouseX() <=255 And alhaalla=0 Then hiirenpaikka = "r"






    Color 0,0,0
    'Säädetään laatikon väri
    If hiirenpaikka = "r" And MouseDown(1) Then rr = MouseX()
    If hiirenpaikka = "g" And MouseDown(1) Then gg = MouseX()
    If hiirenpaikka = "b" And MouseDown(1) Then bb = MouseX()

    'Värit eivät saa mennä yli rajojen
    If rr>255 Then rr=255
    If gg>255 Then gg=255
    If bb>255 Then bb=255



    Color rr,gg,bb
    Box 0,150,150,300



    SetWindow rr+":"+gg+":"+bb

    DrawScreen


Until KeyHit(cbkeyescape)
WaitKey