Crtanje u QBasic-u

SCREEN 12

• Definira svojstva zaslona za crtanje, • Obavezno se mora nalaziti prije naredbi za crtanje (LINE, CIRCLE, PAINT, PSET), • 640x480, • Koordinata 0,0 je u gornjem lijevom kutu.

0, 0 0, 480 640, 0 640, 480

LINE

• Služi za crtanje dužina ili pravokutnika, • Dva para koordinata određuju dva dijagonalno suprotna vrha pravokutnika.

LINE (10, 10) – (200, 100) Crta dužinu LINE (10, 10) – (200, 100), , B Crta pravokutnik

Primjer – crtanje pravokutnika

SCREEN 12 LINE (100,240)-(200,480),4,B END

0, 0 0, 480 640, 0 640, 480

CIRCLE

• Služi za crtanje kružnica ili elipsa, • Prva dva broja su koordinate središta kružnice, a broj nakon zareza označava polumjer.

CIRCLE (100, 100), 50 x = 300 y = 250 r = 120 CIRLCE (x, y), r

PAINT

• Služi za popunjavanje zatvorenog lika bojom. Točka (x, y) mora biti unutar prethodno nacrtanog lika.

COLOR 2 CIRCLE (320, 240), 100 PAINT (320, 240)

PSET

• Služi za crtanje točaka na zaslonu, • Iza naredbe je koordinata točke u zagradi.

PSET (10, 30)

Zadaci:

• Napiši program koji koji će nacrtati dijagonale kao na slici:

• Napiši program koji će nacrtati 3 kružnice polumjera 50 postavljenih vodoravno na sredini zaslona. Sve kružnice su zelene.