Per LuigiB aiuto script permutazioni

[Roby]

Buonasera LuigiB, cortesemente ,potresti crearmi uno script per Spaziometria dove in automatico semplicemente inserendo i 5 estratti di qualsiasi ruota mi da le 120 permutazioni in automatico?

Ecco le istruzioni:
Permutazioni con 5 numeri- Metto le lettere ... alle lettere i numeri che si vogliono ed il gioco è fatto:



P(5,5) = 120

abcde abced abdce abdec abecd abedc acbde acbed acdbe acdeb acebd acedb adbce adbec adcbe adceb adebc adecb aebcd aebdc aecbd aecdb aedbc aedcb bacde baced badce badec baecd baedc bcade bcaed bcdae bcdea bcead bceda bdace bdaec bdcae bdcea bdeac bdeca beacd beadc becad becda bedac bedca cabde cabed cadbe cadeb caebd caedb cbade cbaed cbdae cbdea cbead cbeda cdabe cdaeb cdbae cdbea cdeab cdeba ceabd ceadb cebad cebda cedab cedba dabce dabec dacbe daceb daebc daecb dbace dbaec dbcae dbcea dbeac dbeca dcabe dcaeb dcbae dcbea dceab dceba deabc deacb debac debca decab decba eabcd eabdc eacbd eacdb eadbc eadcb ebacd ebadc ebcad ebcda ebdac ebdca ecabd ecadb ecbad ecbda ecdab ecdba edabc edacb edbac edbca edcab edcba


Un caro saluto e grazie per tutto quello che fai, sei un grande!

 

[LuigiB]

Eccolo ...ciao

Sub Main
Dim Colonne
Dim numeri(5)
Dim classe
Dim sColonna

classe = 5


If ScegliNumeri( numeri) = 5 Then
Colonne = SviluppoPermutazioni(numeri,classe)



For k = 1 To UBound(Colonne)
sColonna = ""
For j = 1 To classe
sColonna = sColonna & Format2(Colonne(k,j)) & " "
Next
Call Scrivi(FormattaStringa ( k , "00000") & " - " & sColonna)
Next
Else
MsgBox "Scegliere 5 numeri"
End If
End Sub

 

[imported_n/a]

Mi da errore qui: Colonne = SviluppoPermutazioni(numeri,classe)

Grazie in anticipo LuigiB

 

[Roby]

a me con la 1.1.90
funziona bene senza errori



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[LuigiB]

l'ultima versione è la 1.1.94 consiglio a tutti di scaricarla ,
specie a chi fa gli script perche contiene delle novita come ad esempio
le funzioni per il dieci e lotto
Il consiglio che do io è che bisogna sempre aggiornare con l'ultima versione disponibile perche ogni volta c'è sempre oltre alle novita anche qualche ottimizzazione se non correzione riguardante la versione precedente.. il concetto è che ogni nuova versione introduce sempre un miglioramento.
Ciao a tutti