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
rezultat se spremi u boxeve za bruto, neto. jedino jos moras napraviti da se zbroji sve to.-->
mislim da bi to bilo to (provjeri ipak!):
PHP kod:
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
rezultat se spremi u boxeve za bruto, neto. jedino jos moras napraviti da se zbroji sve to.
__________________
|