Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
java to vba
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
java to vba | Excel Discussion (Misc queries) | |||
How to use Java in Excel VBA? | Excel Programming | |||
How to use Java in Excel VBA? | Excel Programming | |||
Little bit of Java in VB? | Excel Programming | |||
Using Excel XLL in Java | Excel Programming |