Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Hieno teksti

sooda [25.10.2003 15:55:05]

#

En oikeen keksinyt parempaa otsikkoa... suurentaa annetun tekstin näytölle ja piirtää hienot viivat vielä.

SCREEN 12
COLOR 15
PALETTE 15, 0 'teksti pois näkyvistä nurkasta
PRINT "Vähänkö siiistii"
PRINT "!!!Eiks ookki!!!"
PRINT "!!!!!!!!!!!!!!!!"
PRINT "!!!!!!!!!!!!!!!!"
FOR Y = 55 TO 0 STEP -1
    FOR X = 140 TO 0 STEP -1
        IF POINT(X, Y) = 15 THEN 'tekstii siinä kohdassa
            LINE (X + 5, Y + 12)-(X * 5 + 5, Y * 5 + 50), 1
            CIRCLE (X * 5 + 5, Y * 5 + 50), 5, 4
            CIRCLE (X * 5 + 5, Y * 5 + 50), 2, 4
        END IF
    NEXT
NEXT

Vastaus

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

Tietoa sivustosta