610 likes | 2.85k Vues
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. 640, 0. 0, 0. 0, 480. 640, 480. LINE. Služi za crtanje dužina ili pravokutnika,
E N D
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.
640, 0 0, 0 0, 480 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
640, 0 0, 0 0, 480 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.