make "startup [zacetek] to oprogramu windowcreate "main2 "nav [UPORABA PROGRAMA] 100 25 300 200 [] staticcreate "nav "nav_s1 [Na zaslon se izpise posamezen izum oziroma izumitelj. Tvoja naloga je, da:] 7 7 250 10 staticcreate "nav "nav_s3 [- preberes vse tri mozne odgovore,] 7 20 250 10 staticcreate "nav "nav_s4 [- s klikom v krogec pred odgovorom izberes enega in pritisnes gumb ,] 7 30 300 10 staticcreate "nav "nav_s5 [- izpise se potrditev odgovora ali pa pojasnitev nepravilno izbranega,] 7 40 250 10 staticcreate "nav "nav_s7 [- ce ne zelis odgovoriti na vprasanje, se z gumbom pomakni na naslednjega,] 7 50 300 10 staticcreate "nav "nav_s9 [- stevilo pravilnih odgovorov se izpisuje spodaj, izpusceni ne stejejo kot nepravilni,] 7 60 300 10 staticcreate "nav "nav_s10 [- s klikom na gumb lahko predcasno koncas,] 7 70 250 10 staticcreate "nav "nav_s11 [- ko se program iztece, lahko z gumbom ponovno pricnes.] 7 80 250 10 staticcreate "nav "nav_s13 [Ce pravilno odgovoris vsaj na 1/3 vprasanj, se izpise, da je tvoje poznavanje] 7 100 300 10 staticcreate "nav "nav_s14 [tematike izumov zelo dobro.] 7 110 250 10 buttoncreate "nav "nav_s17 [V redu] 50 130 40 15 [windowdelete "nav] staticcreate "nav "nav_s15 [Avtorica: Brigita Kotar] 7 160 250 10 staticcreate "nav "nav_s16 [Leto izdelave: 2008] 7 170 250 10 end to zacetek windowcreate "main "zacetek [ZGODOVINA TEHNICNIH IZUMOV] 100 25 200 80 [] staticcreate "zacetek "s1 [Preveri, kako dobro poznas zgodovino tehnicnih izumov] 7 10 250 10 staticcreate "zacetek "s2 [in spoznaj zanimiva dejstva o izumih in izumiteljih.] 7 20 250 10 buttoncreate "zacetek "b1 [Navodila] 50 40 40 15 [oprogramu] buttoncreate "zacetek "b2 [Izumi] 110 40 40 15 [izumi0] end to izumi0 windowdelete "main make "pravilni 0 make "odgovorjeni 1 make "zloraba 0 ustvari_vprasanja nakljucno_izberi izumi end to izumi windowcreate "mw "w1 [IZUMI] 100 25 300 200 [] setlabelfont [[Times New Roman CE]-24 0 0 300 0 0 0 0 3 2 1 18] groupboxcreate "w1 "gb 0 0 300 200 staticcreate "w1 "v [] 15 10 250 20 radiobuttoncreate "w1 "gb "a [] 15 30 10 10 radiobuttoncreate "w1 "gb "b [] 15 42 10 10 radiobuttoncreate "w1 "gb "c [] 15 54 10 10 staticcreate "w1 "o1 [] 25 30 250 10 staticcreate "w1 "o2 [] 25 42 250 10 staticcreate "w1 "o3 [] 25 54 250 10 buttoncreate "w1 "bok1 [Potrdi] 15 80 40 15 [preveri] buttoncreate "w1 "bgo [Naprej] 80 80 40 15 [naprej] staticcreate "w1 "op [Pravilni odgovori:] 15 115 60 15 buttoncreate "w1 "bok2 :pravilni 80 113 20 12 [] buttoncreate "w1 "bout [Izhod] 15 140 40 15 [cs windowdelete "mw] staticcreate "w1 "onp [] 20 160 295 20 staticcreate "w1 "onp1 [] 50 170 295 20 izpisi_vprasanje end to preveri make "m item :index :resitev if radiobuttonget :m [make "pravilni :pravilni+1] ifelse radiobuttonget :m [ifelse :zloraba=0 [staticupdate "onp "Pravilno! buttonupdate "bok2 :pravilni make "zloraba 1][staticupdate "onp (se "Nadaljuj "z "naslednjim "vprašanjem!)] ][ make "m item :index :napaka1 ifelse radiobuttonget :m [make "s (se "Ne "drži! "Tvoj "odgovor "se "ujema "z "naslednjim "izumom "oz. "izumiteljem:) make "z (list :m item :index :n1) ifelse :zloraba=0 [staticupdate "onp :s staticupdate "onp1 :z make "zloraba 1][staticupdate "onp (se "Nadaljuj "z "naslednjim "vprašanjem!)] ][ make "m item :index :napaka2 ifelse radiobuttonget :m [make "s (se "Ne "drži! "Tvoj "odgovor "se "ujema "z "naslednjim "izumom "oz. "izumiteljem:) make "z (list :m item :index :n2) ifelse :zloraba=0 [staticupdate "onp :s staticupdate "onp1 :z make "zloraba 1][staticupdate "onp (se "Nadaljuj "z "naslednjim "vprašanjem!)]][staticupdate "onp (se "Izbrati "moraš "en "odgovor!) ] ] ] end to naprej make "odgovorjeni :odgovorjeni+1 make "zloraba 0 staticupdate "onp [] radiobuttondelete "a radiobuttondelete "b radiobuttondelete "c radiobuttoncreate "w1 "gb "a [] 15 30 10 10 radiobuttoncreate "w1 "gb "b [] 15 42 10 10 radiobuttoncreate "w1 "gb "c [] 15 54 10 10 izpisi_vprasanje end to izpisi_vprasanje ifelse :odgovorjeni>20 [znova][ make "index item :odgovorjeni :vpr_rand staticupdate "v item :index :vprasanje staticupdate "o1 item :index :oa staticupdate "o2 item :index :ob staticupdate "o3 item :index :oc ] end to znova windowdelete "mw windowcreate "main "ponovno [ZGODOVINA TEHNICNIH IZUMOV] 100 25 200 80 [] staticcreate "ponovno "s1 [Konec!] 7 10 250 10 if :pravilni>6 [staticupdate "s1 (se "Cestitam! "Dobro "poznaš "dejstva "o "tehničnih "izumih!)] staticcreate "ponovno "s2 [Lahko poskusiš ponovno in izveš še kaj novega:)] 7 20 250 10 buttoncreate "ponovno "b1 [Znova] 50 40 40 15 [izumi0] buttoncreate "ponovno "b2 [Izhod] 110 40 40 15 [windowdelete "main] end to ustvari_vprasanja make "vprasanje (array 20 1) make "oa (array 20 1) make "ob (array 20 1) make "oc (array 20 1) make "resitev (array 20 1) make "napaka1 (array 20 1) make "napaka2 (array 20 1) make "n1 (array 20 1) make "n2 (array 20 1) setitem 1 :vprasanje [Centralno ogrevanje so izumili:] setitem 1 :oa [a) Rimljani, leta 100 p.n.š.] setitem 1 :ob [b) Egipčani, 300-250 p.n.š.] setitem 1 :oc [c) Krečani, okrog 1800 p.n.š.] setitem 1 :resitev "a setitem 1 :napaka1 "b setitem 1 :napaka2 "c setitem 1 :n1 [ - kolo za črpanje vode - ] setitem 1 :n2 [ - lončeni cevovod - ] setitem 2 :vprasanje [Papir iz bambusa so izumili:] setitem 2 :oa [a) Egipčani, okrog 3000 p.n.š.] setitem 2 :ob [b) Japonci, okrog 767 n.š.] setitem 2 :oc [c) Cai Lun, Kitajska, leta 105 n.š.] setitem 2 :resitev "c setitem 2 :napaka1 "a setitem 2 :napaka2 "b setitem 2 :n1 [ - papirus - ] setitem 2 :n2 [ - tisk - ] setitem 3 :vprasanje [Magnetno iglo in kompas so izumili:] setitem 3 :oa [a) Arabci, okrog leta 1000 n.š.] setitem 3 :ob [b) Kitajci, 1000-1100 n.š.] setitem 3 :oc [c) Apolonij, Grčija, 3.-2. st.p.n.š.] setitem 3 :resitev "b setitem 3 :napaka1 "a setitem 3 :napaka2 "c setitem 3 :n1 [ - kamera obskura in leče - ] setitem 3 :n2 [ - astrolab, priprava za merjenje kotnih razdalj na nebu - ] setitem 4 :vprasanje [Kdo je izumil sončno uro?] setitem 4 :oa [a) Han Kunglien, Kitajska, leta 1088 n.š.] setitem 4 :ob [b) Egipčani, 8. st.p.n.š.] setitem 4 :oc [c) Dondi, Italija, leta 1350 n.š.] setitem 4 :resitev "b setitem 4 :napaka1 "a setitem 4 :napaka2 "c setitem 4 :n1 [ - vodna ura - ] setitem 4 :n2 [ - ura na uteži - ] setitem 5 :vprasanje [Kdo je prvi izumil umetne ude?] setitem 5 :oa [a) Pare, Francija, okrog 1540 n.š.] setitem 5 :ob [b) Etruščani, okrog 700 p.n.š.] setitem 5 :oc [c) Greenwood, ZDA, leta 1790 n.š.] setitem 5 :resitev "a setitem 5 :napaka1 "b setitem 5 :napaka2 "c setitem 5 :n1 [ - umetno zobovje - ] setitem 5 :n2 [ - zobni sveder - ] setitem 6 :vprasanje [Puško so izumili:] setitem 6 :oa [a) Kitajci, okrog leta 950] setitem 6 :ob [b) Colt, ZDA, leta 1836] setitem 6 :oc [c) Kotter, Nemčija, leta 1520] setitem 6 :resitev "c setitem 6 :napaka1 "a setitem 6 :napaka2 "b setitem 6 :n1 [ - smodnik - ] setitem 6 :n2 [ - revolver - ] setitem 7 :vprasanje [Od kje pa prihaja videokamera?] setitem 7 :oa [a) Rutherford, Turner, VB, leta 1936] setitem 7 :ob [b) Japonska, leta 1981] setitem 7 :oc [c) Shockley, Brattain, Bardeen, ZDA, leta 1948] setitem 7 :resitev "b setitem 7 :napaka1 "a setitem 7 :napaka2 "c setitem 7 :n1 [ - videorekorder - ] setitem 7 :n2 [ - radijski tranzistor - ] setitem 8 :vprasanje [In kdo je odkril brezžični telefon?] setitem 8 :oa [a) Bell, Škotska, Gray, ZDA, leta 1876] setitem 8 :ob [b) Collins, ZDA, leta 1899] setitem 8 :oc [c) Hughes, Anglija/ZDA, leta 1878] setitem 8 :resitev "b setitem 8 :napaka1 "a setitem 8 :napaka2 "c setitem 8 :n1 [ - telefon - ] setitem 8 :n2 [ - mikrofon na oglje - ] setitem 9 :vprasanje [Svinčnik je izumil:] setitem 9 :oa [a) Gessner, Švica, leta 1565] setitem 9 :ob [b) Conte, Francija, leta 1795] setitem 9 :oc [c) Gutenberg, Nemčija, okrog leta 1440] setitem 9 :resitev "a setitem 9 :napaka1 "b setitem 9 :napaka2 "c setitem 9 :n1 [ - grafitni svinčnik - ] setitem 9 :n2 [ - tisk s premičnimi črkami - ] setitem 10 :vprasanje [Prva pisava pa je prišla iz:] setitem 10 :oa [a) Skandinavija, okrog leta 8000 p.n.š.] setitem 10 :ob [b) Egipt, okrog leta 3200 p.n.š.] setitem 10 :oc [c) Mezopotamija, okrog leta 4000 p.n.š.] setitem 10 :resitev "c setitem 10 :napaka1 "a setitem 10 :napaka2 "b setitem 10 :n1 [ - koščeni glavnik - ] setitem 10 :n2 [ - črnilo - ] setitem 11 :vprasanje [Izumitelj klavirja je:] setitem 11 :oa [a) Denner, Nemčija, leta 1700] setitem 11 :ob [b) Cristofori, Italija, leta 1709] setitem 11 :oc [c) Shore, Anglija, leta 1711] setitem 11 :resitev "b setitem 11 :napaka1 "a setitem 11 :napaka2 "c setitem 11 :n1 [ - klarinet - ] setitem 11 :n2 [ - glasbene vilice - ] setitem 12 :vprasanje [Samokolnica prihaja iz:] setitem 12 :oa [a) Kitajska, leta 200-300] setitem 12 :ob [b) Perzija, okrog leta 640] setitem 12 :oc [c) Nizozemska, leta 1280-1300] setitem 12 :resitev "a setitem 12 :napaka1 "b setitem 12 :napaka2 "c setitem 12 :n1 [ - mlin na veter - ] setitem 12 :n2 [ - bager - ] setitem 13 :vprasanje [Živosrebrni termometer je izum:] setitem 13 :oa [a) Galilei, Italija, leta 1592] setitem 13 :ob [b) Torricelli, Italija, leta 1643] setitem 13 :oc [c) Fahrenheit, Nemčija, leta 1714] setitem 13 :resitev "c setitem 13 :napaka1 "a setitem 13 :napaka2 "b setitem 13 :n1 [ - termometer - ] setitem 13 :n2 [ - živosrebrni barometer - ] setitem 14 :vprasanje [Izumitelj izmeničnega toka je:] setitem 14 :oa [a) Thomas Alva Edison, leta 1879] setitem 14 :ob [b) Nikola Tesla, leta 1892] setitem 14 :oc [c) Alessandro Volta, leta 1801] setitem 14 :resitev "b setitem 14 :napaka1 "a setitem 14 :napaka2 "c setitem 14 :n1 [ - žarnica z ogljeno nitko - ] setitem 14 :n2 [ - električna baterija - ] setitem 15 :vprasanje [Carre iz Francije je izumil:] setitem 15 :oa [a) pralni stroj, leta 1858] setitem 15 :ob [b) spalnik, leta 1858] setitem 15 :oc [c) hladilnik, leta 1858] setitem 15 :resitev "c setitem 15 :napaka1 "a setitem 15 :napaka2 "b setitem 15 :n1 [ - Smith, ZDA - ] setitem 15 :n2 [ - Pullman, ZDA - ] setitem 16 :vprasanje [Alfred Nobel s Švedske je izumil:] setitem 16 :oa [a) nitroglicerin, leta 1847] setitem 16 :ob [b) dinamit, leta 1866] setitem 16 :oc [c) vžigalice, leta 1827] setitem 16 :resitev "b setitem 16 :napaka1 "a setitem 16 :napaka2 "c setitem 16 :n1 [ - Sobrero, Italija - ] setitem 16 :n2 [ - Walker, Anglija - ] setitem 17 :vprasanje [Prvi jumbojet Boeing 747 prihaja iz:] setitem 17 :oa [a) Francije in VB, leta 1969] setitem 17 :ob [b) ZDA, leta 1969] setitem 17 :oc [c) SZ, leta 1968] setitem 17 :resitev "b setitem 17 :napaka1 "a setitem 17 :napaka2 "c setitem 17 :n1 [ - nadzvočno letalo Concorde - ] setitem 17 :n2 [ - nadzvočno potniško letalo TU-144 - ] setitem 18 :vprasanje [Dunlop s Škotske je izumil:] setitem 18 :oa [a) zračnico, leta 1888] setitem 18 :ob [b) motorno kolo, leta 1885] setitem 18 :oc [c) bencinski avto, leta 1883-86] setitem 18 :resitev "a setitem 18 :napaka1 "b setitem 18 :napaka2 "c setitem 18 :n1 [ - Daimler, Nemčija - ] setitem 18 :n2 [ - Daimler, Benz, Nemčija - ] setitem 19 :vprasanje [Anglež Hancock je leta 1820 izumil:] setitem 19 :oa [a) motorno letalo] setitem 19 :ob [b) podmornico] setitem 19 :oc [c) elastiko] setitem 19 :resitev "c setitem 19 :napaka1 "a setitem 19 :napaka2 "b setitem 19 :n1 [ - brata Wright, ZDA, l.1903 - ] setitem 19 :n2 [ - Holland, Irska/ZDA, l.1898 - ] setitem 20 :vprasanje [Nihalo je v letih 1588-91 izumil:] setitem 20 :oa [a) Galilei, Italija] setitem 20 :ob [b) Leibniz, Nemčija] setitem 20 :oc [c) Franklin, ZDA] setitem 20 :resitev "a setitem 20 :napaka1 "b setitem 20 :napaka2 "c setitem 20 :n1 [ - kalkulator, l.1672 - ] setitem 20 :n2 [ - strelovod, l.1752 - ] end to nakljucno_izberi make "k count :vprasanje make "n :k make "vpr_rand (array :k 1) repeat :k [setitem repcount :vpr_rand repcount] repeat :k [ make "i (1+random :n) make "j (:k+1-repcount) make "t item :j :vpr_rand setitem :j :vpr_rand item :i :vpr_rand setitem :i :vpr_rand :t make "n (:n-1) ] end