11.07.2015 Views

Code-it! QBasic knjiga

Code-it! QBasic knjiga

Code-it! QBasic knjiga

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

<strong>Code</strong>-<strong>it</strong>! <strong>QBasic</strong> <strong>knjiga</strong>Page 6PRINT "Taj mjesec ne postoji."END IFPuno pisanja, jel'da? Za to služi CASE naredba. Najbolje ćete skuž<strong>it</strong>i na primjeru, pa evo vam isto ovo pomoću naredbe CASE:CLSINPUT "Upiši broj mjeseca: ", xSELECT CASE xCASE 1PRINT "Siječanj"CASE 2PRINT "Veljača"CASE 3PRINT "Ožujak"CASE 4PRINT "Travanj"CASE 5PRINT "Svibanj"CASE 6PRINT "Lipanj"CASE 7PRINT "Srpanj"CASE 8PRINT "Kolovoz"CASE 9PRINT "Rujan"CASE 10PRINT "Listopad"CASE 11PRINT "Studeni"CASE 12PRINT "Prosinac"CASE ELSEPRINT "Taj mjesec ne postoji."END SELECTManje texta, preglednije, lakše za copy/paste... Znači, na početku naredbe ide:SELECT CASE varijablaPoslije toga za svaku vrijednost:CASE vrijednost(vrijednost može b<strong>it</strong>i i niz slova, onda se TO stavlja u navodnike i treba b<strong>it</strong>i $ poslijevarijable)Umjesto ELSE:CASE ELSEI na kraju:END SELECTGOTO naredbaGOTO se sastoji do dvije riječi: GO TO (ko bi reko!), odnosno IDI NA. Služi za preskakanje dijela kôda ili vraćanje nazad, ali nemaneku pretjeranu primjenu. Mislim da se svako korištenje naredbe GOTO može napisati na drugačiji način (bilo grananjem, petljama...).Uglavnom, na početku jednog reda se napiše broj, a kad bilo gdje u programu bude napisano GOTO taj broj, <strong>QBasic</strong> se vraća nazad ilipreskače kôd do linije na čijem je početku taj broj. (sad sam ga malo zakomplicirao, al skuž<strong>it</strong> ćete.)Primjer: program upisuje brojeve dok se ne upiše nula. Onda ispiše zbroj svih upisanih brojeva:CLSzbroj = 0[b]20[/b] INPUT "Upiši broj: ", xIF x = 0 THENhttp://www.code-<strong>it</strong>.net/?q=book/export/html/414.10.2008 15:08:42

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!