Novità

Un aiuto a tutti gli scriptologi

Matematico

Advanced Member >PLATINUM<
Buon sabato a tutti,

Chiedo una cortesia x uno script ....sapendo che con 10 numeri si formano 252 cinquine

CHIEDO A TUTTI GLI SCRIPTOLOGI SE POTRESTE AIUTARMI IN UN LISTATO
MI SPIEGO:

CON L AIUTO DI UN INPUT BOX DOVREI INSERIRE I 10 NUMERI SCELTI E IL LISTATO DOVREBBE
CALCOLARMI LO SVILUPPO DELLE 252 CINQUINE..



GRAZIE IN ANTICIPO

BUON WEKEEND A TUTTI :)
 
Ultima modifica:
Sinceramente la tua richiesta mi stupisce un pò :eek::D

Ad ogni modo per il semplice listato che cerchi dovrebbe bastarti questo...

Codice:
Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit1,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq,anum,QuantitaNumeriscelti
Dim coltot,acol,Classe,i

'Script by lotto_tom75 x generare semplicemente e integralmente tutte le classi integrali desiderate partendo dal gruppo numerico desiderato. Limite di classe 20

'Lo script non genera alcun pronostico. Serve solo a generare le formazioni desiderate.

'Per le classi maggiori di 3 elementi potrebbe impiegare moltissimo tempo e quindi è nettamente sconsigliabile utilizzarlo per gruppi numerici corposi e classi elevate.

'Per classi di formazione elevate dalla 4ina alla 20ina (limite max di sviluppo integrale insito nel programma) è consigliabile non operare con gruppi numerici superiori ai 22 elementi.  

ReDim anum(0)
QuantitaNumeriscelti = ScegliNumeri(anum)


Classe = 5


coltot = InitSviluppoIntegrale(anum,Classe)



If coltot > 0 Then


Do While GetCombSviluppo(acol) = True


i = i + 1



Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(acol) )




Call AvanzamentoElab(1,coltot,i)



Call Messaggio("Colonna " & i)

If ScriptInterrotto Then Exit Do

Loop
End If
End Sub

Ciao

:)

Ps: Ovviamente se in output vuoi solo i numeri (come credo...) basta che sostituisci...

Codice:
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(acol) )

con

Codice:
Call Scrivi(StringaNumeri(acol) )
 
Ultima modifica:
Ti ringrazio lotto_tom75, gentilissimo :-)
In effetti la mia può sembrare una richiesta strana ...ma a me serve questo calcolo x applicare un mio metodo inedito.
Appena lo testerò x bene posterò le previsioni di esso.

Buona serata
 
Matematico;n2131927 ha scritto:
Ti ringrazio lotto_tom75, gentilissimo :-)
In effetti la mia può sembrare una richiesta strana ...ma a me serve questo calcolo x applicare un mio metodo inedito.
Appena lo testerò x bene posterò le previsioni di esso.

Buona serata

Non c'è di che matematico :)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11

Ultimi Messaggi

Indietro
Alto