;PRARAČUNAVANJE EVROV

;zacetno okno z izborom
TO OKNO
  dialogcreate "root "okno [PRERAČUNAVANJE EVROV] 5 24 105 160 [ht NASTAVI]
END

;izbor v zacetnem oknu
TO NASTAVI
ht
 staticcreate "okno "stat1 [Izberi valuto:] 5 2 85 10
 listboxcreate "okno "list 5 10 95 65
 listboxaddstring "list [AUD Avstralski dolar]pu setpos [100 190] pd bitload "avstralija.bmp 
 listboxaddstring "list [CAD Kanadski dolar]pu setpos [100 70] pd bitload "kanada.bmp
 listboxaddstring "list [CZK Češka krona] pu setpos [50 70] pd bitload "ceska.bmp
 listboxaddstring "list [DKK Danska krona] pu setpos [50 100] pd bitload "danska.bmp
 listboxaddstring "list [HUF Madžarski forint] pu setpos [50 130] pd bitload "madzarska.bmp
 listboxaddstring "list [HRK Hrvaška kuna] pu setpos [50 160] pd bitload "hrvaska.bmp
 listboxaddstring "list [NOK Norveška krona] pu setpos [50 190] pd bitload "norveska.bmp
 listboxaddstring "list [SKK Slovaška krona] pu setpos [50 220] pd bitload "slovaska.bmp
 listboxaddstring "list [SEK Švedska krona] pu setpos [100 70] pd bitload "svedska.bmp
 listboxaddstring "list [CHF Švicarski frank] pu setpos [100 100] pd bitload "svica.bmp
 listboxaddstring "list [GBP Britanski funt] pu setpos [100 130] pd bitload "britanija.bmp
 listboxaddstring "list [USD Ameriški dolar] pu setpos [100 160] pd bitload "amerika.bmp
 listboxaddstring "list [SIT Slovenski tolar] pu setpos [150 130] pd bitload "slovenija.bmp
 listboxaddstring "list [PLN Poljski zlot] pu setpos [100 220] pd bitload "poljska.bmp
 staticcreate "okno "stat6 [Pritisni in vnesi željeni znesek za menjavo:] 5 75 85 20
 buttoncreate "okno "gumb1 [VNOS ZNESKA V EUR!] 5 100 95 16 [SEZNAM]
 buttoncreate "okno "gumb3 "Konec 5 125 25 16 [dialogdelete "okno cs st home]
 buttoncreate "okno "gumb2 "Navodila 30 125 35 16 [dialogcreate "okno "info 
 [Navodila] 110 24 165 160 [NAVODILA]]
 buttoncreate "okno "gumb6 "Test 65 125 35 16 [ZASTAVA]
END

TO SEZNAM
cs
 if equalp [AUD Avstralski dolar] listboxgetselect "list [IZRACUN RW 144.4145 1 1 1 1 1 1 1 1 1 1 1 1 1] 
 if equalp [CAD Kanadski dolar] listboxgetselect "list [IZRACUN RW 1 146.2690 1 1 1 1 1 1 1 1 1 1 1 1] 
 if equalp [CZK Češka krona] listboxgetselect "list [IZRACUN RW 1 1 7.2930 1 1 1 1 1 1 1 1 1 1 1] 
 if equalp [DKK Danska krona] listboxgetselect "list [IZRACUN RW 1 1 1 32.123 1 1 1 1 1 1 1 1 1 1] 
 if equalp [HUF Madžarski forint] listboxgetselect "list [IZRACUN RW 1 1 1 1 0.95 1 1 1 1 1 1 1 1 1] 
 if equalp [HRK Hrvaška kuna] listboxgetselect "list [IZRACUN RW 1 1 1 1 1 31.99 1 1 1 1 1 1 1 1]
 if equalp [NOK Norveška krona] listboxgetselect "list [IZRACUN RW 1 1 1 1 1 1 29.081 1 1 1 1 1 1 1] 
 if equalp [SKK Slovaška krona] listboxgetselect "list [IZRACUN RW 1 1 1 1 1 1 1 5.975 1 1 1 1 1 1] 
 if equalp [SEK Švedska krona] listboxgetselect "list [IZRACUN RW 1 1 1 1 1 1 1 1 26.1031 1 1 1 1 1]
 if equalp [CHF Švicarski frank] listboxgetselect "list [IZRACUN RW 1 1 1 1 1 1 1 1 1 154.1960 1 1 1 1] 
 if equalp [GBP Britanski funt] listboxgetselect "list [IZRACUN RW 1 1 1 1 1 1 1 1 1 1 354.271 1 1 1] 
 if equalp [USD Ameriški dolar] listboxgetselect "list [IZRACUN RW 1 1 1 1 1 1 1 1 1 1 1 189.7177 1 1] 
 if equalp [SIT Slovenski tolar] listboxgetselect "list [IZRACUN RW 1 1 1 1 1 1 1 1 1 1 1 1 239.03 1]
 if equalp [PLN Poljski zlot] listboxgetselect "list [IZRACUN RW 1 1 1 1 1 1 1 1 1 1 1 1 1 49.7194]
END

TO IZRACUN :stev :vnos1 :vnos2 :vnos3 :vnos4 :vnos5 :vnos6 :vnos7 :vnos8 :vnos9 :vnos10 :vnos11 :vnos12 :vnos13 :vnos14
 make "znesek :stev*:vnos1*:vnos2*:vnos3*:vnos4*:vnos5*:vnos6*:vnos7*:vnos8*:vnos9*:vnos10*:vnos11*:vnos12*:vnos13*:vnos14
 make "tecaj :znesek/:stev
; Izris zastav
 home
 print [*****IZRISANE SLIKE*****] ht pu setpos [-200 70] bitload "emu.bmp print [zgoraj ZASTAVA EVROPSKE UNIJE] pd
  if :vnos1 > 1 [pu setpos [-200 35]  bitload "avstralija.bmp pd print [spodaj AVSTRALSKA ZASTAVA]]
  if :vnos2 > 1 [pu setpos [-200 35]  bitload "kanada.bmp pd print [spodaj KANADSKA ZASTAVA]]
  if :vnos3 > 1 [pu setpos [-200 35]  bitload "ceska.bmp pd print [spodaj ČEŠKA ZASTAVA]]
  if :vnos4 > 1 [pu setpos [-200 35]  bitload "danska.bmp pd print [spodaj DANSKA ZASTAVA]]
  if :vnos5 < 1 [pu setpos [-200 35]  bitload "madzarska.bmp pd print [spodaj MADŽARSKA ZASTAVA]]
  if :vnos6 > 1 [pu setpos [-200 35]  bitload "hrvaska.bmp pd print [spodaj HRVAŠKA ZASTAVA]]
  if :vnos7 > 1 [pu setpos [-200 35]  bitload "norveska.bmp pd print [spodaj NORVEŠKA ZASTAVA]]
  if :vnos8 > 1 [pu setpos [-200 35]  bitload "slovaska.bmp pd print [spodaj SLOVAŠKA ZASTAVA]]
  if :vnos9 > 1 [pu setpos [-200 35]  bitload "svedska.bmp pd print [spodaj ŠVEDSKA ZASTAVA]]
  if :vnos10 > 1 [pu setpos [-200 35]  bitload "svica.bmp pd print [spodaj ŠVICARSKA ZASTAVA]]
  if :vnos11 > 1 [pu setpos [-200 35]  bitload "britanija.bmp pd print [spodaj BRITANSKA ZASTAVA]]
  if :vnos12 > 1 [pu setpos [-200 35]  bitload "amerika.bmp pd print [spodaj AMERIŠKA ZASTAVA]]
  if :vnos13 > 1 [pu setpos [-200 0]  bitload "slovenija.bmp pd print [spodaj SLOVENSKA ZASTAVA]]
  if :vnos14 > 1 [pu setpos [-200 35]  bitload "poljska.bmp pd print [spodaj POLJSKA ZASTAVA]]
; Izpis statistike:
 messagebox (list "Menjate "znesek: :stev "EUR) (list "Znesek "izbrane "valute: :znesek
 "\nTečaj "menjave: :tecaj)
cs
ct
END



TO NAVODILA
 staticcreate "info "stat2 [S programom "Preračunavanje valut" lahko poljuben znesek iz valute EUR informativno preračunaš v ponujene valute. Na začetku ~ 
izberi med možnostmi valuto, v katero želiš preračunati znesek iz valute EVRO.]7 5 155 50 
 staticcreate "info "stat3 [Zatem pritisneš gumb <VNOS ZNESKA V EUR!>.]7 50 155 15
 staticcreate "info "stat4 [V vnosno okno vtipkaš znesek v EUR, ki ga želiš preračunati v izbrano valuto.]7 65 155 25
 staticcreate "info "stat44 [Test je namenjen vsem, ki se želite preveriti v poznavanju zastav držav, katerih valute so na voljo. Po desetih poskusih ali po petih napačnih izbirah se test konča in oceni.]7 85 155 40
 staticcreate "info "stat5 [Kristina Brljak, maj 2004]7 130 90 10
 buttoncreate "info "gumb4 "Zapri 120 130 32 12 [dialogdelete "info]
END

;test
TO ZASTAVA
 windowcreate "main "okno1 [PREVERI SVOJE ZNANJE V POZNAVANJU ZASTAV!] 110 24 230 180 []
 staticcreate "okno1 "stat7 [OZNAČI SLIKO ZASTAVE, KI PRIPADA ISKANI DRŽAVI!] 5 5 185 40 
 groupboxcreate "okno1 "grupa1 5 20 60 10
  radiobuttoncreate "okno1 "grupa1 "check2 [Češka] 5 20 60 10 radiobuttonset "check2 "false
  radiobuttoncreate "okno1 "grupa1 "check3 [Danska] 5 30 60 10 radiobuttonset "check2 "false
  radiobuttoncreate "okno1 "grupa1 "check4 [Madžarska] 5 40 60 10 radiobuttonset "check2 "false
  radiobuttoncreate "okno1 "grupa1 "check5 [Hrvaška] 5 50 60 10 radiobuttonset "check5 "false
  radiobuttoncreate "okno1 "grupa1 "check6 [Norveška] 5 60 60 10 radiobuttonset "check6 "false
  radiobuttoncreate "okno1 "grupa1 "check7 [Slovaška] 5 70 60 10 radiobuttonset "check7 "false
  radiobuttoncreate "okno1 "grupa1 "check8 [Švedska] 5 80 60 10 radiobuttonset "check8 "false
  radiobuttoncreate "okno1 "grupa1 "check9 [Švica] 5 90 60 10 radiobuttonset "check9 "false
  radiobuttoncreate "okno1 "grupa1 "check10 [Velika Britanija] 5 100 60 10 radiobuttonset "check10 "false
  radiobuttoncreate "okno1 "grupa1 "check11 [ZDA] 5 110 60 10 radiobuttonset "check11 "false
  radiobuttoncreate "okno1 "grupa1 "check12 [Avstralija] 5 120 60 10 radiobuttonset "check12 "false
  radiobuttoncreate "okno1 "grupa1 "check13 [Poljska] 5 130 60 10 radiobuttonset "check13 "false
  radiobuttoncreate "okno1 "grupa1 "check14 [Kanada] 5 140 60 10 radiobuttonset "check14 "false
  radiobuttoncreate "okno1 "grupa1 "check15 [Slovenija] 5 150 60 10 radiobuttonset "check15 "false
 Staticcreate "okno1 "legendap [Pravilnih odgovorov:] 140 20 40 20
 Staticcreate "okno1 "legendan [Nepravilnih odgovorov:] 180 20 40 20
;rezultati
 make "rezpnum 0
 make "reznnum 0
 buttoncreate "okno1 "rezp :rezpnum 140 40 40 10 []
 buttoncreate "okno1 "rezn :reznnum 180 40 40 10 []

 Staticcreate "okno1 "odg [] 120 50 100 20
 Staticcreate "okno1 "prav [] 120 70 100 20

 buttoncreate "okno1 "gumb10 [Pobriši vsa polja] 140 115 75 12 [cs brisi] 
 buttoncreate "okno1 "gumb7 "Preveri 140 130 32 12 [pregled cs start]   

 buttoncreate "okno1  "gumb8 "Začetek 175 130 40 12 [brisi start]
 buttoncreate "okno1  "gumb9 "Zapri 140 145 75 12 [windowdelete "okno1 cs]

make "izbor1 0
make "mesto 0
make "vrsta (array 11 0)
END

TO START
make "izbor (random 13)+1
ifelse (memberp :izbor :vrsta) [start][ 
  if (:izbor=1)[pu setpos [250 250] pd bitload "avstralija.bmp]
  if (:izbor=2)[pu setpos [250 250] pd bitload "kanada.bmp]
  if (:izbor=3)[pu setpos [250 250] pd bitload "ceska.bmp]
  if (:izbor=4)[pu setpos [250 250] pd bitload "danska.bmp]
  if (:izbor=5)[pu setpos [250 250] pd bitload "madzarska.bmp]
  if (:izbor=6)[pu setpos [250 250] pd bitload "hrvaska.bmp]
  if (:izbor=7)[pu setpos [250 250] pd bitload "norveska.bmp]
  if (:izbor=8)[pu setpos [250 250] pd bitload "slovaska.bmp]
  if (:izbor=9)[pu setpos [250 250] pd bitload "svedska.bmp]
  if (:izbor=10)[pu setpos [250 250] pd bitload "svica.bmp]
  if (:izbor=11)[pu setpos [250 250] pd bitload "britanija.bmp]
  if (:izbor=12)[pu setpos [250 250] pd bitload "amerika.bmp]
  if (:izbor=13)[pu setpos [250 250] pd bitload "slovenija.bmp]
  if (:izbor=0)[pu setpos [250 250] pd bitload "poljska.bmp]
make "izbor1 :izbor
setitem :mesto :vrsta :izbor1
make "mesto :mesto+1
;print :vrsta
]
END

TO PRAVILNO
 make "rezpnum :rezpnum+1
  buttondelete "rezp
  buttoncreate "okno1 "rezp :rezpnum 140 40 40 10 []
  staticdelete "odg
  staticdelete "prav
  Staticcreate "okno1 "prav [] 120 70 100 20
  Staticcreate "okno1 "odg [Izbira je pravilna!] 140 60 100 10
 if (or ((:reznnum + :rezpnum)=10)(:reznnum=5)) [opozorilo]
END

TO NAPACNO
 staticdelete "odg 
 staticdelete "prav 
 Staticcreate "okno1 "odg [Napaka! Zastava pripada] 140 60 100 10
  PREGLED1
 make "reznnum :reznnum+1
 buttondelete "rezn
 buttoncreate "okno1 "rezn :reznnum 180 40 40 10 []
 if (or ((:reznnum + :rezpnum)=10)(:reznnum=5)) [opozorilo]
END

TO OPOZORILO
  windowcreate "okno2 "opoz [OPOZORILO!] 355 24 100 80 []
 if :reznnum=5 [Staticcreate "opoz "opoz1 [Tvoje znanje ne zadostuje - nezadostno (1)!] 10 10 80 30]
 if (and ((:reznnum + :rezpnum)=10)(equalp :rezpnum 6)) [Staticcreate "opoz "opoz1 [Tvoje znanje je zadovoljivo - zadostno (2)!] 10 10 80 30]
 if (and ((:reznnum + :rezpnum)=10)(equalp :rezpnum 7)) [Staticcreate "opoz "opoz1 [Tvoje znanje je solidno - dobro (3)!] 10 10 80 30]
 if (and ((:reznnum + :rezpnum)=10)(equalp :rezpnum 8)) [Staticcreate "opoz "opoz1 [Tvoje znanje je zelo dobro - prav dobro (4)!] 10 10 80 30]
 if (and ((:reznnum + :rezpnum)=10)(equalp :rezpnum 9)) [Staticcreate "opoz "opoz1 [Tvoje znanje je skoraj odlično - prav dobro (4)!] 10 10 80 30]
 if (and ((:reznnum + :rezpnum)=10)(equalp :rezpnum 10)) [Staticcreate "opoz "opoz1 [Tvoje znanje je brezhibno - odlično (5)!] 10 10 80 30]
 buttoncreate "opoz "konec2 "ZAPRI 10 40 30 12 [windowdelete "opoz brisi]
END

TO BRISI
cs
  staticdelete "odg
  staticdelete "prav
  buttondelete "rezp
  buttondelete "rezn
  make "rezpnum 0
  make "reznnum 0
  buttoncreate "okno1 "rezp :rezpnum 140 40 40 10[]
  buttoncreate "okno1 "rezn :reznnum 180 40 40 10[]
  windowdelete "okno1
  zastava
END

TO PREGLED
ifelse (or (and (equalp :izbor 1)(radiobuttonget "check12))(and (equalp :izbor 2)(radiobuttonget "check14))(and (equalp :izbor 3) (radiobuttonget "check2))(and (equalp :izbor 4)(radiobuttonget "check3))(and (equalp :izbor 5)(radiobuttonget "check4))(and (equalp :izbor 6) (radiobuttonget "check5))(and (equalp :izbor 7)(radiobuttonget "check6))(and (equalp :izbor 8)(radiobuttonget "check7))(and (equalp :izbor 9) (radiobuttonget "check8))(and (equalp :izbor 10)(radiobuttonget "check9))(and (equalp :izbor 11)(radiobuttonget "check10))(and (equalp :izbor 12)(radiobuttonget "check11))(and (equalp :izbor 13)(radiobuttonget "check15))(and (equalp :izbor 0)(radiobuttonget "check13)))[PRAVILNO][NAPACNO]
END

TO PREGLED1
 if (and (equalp :izbor 1)(not(radiobuttonget "check12)))[Staticcreate "okno1 "prav [Avstraliji] 140 80 100 10]
 if (and (equalp :izbor 2)(not(radiobuttonget "check14)))[Staticcreate "okno1 "prav [Kanadi] 140 80 100 10]
 if (and (equalp :izbor 3)(not(radiobuttonget "check2)))[Staticcreate "okno1 "prav [Češki] 140 80 100 10]
 if (and (equalp :izbor 4)(not(radiobuttonget "check3)))[Staticcreate "okno1 "prav [Danski] 140 80 100 10]
 if (and (equalp :izbor 5)(not(radiobuttonget "check4)))[Staticcreate "okno1 "prav [Madžarski] 140 80 100 10]
 if (and (equalp :izbor 6)(not(radiobuttonget "check5)))[Staticcreate "okno1 "prav [Hrvaški] 140 80 100 10]
 if (and (equalp :izbor 7)(not(radiobuttonget "check6)))[Staticcreate "okno1 "prav [Norveški] 140 80 100 10]
 if (and (equalp :izbor 8)(not(radiobuttonget "check7)))[Staticcreate "okno1 "prav [Slovaški] 140 80 100 10]
 if (and (equalp :izbor 9)(not(radiobuttonget "check8)))[Staticcreate "okno1 "prav [Švedski] 140 80 100 10]
 if (and (equalp :izbor 10)(not(radiobuttonget "check9)))[Staticcreate "okno1 "prav [Švici] 140 80 100 10]
 if (and (equalp :izbor 11)(not(radiobuttonget "check10)))[Staticcreate "okno1 "prav [Veliki Britaniji] 140 80 100 10]
 if (and (equalp :izbor 12)(not(radiobuttonget "check11)))[Staticcreate "okno1 "prav [ZDA] 140 80 100 10]
 if (and (equalp :izbor 13)(not(radiobuttonget "check15)))[Staticcreate "okno1 "prav [Sloveniji] 140 80 100 10]
 if (and (equalp :izbor 0)(not(radiobuttonget "check13)))[Staticcreate "okno1 "prav [Poljski] 140 80 100 10]
END

okno