to zaporedna :n localmake "s [] repeat :n [make "s lput repcount :s] op :s end to premesaj :s (local "i "j "t) localmake "n count :s localmake "r [] make "z (array :n 1) repeat :n [setitem repcount :z item repcount :s] repeat :n [ make "i :n+1-repcount make "j 1+random :i make "t item :j :z setitem :j :z item :i :z make "r fput :t :r ] op :r end to izhod windowdelete "okno home st end to izhod_it windowdelete "okno_it okno end to izhod_sl windowdelete "okno_sl okno end to izhod_napotki windowdelete "okno_napotki okno end to naloge_it windowdelete "okno windowcreate "main "okno_it [Italijansko slovenski slovar] 10 10 450 200 [] staticcreate "okno_it "besedilo_it [V okence zapiši prevod besede] 50 5 200 15 staticcreate "okno_it "beseda_i [beseda:] 35 45 100 20 make "izbira_it (random count :besede_it)+1 make "napis_it item :izbira_it :besede_it make "napis_it1 item :izbira_it :besede_sl staticcreate "okno_it "beseda1_i :napis_it 90 40 60 15 staticcreate "okno_it "prevod_it [Prevod:] 35 70 100 20 comboboxcreate "okno_it "vnos_it 90 70 60 15 buttoncreate "okno_it "preveri_i "OK 175 70 50 15 [preveri_it] staticcreate "okno_it "prav_it [Število pravilnih:] 15 130 100 10 staticcreate "okno_it "prav :prav 115 130 20 10 staticcreate "okno_it "neprav_it [Število nepravilnih:] 15 140 100 10 staticcreate "okno_it "neprav :neprav 115 140 20 10 buttoncreate "okno_it "nasl_it [Naprej] 175 100 80 20 [naloge_it] buttoncreate "okno_it "izhod [IZHOD] 175 130 60 20 [izhod_it] end to naloge_sl windowdelete "okno windowcreate "main "okno_sl [Slovensko italijanski slovar] 10 10 450 200 [] staticcreate "okno_sl "besedilo_sl [V okence zapiši prevod besede] 50 5 200 15 staticcreate "okno_sl "beseda_s [beseda:] 35 45 100 20 make "nv :nv+1 if :nv > :mv [izhod_sl] make "izbira_sl item :nv :p_sl make "napis_sl item :izbira_sl :besede_sl make "napis_sl1 item :izbira_sl :besede_it staticcreate "okno_sl "beseda1_s :napis_sl 90 40 60 15 staticcreate "okno_sl "prevod_sl [Prevod:] 35 70 100 20 comboboxcreate "okno_sl "vnos_sl 90 70 60 15 buttoncreate "okno_sl "preveri_s "OK 175 70 50 15 [preveri_sl] staticcreate "okno_sl "prav_sl [Število pravilnih:] 15 130 100 10 staticcreate "okno_sl "prav_s :prav_s 115 130 20 10 staticcreate "okno_sl "neprav_sl [Število nepravilnih:] 15 140 100 10 staticcreate "okno_sl "neprav_s :neprav_s 115 140 20 10 buttoncreate "okno_sl "nasl_sl [Naprej] 175 100 80 20 [naloge_sl] buttoncreate "okno_sl "izhod [IZHOD] 175 130 60 20 [izhod_sl] end to zacetek_sl buttondelete "beseda_sl buttoncreate "okno_sl "beseda_it :napis_sl 90 40 60 15 [] end to besede windowcreate "main "okno [DVOSMERNI ITALIJANSKO SLOVENSKI SLOVAR - VAJE] 120 40 250 130 [ht nastavitev] end to napotki windowdelete "okno windowcreate "main "okno_napotki [O PROGRAMU] 100 20 200 260 [] staticcreate "okno_napotki "besedilo_napotki [Namen programa: S pomočjo tega programo boš utrdil/a svoje znanje italijanskega jezika] 10 10 180 40 staticcreate "okno_napotki "besedilo_napotki1 [Navodila za uporabo:] 10 40 180 40 staticcreate "okno_napotki "besedilo_napotki2 [V glavnem oknu najprej izberi italijansko-slovenski oz. slovensko-italijanski slovar] 10 50 180 40 staticcreate "okno_napotki "besedilo_napotki3 [Zgoraj se bo izpisala beseda, ki jo moraš prevesti. Prevedeno besedo vpiši v okence ter klikni na gumb 'OK'.] 10 75 180 40 staticcreate "okno_napotki "besedilo_napotki4 [Desno se ti bo izpisalo ali je tvoj prevod pravilen ali ne.] 10 100 180 40 staticcreate "okno_napotki "besedilo_napotki5 [Za naslednjo nalogo klikni gumb 'Naprej' ali pa gumb 'IZHOD', če želiš z delom zaključiti ali pa izbrati drug slovar.] 10 125 180 40 staticcreate "okno_napotki "besedilo_napotki6 [Pa srečno pri reševanju!] 10 160 180 40 staticcreate "okno_napotki "besedilo_napotki7 [Avtor: Martina Marolt, Ma Ra Pef Lj] 10 190 180 40 staticcreate "okno_napotki "besedilo_napotki8 [Mentor: prof. Vladimir Batagelj, FMF] 10 200 180 40 staticcreate "okno_napotki "besedilo_napotki9 [V Ljubljani, maj 2006] 10 210 180 40 buttoncreate "okno_napotki "izhod [IZHOD] 120 220 70 15 [izhod_napotki] end to okno windowcreate "main "okno [DVOSMERNI ITALIJANSKO SLOVENSKI SLOVAR - VAJE] 120 40 250 130 [ht nastavitev] end to pravilno_it sound [1000 200] make "prav (:prav+1) staticupdate "prav :prav comboboxenable "vnos_it "false buttondelete "preveri_i staticcreate "okno_it "besedilo_it_prav [Čestitam! Tvoj odgovor je pravilen] 250 65 150 10 end to pravilno_sl sound [1000 200] make "prav_s (:prav_s+1) staticupdate "prav_s :prav_s comboboxenable "vnos_sl "false buttondelete "preveri_s staticcreate "okno_sl "besedilo_sl_prav [Čestitam! Tvoj odgovor je pravilen] 250 65 150 10 end to narobe_it sound [1300 150] make "neprav (:neprav+1) staticupdate "neprav :neprav comboboxenable "vnos_it "false buttondelete "preveri_i staticcreate "okno_it "besedilo_it_neprav [To pa ne bo prav! Pravilen odgovor je: ] 250 40 110 20 staticcreate "okno_it "besedilo_it_neprav1 :napis_it1 290 48 60 10 end to narobe_sl sound [1300 150] make "neprav_s (:neprav_s+1) staticupdate "neprav_s :neprav_s comboboxenable "vnos_sl "false buttondelete "preveri_s staticcreate "okno_sl "besedilo_sl_neprav [To pa ne bo prav! Pravilen odgovor je: ] 250 40 110 20 staticcreate "okno_sl "besedilo_sl_neprav1 :napis_sl1 290 48 60 10 end to preveri_it make "beseda_i comboboxgettext "vnos_it ifelse equalp :beseda_i :napis_it1 [pravilno_it][narobe_it] end to preveri_sl make "beseda_s comboboxgettext "vnos_sl ifelse equalp :beseda_s :napis_sl1 [pravilno_sl][narobe_sl] end to nastavitev buttoncreate "okno "konec "KONEC 155 70 60 15 [izhod] buttoncreate "okno "it_sl "Ital.Slov.Slovar 85 80 60 15 [naloge_it] buttoncreate "okno "sl_it "Slov.It.Slovar 85 60 60 15 [make "nv 0 make "p_sl premesaj :p_sl naloge_sl] buttoncreate "okno "napotki "NAVODILA 15 70 60 15 [napotki] staticcreate "okno "rozca1 [DVOSMERNI SLOVAR - VAJE] 15 10 230 10 staticcreate "okno "uvod [S pomočjo tega programa se boš preizkusil v znanju italijanskega jezika] 15 25 190 20 end make "besede_it {[ESSERE][AVERE][ANDARE][ABBACARE][BACCIARE][LA CASA][LA CENA][DICCIANOVE][DECIDERE][L'ECCEZIONE][L'EDIZIONE][FRAGILE][FINESTRA][LA GOCCIA] [GRAZIE][L'INTEROGAZIONE][IMPARARE][LA LUCE][LA LEZIONE][LA MUCCA][LA MACCHIA][LA NEBIA][IL NUMERO][L'OCCASIONE][OVVIO][IL PESCE][PARTIRE][LA ROSA] [IL RUMORE][IL SABATO][SAPERE][TOGLIERE][LA TAVOLA][L'UVA][ULTIMO][LE VACANZE][VENIRE][LA ZUCCA][IL ZUCCHERO]} make "izbira_it 0 make "izbira_sl 0 make "besede_sl {[BITI][IMETI][ITI][RAčUNATI][POLJUBITI][HIšA][VEčERJA][DEVETNAJST][ODLOčITI SE][IZJEMA][IZDAJA][KRHEK][OKNO][KAPLJA] [HVALA][VPRAšANJE][UčITI SE][LUč][LEKCIJA][KRAVA][MADEž][MEGLA][šTEVILO][PRILOžNOST][OčITNO][RIBA][ODITI][VRTNICA] [HRUP][SOBOTA][VEDETI][ODSTRANITI][MIZA][GROZDJE][ZADNJI][POčITNICE][PRITI][BUčA][SLADKOR]} make "n_it count :besede_it make "n_sl count :besede_sl make "p_it zaporedna :n_it make "p_sl zaporedna :n_sl make "mv 15 make "prav 0 make "prav_s 0 make "neprav 0 make "neprav_s 0 besede