java to vba

Le
PST
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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
kurtz le pirate
Le #741413
In article PST
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
Le #741412

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.


kurtz le pirate
Le #740635
In article 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


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
Le #740374

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] »...


Publicité
Poster une réponse
Anonyme