|
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 (rupa as integer, par as integer, rez as integer) as integer
Dim neto_ as integer
Dim a as integer
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 rupa = 6 or rupa = 7 or rupa = 15 or rupa=16 then neto_ = neto_ + 1
neto = neto_
end function
' sad negdje di je glavni kod
for i = 1 to 18
b(i) = bruto ( p(i), r(i) )
n(i) = neto (i, p(i), r(i) )
next i
provjeri ti jos kod jel to radi kako treba, napravi novi projekt kopiraj ove funkcije pa gledaj jel ispadaju dobri rezultati.-->
imam ideju, napravi kopiju projekta da nebi bilo.
znaci imas boxeve r1,r2,r3..... svim boxevima daj isto ime, r ali različiti index. prvi r ima index 1 drugi 2.... do 18. isto napravi za boxeve bruto,neto i par.
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 (rupa as integer, par as integer, rez as integer) as integer
Dim neto_ as integer
Dim a as integer
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 rupa = 6 or rupa = 7 or rupa = 15 or rupa=16 then neto_ = neto_ + 1
neto = neto_
end function
' sad negdje di je glavni kod
for i = 1 to 18
b(i) = bruto ( p(i), r(i) )
n(i) = neto (i, p(i), r(i) )
next i
provjeri ti jos kod jel to radi kako treba, napravi novi projekt kopiraj ove funkcije pa gledaj jel ispadaju dobri rezultati.
__________________
|