to info1

   WindowCreate "Info1 "Info1 [Povratna informacija] 50 70 150 90 []

   if NOT (AND (:po1 = :pov1)(:vo1 = :vol1)) [StaticCreate "Info1 "TekstI1 [Napačno si izračunal površino in prostornino tristrane prizme!] 5 5 140 25]
   if (:po1 = :pov1) [StaticCreate "Info1 "TekstI2 [Napacno si izracunal prostornino tristrane prizme!] 5 5 140 25 StaticCreate "Info1 "TekstI3 [Izracun površine tristrane prizme pa je pravilen!] 5 25 140 15]
   if (:vo1 = :vol1) [StaticCreate "Info1 "TekstI4 [Napacno si izracunal površino tristrane prizme!] 5 5 140 25 StaticCreate "Info1 "TekstI5 [Izracun prostornine tristrane prizme pa je pravilen!] 5 25 140 15]

   ButtonCreate "Info1 "GumbZapri [Zapri] 90 48 50 15 [WindowDelete "Info1]


end

to info2

   WindowCreate "Info2 "Info2 [Povratna informacija] 50 70 150 90 []

   if NOT (AND (:po2 = :pov2)(:vo2 = :vol2)) [StaticCreate "Info2 "TekstI1 [Napacno si izracunal površino in prostornino šeststrane prizme!] 5 5 140 25]
   if (:po2 = :pov2) [StaticCreate "Info2 "TekstI2 [Napacno si izracunal prostornino šeststrane prizme!] 5 5 140 25 StaticCreate "Info2 "TekstI3 [Izracun površine šeststrane prizme pa je pravilen!] 5 25 140 15]
   if (:vo2 = :vol2) [StaticCreate "Info2 "TekstI4 [Napacno si izracunal površino šeststrane prizme!] 5 5 140 25 StaticCreate "Info2 "TekstI5 [Izracun prostornine šeststrane prizme pa je pravilen!] 5 25 140 15]

   ButtonCreate "Info2 "GumbZapri [Zapri] 90 48 50 15 [WindowDelete "Info2]

end

to izhod
   WindowDelete "GlavnoOkno
   CS
end

to izhod1
   WindowCreate "GlavnoOkno "Izhod1 [Izhod iz programa] 50 50 130 50 []
   StaticCreate "Izhod1 "TekstIzh [Ali želiš zapustiti program?] 5 5 100 10
   ButtonCreate "Izhod1 "GumbIzh1 "Da 5 20 55 10 [WindowDelete "Izhod1 Izhod]
   ButtonCreate "Izhod1 "GumbIzh2 "Ne 65 20 55 10 [WindowDelete "Izhod1]

end

to mesaj1
   make "a 1 + random 10
   make "b 1 + random 10
   make "c :a + :b - 1
   make "v1 1 + random 10

   StaticDelete "TekstV3
   StaticDelete "TekstV6
   StaticDelete "TekstV9
   StaticDelete "TekstV12
   StaticDelete "TekstV4
   StaticDelete "TekstV7
   StaticDelete "TekstV10
   StaticDelete "TekstV13

   ComboBoxDelete "OdgP1
   ComboBoxDelete "OdgV1

   StaticCreate "Tristrana "TekstV3 :a 35 25 20 10
   StaticCreate "Tristrana "TekstV4 [cm] 45 25 20 10

   StaticCreate "Tristrana "TekstV6 :b 35 35 20 10
   StaticCreate "Tristrana "TekstV7 [cm] 45 35 20 10

   StaticCreate "Tristrana "TekstV9 :c 35 45 20 10
   StaticCreate "Tristrana "TekstV10 [cm] 45 45 20 10

   StaticCreate "Tristrana "TekstV12 :v1 35 55 20 10
   StaticCreate "Tristrana "TekstV13 [cm] 45 55 20 10

   ComboBoxCreate "Tristrana "OdgP1 95 23 30 10
   ComboBoxCreate "Tristrana "OdgV1 95 43 30 10


end

to mesaj2
   make "a1 1 + random 10
   make "v2 1 + random 10

   StaticDelete "TekstK3
   StaticDelete "TekstK4
   StaticDelete "TekstK6
   StaticDelete "TekstK7

   ComboBoxDelete "OdgP2
   ComboBoxDelete "OdgV2


   StaticCreate "Seststrana "TekstK3 :a1 35 25 20 10
   StaticCreate "Seststrana "TekstK4 [cm] 45 25 20 10

   StaticCreate "Seststrana "TekstK6 :v2 35 35 20 10
   StaticCreate "Seststrana "TekstK7 [cm] 45 35 20 10


   ComboBoxCreate "Seststrana "OdgP2 95 23 30 10
   ComboBoxCreate "Seststrana "OdgV2 95 43 30 10

end

to naprej1

   ifelse :Stevec1>10 [rezultati1][make "Odgovor1 (:Stevec1 + random 2) make "Stevec1 :Stevec1 +1 mesaj1]

end

to naprej2

   ifelse :Stevec2>10 [rezultati2][make "Odgovor2 (:Stevec2 + random 2) make "Stevec2 :Stevec2 +1 mesaj2]

end

to navodila
   WindowCreate "GlavnoOkno "Navodila "Navodila 10 10 380 250 []
   StaticCreate "Navodila "TextNav1 [Navodila za uporabo programa:] 5 5 210 10
   StaticCreate "Navodila "TextNav2 [Pred seboj imate ucni pripomocek, s katerim lahko utrdite svoje poznavanje prizme.] 5 25 340 10
   StaticCreate "Navodila "TextNav3 [Skozi program se boste srecevali z razlicnimi gumbi in vnosnimi polji, katerih pomen ] 5 35 340 10
   StaticCreate "Navodila "TextNav4 [si lahko preberete prav tu.] 5 45 340 10
   StaticCreate "Navodila "TextNav5 [Gumbi, ki služijo navigaciji:] 5 65 340 10
   StaticCreate "Navodila "TextNav6 ["Izhod" - s tem gumbom lahko zapustite program.] 5 85 340 10
   StaticCreate "Navodila "TextNav7 ["Na prvo stran" - s tem gumbom se vrnete v prvotno izbirno okno.] 5 95 340 10
   StaticCreate "Navodila "TextNav8 ["Preveri" - s tem gumbom preverite pravilnost vaših rešitev.] 5 105 340 10
   StaticCreate "Navodila "TextNav9 ["Racunalo" - odpre se pripomocek za lažje racunanje prostornine in površine  ] 5 115 340 10
   StaticCreate "Navodila "TextNav10 [V prvem izbirnem oknu vidite gumba "Tristrana prizma" in "Pravilna šeststrana prizma".] 5 125 340 10
   StaticCreate "Navodila "TextNav11 [S klikom na enega, izberete prizmo v kateri se želite prizkusiti.] 5 135 340 10
   StaticCreate "Navodila "TextNav12 [V vnosni polji, ki sledita znakoma "P=" in "V=", vnesete svoje rešitve za ] 5 155 340 10
   StaticCreate "Navodila "TextNav13 [površino in prostornino izbrane prizme, glede na podane podatke.] 5 165 340 10
   StaticCreate "Navodila "TextNav14 [Želim vam uspešno reševanje s pomocjo programa.] 5 175 340 10

   StaticCreate "Navodila "TextNav15 [Avtor: Andraž Kolenc, 2005] 5 220 130 15
   ButtonCreate "Navodila "GumbNav1 "Nazaj 320 218 40 15 [WindowDelete "Navodila]



end

to opozorilo
WindowCreate "Opozorilo "Opozorilo [Opozorilo!] 100 100 100 70 []
StaticCreate "Opozorilo "TekstO1 [Vnos v polji je obvezen !] 5 5 95 10
ButtonCreate "Opozorilo "Gumb1 [Zapri] 30 25 30 15 [WindowDelete "Opozorilo]

end

to pomocp1

   WindowCreate "PomP "PomP [Pomoc pri racunanju površine tristrane prizme] 235 20 150 125 []
   GroupBoxCreate "PomP "OdP 0 0 145 90
   StaticCreate "PomP "P1 [Izracunaj površino tristrane prizme z danimi podatki tako, da jih vstaviš v formulo.] 5 5 130 35
   StaticCreate "PomP "P2 [P = ] 5 38 20 10
   ComboBoxCreate "PomP "OdP1 20 37 60 10
   ButtonCreate "PomP "GumbJeP [=] 85 38 10 10 [make "odp (ComboBoxGetText "OdP1) ButtonCreate "PomP "R1 round(run(:odp)) 100 36 40 15 [] ComboBoxDelete "OdgP1 ComboBoxCreate "Tristrana "OdgP1 95 23 30 10 ComboBoxAddString "OdgP1 round(run(:odp))]
   StaticCreate "PomP "P4 [Za izracun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomP "Zbrisi1 "Zbrisi 60 95 40 15 [ComboBoxDelete "OdP1 ComboBoxCreate "PomP "OdP1 20 37 60 10 ButtonDelete "R1]
   ButtonCreate "PomP "GumbZapriP "Zapri 105 95 40 15 [WindowDelete "PomP]


end

to pomocp2

   WindowCreate "PomP2 "PomP2 [Pomoc pri racunanju površine pravilne šeststrane prizme] 235 20 150 125 []
   GroupBoxCreate "PomP2 "OdP 0 0 145 90
   StaticCreate "PomP2 "P1 [Izracunaj površino pravilne šeststrane prizme z danimi podatki tako, da jih vstaviš v formulo.] 5 5 130 35
   StaticCreate "PomP2 "P2 [P = ] 5 38 20 10
   ComboBoxCreate "PomP2 "OdP2 20 37 60 10
   ButtonCreate "PomP2 "GumbJeP [=] 85 38 10 10 [make "odp (ComboBoxGetText "OdP2) ButtonCreate "PomP2 "R2 round(run(:odp)) 100 36 40 15 [] ComboBoxDelete "OdgP2 ComboBoxCreate "Seststrana "OdgP2 95 23 30 10 ComboBoxAddString "OdgP2 round(run(:odp))]
   StaticCreate "PomP2 "P4 [Za izracun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomP2 "Zbrisi1 "Zbrisi 60 95 40 15 [ComboBoxDelete "OdP2 ComboBoxCreate "PomP2 "OdP2 20 37 60 10 ButtonDelete "R2]
   ButtonCreate "PomP2 "GumbZapriP "Zapri 105 95 40 15 [WindowDelete "PomP2]


end

to pomocv1

   WindowCreate "PomV "PomV [Pomoc pri racunanju prostornine tristrane prizme] 235 150 150 125 []
   GroupBoxCreate "PomV "OdV 0 0 145 90
   StaticCreate "PomV "V1 [Izracunaj prostornino tristrane prizme z danimi podatki tako, da jih vstaviš v formulo.] 5 5 135 35
   StaticCreate "PomV "V2 [V = ] 5 38 20 10
   ComboBoxCreate "PomV "OdV1 20 37 60 10
   ButtonCreate "PomV "GumbJeV [=] 85 38 10 10 [make "odv (ComboBoxGetText "OdV1) ButtonCreate "PomV "R2 round(run(:odv)) 100 36 40 15 [] ComboBoxDelete "OdgV1 ComboBoxCreate "Tristrana "OdgV1 95 43 30 10 ComboBoxAddString "OdgV1 round(run(:odv))]
   StaticCreate "PomV "V4 [Za izracun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomV "Zbrisi2 "Zbrisi 60 95 40 15 [ComboBoxDelete "OdV1 ComboBoxCreate "PomV "OdV1 20 37 60 10 ButtonDelete "R2]
   ButtonCreate "PomV "GumbZapriV "Zapri 105 95 40 15 [WindowDelete "PomV]


end

to pomocv2
   WindowCreate "PomV2 "PomV2 [Pomoc pri racunanju prostornine pravilne šeststrane prizme] 235 150 150 125 []
   GroupBoxCreate "PomV2 "OdV 0 0 145 90
   StaticCreate "PomV2 "V1 [Izracunaj prostornino pravilne šeststrane prizme z danimi podatki tako, da jih vstaviš v formulo.] 5 5 135 35
   StaticCreate "PomV2 "V2 [V = ] 5 38 20 10
   ComboBoxCreate "PomV2 "OdV2 20 37 60 10
   ButtonCreate "PomV2 "GumbJeV [=] 85 38 10 10 [make "odv (ComboBoxGetText "OdV2) ButtonCreate "PomV2 "R3 round(run(:odv)) 100 36 40 15 [] ComboBoxDelete "OdgV2 ComboBoxCreate "Seststrana "OdgV2 95 43 30 10 ComboBoxAddString "OdgV2 round(run(:odv))]
   StaticCreate "PomV2 "V4 [Za izracun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomV2 "Zbrisi2 "Zbrisi 60 95 40 15 [ComboBoxDelete "OdV2 ComboBoxCreate "PomV2 "OdV2 20 37 60 10 ButtonDelete "R3]
   ButtonCreate "PomV2 "GumbZapriV "Zapri 105 95 40 15 [WindowDelete "PomV2]



end

to preveri1

   make "prev comboboxgettext "OdgP1
   make "prev1 comboboxgettext "OdgV1

   ifelse (OR (emptyp :prev) (emptyp :prev1)) [Opozorilo][preveri11]

end

to preveri11

   make "po1 (first ComboBoxGetText "OdgP1)
   make "vo1 (first ComboBoxGetText "OdgV1)

   make "s1 ((:a+:b+:c)/2)
   make "S1 (sqrt(:s1 *(:s1 - :a)*(:s1 - :b)*(:s1 - :c)))
   make "pl1 (:a * :v1 + :b * :v1 + :c * :v1)

   make "pov1 round(2 * :S1 + :pl1)
   make "vol1 round(:S1 * :v1)

   ifelse (AND (:po1 = :pov1) (:vo1 = :vol1)) [make "pravilni1 :pravilni1 +1 ButtonDelete "GumbP1 ButtonCreate "Tristrana "GumbP1 :pravilni1 30 100 20 20 []][make "napacni1 :napacni1 +1 ButtonDelete "GumbN1 ButtonCreate "Tristrana "GumbN1 :napacni1 95 100 20 20 [] info1]
   naprej1
end

to preveri2

    make "prev2 comboboxgettext "OdgP2
    make "prev3 comboboxgettext "OdgV2

    ifelse (OR (emptyp :prev2) (emptyp :prev3)) [Opozorilo][preveri22]

end

to preveri22

   make "po2 (first ComboBoxGetText "OdgP2)
   make "vo2 (first ComboBoxGetText "OdgV2)

   make "l sqrt 3
   make "S ((:a1 * :a1 * :l)/4)
   make "pov2 round(6 * :S + 6 * :a1 * :v2)
   make "vol2 round (6 * :S * :v2)

   ifelse (AND (:po2 = :pov2) (:vo2 = :vol2)) [make "pravilni2 :pravilni2 +1 ButtonDelete "GumbP2 ButtonCreate "Seststrana "GumbP2 :pravilni2 30 100 20 20 []][make "napacni2 :napacni2 +1 ButtonDelete "GumbN2 ButtonCreate "Seststrana "GumbN2 :napacni2 95 100 20 20 [] info2]
   naprej2
end

to prizma
   CS HT

   WindowCreate "main "GlavnoOkno [Prizma] 20 20 250 100 []
   StaticCreate "GlavnoOkno "Tekst1 [Izberi si geometrijsko telo:] 5 5 100 10
   ButtonCreate "GlavnoOkno "Gumb1 [Tristrana prizma] 10 20 110 20 [Tristrana]
   ButtonCreate "GlavnoOkno "Gumb2 [Pravilna šeststrana prizma] 120 20 110 20 [Seststrana]

   ButtonCreate "GlavnoOkno "GumbNavodila [Navodila] 40 60 60 15 [Navodila]
   ButtonCreate "GlavnoOkno "GumbIzhod [Izhod] 150 60 60 15 [Izhod1]

end

to rezultati1

   make "prav1 :pravilni1
   make "tocke1 round(:prav1 / 10)*100
   WindowDelete "Tristrana
   WindowCreate "RezTristrana "RezultatiTristrana "Rezultati 20 20 140 70 []
   StaticCreate "RezultatiTristrana "TekstR1 [Rezultati reševanja:] 5 5 100 10
   StaticCreate "RezultatiTristrana "TekstR2 [Dosegel si ] 5 20 100 10
   StaticCreate "RezultatiTristrana "TekstR3 :tocke1 50 20 100 10
   StaticCreate "RezultatiTristrana "TekstR4 [%.] 60 20 100 10

   ButtonCreate "RezultatiTristrana "GumbRez1 [Na prvo stran] 15 35 50 15 [WindowDelete "RezTristrana prizma]
   ButtonCreate "RezultatiTristrana "GumbIzhod2 [Izhod] 75 35 50 15 [Izhod1]

end

to rezultati2

   make "prav2 :pravilni2
   make "tocke2 round(:prav2 / 10)*100
   WindowDelete "Seststrana
   WindowCreate "RezSeststrana "RezultatiSeststrana "Rezultati 20 20 140 70 []
   StaticCreate "RezultatiSeststrana "TekstR5 [Rezultati reševanja:] 5 5 100 10
   StaticCreate "RezultatiSeststrana "TekstR6 [Dosegel si ] 5 20 100 10
   StaticCreate "RezultatiSeststrana "TekstR7 :tocke2 50 20 100 10
   StaticCreate "RezultatiSeststrana "TekstR8 [%.] 60 20 100 10

   ButtonCreate "RezultatiSeststrana "GumbRez2 [Na prvo stran] 15 35 50 15 [WindowDelete "RezSeststrana prizma]
   ButtonCreate "RezultatiSeststrana "GumbIzhod3 [Izhod] 75 35 50 15 [Izhod1]

end

to seststrana

   make "pravilni2 0
   make "napacni2 0

   WindowDelete "main
   WindowCreate "Seststrana "Seststrana [Šeststrana] 20 20 250 145 []
   GroupBoxCreate "Seststrana "Odg2 1 1 246 70
   StaticCreate "Seststrana "TekstK1 [Izracunaj površino in prostornino pravilne šeststrane prizme s podatki:] 5 8 240 10

   StaticCreate "Seststrana "TekstK2 [a = ] 25 25 20 10
   StaticCreate "Seststrana "TekstK3 :a1 35 25 20 10
   StaticCreate "Seststrana "TekstK4 [cm] 45 25 20 10

   StaticCreate "Seststrana "TekstK5 [v =] 25 35 20 10
   StaticCreate "Seststrana "TekstK6 :v2 35 35 20 10
   StaticCreate "Seststrana "TekstK7 [cm] 45 35 20 10

   StaticCreate "Seststrana "TekstK8 [P = ] 80 25 20 10
   StaticCreate "Seststrana "TekstK9 [cm] 127 25 20 10
   StaticCreate "Seststrana "TekstK10 [2] 137 22 20 10

   StaticCreate "Seststrana "TekstK11 [V = ] 80 45 20 10
   StaticCreate "Seststrana "TekstK12 [cm] 127 45 20 10
   StaticCreate "Seststrana "TekstK13 [3] 137 42 20 10

   ComboBoxCreate "Seststrana "OdgV2 95 43 30 10
   ComboBoxCreate "Seststrana "OdgP2 95 23 30 10

   ButtonCreate "Seststrana "GumbPomocP [Racunalo] 175 22 40 15 [pomocp2]
   ButtonCreate "Seststrana "GumbPomocV [Racunalo] 175 42 40 15 [pomocv2]

   StaticCreate "Seststrana "TockeP2 [Število pravilnih odgovorov:] 15 80 60 20
   ButtonCreate "Seststrana "GumbP2 :pravilni2 30 100 20 20 []

   StaticCreate "Seststrana "TockeN2 [Število napacnih odgovorov:] 80 80 60 20
   ButtonCreate "Seststrana "GumbN2 :napacni2 95 100 20 20 []

   ButtonCreate "Seststrana "GumbPreveri2 [Preveri] 165 82 60 15 [preveri2]
   ButtonCreate "Seststrana "GumbNazaj [Na prvo stran] 165 97 60 15 [CS WindowDelete "Šeststrana prizma]
   ButtonCreate "Seststrana "GumbIzhod [Izhod] 165 112 60 15 [Izhod1]

   make "Stevec2 2
   make "Odgovor2 1 + random 2

end

to tristrana

   make "pravilni1 0
   make "napacni1 0

   WindowDelete "main
   WindowCreate "Tristrana "Tristrana [Tristrana] 20 20 250 145 []
   GroupBoxCreate "Tristrana "Odg1 1 1 246 70
   StaticCreate "Tristrana "TekstV1 [Izracunaj površino in prostornino tristrane prizme s podatki:] 5 8 240 10

   StaticCreate "Tristrana "TekstV2 [a = ] 25 25 20 10
   StaticCreate "Tristrana "TekstV3 :a 35 25 20 10
   StaticCreate "Tristrana "TekstV4 [cm] 45 25 20 10

   StaticCreate "Tristrana "TekstV5 [b = ] 25 35 20 10
   StaticCreate "Tristrana "TekstV6 :b 35 35 20 10
   StaticCreate "Tristrana "TekstV7 [cm] 45 35 20 10

   StaticCreate "Tristrana "TekstV8 [c = ] 25 45 20 10
   StaticCreate "Tristrana "TekstV9 :c 35 45 20 10
   StaticCreate "Tristrana "TekstV10 [cm] 45 45 20 10

   StaticCreate "Tristrana "TekstV11 [v = ] 25 55 20 10
   StaticCreate "Tristrana "TekstV12 :v1 35 55 20 10
   StaticCreate "Tristrana "TekstV13 [cm] 45 55 20 10

   StaticCreate "Tristrana "TekstV14 [P = ] 80 25 20 10
   StaticCreate "Tristrana "TekstV15 [cm] 127 25 20 10
   StaticCreate "Tristrana "TekstV16 [2] 137 22 20 10

   StaticCreate "Tristrana "TekstV17 [V = ] 80 45 20 10
   StaticCreate "Tristrana "TekstV18 [cm] 127 45 20 10
   StaticCreate "Tristrana "TekstV19 [3] 137 42 20 10

   ComboBoxCreate "Tristrana "OdgP1 95 23 30 10
   ComboBoxCreate "Tristrana "OdgV1 95 43 30 10

   ButtonCreate "Tristrana "GumbPomocP [Racunalo] 175 22 40 15 [pomocp1]
   ButtonCreate "Tristrana "GumbPomocV [Racunalo] 175 42 40 15 [pomocv1]


   StaticCreate "Tristrana "TockeP1 [Število pravilnih odgovorov:] 15 80 60 20
   ButtonCreate "Tristrana "GumbP1 :pravilni1 30 100 20 20 []

   StaticCreate "Tristrana "TockeN1 [Število napacnih odgovorov:] 80 80 60 20
   ButtonCreate "Tristrana "GumbN1 :napacni1 95 100 20 20 []

   ButtonCreate "Tristrana "GumbPreveri1 [Preveri] 165 82 60 15 [preveri1]
   ButtonCreate "Tristrana "GumbNazaj [Na prvo stran] 165 97 60 15 [CS WindowDelete "Tristrana prizma]
   ButtonCreate "Tristrana "GumbIzhod [Izhod] 165 112 60 15 [Izhod1]

   make "Stevec1 2
   make "Odgovor1 1 + random 2

end

Make "a 1
Make "a1 2
Make "b 6
Make "c 6
Make "l 1.73205080756888
Make "nap 1
Make "napacni1 3
Make "napacni2 0
Make "odgovor1 4
Make "odgovor2 5
Make "pl1 216
Make "po1 12
Make "po2 12
Make "pov1 246
Make "pov2 90
Make "prav 0
Make "pravilni1 0
Make "pravilni2 0
Make "prev [12]
Make "prev1 [12]
Make "prev2 []
Make "prev3 []
Make "q 1
Make "rez "
Make "s 6.92820323027551
Make "s1 14.9812382665786
Make "stevec1 5
Make "stevec2 6
Make "v1 7
Make "v2 4
Make "vo1 12
Make "vo2 12
Make "vol1 120
Make "vol2 83
Make "vr1 1

prizma