bonjour
Est ce que quelqu'un sait traduire ce code en vba

merci

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

Le 09/05/2007 19:47, kurtz le pirate a écrit :
>
>> Est ce que quelqu'un sait traduire ce code en vba
>
> tu espères vraiment avoir une réponse ?

C'est en partant d'une demande de traduction d'un programme de VBA en
PHP que j'ai fait l'un de mes programmes PHP les plus aboutis.

La demande était celle-ci :
http://groups.google.fr/group/fr.com...b682bf43042751

Et j'en ai fait ça :
http://www.miakinen.net/vrac/nombres
http://www.miakinen.net/vrac/nombres2


Mais bon, c'est vrai qu'en demandant de traduire un programme *Java*
dans un groupe *JavaScript*, il a moins de chances d'avoir des réponses.
D'autant plus que son programme n'est ni du Java ni du JavaScript, et
que je le soupçonne même d'être déjà du VBA.

In article <4642f9ca@neottia.net>,
Olivier Miakinen <om+news@miakinen.net> wrote:

> Le 09/05/2007 19:47, kurtz le pirate a écrit :
> >
> >> Est ce que quelqu'un sait traduire ce code en vba
> >
> > tu espères vraiment avoir une réponse ?
>
> C'est en partant d'une demande de traduction d'un programme de VBA en
> PHP que j'ai fait l'un de mes programmes PHP les plus aboutis.
>
> La demande était celle-ci :
> http://groups.google.fr/group/fr.com...b682bf43042751

je suis tout à fait d'accord avec toi. les news peuvent être sources
d'inspirations pour programmeurs en manque ))


> Et j'en ai fait ça :
> http://www.miakinen.net/vrac/nombres
> http://www.miakinen.net/vrac/nombres2

je ne doutais pas du résultat. mais la forme de la demande ici et sur le
lien que tu donnes est vraiment différente non ?



> Mais bon, c'est vrai qu'en demandant de traduire un programme *Java*
> dans un groupe *JavaScript*, il a moins de chances d'avoir des réponses.
> D'autant plus que son programme n'est ni du Java ni du JavaScript, et
> que je le soupçonne même d'être déjà du VBA.


ben oui... ça ressemble à du basic. ne connaissant absolument pas ce ...
heu... langage, je ne dirais rien à ce sujet.



--
klp

Le 11/05/2007 18:47, kurtz le pirate a écrit :
>>
>> C'est en partant d'une demande de traduction d'un programme de VBA en
>> PHP que j'ai fait l'un de mes programmes PHP les plus aboutis.
>>
>> La demande était celle-ci :
>> http://groups.google.fr/group/fr.com...b682bf43042751
>
> je suis tout à fait d'accord avec toi. les news peuvent être sources
> d'inspirations pour programmeurs en manque ))

:-D

>> Et j'en ai fait ça :
>> http://www.miakinen.net/vrac/nombres
>> http://www.miakinen.net/vrac/nombres2
>
> je ne doutais pas du résultat. mais la forme de la demande ici et sur le
> lien que tu donnes est vraiment différente non ?

En fait j'aurais dû indiquer le lien suivant qui est le programme en
lui-même et non pas la page de tests ni celle de documentation :
http://www.miakinen.net/vrac/source/nel

Cela dit, je reconnais volontiers que j'ai fait « un peu plus » que ce
que demandait filon. Et puis je n'ai pas reporté les nombreux bugs du
programme d'origine, par exemple « billiard » au lieu de « billion »
sans parler du « triard [sic] »...