Newsgroup: it.comp.appl.access
Titolo: 90 numeri presi 6 alla volta

Vorrei crearmi un'archivio con tutte le combinazioni possibili del
supernalotto, cioč 90 numeri presi 6 alla volta (escludendo le ripetizioni),
sono un bel po' eh?
Qualcuno mi da una dirtta di codice?
Non che speri di vincere ma almeno "me li guarderei".....

 ha scritto nel messaggio
news:RRumb.45360$e5.16...@news1.tin.it...

Se la tabella nella quale vuoi registrare le combinazioni possibili si
chiama tblCombinazioni ed ha una struttura simile a questa:
Num1        Numerico
Num2        Numerico
Num3        Numerico
Num4        Numerico
Num5        Numerico
Num6        Numerico
Penso che dovresti usare un codice VBA simile a questo:
Dim Num1 As Integer
Dim Num2 As Integer
Dim Num3 As Integer
Dim Num4 As Integer
Dim Num5 As Integer
Dim Num6 As Integer
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM tblCombinazioni;"
DoCmd.SetWarnings True
Dim rst As DAO.Recordset
Set rst = CurrentDb().OpenRecordset("tblCombinazioni")
For Num1 = 1 To 90
For Num2 = 1 To 90
If Num2 <> Num1 Then
For Num3 = 1 To 90
If Num3 <> Num1 And Num3 <> Num2 Then
For Num4 = 1 To 90
If Num4 <> Num1 And Num4 <> Num2 And _
Num4 <> Num3 Then
For Num5 = 1 To 90
If Num5 <> Num1 And Num5 <> Num2 And _
Num5 <> Num3 And Num5 <> Num4 Then
For Num6 = 1 To 90
If Num6 <> Num1 And Num6 <> Num2 And Num6 <> _
Num3 And Num6 <> Num4 And Num6 <> Num5 Then
rst.AddNew
rst!Num1 = Num1
rst!Num2 = Num2
rst!Num3 = Num3
rst!Num4 = Num4
rst!Num5 = Num5
rst!Num6 = Num6
rst.Update
End If
Next Num6
End If
Next Num5
End If
Next Num4
End If
Next Num3
End If
Next Num2
Next Num1
Set rst = Nothing
Solo che non so quanto tempo (Anni?, Secoli?) impiegherebbe il tuo PC ad
effettuare l'elaborazione ed ho dei dubbi che le dimensioni della tabella
sarebbero compatibili con le dimensioni di un database Access.
Insomma penso che sia una cosa solo da guardarsi sulla carta. ;-)
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:P4wmb.66623$e6.23...@twister2.libero.it...

Infatti sono 600 milioni le combinazioni che ne vengono fuori!! MIIIIINCHIA.
Ma a me interessava solo vedere come riuscire a farlo.
Gracias Muchas!

 > supernalotto, cioè 90 numeri presi 6 alla volta (escludendo le

Perfetto! Funziona anche io avevo previsto le istruzioni "If Num3 <> Num1
And Num3 <> Num2 etcetc Then
durante l'esecuzione della function ma mi sembrava un po' stupido.....
invece mai dubitare delle proprie possibilità!
Secondo me è il sistema più veloce (???)
RiGracias!
miiiiiiiiiiiii che MDB CHE NE VERREBBE FUORI!!!

Proprio cosě! Reset was necessary!

 miiiiiiiiiiiii che MDB CHE NE VERREBBE FUORI!!!
-- 


 RiGracias!
Se vuoi tutte le 90^6  combinazioni  non c'è bisogno di nessuna If.
Ciao Giorgio

 ha scritto nel messaggio
news:bneae6$ad4$1...@lacerta.tiscalinet.it...

E che vor dì questo?


Non farci caso č la tempesta solare che fa brutti scherzi.
Ciao Giorgio

 ha scritto nel messaggio
news:bneae6$ad4$1...@lacerta.tiscalinet.it...

Le combinazioni che si devono ottenere sono meno di 90^6; vanno scartate
tutte le combinazioni per le quali esisto due o più numei uguali.
Insomma non è come quando si sviluppano le combinazioni di una schedina del
Totocalcio, nella quale si possono avere anche tutti o più segni uguali.


 ha scritto nel messaggio
news:RRumb.45360$e5.16...@news1.tin.it...

Fischia!!! Sono la bellezza di 622.614.630 combinazioni!!!
Auguri....
Nick

 ha scritto nel messaggio
news:Iuymb.65449$vO5.2...@twister1.libero.it...

LA formula del numero delle combinazioni non è altro che un algoritmo
derivato
dal'utilizzo del fattoriale.
Applicando la formula del calcolo combinatorio:
Combinazioni= n!/(k!*(n-k)!)
Dove:
n=90 (Numeri di gioco)
k=Gruppo di numeri(6 nel SuperEnalotto)
Sviluppando il calcolo ne deriva che il numero esatto é:622.614.630
Se però parliamo di SuperEnalotto dobbiamo dividere per 6 le combinazioni
ottenute per il "6", poichè
uno alla volta i numeri possono essere sostituiti dal Jolly:
5+1--->=103.769.105
E così via.........!!!
Il fattoriale in matematica non è così semplice come da programma, ma basta
un Ciclo per
generarlo....!
Saluti.
@Alex.

 Auguri....
Non e' chi vince al superenalotto sia bravo! 8-)
Ha solo un grandissimo culo.
Ciao

 ha scritto nel messaggio
news:bneh86$foh$1...@lacerta.tiscalinet.it...

NO questo non l'ho capito xchè sono un po' duro. Puoi cortesemente spiegarti
meglio? Per me in numeri restano 6 e le combinazioni anche dichiarate da chi
ha creato il superenalotto sono esattamente :622.614.630


 ha scritto nel messaggio
news:bnehbe$10kru8$1...@ID-155079.news.uni-berlin.de...

secondo voi quante persone muoiono in italia ogni giorno ?
stiamo scarsi e diciamo un migliaio ?
quante persone vincono al super-enalotto il sabato ( o merrcoledi ) ?
nessuna oppure una
morale se gioco al super-enalotto devo sperare di vincere... o sperare 1000
volte di non morire ?
meditate...


PEr il 6 sono quelle, ti ho detto che per il 5+1 c'è da applicare il
criterio di cui sopra
e le combinazioni per il 5+1 diventano: 5+1--->=103.769.105
@Alex.
Ciao.