J'essaye de comprendre le fonctionnement des tableaux, et je butte sur les
tableaux à plusieurs dimensions.
Comment fonctionnent, par exemple, les tableaux à 3 dimensions ?
Prenons l'exemple du Lotto :
Soit une feuille excel avec
Colonne A = tirage
Colonne B = Boule1
Colonne C= Boule2
Colonne D= Boule3
Colonne E= Boule4
Colonne F= Boule5
Colonne G= Boule6
On a les variables
nbrTirage = nombre de tirages dans l'historique
lOccurence = occurence de sortie de chaque boule
lFrequence = frequence de sortie de chaque boule (Occurence de la boule /
Nbr Total de boules tirées)
On souhaite créer un tableau avec , pour chaque boule et pour chaque tirage,
son occurence de sortie et sa frequence de sortie (depuis le premier tirage)
Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2)
Comment le remplir ?
Comment extraire, par exemple : frequence de la boule 21 après le 17ème
tirage ?
Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs
dimensions, il est le bien venu.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christian Hugoud
Id signifie Identifiant :
for TirageId = 1 to TirageCount for BouleId = 1 to 42 for QuidId = 0 to 2 'je n'ai pas compris ce que tu veux renseigner ici
monTableau( TirageId, BouleId, QuidId) = 0
next next next
Christian
"Philippe Dhondt" a écrit dans le message de news: wSdhf.2609$
Bonjour
J'essaye de comprendre le fonctionnement des tableaux, et je butte sur les tableaux à plusieurs dimensions.
Comment fonctionnent, par exemple, les tableaux à 3 dimensions ?
Prenons l'exemple du Lotto : Soit une feuille excel avec Colonne A = tirage Colonne B = Boule1 Colonne C= Boule2 Colonne D= Boule3 Colonne E= Boule4 Colonne F= Boule5 Colonne G= Boule6
On a les variables nbrTirage = nombre de tirages dans l'historique lOccurence = occurence de sortie de chaque boule lFrequence = frequence de sortie de chaque boule (Occurence de la boule / Nbr Total de boules tirées)
On souhaite créer un tableau avec , pour chaque boule et pour chaque tirage, son occurence de sortie et sa frequence de sortie (depuis le premier tirage)
Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2)
Comment le remplir ?
Comment extraire, par exemple : frequence de la boule 21 après le 17ème tirage ?
Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs dimensions, il est le bien venu.
Merci @+
Id signifie Identifiant :
for TirageId = 1 to TirageCount
for BouleId = 1 to 42
for QuidId = 0 to 2 'je n'ai pas compris ce que tu veux
renseigner ici
monTableau( TirageId, BouleId, QuidId) = 0
next
next
next
Christian
"Philippe Dhondt" <philippe.dhondt@tele2.be> a écrit dans le message de
news: wSdhf.2609$gC1.1915@nntpserver.swip.net...
Bonjour
J'essaye de comprendre le fonctionnement des tableaux, et je butte sur les
tableaux à plusieurs dimensions.
Comment fonctionnent, par exemple, les tableaux à 3 dimensions ?
Prenons l'exemple du Lotto :
Soit une feuille excel avec
Colonne A = tirage
Colonne B = Boule1
Colonne C= Boule2
Colonne D= Boule3
Colonne E= Boule4
Colonne F= Boule5
Colonne G= Boule6
On a les variables
nbrTirage = nombre de tirages dans l'historique
lOccurence = occurence de sortie de chaque boule
lFrequence = frequence de sortie de chaque boule (Occurence de la boule /
Nbr Total de boules tirées)
On souhaite créer un tableau avec , pour chaque boule et pour chaque
tirage,
son occurence de sortie et sa frequence de sortie (depuis le premier
tirage)
Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2)
Comment le remplir ?
Comment extraire, par exemple : frequence de la boule 21 après le 17ème
tirage ?
Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs
dimensions, il est le bien venu.
for TirageId = 1 to TirageCount for BouleId = 1 to 42 for QuidId = 0 to 2 'je n'ai pas compris ce que tu veux renseigner ici
monTableau( TirageId, BouleId, QuidId) = 0
next next next
Christian
"Philippe Dhondt" a écrit dans le message de news: wSdhf.2609$
Bonjour
J'essaye de comprendre le fonctionnement des tableaux, et je butte sur les tableaux à plusieurs dimensions.
Comment fonctionnent, par exemple, les tableaux à 3 dimensions ?
Prenons l'exemple du Lotto : Soit une feuille excel avec Colonne A = tirage Colonne B = Boule1 Colonne C= Boule2 Colonne D= Boule3 Colonne E= Boule4 Colonne F= Boule5 Colonne G= Boule6
On a les variables nbrTirage = nombre de tirages dans l'historique lOccurence = occurence de sortie de chaque boule lFrequence = frequence de sortie de chaque boule (Occurence de la boule / Nbr Total de boules tirées)
On souhaite créer un tableau avec , pour chaque boule et pour chaque tirage, son occurence de sortie et sa frequence de sortie (depuis le premier tirage)
Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2)
Comment le remplir ?
Comment extraire, par exemple : frequence de la boule 21 après le 17ème tirage ?
Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs dimensions, il est le bien venu.
Merci @+
Patrice Henrio
Patrice
Ton problème nécessite deux tableaux, l'un Occurrence et l'autre Fréquence
Dim Tab Freq(1 to NbrTirage, 1 to 42) as Single Dim Tab Occ(1 to NbrTirage,1 to 42) as Long
For I=1 to NbRTirage For J=1 to 42 Occ(I,J)=<Valeur d'occurence de la boule J au bout du tirage I> Next J Next I
For I=1 to NbRTirage For J=1 to 42 Freq(I,J)=Occ(I,J)/I Next J Next I
Comme tu dois remplir Occ au fur et à mesure je te propose
For I = 1 to NbTotalDeTirage N=Int(42*Rnd+1) Occ(I,N)=Occ(I,N)+1 Next I
Bien entendu cela respecte ton choix de conserver l'historique des occurences et des fréquences
Tu ne peux utiliser un seul tableau car l'une de tes valeurs doit être entière et l'autre réelle.
Imagine le pire, tu n'es jamais déçu, et même il peut t'arriver d'être heureusement surpris.
Si vous êtes intéressé par l'histoire, vous pouvez visiter mon site : Histoire mondiale Vous y trouverez un logiciel écrit intégralement en VB6 et consacré à l'histoire du monde. Si certaines parties du code vous intéresse, je me ferai un plaisir de vous le faire parvenir.
P. HENRIO
"Christian Hugoud" a écrit dans le message de news:
Id signifie Identifiant :
for TirageId = 1 to TirageCount for BouleId = 1 to 42 for QuidId = 0 to 2 'je n'ai pas compris ce que tu veux renseigner ici
monTableau( TirageId, BouleId, QuidId) = 0
next next next
Christian
"Philippe Dhondt" a écrit dans le message de news: wSdhf.2609$
Bonjour
J'essaye de comprendre le fonctionnement des tableaux, et je butte sur les tableaux à plusieurs dimensions.
Comment fonctionnent, par exemple, les tableaux à 3 dimensions ?
Prenons l'exemple du Lotto : Soit une feuille excel avec Colonne A = tirage Colonne B = Boule1 Colonne C= Boule2 Colonne D= Boule3 Colonne E= Boule4 Colonne F= Boule5 Colonne G= Boule6
On a les variables nbrTirage = nombre de tirages dans l'historique lOccurence = occurence de sortie de chaque boule lFrequence = frequence de sortie de chaque boule (Occurence de la boule / Nbr Total de boules tirées)
On souhaite créer un tableau avec , pour chaque boule et pour chaque tirage, son occurence de sortie et sa frequence de sortie (depuis le premier tirage)
Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2)
Comment le remplir ?
Comment extraire, par exemple : frequence de la boule 21 après le 17ème tirage ?
Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs dimensions, il est le bien venu.
Merci @+
Patrice
Ton problème nécessite deux tableaux, l'un Occurrence et l'autre Fréquence
Dim Tab Freq(1 to NbrTirage, 1 to 42) as Single
Dim Tab Occ(1 to NbrTirage,1 to 42) as Long
For I=1 to NbRTirage
For J=1 to 42
Occ(I,J)=<Valeur d'occurence de la boule J au bout du tirage I>
Next J
Next I
For I=1 to NbRTirage
For J=1 to 42
Freq(I,J)=Occ(I,J)/I
Next J
Next I
Comme tu dois remplir Occ au fur et à mesure je te propose
For I = 1 to NbTotalDeTirage
N=Int(42*Rnd+1)
Occ(I,N)=Occ(I,N)+1
Next I
Bien entendu cela respecte ton choix de conserver l'historique des
occurences et des fréquences
Tu ne peux utiliser un seul tableau car l'une de tes valeurs doit être
entière et l'autre réelle.
Imagine le pire, tu n'es jamais déçu, et même il peut t'arriver d'être
heureusement surpris.
Si vous êtes intéressé par l'histoire, vous pouvez visiter mon site :
Histoire mondiale
Vous y trouverez un logiciel écrit intégralement en VB6 et consacré à
l'histoire du monde.
Si certaines parties du code vous intéresse, je me ferai un plaisir de vous
le faire parvenir.
P. HENRIO
"Christian Hugoud" <c2h_nospam@couriel.biz> a écrit dans le message de news:
uTlLgkM8FHA.1020@TK2MSFTNGP15.phx.gbl...
Id signifie Identifiant :
for TirageId = 1 to TirageCount
for BouleId = 1 to 42
for QuidId = 0 to 2 'je n'ai pas compris ce que tu veux
renseigner ici
monTableau( TirageId, BouleId, QuidId) = 0
next
next
next
Christian
"Philippe Dhondt" <philippe.dhondt@tele2.be> a écrit dans le message de
news: wSdhf.2609$gC1.1915@nntpserver.swip.net...
Bonjour
J'essaye de comprendre le fonctionnement des tableaux, et je butte sur
les
tableaux à plusieurs dimensions.
Comment fonctionnent, par exemple, les tableaux à 3 dimensions ?
Prenons l'exemple du Lotto :
Soit une feuille excel avec
Colonne A = tirage
Colonne B = Boule1
Colonne C= Boule2
Colonne D= Boule3
Colonne E= Boule4
Colonne F= Boule5
Colonne G= Boule6
On a les variables
nbrTirage = nombre de tirages dans l'historique
lOccurence = occurence de sortie de chaque boule
lFrequence = frequence de sortie de chaque boule (Occurence de la boule /
Nbr Total de boules tirées)
On souhaite créer un tableau avec , pour chaque boule et pour chaque
tirage,
son occurence de sortie et sa frequence de sortie (depuis le premier
tirage)
Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2)
Comment le remplir ?
Comment extraire, par exemple : frequence de la boule 21 après le 17ème
tirage ?
Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs
dimensions, il est le bien venu.
Ton problème nécessite deux tableaux, l'un Occurrence et l'autre Fréquence
Dim Tab Freq(1 to NbrTirage, 1 to 42) as Single Dim Tab Occ(1 to NbrTirage,1 to 42) as Long
For I=1 to NbRTirage For J=1 to 42 Occ(I,J)=<Valeur d'occurence de la boule J au bout du tirage I> Next J Next I
For I=1 to NbRTirage For J=1 to 42 Freq(I,J)=Occ(I,J)/I Next J Next I
Comme tu dois remplir Occ au fur et à mesure je te propose
For I = 1 to NbTotalDeTirage N=Int(42*Rnd+1) Occ(I,N)=Occ(I,N)+1 Next I
Bien entendu cela respecte ton choix de conserver l'historique des occurences et des fréquences
Tu ne peux utiliser un seul tableau car l'une de tes valeurs doit être entière et l'autre réelle.
Imagine le pire, tu n'es jamais déçu, et même il peut t'arriver d'être heureusement surpris.
Si vous êtes intéressé par l'histoire, vous pouvez visiter mon site : Histoire mondiale Vous y trouverez un logiciel écrit intégralement en VB6 et consacré à l'histoire du monde. Si certaines parties du code vous intéresse, je me ferai un plaisir de vous le faire parvenir.
P. HENRIO
"Christian Hugoud" a écrit dans le message de news:
Id signifie Identifiant :
for TirageId = 1 to TirageCount for BouleId = 1 to 42 for QuidId = 0 to 2 'je n'ai pas compris ce que tu veux renseigner ici
monTableau( TirageId, BouleId, QuidId) = 0
next next next
Christian
"Philippe Dhondt" a écrit dans le message de news: wSdhf.2609$
Bonjour
J'essaye de comprendre le fonctionnement des tableaux, et je butte sur les tableaux à plusieurs dimensions.
Comment fonctionnent, par exemple, les tableaux à 3 dimensions ?
Prenons l'exemple du Lotto : Soit une feuille excel avec Colonne A = tirage Colonne B = Boule1 Colonne C= Boule2 Colonne D= Boule3 Colonne E= Boule4 Colonne F= Boule5 Colonne G= Boule6
On a les variables nbrTirage = nombre de tirages dans l'historique lOccurence = occurence de sortie de chaque boule lFrequence = frequence de sortie de chaque boule (Occurence de la boule / Nbr Total de boules tirées)
On souhaite créer un tableau avec , pour chaque boule et pour chaque tirage, son occurence de sortie et sa frequence de sortie (depuis le premier tirage)
Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2)
Comment le remplir ?
Comment extraire, par exemple : frequence de la boule 21 après le 17ème tirage ?
Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs dimensions, il est le bien venu.
Merci @+
Clive Lumb
Patrice Henrio wrote:
Patrice
Ton problème nécessite deux tableaux, l'un Occurrence et l'autre Fréquence
Dim Tab Freq(1 to NbrTirage, 1 to 42) as Single Dim Tab Occ(1 to NbrTirage,1 to 42) as Long
For I=1 to NbRTirage For J=1 to 42 Occ(I,J)=<Valeur d'occurence de la boule J au bout du tirage I> Next J Next I
For I=1 to NbRTirage For J=1 to 42 Freq(I,J)=Occ(I,J)/I Next J Next I
Comme tu dois remplir Occ au fur et à mesure je te propose
For I = 1 to NbTotalDeTirage N=Int(42*Rnd+1) Occ(I,N)=Occ(I,N)+1 Next I
Bien entendu cela respecte ton choix de conserver l'historique des occurences et des fréquences
Tu ne peux utiliser un seul tableau car l'une de tes valeurs doit être entière et l'autre réelle.
On peut simplifier en utilisant un "type" utilisateur. Du style
Au niveau module: Public Type typTirage OccurrenceBoule(1 To 42) As Integer FrequenceBoule(1 To 42) As Single End Type
Dans une procédure: Dim nbrTirage As Single Dim I As Single Dim J As Single nbrTirage = 99 Dim Tirages() As typTirage 'On ne peut pas dimensionner directement à partir du variable nbrTirage ReDim Tirages(1 To nbrTirage)
'Remplir avec de valeurs factices For I = 1 To nbrTirage For J = 1 To 42 Tirages(I).OccurrenceBoule(J) = Int(21 * Rnd) Tirages(I).FrequenceBoule(J) = Rnd Next J Next I ' Regarder les valeurs (20eme tirage, boule N° 5) Debug.Print Tirages(20).OccurrenceBoule(5) Debug.Print Tirages(20).FrequenceBoule(5) 'Ajouter un tirage nbrTirage = nbrTirage + 1 ReDim Preserve Tirages(1 To nbrTirage) For J = 1 To 42 Tirages(nbrTirage).OccurrenceBoule(J) = < Nouvelle valeur d'occurence Tirages(nbrTirage).FrequenceBoule(J) = < Nouvelle valeur de fréquence Next J
Patrice Henrio wrote:
Patrice
Ton problème nécessite deux tableaux, l'un Occurrence et l'autre
Fréquence
Dim Tab Freq(1 to NbrTirage, 1 to 42) as Single
Dim Tab Occ(1 to NbrTirage,1 to 42) as Long
For I=1 to NbRTirage
For J=1 to 42
Occ(I,J)=<Valeur d'occurence de la boule J au bout du
tirage I> Next J
Next I
For I=1 to NbRTirage
For J=1 to 42
Freq(I,J)=Occ(I,J)/I
Next J
Next I
Comme tu dois remplir Occ au fur et à mesure je te propose
For I = 1 to NbTotalDeTirage
N=Int(42*Rnd+1)
Occ(I,N)=Occ(I,N)+1
Next I
Bien entendu cela respecte ton choix de conserver l'historique des
occurences et des fréquences
Tu ne peux utiliser un seul tableau car l'une de tes valeurs doit être
entière et l'autre réelle.
On peut simplifier en utilisant un "type" utilisateur.
Du style
Au niveau module:
Public Type typTirage
OccurrenceBoule(1 To 42) As Integer
FrequenceBoule(1 To 42) As Single
End Type
Dans une procédure:
Dim nbrTirage As Single
Dim I As Single
Dim J As Single
nbrTirage = 99
Dim Tirages() As typTirage 'On ne peut pas dimensionner directement à partir
du variable nbrTirage
ReDim Tirages(1 To nbrTirage)
'Remplir avec de valeurs factices
For I = 1 To nbrTirage
For J = 1 To 42
Tirages(I).OccurrenceBoule(J) = Int(21 * Rnd)
Tirages(I).FrequenceBoule(J) = Rnd
Next J
Next I
' Regarder les valeurs (20eme tirage, boule N° 5)
Debug.Print Tirages(20).OccurrenceBoule(5)
Debug.Print Tirages(20).FrequenceBoule(5)
'Ajouter un tirage
nbrTirage = nbrTirage + 1
ReDim Preserve Tirages(1 To nbrTirage)
For J = 1 To 42
Tirages(nbrTirage).OccurrenceBoule(J) = < Nouvelle valeur
d'occurence
Tirages(nbrTirage).FrequenceBoule(J) = < Nouvelle valeur de
fréquence
Next J
Ton problème nécessite deux tableaux, l'un Occurrence et l'autre Fréquence
Dim Tab Freq(1 to NbrTirage, 1 to 42) as Single Dim Tab Occ(1 to NbrTirage,1 to 42) as Long
For I=1 to NbRTirage For J=1 to 42 Occ(I,J)=<Valeur d'occurence de la boule J au bout du tirage I> Next J Next I
For I=1 to NbRTirage For J=1 to 42 Freq(I,J)=Occ(I,J)/I Next J Next I
Comme tu dois remplir Occ au fur et à mesure je te propose
For I = 1 to NbTotalDeTirage N=Int(42*Rnd+1) Occ(I,N)=Occ(I,N)+1 Next I
Bien entendu cela respecte ton choix de conserver l'historique des occurences et des fréquences
Tu ne peux utiliser un seul tableau car l'une de tes valeurs doit être entière et l'autre réelle.
On peut simplifier en utilisant un "type" utilisateur. Du style
Au niveau module: Public Type typTirage OccurrenceBoule(1 To 42) As Integer FrequenceBoule(1 To 42) As Single End Type
Dans une procédure: Dim nbrTirage As Single Dim I As Single Dim J As Single nbrTirage = 99 Dim Tirages() As typTirage 'On ne peut pas dimensionner directement à partir du variable nbrTirage ReDim Tirages(1 To nbrTirage)
'Remplir avec de valeurs factices For I = 1 To nbrTirage For J = 1 To 42 Tirages(I).OccurrenceBoule(J) = Int(21 * Rnd) Tirages(I).FrequenceBoule(J) = Rnd Next J Next I ' Regarder les valeurs (20eme tirage, boule N° 5) Debug.Print Tirages(20).OccurrenceBoule(5) Debug.Print Tirages(20).FrequenceBoule(5) 'Ajouter un tirage nbrTirage = nbrTirage + 1 ReDim Preserve Tirages(1 To nbrTirage) For J = 1 To 42 Tirages(nbrTirage).OccurrenceBoule(J) = < Nouvelle valeur d'occurence Tirages(nbrTirage).FrequenceBoule(J) = < Nouvelle valeur de fréquence Next J
Philippe Dhondt
Ok, bien compris, je teste de suite.
Merci
PS: suis intéressé par l'histoire, mais où est l'adresse de votre site ?
"Patrice Henrio" wrote in message news:
Patrice
Ton problème nécessite deux tableaux, l'un Occurrence et l'autre Fréquence
Dim Tab Freq(1 to NbrTirage, 1 to 42) as Single Dim Tab Occ(1 to NbrTirage,1 to 42) as Long
For I=1 to NbRTirage For J=1 to 42 Occ(I,J)=<Valeur d'occurence de la boule J au bout du tirage
I>
Next J Next I
For I=1 to NbRTirage For J=1 to 42 Freq(I,J)=Occ(I,J)/I Next J Next I
Comme tu dois remplir Occ au fur et à mesure je te propose
For I = 1 to NbTotalDeTirage N=Int(42*Rnd+1) Occ(I,N)=Occ(I,N)+1 Next I
Bien entendu cela respecte ton choix de conserver l'historique des occurences et des fréquences
Tu ne peux utiliser un seul tableau car l'une de tes valeurs doit être entière et l'autre réelle.
Imagine le pire, tu n'es jamais déçu, et même il peut t'arriver d'être heureusement surpris.
Si vous êtes intéressé par l'histoire, vous pouvez visiter mon site : Histoire mondiale Vous y trouverez un logiciel écrit intégralement en VB6 et consacré à l'histoire du monde. Si certaines parties du code vous intéresse, je me ferai un plaisir de
vous
le faire parvenir.
P. HENRIO
"Christian Hugoud" a écrit dans le message de
news:
> Id signifie Identifiant : > > for TirageId = 1 to TirageCount > for BouleId = 1 to 42 > for QuidId = 0 to 2 'je n'ai pas compris ce que tu veux > renseigner ici > > monTableau( TirageId, BouleId, QuidId) = 0 > > next > next > next > > Christian > > "Philippe Dhondt" a écrit dans le message de > news: wSdhf.2609$ >> Bonjour >> >> J'essaye de comprendre le fonctionnement des tableaux, et je butte sur >> les >> tableaux à plusieurs dimensions. >> >> Comment fonctionnent, par exemple, les tableaux à 3 dimensions ? >> >> Prenons l'exemple du Lotto : >> Soit une feuille excel avec >> Colonne A = tirage >> Colonne B = Boule1 >> Colonne C= Boule2 >> Colonne D= Boule3 >> Colonne E= Boule4 >> Colonne F= Boule5 >> Colonne G= Boule6 >> >> On a les variables >> nbrTirage = nombre de tirages dans l'historique >> lOccurence = occurence de sortie de chaque boule >> lFrequence = frequence de sortie de chaque boule (Occurence de la boule
/
>> Nbr Total de boules tirées) >> >> On souhaite créer un tableau avec , pour chaque boule et pour chaque >> tirage, >> son occurence de sortie et sa frequence de sortie (depuis le premier >> tirage) >> >> Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2) >> >> Comment le remplir ? >> >> Comment extraire, par exemple : frequence de la boule 21 après le 17ème >> tirage ? >> >> Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs >> dimensions, il est le bien venu. >> >> >> Merci >> @+ >> >> >> > >
Ok, bien compris, je teste de suite.
Merci
PS:
suis intéressé par l'histoire, mais où est l'adresse de votre site ?
"Patrice Henrio" <patrice.henrio@laposte.net> wrote in message
news:eNHMRVN8FHA.3636@TK2MSFTNGP09.phx.gbl...
Patrice
Ton problème nécessite deux tableaux, l'un Occurrence et l'autre Fréquence
Dim Tab Freq(1 to NbrTirage, 1 to 42) as Single
Dim Tab Occ(1 to NbrTirage,1 to 42) as Long
For I=1 to NbRTirage
For J=1 to 42
Occ(I,J)=<Valeur d'occurence de la boule J au bout du tirage
I>
Next J
Next I
For I=1 to NbRTirage
For J=1 to 42
Freq(I,J)=Occ(I,J)/I
Next J
Next I
Comme tu dois remplir Occ au fur et à mesure je te propose
For I = 1 to NbTotalDeTirage
N=Int(42*Rnd+1)
Occ(I,N)=Occ(I,N)+1
Next I
Bien entendu cela respecte ton choix de conserver l'historique des
occurences et des fréquences
Tu ne peux utiliser un seul tableau car l'une de tes valeurs doit être
entière et l'autre réelle.
Imagine le pire, tu n'es jamais déçu, et même il peut t'arriver d'être
heureusement surpris.
Si vous êtes intéressé par l'histoire, vous pouvez visiter mon site :
Histoire mondiale
Vous y trouverez un logiciel écrit intégralement en VB6 et consacré à
l'histoire du monde.
Si certaines parties du code vous intéresse, je me ferai un plaisir de
vous
le faire parvenir.
P. HENRIO
"Christian Hugoud" <c2h_nospam@couriel.biz> a écrit dans le message de
news:
uTlLgkM8FHA.1020@TK2MSFTNGP15.phx.gbl...
> Id signifie Identifiant :
>
> for TirageId = 1 to TirageCount
> for BouleId = 1 to 42
> for QuidId = 0 to 2 'je n'ai pas compris ce que tu veux
> renseigner ici
>
> monTableau( TirageId, BouleId, QuidId) = 0
>
> next
> next
> next
>
> Christian
>
> "Philippe Dhondt" <philippe.dhondt@tele2.be> a écrit dans le message de
> news: wSdhf.2609$gC1.1915@nntpserver.swip.net...
>> Bonjour
>>
>> J'essaye de comprendre le fonctionnement des tableaux, et je butte sur
>> les
>> tableaux à plusieurs dimensions.
>>
>> Comment fonctionnent, par exemple, les tableaux à 3 dimensions ?
>>
>> Prenons l'exemple du Lotto :
>> Soit une feuille excel avec
>> Colonne A = tirage
>> Colonne B = Boule1
>> Colonne C= Boule2
>> Colonne D= Boule3
>> Colonne E= Boule4
>> Colonne F= Boule5
>> Colonne G= Boule6
>>
>> On a les variables
>> nbrTirage = nombre de tirages dans l'historique
>> lOccurence = occurence de sortie de chaque boule
>> lFrequence = frequence de sortie de chaque boule (Occurence de la boule
/
>> Nbr Total de boules tirées)
>>
>> On souhaite créer un tableau avec , pour chaque boule et pour chaque
>> tirage,
>> son occurence de sortie et sa frequence de sortie (depuis le premier
>> tirage)
>>
>> Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2)
>>
>> Comment le remplir ?
>>
>> Comment extraire, par exemple : frequence de la boule 21 après le 17ème
>> tirage ?
>>
>> Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs
>> dimensions, il est le bien venu.
>>
>>
>> Merci
>> @+
>>
>>
>>
>
>
PS: suis intéressé par l'histoire, mais où est l'adresse de votre site ?
"Patrice Henrio" wrote in message news:
Patrice
Ton problème nécessite deux tableaux, l'un Occurrence et l'autre Fréquence
Dim Tab Freq(1 to NbrTirage, 1 to 42) as Single Dim Tab Occ(1 to NbrTirage,1 to 42) as Long
For I=1 to NbRTirage For J=1 to 42 Occ(I,J)=<Valeur d'occurence de la boule J au bout du tirage
I>
Next J Next I
For I=1 to NbRTirage For J=1 to 42 Freq(I,J)=Occ(I,J)/I Next J Next I
Comme tu dois remplir Occ au fur et à mesure je te propose
For I = 1 to NbTotalDeTirage N=Int(42*Rnd+1) Occ(I,N)=Occ(I,N)+1 Next I
Bien entendu cela respecte ton choix de conserver l'historique des occurences et des fréquences
Tu ne peux utiliser un seul tableau car l'une de tes valeurs doit être entière et l'autre réelle.
Imagine le pire, tu n'es jamais déçu, et même il peut t'arriver d'être heureusement surpris.
Si vous êtes intéressé par l'histoire, vous pouvez visiter mon site : Histoire mondiale Vous y trouverez un logiciel écrit intégralement en VB6 et consacré à l'histoire du monde. Si certaines parties du code vous intéresse, je me ferai un plaisir de
vous
le faire parvenir.
P. HENRIO
"Christian Hugoud" a écrit dans le message de
news:
> Id signifie Identifiant : > > for TirageId = 1 to TirageCount > for BouleId = 1 to 42 > for QuidId = 0 to 2 'je n'ai pas compris ce que tu veux > renseigner ici > > monTableau( TirageId, BouleId, QuidId) = 0 > > next > next > next > > Christian > > "Philippe Dhondt" a écrit dans le message de > news: wSdhf.2609$ >> Bonjour >> >> J'essaye de comprendre le fonctionnement des tableaux, et je butte sur >> les >> tableaux à plusieurs dimensions. >> >> Comment fonctionnent, par exemple, les tableaux à 3 dimensions ? >> >> Prenons l'exemple du Lotto : >> Soit une feuille excel avec >> Colonne A = tirage >> Colonne B = Boule1 >> Colonne C= Boule2 >> Colonne D= Boule3 >> Colonne E= Boule4 >> Colonne F= Boule5 >> Colonne G= Boule6 >> >> On a les variables >> nbrTirage = nombre de tirages dans l'historique >> lOccurence = occurence de sortie de chaque boule >> lFrequence = frequence de sortie de chaque boule (Occurence de la boule
/
>> Nbr Total de boules tirées) >> >> On souhaite créer un tableau avec , pour chaque boule et pour chaque >> tirage, >> son occurence de sortie et sa frequence de sortie (depuis le premier >> tirage) >> >> Soit un tableau : monTableau(1 to nbrTirage, 1 to 42, 2) >> >> Comment le remplir ? >> >> Comment extraire, par exemple : frequence de la boule 21 après le 17ème >> tirage ? >> >> Si quelqu'un nage un peu mieux que moi dans ces univers à plusieurs >> dimensions, il est le bien venu. >> >> >> Merci >> @+ >> >> >> > >
