Novità

Richiesta script molto particolare...

ecco , come fare ? E' proprio questo il punto ...
Allora tu vuoi calcolare questi valori per 5 sorti sulla stessa colonna dico bene ?
E allora devi lanciare 5 volte questa funzione :

Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

ogni volta cambiando la sorte.
Come fare ? Per caso scrivendo 5 volte la stessa istruzione ? Provasci e ti ritrovi con una mano di meno ...

Va usato un ciclo , e ai parametri che ritornano i valori statistici vqa passato un elemento di un array.

Superati i passaggi nel ciclo avrai un array con i valori statistici delle sorti che hai analizzato.
Testi i valori in questo array contro i parametri di ricerca se li supera avrai la tua lunghetta.

ciao
 
ecco , come fare ? E' proprio questo il punto ...
Allora tu vuoi calcolare questi valori per 5 sorti sulla stessa colonna dico bene ?
E allora devi lanciare 5 volte questa funzione :

Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

ogni volta cambiando la sorte.
Come fare ? Per caso scrivendo 5 volte la stessa istruzione ? Provasci e ti ritrovi con una mano di meno ...

Va usato un ciclo , e ai parametri che ritornano i valori statistici vqa passato un elemento di un array.

Superati i passaggi nel ciclo avrai un array con i valori statistici delle sorti che hai analizzato.
Testi i valori in questo array contro i parametri di ricerca se li supera avrai la tua lunghetta.

ciao

Mi ci vole la mano... eccome! :( :D

Comunque ti posto l'obbrobrio che ho montato... per adesso... il cui unico pregio... è che non da errore e non si blocca se non si preme sul bottone apposito...

Della serie... "ci provo... ma non c'arrivo..." :mad: :rolleyes:

Codice:
Option Explicit
Sub Main

' script by lotto_tom75 per la generazione RANDOM di qualsiasi lunghetta per qualsiasi numero di colonne desiderato.
' lo script rileva RA , RS , INCMAX e FQ nonchè DIFF = RS-RA per qualsiasi formazione esaminata
' Lo script essendo di tipo RANDOM riesce a generare moltissime colonne (testato anche con il totale delle cinquine generabili con 90 numeri)
' per qualsiasi numero di elementi della lunghetta  [ es. 89 :-) ]

Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot,aRetcol
Dim valoreInizioelaborazione,valorefineelaborazione


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)
ReDim aRuoteSel(12)


ReDim aRuoteSel(12)
RuoteSelezionate = ScegliRuote(aRuoteSel)


Call Scrivi(" ---------------------------------------------------------------- ")
Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
Call Scrivi(" ---------------------------------------------------------------- ")



valoreInizioelaborazione = 1
valorefineelaborazione = 10000 'qui è possibile variare il numero di colonne RANDOM desiderato


Classe = 3 ' qui è possibile cambiare il numero di elementi della lunghetta



ReDim aRuoteTmp(1)





For k = 1 To RuoteSelezionate
aRuoteTmp(1) = aRuoteSel(k) 






'x sorte 1


Call Scrivi("X SORTE =1")

For i = valoreInizioelaborazione To valorefineelaborazione
Call GetColonnaCasuale(Classe,aRetcol,aNum)
Call AvanzamentoElab(1,valorefineelaborazione,i)
Call Messaggio("Colonna " & i)

Dim Diff
Diff = RetRitMax - RetRit1
For nSorte = 1 To 1
If(RetRit1 >= 0) Then 'qui invece si possono mettere tutte le condizioni di "filtro" desiderate
Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
Call Scrivi("Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)
End If
If ScriptInterrotto Then Exit For
Next


'x sorte 2


Call Scrivi("X SORTE =2")


Call GetColonnaCasuale(Classe,aRetcol,aNum)
Call AvanzamentoElab(1,valorefineelaborazione,i)
Call Messaggio("Colonna " & i)

For nSorte = 2 To 2
If(RetRit1 >= 0) Then 'qui invece si possono mettere tutte le condizioni di "filtro" desiderate
Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
Call Scrivi("Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)
End If

If ScriptInterrotto Then Exit For
Next

If ScriptInterrotto Then Exit For
Next



If ScriptInterrotto Then Exit For

Next

End Sub

Grazie per la "mano" Maestro :o
 
Nonostante questa volta sembra che tu non abbia colto il mio ultimo appello... d'aiuto :rolleyes: :D caro luigib mio Maestro sono orgoglioso di mostrarti l'ultimo mio obbrobrio funzionante che lascia molto a desiderare per quanto riguarda logica, sintetizzazione e pulizia di programmazione..., ma che credo possa bastarmi... e funzionarmi... per l'esperimento lotto ludico che intendo condurre... :o Tutto questo ovviamente grazie alle tue poche ma illuminanti dritte... ;)

Codice:
Option Explicit
Sub Main

' script by lotto_tom75 per la generazione RANDOM di qualsiasi lunghetta per qualsiasi numero di colonne desiderato.
' lo script rileva RA , RS , INCMAX e FQ nonchè DIFF = RS-RA per qualsiasi formazione esaminata
' Lo script essendo di tipo RANDOM riesce a generare moltissime colonne (testato anche con il totale delle cinquine generabili con 90 numeri)
' per qualsiasi numero di elementi della lunghetta  [ es. 89 :-) ]

Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot,aRetcol
Dim valoreInizioelaborazione,valorefineelaborazione


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)
ReDim aRuoteSel(12)


ReDim aRuoteSel(12)
RuoteSelezionate = ScegliRuote(aRuoteSel)


Call Scrivi(" ---------------------------------------------------------------- ")
Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
Call Scrivi(" ---------------------------------------------------------------- ")



valoreInizioelaborazione = 1
valorefineelaborazione = 6000000 'qui è possibile variare il numero di colonne RANDOM desiderato


Classe = 5 ' qui è possibile cambiare il numero di elementi della lunghetta



ReDim aRuoteTmp(1)

'X TERNO : RA 1170 RS 2224 INCMAX 0 FQ 7 Diff 1054
'X AMBO : RA 19 RS 227 INCMAX 0 FQ 220 Diff 208
'X Estratto : RA 16 RS 29 INCMAX 0 FQ 2322 Diff 13



For k = 1 To RuoteSelezionate


aRuoteTmp(1) = aRuoteSel(k)

Call Scrivi("SORTE 1")

For i = valoreInizioelaborazione To valorefineelaborazione

Call GetColonnaCasuale(Classe,aRetcol,aNum)

Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)


Call AvanzamentoElab(1,valorefineelaborazione,i)


Call Messaggio("Colonna " & i)

nSorte = 1 ' qui è possibile variare la sorte ricercata (anche oltre la 5ina considerando ad es. macro gruppi non facenti parte di una sola ruota)


Dim Diff
Diff = RetRitMax - RetRit1



If(RetRit1 >= 0 And RetRit1 > 15 And RetRit1 < 20 And RetRitMax > 25 And RetRitMax < 30 And RetIncrRitMax = 0 And RetFreq > 2320 And RetFreq < 2325 And Diff > 10 And Diff < 15) Then 'qui invece si possono mettere tutte le condizioni di "filtro" desiderate

Call Scrivi("Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)

End If


If ScriptInterrotto Then Exit For

Next


'X TERNO : RA 1170 RS 2224 INCMAX 0 FQ 7 Diff 1054
'X AMBO : RA 19 RS 227 INCMAX 0 FQ 220 Diff 208
'X Estratto : RA 16 RS 29 INCMAX 0 FQ 2322 Diff 13



Call Scrivi("SORTE 2")

For i = valoreInizioelaborazione To valorefineelaborazione

Call GetColonnaCasuale(Classe,aRetcol,aNum)

Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)


Call AvanzamentoElab(1,valorefineelaborazione,i)


Call Messaggio("Colonna " & i)

nSorte = 2 ' qui è possibile variare la sorte ricercata (anche oltre la 5ina considerando ad es. macro gruppi non facenti parte di una sola ruota)


Dim Diff2
Diff2 = RetRitMax - RetRit1



If(RetRit1 >= 0 And RetRit1 > 15 And RetRit1 < 20 And RetRitMax > 225 And RetRitMax < 230 And RetIncrRitMax = 0 And RetFreq > 215 And RetFreq < 225 And Diff2 > 205 And Diff2 < 210) Then 'qui invece si possono mettere tutte le condizioni di "filtro" desiderate

Call Scrivi("Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff2)

End If


If ScriptInterrotto Then Exit For


Next


'X TERNO : RA 1170 RS 2224 INCMAX 0 FQ 7 Diff 1054
'X AMBO : RA 19 RS 227 INCMAX 0 FQ 220 Diff 208
'X Estratto : RA 16 RS 29 INCMAX 0 FQ 2322 Diff 13


Call Scrivi("SORTE 3")

For i = valoreInizioelaborazione To valorefineelaborazione

Call GetColonnaCasuale(Classe,aRetcol,aNum)

Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)


Call AvanzamentoElab(1,valorefineelaborazione,i)


Call Messaggio("Colonna " & i)

nSorte = 3 ' qui è possibile variare la sorte ricercata (anche oltre la 5ina considerando ad es. macro gruppi non facenti parte di una sola ruota)


Dim Diff3
Diff3 = RetRitMax - RetRit1



If(RetRit1 >= 0 And RetRit1 > 1165 And RetRit1 < 1175 And RetRitMax > 2220 And RetRitMax < 2225 And RetIncrRitMax = 0 And Diff3 > 1050 And Diff3 < 1055) Then 'qui invece si possono mettere tutte le condizioni di "filtro" desiderate

Call Scrivi("Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff3)

End If


If ScriptInterrotto Then Exit For


Next







Next








'Next








End Sub

Se ti andasse di ottimizzarlo... e potenziarlo... io non me ne offendo affatto! :D

Ciao e buona serata luigi! :)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22
Indietro
Alto