to beri ifelse :stevec>23 [izhod][make "izbor (:stevec + random 2) make "stevec :stevec + 2 stavki] radiobuttondelete "a radiobuttondelete "b radiobuttondelete "c radiobuttoncreate "w1 "sg "a [] 10 30 10 10 radiobuttoncreate "w1 "sg "b [] 10 40 10 10 radiobuttoncreate "w1 "sg "c [] 10 50 10 10 end to izhod cs windowcreate "izhod "izhod [Pravilni odgovori] 20 30 250 85 [] staticcreate "izhod "st1 [] 10 10 190 10 staticcreate "izhod "st2 [] 130 10 10 10 staticcreate "izhod "st3 [] 140 10 170 10 staticcreate "izhod "st4 [] 10 22 320 10 buttoncreate "izhod "bt1 [NOV KVIZ] 15 45 45 13 [kviz] buttoncreate "izhod "bt2 [IZHOD] 120 45 40 13 [windowdelete "izhod windowdelete "gl] ifelse :pravilni>7 [make "odg [Čestitam! Pravilno si odgovoril na] staticupdate "st1 :odg ~ make "odg :pravilni staticupdate "st2 :odg make "odg "vprašanj. staticupdate "st3 :odg ~ make "odg [Tvoje znanje glasbene teorije je odlično!] staticupdate "st4 :odg][~ make "odg [Od desetih si pravilno odgovoril na] staticupdate "st1 :odg ~ make "odg :pravilni staticupdate "st2 :odg make "odg "vprašanj(a). staticupdate "st3 :odg ~ make "odg [Rezultati o tvojem znanju iz glasbene teorije žal niso vzpodbudni.] staticupdate "st4 :odg] end to kviz make "pravilni 0 windowdelete "main setlabelfont [[Arial CE] -30 0 20 200 0 0 0 0 3 2 1 18] windowcreate "gl "w1 [Kviz iz glasbene teorije!] 0 0 350 95 [] groupboxcreate "w1 "sg 0 0 280 80 staticcreate "w1 "s1 [] 10 10 250 20 staticcreate "w1 "s2 [] 20 30 240 10 staticcreate "w1 "s3 [] 20 40 240 10 staticcreate "w1 "s4 [] 20 50 240 10 staticcreate "w1 "s5 [Št. točk:] 290 50 45 13 buttoncreate "w1 "b2 [naprej] 100 65 50 13 [preveri naprej] buttoncreate "w1 "h1 :pravilni 293 65 20 13 [] buttoncreate "w1 "i1 [izhod] 290 10 40 13 [cs windowdelete "gl] radiobuttoncreate "w1 "sg "a [] 10 30 10 10 radiobuttoncreate "w1 "sg "b [] 10 40 10 10 radiobuttoncreate "w1 "sg "c [] 10 50 10 10 zacetek end to naprej wait 20 cs beri end to pomoc WindowCreate "gl "p_1 [Uporaba programa Kviz iz glasbene teorije] 50 20 330 160 [] StaticCreate "p_1 "s01 [Pomoč pri uporabi programa:] 5 4 210 10 StaticCreate "p_1 "s02 [S to igro boš preveril(a), če imaš dovolj znanja iz glasbene teorije.] 5 16 325 10 StaticCreate "p_1 "s03 [Ko ti program izpiše posamezno vprašanje:] 5 40 210 10 StaticCreate "p_1 "s04 [- prebereš vse tri možne odgovore] 5 50 210 10 StaticCreate "p_1 "s05 [- izbereš s klikom na gumb eno od izbir in klikneš na gumb 'naprej'] 5 60 320 10 StaticCreate "p_1 "s06 [- na grafičnem zaslonu se izpiše pravilnost izbire ter naslednje vprašanje] 5 70 325 10 StaticCreate "p_1 "s07 [- s klikom na gumb 'izhod' pa lahko predčasno končaš program.] 5 80 300 10 StaticCreate "p_1 "s08 [Če si rešil(a) pravilno vsaj 8 vprašanj, ti program sporoči, da si uspešno opravil(a) "test".] 5 100 300 10 ButtonCreate "p_1 "s09 (se "V "redu) 120 122 55 15 [WindowDelete "p_1] StaticCreate "p_1 "s10 [Andreja Klančar, maj 2006] 5 130 90 15 end to preveri cs pu setxy -200 100 pd rt 90 setpencolor [200 0 200] make "q1 (se "Tvoj "odgovor "je "nepravilen!) if radiobuttonget :r [~ setpencolor [0 0 200] make "q1 (se "Prav "imaš!) make "pravilni :pravilni + 1~ buttondelete "h1 buttoncreate "w1 "h1 :pravilni 293 65 20 13 [] ] make "odg :q1 label :q1 wait 50 end to stavki make "vpr(array 24 1) make "odga (array 24 1) make "odgb (array 24 1) make "odgc (array 24 1) make "resitev (array 24 1) setitem 1 :vpr [Kaj je triola?] setitem 1 :odga [a) tirolska vasica] setitem 1 :odgb [b) ritmična figura] setitem 1 :odgc [c) je delitev dvodelne ritmične enote na tri enake dele] setitem 1 :resitev[c] setitem 2 :vpr [Kaj so intervali?] setitem 2 :odga [a) razdalje med toni] setitem 2 :odgb [b) sozvočja] setitem 2 :odgc [c) prenos skupine tonov] setitem 2 :resitev[a] setitem 3 :vpr [Kaj je akord?] setitem 3 :odga [a) sozven treh ali več različnih tonov] setitem 3 :odgb [b) azijski rekord] setitem 3 :odgc [c) tridelna pesemska oblika] setitem 3 :resitev[a] setitem 4 :vpr [Obrati akorda so:] setitem 4 :odga [a) Kvintakord, septakord, kvartsekstakord] setitem 4 :odgb [b) Kvintakord, sekstakord, kvintseptakord] setitem 4 :odgc [c) Kvintakord, sekstakord, kvartsekstakord] setitem 4 :resitev[c] setitem 5 :vpr [Iz katerih intervalov je sestavljen zmanjšani kvartsekstakord?] setitem 5 :odga [a) Velike terce in zmanjšane kvarte] setitem 5 :odgb [b) Zvečane kvarte in male terce] setitem 5 :odgc [c) Velike terce in zvečane kvarte] setitem 5 :resitev[b] setitem 6 :vpr [Kako je sestavljen durov kvintakord?] setitem 6 :odga [a) Male terce in velike terce] setitem 6 :odgb [b) Velike terce in čiste kvarte] setitem 6 :odgc [c) Velike terce in male terce] setitem 6 :resitev[c] setitem 7 :vpr [Kako je sestavljen molov sekstakord?] setitem 7 :odga [a) Dveh velikih terc] setitem 7 :odgb [b) Velike terce in čiste kvarte] setitem 7 :odgc [c) Velike terce in zmanjšane kvarte] setitem 7 :resitev[b] setitem 8 :vpr [Kaj je transpozicija?] setitem 8 :odga [a) Prenos skupine tonov in akordov za določen interval navzgor/navzdol] setitem 8 :odgb [b) Sozven treh različnih tonov] setitem 8 :odgc [c) Sredenjeveški ples] setitem 8 :resitev[a] setitem 9 :vpr [Katera lastnost se imenuje MNOGOSTRANOST AKORDOV?] setitem 9 :odga [a) Da vsak posamezen akord napišemo na svojo stran notnega zvezka] setitem 9 :odgb [b) Da pri množičnem pisanju akordov popišemo mnogo strani notnega zvezka] setitem 9 :odgc [c) Isti akordi se nahajajo v več različnih tonalitetah] setitem 9 :resitev[c] setitem 10 :vpr [Koliko višajev ima F-dur lestvica?] setitem 10 :odga [a) Enega] setitem 10 :odgb [b) Štiri] setitem 10 :odgc [c) Nobenega] setitem 10 :resitev[c] setitem 11 :vpr [Kako delimo glasbo glede na način izvajanja?] setitem 11 :odga [a) Programska glasba in absolutna glasba] setitem 11 :odgb [b) Instrumentalna, vokalna, vokalno-instrumentalna, glasbeno-scenska] setitem 11 :odgc [c) Simfonična in koncertna glasba] setitem 11 :resitev[b] setitem 12 :vpr [MADRIGAL spada med:] setitem 12 :odga [a) Enoglasne vokalne zvrsti] setitem 12 :odgb [b) Klasične plese] setitem 12 :odgc [c) Večglasne vokalne zvrsti] setitem 12 :resitev[c] setitem 13 :vpr [Kaj je glasbena fuga?] setitem 13 :odga [a) Simfonična pesnitev] setitem 13 :odgb [b) Polnilo med ploščicami] setitem 13 :odgc [c) Vzorna oblika strogega stavka] setitem 13 :resitev[c] setitem 14 :vpr [Kateri instrument igra hornist?] setitem 14 :odga [a) Rog] setitem 14 :odgb [b) Trobento] setitem 14 :odgc [c) Flavto] setitem 14 :resitev[a] setitem 15 :vpr [Koliko osmink je v dvočetrtinskem taktu?] setitem 15 :odga [a) Dve] setitem 15 :odgb [b) Šestnajst] setitem 15 :odgc [c) Štiri] setitem 15 :resitev[c] setitem 16 :vpr [Kaj pomeni oznaka p (piano)?] setitem 16 :odga [a) Igraj tiho] setitem 16 :odgb [b) Igraj glasno] setitem 16 :odgc [c) Ne igraj] setitem 16 :resitev[a] setitem 17 :vpr [Kakšen tempo označujemo v glasbi z izrazom "allegro"?] setitem 17 :odga [a) živahen] setitem 17 :odgb [b) umirjen] setitem 17 :odgc [c) vesel] setitem 17 :resitev[c] setitem 18 :vpr [Zvišanemu tonu g rečemo:] setitem 18 :odga [a) ges] setitem 18 :odgb [b) gis] setitem 18 :odgc [c) a] setitem 18 :resitev[b] setitem 19 :vpr [Katere so značilnosti melodičnega intervala?] setitem 19 :odga [a) Dva tona nastopita hkrati] setitem 19 :odgb [b) Dva tona nastopita eden za drugim] setitem 19 :odgc [c) Hkrati nastopijo trije toni] setitem 19 :resitev[b] setitem 20 :vpr [Kako lahko razdelimo celinko?] setitem 20 :odga [a) Pet osmink] setitem 20 :odgb [b) Dve polovinki] setitem 20 :odgc [c) Tri četrtinke] setitem 20 :resitev[b] setitem 21 :vpr [Oboa je glasbeni inštrument, ki ga štejemo med:] setitem 21 :odga [a) Tolkala] setitem 21 :odgb [b) Trobila] setitem 21 :odgc [c) Pihala] setitem 21 :resitev[c] setitem 22 :vpr [Koliko višajev ima A-dur lestvica?] setitem 22 :odga [a) Nobenega] setitem 22 :odgb [b) Dva] setitem 22 :odgc [c) Tri] setitem 22 :resitev[c] setitem 23 :vpr [Štirje pevci sestavljajo:] setitem 23 :odga [a) Kvartet] setitem 23 :odgb [b) Kvintet] setitem 23 :odgc [c) Duet] setitem 23 :resitev[a] setitem 24 :vpr [Kaj je piccollo?] setitem 24 :odga [a) 'Majhna' trobenta] setitem 24 :odgb [b) 'Majhen' boben] setitem 24 :odgc [c) 'Majhna' flavta] setitem 24 :resitev[c] make "v item :izbor :vpr staticupdate "s1 :v make "a1 item :izbor :odga staticupdate "s2 :a1 make "b1 item :izbor :odgb staticupdate "s3 :b1 make "c1 item :izbor :odgc staticupdate "s4 :c1 make "r item :izbor :resitev end to uvod windowcreate "main "uvod [ KVIZ IZ GLASBENE TEORIJE] 20 30 150 85 [] staticcreate "uvod "s1 [S to igro boš preveril/-a] 10 10 170 10 staticcreate "uvod "s2 [svoje znanje iz ] 10 20 170 10 staticcreate "uvod "s3 [GLASBENE TEORIJE] 10 30 170 10 buttoncreate "uvod "b1 [NAVODILA] 5 45 40 13 [pomoc] buttoncreate "uvod "b2 [ZAČETEK] 50 45 40 13 [kviz] buttoncreate "uvod "b3 [IZHOD] 95 45 40 13 [windowdelete "izhod windowdelete "gl] end to zacetek make "stevec 3 make "izbor 1+random 2 stavki end Make "a1 [a) Simfonična pesnitev] Make "b1 [b) Polnilo med ploščicami] Make "c1 [c) Vzorna oblika strogega stavka] Make "izbor 13 Make "odg [Tvoj odgovor je nepravilen!] Make "odga {[a) tirolska vasica] [a) razdalje med toni] [a) sozven treh ali več različnih tonov] [a) Kvintakord, septakord, kvartsekstakord] [a) Velike terce in zmanjšane kvarte] [a) Male terce in velike terce] [a) Dveh velikih terc] [a) Prenos skupine tonov in akordov za določen interval navzgor/navzdol] [a) Da vsak posamezen akord napišemo na svojo stran notnega zvezka] [a) Enega] [a) Programska glasba in absolutna glasba] [a) Enoglasne vokalne zvrsti] [a) Simfonična pesnitev] [a) Rog] [a) Dve] [a) Igraj tiho] [a) živahen] [a) ges] [a) Dva tona nastopita hkrati] [a) Pet osmink] [a) Tolkala] [a) Nobenega] [a) Kvartet] [a) 'Majhna' trobenta]} Make "odgb {[b) ritmična figura] [b) sozvočja] [b) azijski rekord] [b) Kvintakord, sekstakord, kvintseptakord] [b) Zvečane kvarte in male terce] [b) Velike terce in čiste kvarte] [b) Velike terce in čiste kvarte] [b) Sozven treh različnih tonov] [b) Da pri množičnem pisanju akordov popišemo mnogo strani notnega zvezka] [b) Štiri] [b) Instrumentalna, vokalna, vokalno-instrumentalna, glasbeno-scenska] [b) Klasične plese] [b) Polnilo med ploščicami] [b) Trobento] [b) Šestnajst] [b) Igraj glasno] [b) umirjen] [b) gis] [b) Dva tona nastopita eden za drugim] [b) Dve polovinki] [b) Trobila] [b) Dva] [b) Kvintet] [b) 'Majhen' boben]} Make "odgc {[c) je delitev dvodelne ritmične enote na tri enake dele] [c) prenos skupine tonov] [c) tridelna pesemska oblika] [c) Kvintakord, sekstakord, kvartsekstakord] [c) Velike terce in zvečane kvarte] [c) Velike terce in male terce] [c) Velike terce in zmanjšane kvarte] [c) Sredenjeveški ples] [c) Isti akordi se nahajajo v več različnih tonalitetah] [c) Nobenega] [c) Simfonična in koncertna glasba] [c) Večglasne vokalne zvrsti] [c) Vzorna oblika strogega stavka] [c) Flavto] [c) Štiri] [c) Ne igraj] [c) vesel] [c) a] [c) Hkrati nastopijo trije toni] [c) Tri četrtinke] [c) Pihala] [c) Tri] [c) Duet] [c) 'Majhna' flavta]} Make "pravilni 2 Make "q1 [Tvoj odgovor je nepravilen!] Make "r [c] Make "resitev {[c] [a] [a] [c] [b] [c] [b] [a] [c] [c] [b] [c] [c] [a] [c] [a] [c] [b] [b] [b] [c] [c] [a] [c]} Make "stevec 15 Make "v [Kaj je glasbena fuga?] Make "vpr {[Kaj je triola?] [Kaj so intervali?] [Kaj je akord?] [Obrati akorda so:] [Iz katerih intervalov je sestavljen zmanjšani kvartsekstakord?] [Kako je sestavljen durov kvintakord?] [Kako je sestavljen molov sekstakord?] [Kaj je transpozicija?] [Katera lastnost se imenuje MNOGOSTRANOST AKORDOV?] [Koliko višajev ima F-dur lestvica?] [Kako delimo glasbo glede na način izvajanja?] [MADRIGAL spada med:] [Kaj je glasbena fuga?] [Kateri instrument igra hornist?] [Koliko osmink je v dvočetrtinskem taktu?] [Kaj pomeni oznaka p (piano)?] [Kakšen tempo označujemo v glasbi z izrazom "allegro"?] [Zvišanemu tonu g rečemo:] [Katere so značilnosti melodičnega intervala?] [Kako lahko razdelimo celinko?] [Oboa je glasbeni inštrument, ki ga štejemo med:] [Koliko višajev ima A-dur lestvica?] [Štirje pevci sestavljajo:] [Kaj je piccollo?]} uvod