Richiesta script molto particolare...

[LuigiB]

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

 

[lotto_tom75]

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!

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..."

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

 

[lotto_tom75]

Nonostante questa volta sembra che tu non abbia colto il mio ultimo appello... d'aiuto 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... Tutto questo ovviamente grazie alle tue poche ma illuminanti dritte...

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!

Ciao e buona serata luigi!