Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > Java > java to vba

Reply
Thread Tools

java to vba

 
 
PST
Guest
Posts: n/a
 
      05-09-2007
hello

Is what somebody can translate this code into vba

thank you

declare partial_results as structure of
min = array of numbers[ 4 ]; //min[0] is match in six numbers,
min[1] is match in five numbers, etc
max = array of numbers[ 4 ];
comboCount as number;
end declare

function main
declare final_results as list;

for each c=1,2,3,4,5,6 to 44,45,46,47,48,49 do
results = new partial_results;
for each d=(tickets being tested) do
match = how_many_numbers_match( c, d );
increment( results, match );
end for
similar = find_similar_results( final_results, results );
if similar is NULL then
add results to final_results;
else
add( results, similar );
end if
end for

//now the final_results list contains all data for the coverage report
//the following applies to each item in this list:
//"comboCount tested combinations produce min[0] to max[0] of
jackpot hits,
//and min[1] to max[1] of 'match 5' hits and min[2] to max[2] of
'match 4' hits
//and min[3] to max[3] of 'match 3' hits
end function

function increment( res as partial_results, match as number )
index_to_increment = 4 - (match-2); //reverse the match index to
have highest match at index '0'
min[ index_to_increment ] = min[ index_to_increment ] + 1;
max[ index_to_increment ] = max[ index_to_increment ] + 1;
comboCount = comboCount+1;
end function

function add( res1 as partial_results, res2 as partial_results )
res2.comboCount = res2.comboCount + res1.comboCount;
for i=0 to 3 do
if res1.min[ i ] < res2.min[ i ] then
res2.min[ i ] = res1.min[ i ];
end if
if res1.max[ i ] > res2.max[ i ] then
res2.max[ i ] = res1.max[ i ];
end if
end for
end function

function find_similar_results( list, results )
for each r=partial_results from the list do
for i=0 to 3 do
if results.max[ i ] > 0 then
if results.max[i] = r.max[ i ] then
return r;
else
break;
end if
else if r.max[ i ] > 0 then
break;
end if
end for
end for
return NULL;
end function
 
Reply With Quote
 
 
 
 
Wojtek
Guest
Posts: n/a
 
      05-09-2007
PST wrote :
> hello
>
> Is what somebody can translate this code into vba


Homework alert!

--
Wojtek


 
Reply With Quote
 
 
 
 
Lew
Guest
Posts: n/a
 
      05-10-2007
Wojtek wrote:
> PST wrote :
>> hello
>>
>> Is what somebody can translate this code into vba

>
> Homework alert!


And nothing to do with Java, either.

--
Lew
 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Java calling C# or VBA (MS Office API) ? Oleg Konovalov Java 6 06-04-2004 03:18 PM
pass VBA class module to c# objects Iulian Dan Repolschi ASP .Net 3 05-22-2004 02:21 AM
VBA for Access Joyce Microsoft Certification 0 05-21-2004 12:12 PM
ERROR: Call to Interop.VBA.dll Mauro ASP .Net 1 03-04-2004 03:04 PM
Calling VBA Script... Nelson Smith ASP .Net 1 03-02-2004 04:42 PM



Advertisments