Transcript ovdje - T-com

Crtanje pomoću QBASIC-a
CRTANJE ZASTAVA
Ljubomir Vidanović
1
Naredbe za crtanje
•
•
•
•
•
•
•
SCREEN 12 - postavlja rezoluciju 640x480
LINE (x1,y1)-(x2,y2) - crta (dužina)
LINE (x1,y1)-(x2,y2), ,B - pravokutnik
LINE (x1,y1)-(x2,y2), ,BF - obojani pravokutnik
COLOR x - boja (broj od 0 do 15)
CIRCLE (x,y),r - kružnica
PAINT (x,y) - popunjava bojom uokvireni lik
Ljubomir Vidanović
2
SCREEN 12
640 x 480
(0, 0)
(639, 0)
(320, 240)
(0, 479)
(639, 479)
Ljubomir Vidanović
3
Zastava Poljske
(0, 0)
(639, 0)
(0, 240)
(639, 240)
(0, 479)
(639, 479)
Ljubomir Vidanović
4
PROGRAM POLJSKA.BAS
REM ***** POLJSKA *****
SCREEN 12
COLOR 15
LINE (0, 0)-(639, 239), , BF
COLOR 4
LINE (0, 240)-(639, 479), , BF
SLEEP 0
END
Ljubomir Vidanović
5
Nacrtajte zastave :
Indonezija
Ukrajina
Ljubomir Vidanović
6
Zastava Njemačke
(0, 0)
(639, 0)
(0, 160)
(639, 160)
(0, 320)
(639, 320)
(0, 479)
(639, 479)
Ljubomir Vidanović
7
PROGRAM NJEMACKA.BAS
REM ***** NJEMACKA.BAS *****
SCREEN 12
COLOR 0
LINE (0, 0)-(639, 159), , BF
COLOR 4
LINE (0, 160)-(639, 319), , BF
COLOR 14
LINE (0, 320)-(639, 479), , BF
SLEEP 0
END
Ljubomir Vidanović
8
Nacrtajte zastave :
Bugarska
Austrija
Rusija
Mađarska
Ljubomir Vidanović
9
Zastava Belgije
(0, 0)
(213, 0)
(0, 479)
(213, 479)
(426, 0)
(426, 479)
Ljubomir Vidanović
(639, 0)
(639, 479)
10
PROGRAM BELGIJA.BAS
REM ***** BELGIJA.BAS *****
SCREEN 12
COLOR 0
LINE (0, 0)-(212, 479), , BF
COLOR 14
LINE (213, 0)-(425, 479), , BF
COLOR 4
LINE (426, 0)-(639, 479), , BF
SLEEP 0
END
Ljubomir Vidanović
11
Nacrtajte zastave :
Italija
Francuska
Irska
Ljubomir Vidanović
12
Zastava Švedske
(0, 0)
(220, 0) (280, 0)
(639, 0)
(0, 210)
(639, 210)
(0, 270)
(639, 270)
(0, 479)
(220, 479) (280, 479)
Ljubomir Vidanović
(639, 479)
PROGRAM SVEDSKA.BAS
REM ***** SVEDSKA.BAS *****
SCREEN 12
COLOR 1
LINE (0, 0)-(639, 479), , BF
COLOR 14
LINE (220, 0)-(280, 479), , BF
COLOR 14
LINE (0, 210)-(639, 270), , BF
SLEEP 0
END
Ljubomir Vidanović
14
Nacrtajte zastave :
Finska
Danska
Norveška
Ljubomir Vidanović
15
Zastava Japana
(0, 0)
(639, 0)
(320 240)
(320,240)
(0, 479)
(639, 479)
Ljubomir Vidanović
16
PROGRAM JAPAN.BAS
REM ***** JAPAN.BAS *****
SCREEN 12
COLOR 15
LINE (0, 0)-(639, 479), , BF
COLOR 4
CIRCLE (320, 240), 100
PAINT (320, 240)
SLEEP 0
END
Ljubomir Vidanović
17
Nacrtajte zastavu :
Bangladeša
Ljubomir Vidanović
18