to indeks;-----------------------ZAČETNO_OKNO-------------------------------------------- windowcreate "main "legenda "Cela_stevila 20 20 180 220 [] buttoncreate "legenda "n "NAVODILA 30 40 40 15 [navodila] buttoncreate "legenda "z "ZAPRI 95 40 40 15 [windowdelete "legenda] buttoncreate "legenda "lahke "|Lahke naloge| 35 85 90 20 [lahke] buttoncreate "legenda "srednje "|Srednje težke naloge| 35 115 90 20 [srednje] buttoncreate "legenda "tezke "|Težke naloge| 35 145 90 20 [tezke] staticcreate "legenda "odgovor30 "|IZBERI SI TEŽAVNOSTNO STOPNJO.| 25 10 120 30 end to lahke;-------------------------LAHKE-------------------------------------------------- ;---------------------------------------------------------------------------------------- windowdelete "legenda make "p 0 make "n 0 make "pr 0 windowcreate "main "okno "Cela_stevila 20 20 350 200 [] buttoncreate "okno "gumb1 "SEŠTEVANJE 15 30 60 20 [sestevanje1] buttoncreate "okno "gumb2 "ODŠTEVANJE 15 70 60 20 [odstevanje1] buttoncreate "okno "gumb3 "MNOŽENJE 15 110 60 20 [mnozenje1] buttoncreate "okno "gumb5 "RAČUN 120 30 150 20 [] buttoncreate "okno "gumb6 "NAVODILA 150 150 60 20 [navodila1] buttoncreate "okno "gumb7 :p 170 110 20 20 [] buttoncreate "okno "gumb8 :n 250 110 20 20 [] buttoncreate "okno "gumb9 "ZAPRI 230 150 60 20 [zapri1] staticcreate "okno "besedilo1 [IZBERI OPERACIJO IN IZRAČUNAJ:] 5 10 200 20 staticcreate "okno "besedilo2 [Pravilno:] 165 95 100 15 staticcreate "okno "besedilo3 [Nepravilno:] 240 95 100 15 end to sestevanje1;--------------------SESTEVANJE1--------------------------------------------- make "a (list random 21 "+ random 21) make "b (run :a) buttondelete "gumb5 buttoncreate "okno "gumb5 :a 120 30 150 20 [] if :pr=0 [ staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] if :pr=1 [ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10 staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] if :pr=2 [ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11 staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] if :pr=3 [ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12 staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] make "pr 1 end to odstevanje1;--------------------ODSTEVANJE1--------------------------------------------- make "a (list random 21 "- random 21) make "b (run :a) buttondelete "gumb5 buttoncreate "okno "gumb5 :a 120 30 150 20 [] if :pr=0 [ staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] if :pr=1 [ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10 staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] if :pr=2 [ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11 staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] if :pr=3 [ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12 staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] make "pr 2 end to mnozenje1;----------------------MNOZENJE1----------------------------------------------- make "a (list random 11 "* random 11) make "b (run :a) buttondelete "gumb5 buttoncreate "okno "gumb5 :a 120 30 150 20 [] if :pr=0 [ staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] if :pr=1 [ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10 staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] if :pr=2 [ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11 staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] if :pr=3 [ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12 staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] make "pr 3 end to preveri1;-----------------------PREVERI1----------------------------------------------- make "c (first ComboBoxGetText "vnos1) if :pr=1[ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10] if :pr=2[ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11] if :pr=3[ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12] test :c=:b iftrue [ buttondelete "gumb7 make "p :p+1 buttoncreate "okno "gumb7 :p 170 110 20 20 [] ] iffalse [ buttondelete "gumb8 make "n :n+1 buttoncreate "okno "gumb8 :n 250 110 20 20 [] ] make "pr 0 end to preveri2;-----------------------PREVERI2----------------------------------------------- make "c (first ComboBoxGetText "vnos2) if :pr=1[ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10] if :pr=2[ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11] if :pr=3[ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12] test :c=:b iftrue [ buttondelete "gumb7 make "p :p+1 buttoncreate "okno "gumb7 :p 170 110 20 20 [] ] iffalse [ buttondelete "gumb8 make "n :n+1 buttoncreate "okno "gumb8 :n 250 110 20 20 [] ] make "pr 0 end to preveri3;-----------------------PREVERI3----------------------------------------------- make "c (first ComboBoxGetText "vnos3) if :pr=1[ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10] if :pr=2[ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11] if :pr=3[ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12] test :c=:b iftrue [ buttondelete "gumb7 make "p :p+1 buttoncreate "okno "gumb7 :p 170 110 20 20 [] ] iffalse [ buttondelete "gumb8 make "n :n+1 buttoncreate "okno "gumb8 :n 250 110 20 20 [] ] make "pr 0 end to navodila1;-----------------------NAVODILA1------------------------------------------------ windowcreate "main "okno1 "navodila 60 20 200 150 [] staticcreate "okno1 "navodilo1 [NAVODILA] 10 5 180 20 staticcreate "okno1 "navodilo2 [Na levi strani si izberi gumb z računsko operacijo. ] 10 25 180 20 staticcreate "okno1 "navodilo3 [Izpisal se ti bo račun. ] 10 35 180 20 staticcreate "okno1 "navodilo4 [V prazno okence vpiši razultat in pritisni gumb OK. ] 10 45 180 20 staticcreate "okno1 "navodilo5 [Pravilnost svojega odgovora preveri pri številu pravilnih oz. nepravilnih odgovorov. ] 10 55 180 20 buttoncreate "okno1 "gumb20 "ZAPRI 60 95 60 20 [windowdelete "okno1] end to zapri1;---------------------------ZAPRI1------------------------------------------------- windowdelete "okno make "s 0 make "s :p+:n if :s>0 [ windowcreate "main "okno3 "statistika 60 20 200 150 [] staticcreate "okno3 "navodilo1 [STATISTIKA] 10 5 180 20 staticcreate "okno3 "navodilo2 [Pravilno rešene naloge: ] 10 25 100 20 buttoncreate "okno3 "gumb31 :p 120 20 40 20 [] staticcreate "okno3 "navodilo3 [Nepravilno rešene naloge: ] 10 45 180 20 buttoncreate "okno3 "gumb32 :n 120 40 40 20 [] staticcreate "okno3 "navodilo4 [Odstotki: ] 10 65 180 20 make "k round 100* (:p/:s) buttoncreate "okno3 "gumb33 :k 120 60 40 20 [] buttoncreate "okno3 "gumb30 "ZAPRI 60 95 60 20 [zapriokno] ] if :s=0 [ indeks ] end to zapriokno;---------------------------ZAPRIOKNO------------------------------------------ windowdelete "okno3 indeks end to srednje;-------------------------SREDNJE-------------------------------------------------- ;---------------------------------------------------------------------------------------- windowdelete "legenda make "p 0 make "n 0 make "pr 0 windowcreate "main "okno "Cela_stevila 20 20 350 200 [] buttoncreate "okno "gumb1 "SEŠTEVANJE 15 30 60 20 [sestevanje2] buttoncreate "okno "gumb2 "ODŠTEVANJE 15 70 60 20 [odstevanje2] buttoncreate "okno "gumb3 "MNOŽENJE 15 110 60 20 [mnozenje2] buttoncreate "okno "gumb5 "RAČUN 120 30 150 20 [] buttoncreate "okno "gumb6 "NAVODILA 150 150 60 20 [navodila1] buttoncreate "okno "gumb7 :p 170 110 20 20 [] buttoncreate "okno "gumb8 :n 250 110 20 20 [] buttoncreate "okno "gumb9 "ZAPRI 230 150 60 20 [zapri2] staticcreate "okno "besedilo1 [IZBERI OPERACIJO IN IZRAČUNAJ:] 5 10 200 20 staticcreate "okno "besedilo2 [Pravilno:] 165 95 100 15 staticcreate "okno "besedilo3 [Nepravilno:] 240 95 100 15 end to sestevanje2;--------------------SESTEVANJE2--------------------------------------------- make "a (list random 101 "+ random 101) make "b (run :a) buttondelete "gumb5 buttoncreate "okno "gumb5 :a 120 30 150 20 [] if :pr=0 [ staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] if :pr=1 [ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10 staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] if :pr=2 [ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11 staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] if :pr=3 [ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12 staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] make "pr 1 end to odstevanje2;--------------------ODSTEVANJE2--------------------------------------------- make "a (list random 101 "- random 101) make "b (run :a) buttondelete "gumb5 buttoncreate "okno "gumb5 :a 120 30 150 20 [] if :pr=0 [ staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] if :pr=1 [ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10 staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] if :pr=2 [ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11 staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] if :pr=3 [ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12 staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] make "pr 2 end to mnozenje2;----------------------MNOZENJE2----------------------------------------------- make "a (list random 21 "* random 21) make "b (run :a) buttondelete "gumb5 buttoncreate "okno "gumb5 :a 120 30 150 20 [] if :pr=0 [ staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] if :pr=1 [ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10 staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] if :pr=2 [ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11 staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] if :pr=3 [ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12 staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] make "pr 3 end to preveri1;-----------------------PREVERI1----------------------------------------------- make "c (first ComboBoxGetText "vnos1) if :pr=1[ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10] if :pr=2[ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11] if :pr=3[ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12] test :c=:b iftrue [ buttondelete "gumb7 make "p :p+1 buttoncreate "okno "gumb7 :p 170 110 20 20 [] ] iffalse [ buttondelete "gumb8 make "n :n+1 buttoncreate "okno "gumb8 :n 250 110 20 20 [] ] make "pr 0 end to preveri2;-----------------------PREVERI2----------------------------------------------- make "c (first ComboBoxGetText "vnos2) if :pr=1[ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10] if :pr=2[ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11] if :pr=3[ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12] test :c=:b iftrue [ buttondelete "gumb7 make "p :p+1 buttoncreate "okno "gumb7 :p 170 110 20 20 [] ] iffalse [ buttondelete "gumb8 make "n :n+1 buttoncreate "okno "gumb8 :n 250 110 20 20 [] ] make "pr 0 end to preveri3;-----------------------PREVERI3----------------------------------------------- make "c (first ComboBoxGetText "vnos3) if :pr=1[ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10] if :pr=2[ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11] if :pr=3[ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12] test :c=:b iftrue [ buttondelete "gumb7 make "p :p+1 buttoncreate "okno "gumb7 :p 170 110 20 20 [] ] iffalse [ buttondelete "gumb8 make "n :n+1 buttoncreate "okno "gumb8 :n 250 110 20 20 [] ] make "pr 0 end to navodila1;-----------------------NAVODILA1------------------------------------------------ windowcreate "main "okno1 "navodila 60 20 200 150 [] staticcreate "okno1 "navodilo1 [NAVODILA] 10 5 180 20 staticcreate "okno1 "navodilo2 [Na levi strani si izberi gumb z računsko operacijo. ] 10 25 180 20 staticcreate "okno1 "navodilo3 [Izpisal se ti bo račun. ] 10 35 180 20 staticcreate "okno1 "navodilo4 [V prazno okence vpiši razultat in pritisni gumb OK. ] 10 45 180 20 staticcreate "okno1 "navodilo5 [Pravilnost svojega odgovora preveri pri številu pravilnih oz. nepravilnih odgovorov. ] 10 55 180 20 buttoncreate "okno1 "gumb20 "ZAPRI 60 95 60 20 [windowdelete "okno1] end to zapri2;---------------------------ZAPRI2------------------------------------------------- windowdelete "okno make "s 0 make "s :p+:n if :s>0 [ windowcreate "main "okno3 "statistika 60 20 200 150 [] staticcreate "okno3 "navodilo1 [STATISTIKA] 10 5 180 20 staticcreate "okno3 "navodilo2 [Pravilno rešene naloge: ] 10 25 100 20 buttoncreate "okno3 "gumb31 :p 120 20 40 20 [] staticcreate "okno3 "navodilo3 [Nepravilno rešene naloge: ] 10 45 180 20 buttoncreate "okno3 "gumb32 :n 120 40 40 20 [] staticcreate "okno3 "navodilo4 [Odstotki: ] 10 65 180 20 make "k round 100* (:p/:s) buttoncreate "okno3 "gumb33 :k 120 60 40 20 [] buttoncreate "okno3 "gumb30 "ZAPRI 60 95 60 20 [zapriokno] ] if :s=0 [ indeks ] end to zapriokno;---------------------------ZAPRIOKNO------------------------------------------ windowdelete "okno3 indeks end to tezke;-------------------------TEZKE-------------------------------------------------- ;---------------------------------------------------------------------------------------- windowdelete "legenda make "p 0 make "n 0 make "pr 0 windowcreate "main "okno "Cela_stevila 20 20 350 200 [] buttoncreate "okno "gumb1 "SEŠTEVANJE 15 30 60 20 [sestevanje3] buttoncreate "okno "gumb2 "ODŠTEVANJE 15 70 60 20 [odstevanje3] buttoncreate "okno "gumb3 "MNOŽENJE 15 110 60 20 [mnozenje3] buttoncreate "okno "gumb5 "RAČUN 120 30 150 20 [] buttoncreate "okno "gumb6 "NAVODILA 150 150 60 20 [navodila1] buttoncreate "okno "gumb7 :p 170 110 20 20 [] buttoncreate "okno "gumb8 :n 250 110 20 20 [] buttoncreate "okno "gumb9 "ZAPRI 230 150 60 20 [zapri3] staticcreate "okno "besedilo1 [IZBERI OPERACIJO IN IZRAČUNAJ:] 5 10 200 20 staticcreate "okno "besedilo2 [Pravilno:] 165 95 100 15 staticcreate "okno "besedilo3 [Nepravilno:] 240 95 100 15 end to sestevanje3;--------------------SESTEVANJE3--------------------------------------------- make "a (list random 1001 "+ random 1001) make "b (run :a) buttondelete "gumb5 buttoncreate "okno "gumb5 :a 120 30 150 20 [] if :pr=0 [ staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] if :pr=1 [ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10 staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] if :pr=2 [ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11 staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] if :pr=3 [ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12 staticcreate "okno "odgovor1 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos1 220 70 40 20 buttoncreate "okno "gumb10 "OK 270 70 15 15 [preveri1] ] make "pr 1 end to odstevanje3;--------------------ODSTEVANJE3--------------------------------------------- make "a (list random 1001 "- random 1001) make "b (run :a) buttondelete "gumb5 buttoncreate "okno "gumb5 :a 120 30 150 20 [] if :pr=0 [ staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] if :pr=1 [ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10 staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] if :pr=2 [ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11 staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] if :pr=3 [ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12 staticcreate "okno "odgovor2 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos2 220 70 40 20 buttoncreate "okno "gumb11 "OK 270 70 15 15 [preveri2] ] make "pr 2 end to mnozenje3;----------------------MNOZENJE3----------------------------------------------- make "a (list random 51 "* random 51) make "b (run :a) buttondelete "gumb5 buttoncreate "okno "gumb5 :a 120 30 150 20 [] if :pr=0 [ staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] if :pr=1 [ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10 staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] if :pr=2 [ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11 staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] if :pr=3 [ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12 staticcreate "okno "odgovor3 [Vnesi vrednost v okence:] 120 70 100 20 ComboboxCreate "okno "vnos3 220 70 40 20 buttoncreate "okno "gumb12 "OK 270 70 15 15 [preveri3] ] make "pr 3 end to preveri1;-----------------------PREVERI1----------------------------------------------- make "c (first ComboBoxGetText "vnos1) if :pr=1[ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10] if :pr=2[ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11] if :pr=3[ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12] test :c=:b iftrue [ sound [1000 200] sound [1000 200] sound [1000 200] sound [1500 400] buttondelete "gumb7 make "p :p+1 buttoncreate "okno "gumb7 :p 170 110 20 20 [] ] iffalse [ sound [1300 150] sound [1400 170] sound [1200 210] buttondelete "gumb8 make "n :n+1 buttoncreate "okno "gumb8 :n 250 110 20 20 [] ] make "pr 0 end to preveri2;-----------------------PREVERI2----------------------------------------------- make "c (first ComboBoxGetText "vnos2) if :pr=1[ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10] if :pr=2[ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11] if :pr=3[ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12] test :c=:b iftrue [ sound [1000 200] sound [1000 200] sound [1000 200] sound [1500 400] buttondelete "gumb7 make "p :p+1 buttoncreate "okno "gumb7 :p 170 110 20 20 [] ] iffalse [ sound [1300 150] sound [1400 170] sound [1200 210] buttondelete "gumb8 make "n :n+1 buttoncreate "okno "gumb8 :n 250 110 20 20 [] ] make "pr 0 end to preveri3;-----------------------PREVERI3----------------------------------------------- make "c (first ComboBoxGetText "vnos3) if :pr=1[ staticdelete "odgovor1 ComboboxDelete "vnos1 buttondelete "gumb10] if :pr=2[ staticdelete "odgovor2 ComboboxDelete "vnos2 buttondelete "gumb11] if :pr=3[ staticdelete "odgovor3 ComboboxDelete "vnos3 buttondelete "gumb12] test :c=:b iftrue [ sound [1000 200] sound [1000 200] sound [1000 200] sound [1500 400] buttondelete "gumb7 make "p :p+1 buttoncreate "okno "gumb7 :p 170 110 20 20 [] ] iffalse [ sound [1300 150] sound [1400 170] sound [1200 210] buttondelete "gumb8 make "n :n+1 buttoncreate "okno "gumb8 :n 250 110 20 20 [] ] make "pr 0 end to navodila1;-----------------------NAVODILA1------------------------------------------------ windowcreate "main "okno1 "navodila 60 20 200 150 [] staticcreate "okno1 "navodilo1 [NAVODILA] 10 5 180 20 staticcreate "okno1 "navodilo2 [Na levi strani si izberi gumb z računsko operacijo. ] 10 25 180 20 staticcreate "okno1 "navodilo3 [Izpisal se ti bo račun. ] 10 35 180 20 staticcreate "okno1 "navodilo4 [V prazno okence vpiši razultat in pritisni gumb OK. ] 10 45 180 20 staticcreate "okno1 "navodilo5 [Pravilnost svojega odgovora preveri pri številu pravilnih oz. nepravilnih odgovorov. ] 10 55 180 20 buttoncreate "okno1 "gumb20 "ZAPRI 60 95 60 20 [windowdelete "okno1] end to zapri3;---------------------------ZAPRI3------------------------------------------------- windowdelete "okno make "s 0 make "s :p+:n if :s>0 [ windowcreate "main "okno3 "statistika 60 20 200 150 [] staticcreate "okno3 "navodilo1 [STATISTIKA] 10 5 180 20 staticcreate "okno3 "navodilo2 [Pravilno rešene naloge: ] 10 25 100 20 buttoncreate "okno3 "gumb31 :p 120 20 40 20 [] staticcreate "okno3 "navodilo3 [Nepravilno rešene naloge: ] 10 45 180 20 buttoncreate "okno3 "gumb32 :n 120 40 40 20 [] staticcreate "okno3 "navodilo4 [Odstotki: ] 10 65 180 20 make "k round 100* (:p/:s) buttoncreate "okno3 "gumb33 :k 120 60 40 20 [] buttoncreate "okno3 "gumb30 "ZAPRI 60 95 60 20 [zapri11] ] if :s=0 [ indeks ] end to zapri11;---------------------------ZAPRI11------------------------------------------ windowdelete "okno3 indeks end to navodila;-----------------------NAVODILA------------------------------------------------ windowcreate "main "okno2 "navodila 60 20 200 150 [] staticcreate "okno2 "navodilo6 [NAVODILA] 10 5 180 20 staticcreate "okno2 "navodilo7 [Izbereš si lahko, na kateri težavnostni stopnji želiš računati. ] 10 25 180 20 staticcreate "okno2 "navodilo8 [Pritisni na tisto okence. ] 10 45 180 20 staticcreate "okno2 "navodilo9 [Če želiš zaustiti program, pritisni ZAPRI. ] 10 65 180 20 buttoncreate "okno2 "gumb20 "ZAPRI 60 95 60 20 [windowdelete "okno2] end indeks