Novità

Per LuigiB aiuto script permutazioni

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
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!:)
 
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
 
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.

camapanagaus.jpg
 
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
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 21 agosto 2025
    Bari
    41
    55
    23
    09
    54
    Cagliari
    52
    26
    51
    34
    47
    Firenze
    23
    78
    17
    35
    86
    Genova
    82
    15
    07
    44
    70
    Milano
    19
    86
    22
    77
    73
    Napoli
    39
    48
    82
    70
    15
    Palermo
    05
    25
    88
    54
    87
    Roma
    54
    19
    24
    62
    09
    Torino
    29
    83
    49
    59
    74
    Venezia
    65
    01
    45
    72
    55
    Nazionale
    10
    60
    88
    55
    37
    Estrazione Simbolotto
    Nazionale
    20
    24
    28
    33
    01

Ultimi Messaggi

Indietro
Alto