Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: Piirto

maalari [22.08.2004 10:06:55]

#

Tässä on yksinkertainen piirto-ohjelma coolbasicille. Ohjelmassa ei ole ominaisuutta jotta voisi tallentaa omat aikaan saannokset.

'Asettaa taustaväriksi valkoisen
ClsColor 255,255,255
Cls

'Tehdään paletti
    Color 255,0,0
    Box 10,20,10,10

    Color 0,255,0
    Box 30,20,10,10

    Color 0,0,255
    Box 50,20,10,10

    Color 255,255,0
    Box 70,20,10,10

    Color 0,255,255
    Box 90,20,10,10

    Color 255,0,255
    Box 110,20,10,10

    Color 0,0,0
    Text 0,0,"Piirrä hiiren vasemmalla ja valitse väri oikealla"

Repeat

    'Piirtää hiiren vasemmalla
    If MouseDown(1)
        Box MouseX(),MouseY(), 5,5
    EndIf


    'valitse väri oikealla napilla
    If MouseHit(2)
        GetColor MouseX(),MouseY()
    EndIf

    Sync

Forever

Juice [22.08.2004 18:21:03]

#

Muistuttaa lievästti sanottuna vähän CoolBasicin manuaalin GetColor-esimerkkiä:

'Tehdään "paletti"

    Color 255,0,0
    Box 10,20,10,10

    Color 0,255,0
    Box 30,20,10,10

    Color 0,0,255
    Box 50,20,10,10

    Color 255,255,0
    Box 70,20,10,10

    Color 255,255,255
    Text 0,0,"mouseVasen=piirrä | mouseOikea=ota väri"

Repeat

    'Piirrä hiiren vasemmalla
    If MouseDown(1)
        Dot MouseX(),MouseY()
    EndIf

    'ota kursorin alla oleva väri piirtoväriksi,
    'jos hiiren oikeaa painiketta painetaan
    If MouseHit(2)
        GetColor MouseX(),MouseY()
    EndIf

    Sync

Forever

Ja sitäpaitsi GetColor-funktio tulee vasta finaaliin.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta