ht
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 200 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 190 10

 buttoncreate "izhod "bt1 [TEST] 15 45 45 13 [kviz]
 buttoncreate "izhod "bt2 [IZHOD] 120 45 40 13 [windowdelete "izhod windowdelete "gl]


ifelse :pravilni>7 [make "odg [Od 12-ih si pravilno odgovoril na] staticupdate "st1 :odg ~
                    make "odg :pravilni staticupdate "st2 :odg make "odg  "vprašanj. staticupdate "st3 :odg ~
                    make "odg [Bravo!] staticupdate "st4 :odg][~
make "odg [Od desetih  si pravilno  odgovoril na] staticupdate "st1 :odg ~
                    make "odg :pravilni staticupdate "st2 :odg make "odg "vprašanj. staticupdate "st3 :odg ~
                    make "odg [Več sreče prihodnjič!] staticupdate "st4 :odg]
end
to kviz
 make "pravilni 0
 windowdelete "main
 setlabelfont [[Arial CE] -24 0 20 200 0 0 0 0 3 2 1 18]
 windowcreate "gl "w1 [TEST IZ UREJANJA BESEDIL] 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 "b1 [potrdi izbiro] 10  65 50 13 [preveri]
 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 pomoc
  WindowCreate "gl "p_1 [Kako uporabljati program?] 20 20 330 145 []
  StaticCreate "p_1 "s01 [Pomoč pri uporabi programa:] 5 4 210 10
  StaticCreate "p_1 "s02 [S tem programom boš preveril(-la), znanje iz urejanja besedil.] 5 16 325 10 
  StaticCreate "p_1 "s011 [-------------------------------------------------------------------------------------------] 5 24 210 10
  StaticCreate "p_1 "s09 [Ko ti program izpiše posamezno vprašanje si najprej prebereš vse tri možne odgovore,] 5 30 325 10
  StaticCreate "p_1 "s03 [nato izbereš pravilnega s klikom na gumb.] 5 40 210 10
  StaticCreate "p_1 "s04 [NE POZABI kliknit na gumb 'potrdi izbiro.'] 5 50 320 10
  StaticCreate "p_1 "s05 [Na zaslonu se izpiše pravilnost izbire. Počakaj, da se ti izpiše naslednja naloga.] 5 60 325 10
  StaticCreate "p_1 "s06 [Če želiš predčasno končati, klikneš na gumb 'izhod'] 5 70 300 10
  StaticCreate "p_1 "s061 [\Program se konča sam, ko pride do konca vprašalnika.] 5 80 300 10
  StaticCreate "p_1 "s062 [Ko rešiš 12 vprašanj, program sporoči, na koliko vprašanj si odgovoril pozitivno.] 5 90 325 10
  ButtonCreate "p_1 "s07 (se "V "redu)  120 112 55 15 [WindowDelete "p_1]
  StaticCreate "p_1 "s10 [Marija Hlastan, 2005] 5 120 90 15
end


to preveri
  cs pu setxy -100 0 pd rt 90
  setpencolor [200 0 100]
 make "q1 (se "Narobe!)
   if radiobuttonget :r [~
  setpencolor [0 200 200] make "q1 (se "Pravilno!) make "pravilni :pravilni + 1~
  buttondelete "h1 buttoncreate "w1 "h1 :pravilni 293 65 20 13 []
]
  make "odg :q1
 label :q1 wait 80 cs beri
  
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 [Kateri program uporabljamo za pisanje in urejanje besedil?]
setitem 1 :odga [a) Word]
setitem 1 :odgb [b) PowerPoint]
setitem 1 :odgc [c) Beležnica]
setitem 1 :resitev[a]


setitem 2 :vpr [Ali lahko v Wordu naredimo in oblikujemo tabelo?]
setitem 2 :odga [a) Ne.]
setitem 2 :odgb [b) Da.]
setitem 2 :odgc [c) Lahko jo vnesemo samo kot sliko.]
setitem 2 :resitev[b]


setitem 3 :vpr [kakšna je končnica besedilne datoteke, ki je shranjena v Wordu?]
setitem 3 :odga [a) .doc]
setitem 3 :odgb [b) .pdf]
setitem 3 :odgc [c) .txt]
setitem 3 :resitev[a]


setitem 4 :vpr [Kaj pomeni beseda slog v Wordu?]
setitem 4 :odga [a) Oblikovalno lastnost.]
setitem 4 :odgb [b) Način oblačenja.]
setitem 4 :odgc [c) Način pisanja pisma.]
setitem 4 :resitev[a]


setitem 5 :vpr [Kaj pomeni beseda "urejevalnik" pri računalništvu?]
setitem 5 :odga [a) Računalniški program za urejanje frizure.]
setitem 5 :odgb [b) Računalniški program za urejanje besedil.]
setitem 5 :odgc [c) Program za prikazovanje in urejanje slik.]
setitem 5 :resitev[b]


setitem 6 :vpr [Kaj pomeni beseda "meni" v računalnikških programih?]
setitem 6 :odga [a) Jedilnik.]
setitem 6 :odgb [b) Lastnost za oblikovanje besedila.]
setitem 6 :odgc [c) Seznam možnih skupnih ukazov.]
setitem 6 :resitev[c]


setitem 7 :vpr [Katera trditev je pravilna?]
setitem 7 :odga [a) Beseda, ki jo črkovalnik prepozna, je pravilno napisana.]
setitem 7 :odgb [b) Beseda, ki jo črkovalnik prepozna, je nujno slovenska.]
setitem 7 :odgc [c) Beseda, ki jo črkovalnik ne prepozna, je nepravilno napisana.]
setitem 7 :resitev[a]


setitem 8 :vpr [Katera trditev je nepravilna?]
setitem 8 :odga [a) Beseda, ki jo črkovalnik ne prepozna, je vedno nepravilno napisana.]
setitem 8 :odgb [b) Beseda, ki jo črkovalnik prepozna, je lahko tudi slovenska.]
setitem 8 :odgc [c) Beseda, ki jo črkovalnik prepozna, je pravilno napisana.]
setitem 8 :resitev[a]


setitem 9 :vpr [Kateri podatek ne spada na naslovnico?]
setitem 9 :odga [a) Naslov projektne naloge.]
setitem 9 :odgb [b) Povzetek projektne naloge.]
setitem 9 :odgc [c) Ime in priimek mentorja seminarske naloge.]
setitem 9 :resitev[b]


setitem 10 :vpr [Da bi lahko oblikoval(-a) besedilo v Wordu moraš:]
setitem 10 :odga [a) biti pravi poznavalec računalnikov.]
setitem 10 :odgb [b) imeti veliko znanja iz računalništva in Word-a.]
setitem 10 :odgc [c) imeti nekaj znanja iz računalništva in Word-a.]
setitem 10 :resitev[c]


setitem 11 :vpr [Ali moraš kazalo vsebine nujno pisati sam?]
setitem 11 :odga [a) Ne, vstaviš ga s pomočjo ukaza, vendar moraš imeti določene sloge.]
setitem 11 :odgb [b) Ne, lahko ti pomaga kdo od staršev.]
setitem 11 :odgc [c) Da, da veš kaj imaš na kateri strani.]
setitem 11 :resitev[a]


setitem 12 :vpr [Ali je potrebno literaturo navajati?]
setitem 12 :odga [a) Ne.]
setitem 12 :odgb [b) Da, ker so določeni stavki citirani iz literature.]
setitem 12 :odgc [c) Da, ker lahko dobim višjo oceno.]
setitem 12 :resitev[b]


setitem 13 :vpr [Poišči pravilno trditev!]
setitem 13 :odga [a) Če ima računalnik virus, ima nujno tudi vročino.]
setitem 13 :odgb [b) Programska oprema računalnika se na ugasnjenem računalniku vidi.]
setitem 13 :odgc [c) Vsak računalnik ima svoj operacijski sistem.]
setitem 13 :resitev[c]


setitem 14 :vpr [Ugotovi nepravilno izjavo!]
setitem 14 :odga [a) Linux je operacijski sistem.]
setitem 14 :odgb [b) Windows je operacijski sistem.]
setitem 14 :odgc [c) Windows je edini obstoječi operacijski sistem.]
setitem 14 :resitev[c]


setitem 15 :vpr [Katera enota ni izhodna?]
setitem 15 :odga [a) Skener.]
setitem 15 :odgb [b) Monitor (zaslon).]
setitem 15 :odgc [c) Tiskalnik.]
setitem 15 :resitev[a]


setitem 16 :vpr [Katera enota ni vhodna?]
setitem 16 :odga [a) Tipkovnica.]
setitem 16 :odgb [b) LCD zaslon.]
setitem 16 :odgc [c) Fotoaparat.]
setitem 16 :resitev[b]


setitem 17 :vpr [Česa nimamo v računalniku?]
setitem 17 :odga [a) REM-a.]
setitem 17 :odgb [b) ROM-a.]
setitem 17 :odgc [c) RAM-a.]
setitem 17 :resitev[a]


setitem 18 :vpr [Prvi računalnik je bil]
setitem 18 :odga [a) enako velik kot je zdaj.]
setitem 18 :odgb [b) malo večji kot je zdaj.]
setitem 18 :odgc [c) zelo velik. Ne bi ga mogli spraviti v to učilnico.]
setitem 18 :resitev[c]


setitem 19 :vpr [Kaj pomeni beseda medij v računalništvu?]
setitem 19 :odga [a) Radijo.]
setitem 19 :odgb [b) Sedstvo na katerega se lahko zapišejo podatki.]
setitem 19 :odgc [c) Program.]
setitem 19 :resitev[b]


setitem 20 :vpr [Na kateri medij lahko zapišeš več podatkov?]
setitem 20 :odga [a) Disk.]
setitem 20 :odgb [b) Disketa.]
setitem 20 :odgc [c) CD, DVD.]
setitem 20 :resitev[a]


setitem 21 :vpr [Kateri tiskalnik je hitrejši?]
setitem 21 :odga [a) Ink-jet tiskalnik.]
setitem 21 :odgb [b) Tiskalnik na barvni trak.]
setitem 21 :odgc [c) Laserski tiskalnik.]
setitem 21 :resitev[c]


setitem 22 :vpr [Kaj pomeni kratica RAM?]
setitem 22 :odga [a) Bralni pomnilnik.]
setitem 22 :odgb [b) Procesna enota.]
setitem 22 :odgc [c) Delovni pomnilnik.]
setitem 22 :resitev[c]


setitem 23 :vpr [Kaj pomeni kratica ROM?]
setitem 23 :odga [a) Bralni pomnilnik.]
setitem 23 :odgb [b) Delovni pomnilnik.]
setitem 23 :odgc [c) Procesna enota.]
setitem 23 :resitev[a]


setitem 24 :vpr [Kaj pomeni kratica CPE ali CPU?]
setitem 24 :odga [a) Bralni pomnilnik.]
setitem 24 :odgb [b) Delovni pomnilnik.]
setitem 24 :odgc [c) Centralno procesna enota.]
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 [PREVERI SVOJE ZNANJE] 20 30 150 85 []
 staticcreate "uvod "s1 [S to igro boš preveril, če imaš dovolj ] 10 10 150 10
 staticcreate "uvod "s2 [znanja iz urejanja besedil.] 10 20 150 10
 staticcreate "uvod "s3 [Poišči pravilno trditev!] 10 30 150 10
 buttoncreate "uvod "b1 [NAVODILA] 15 45 40 13 [pomoc]
 buttoncreate "uvod "b2 [ZAČETEK] 80 45 40 13 [kviz]
end

to zacetek
make "stevec 3
make "izbor 1+random 2
stavki 
end

uvod