1 / 18

Crtanje pomoću QBASIC-a

Crtanje pomoću QBASIC-a. CRTANJE ZASTAVA. 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)

Download Presentation

Crtanje pomoću QBASIC-a

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. Crtanje pomoću QBASIC-a CRTANJE ZASTAVA Ljubomir Vidanović

  2. 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ć

  3. SCREEN 12640 x 480 (0, 0) (639, 0) (320, 240) (0, 479) (639, 479) Ljubomir Vidanović

  4. Zastava Poljske (0, 0) (639, 0) (0, 240) (639, 240) (0, 479) (639, 479) Ljubomir Vidanović

  5. 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ć

  6. Nacrtajte zastave : Indonezija Ukrajina Ljubomir Vidanović

  7. Zastava Njemačke (0, 0) (639, 0) (0, 160) (639, 160) (0, 320) (639, 320) (0, 479) (639, 479) Ljubomir Vidanović

  8. 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ć

  9. Nacrtajte zastave : Bugarska Austrija Rusija Mađarska Ljubomir Vidanović

  10. Zastava Belgije (0, 0) (213, 0) (426, 0) (639, 0) (0, 479) (213, 479) (426, 479) (639, 479) Ljubomir Vidanović

  11. 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ć

  12. Nacrtajte zastave : Italija Francuska Irska Ljubomir Vidanović

  13. Zastava Švedske (0, 0) (220, 0) (280, 0) (639, 0) (0, 210) (639, 210) (639, 270) (0, 270) (0, 479) (220, 479) (280, 479) (639, 479) Ljubomir Vidanović

  14. 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ć

  15. Nacrtajte zastave : Finska Danska Norveška Ljubomir Vidanović

  16. Zastava Japana (0, 0) (639, 0) (320 240) (320,240) (0, 479) (639, 479) Ljubomir Vidanović

  17. 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ć

  18. Nacrtajte zastavu : Bangladeša Ljubomir Vidanović

More Related