[noobinator]




function bruto (par as integer, rez as integer) as integer

Dim bruto_ as integer
Dim a as integer
a = rez - par
  select case a
     case -2      '2 udarca manje
        bruto_ = 4
     case -1      '1 udarac manje itd..
        bruto_ = 3
     case 0
        bruto_ = 2
     case 1
        bruto_ = 1
     case is >= 2
        bruto_ = 0
   end select
bruto = bruto_
end function

function neto (par as integer, rez as integer, hdcp as integer) as integer
Dim neto_ as integer, i as integer, h as integer, j as integer
Dim a as integer
Dim indeksi (1 to 18) as integer
Dim oduzmi as boolean

'popuniti indexe
indeksi(1) = 17   'prva rupa ima index 17
indeksi(2) = 11
indeksi(3) = 7
indeksi(4) = 9
indeksi(5) = 13
indeksi(6) = 3
indeksi(7) = 1
indeksi(8) = 5
indeksi(9) = 15
indeksi(10) = 18   
indeksi(11) = 12
indeksi(12) = 8
indeksi(13) = 10
indeksi(14) = 14
indeksi(15) = 4
indeksi(16) = 2
indeksi(17) = 6
indeksi(18) = 16

h = Abs (hdcp - 18)  
if hdcp < 18 then oduzmi=true 

a = rez - par
   select case a
       case -2
         neto_ = 5
       case -1
         neto_ = 4
       case 0
         neto_ = 3
       case 1
         neto_ = 2
       case 2
         neto_ = 1
       case is >= 3
         neto_ = 0
   end select

if h = 0 then 
neto_ = neto_ - 1
goto hell
end if

for i = 1 to h

  for j = 1 to 18
   if indeksi(j) = i and oduzmi = false then neto_ = neto + 1
   if indeksi(j) = i and oduzmi = true then neto_ = neto - 1
  next j

next i

hell:

neto = neto_

end function



 sad negdje di je glavni kod

Dim hdcp as integer
hdcp = Cint (Combo1.Text)  'ucitaj sta pise u combo1 tj. padajuci izbornik

for i = 1 to 18  

b(i) = bruto ( p(i), r(i) )
n(i) = neto (i, p(i), r(i), hdcp)

next i