View Single Post
Staro 11.02.2009., 21:17   #12
noobinator
Premium
Moj komp
 
noobinator's Avatar
 
Datum registracije: Mar 2008
Lokacija: zg
Postovi: 120



function bruto (par as integerrez as integer) as integer

Dim bruto_ 
as integer
Dim a 
as integer
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 integerrez as integerhdcp as integer) as integer
Dim neto_ 
as integeras integeras integeras 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

Abs (hdcp 18)  
if 
hdcp 18 then oduzmi=true 

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 0 then 
neto_ 
neto_ 1
goto hell
end 
if

for 
1 to h

  
for 1 to 18
   
if indeksi(j) = and oduzmi false then neto_ neto 1
   
if indeksi(j) = 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 integerrez as integer) as integer

Dim bruto_ 
as integer
Dim a 
as integer
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 integerrez as integerhdcp as integer) as integer
Dim neto_ 
as integeras integeras integeras 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

Abs (hdcp 18)  
if 
hdcp 18 then oduzmi=true 

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 0 then 
neto_ 
neto_ 1
goto hell
end 
if

for 
1 to h

  
for 1 to 18
   
if indeksi(j) = and oduzmi false then neto_ neto 1
   
if indeksi(j) = 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.
__________________
noobinator je offline   Reply With Quote