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
bonjour Est ce que quelqu'un sait traduire ce code en vba
merci
declare partial_results as structure of .. .. end function
tu espères vraiment avoir une réponse ?
-- klp
Olivier Miakinen
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.comp.lang.php/msg/25b682bf43042751
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.
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.comp.lang.php/msg/25b682bf43042751
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.
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.comp.lang.php/msg/25b682bf43042751
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.
kurtz le pirate
In article , Olivier Miakinen <om+ wrote:
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.comp.lang.php/msg/25b682bf43042751
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
In article <4642f9ca@neottia.net>,
Olivier Miakinen <om+news@miakinen.net> wrote:
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.comp.lang.php/msg/25b682bf43042751
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.
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.comp.lang.php/msg/25b682bf43042751
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
Olivier Miakinen
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.comp.lang.php/msg/25b682bf43042751
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] »...
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.comp.lang.php/msg/25b682bf43042751
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] »...
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.comp.lang.php/msg/25b682bf43042751
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] »...