Option Explicit
Sub Main
'By lotto_tom75 de numeri lotto team
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
Dim ruota
Dim ff
Dim numerocolonne
Dim multiplocolonne
Dim numerocolonnerandomtotale
Dim ramassimotop
Dim ramassimostandard
Dim Incmaxdeciso
Classe = CInt(InputBox("QUALE CLASSE DI SVILUPPO",,10))
nSorte = CInt(InputBox("QUALE SORTE DI ESITO",,2))
ruota = InputBox("QUALE RUOTA",,1)
ff = CInt(InputBox("QUANTE ESTRAZIONI DALLA FINE",,500))
numerocolonne = CInt(InputBox("QUANTE COLONNE RANDOM ANALIZZARE (max 10000)",,10000))
multiplocolonne = CInt(InputBox("FATTORE DI MOLTIPLICAZIONE COLONNE RANDOM (max 10000)",,1))
ramassimotop = CInt(InputBox("RITARDO MASSIMO TOP",,143))
ramassimostandard = CInt(InputBox("RITARDO MASSIMO STANDARD",,140))
Incmaxdeciso = CInt(InputBox("INCMAX DA CUI PARTIRE",,0))
'If (numerocolonne > 10000 Or multiplocolonne > 10000) Then
'MsgBox ("Numero di colonne e/o fattore di moltiplicazione troppo grandi")
'End If
Dim aRuoteTmp
Dim sfile
'Call EliminaFile(sfile) ' cancella eventualmente il file se gia esiste
sfile = "c:\lunghetta-top.txt"
Call EliminaFile(sfile) ' cancella eventualmente il file se gia esiste
sfile = "c:\lunghette-interessanti.txt"
Call EliminaFile(sfile) ' cancella eventualmente il file se gia esiste
Inizio = EstrazioneFin - ff ' x velocizzare al massimo tenendo conto che il massimo RA finora rilevato su 100 mln di colonne è di 35 estrazioni...
ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)
'ReDim aRuoteSel(12)
Dim c
'Call Scrivi(" ---------------------------------------------------------------- ")
'Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
'Call Scrivi(" ---------------------------------------------------------------- ")
numerocolonnerandomtotale = numerocolonne * multiplocolonne
valoreInizioelaborazione = 1
valorefineelaborazione = numerocolonnerandomtotale '...
ReDim aRuote(1)
'aRuote(1) = NA_
'aRuote(2) = PA_
'aRuote(3) = RO_
'aRuote(4) = TO_
'aRuote(5) = VE_
aRuote(1) = ruota
'aRuote(2) = CA_
'aRuote(8) = FI_
'aRuote(9) = GE_
'aRuote(10) = MI_
'aRuote(11) = NZ_
Scrivi "Analizzatore lunghette desiderate di gruppo numerico desiderato",1,1,1,5,3
Scrivi "per sorte desiderata in quantità di colonne Random desiderate (max 100 mln)",1,1,1,5,3
Scrivi
Scrivi
'Scrivi "Analizzatore lunghette desiderate di gruppo numerico desiderato per sorte desiderata in quantità di colonne random desiderate (max 100 mln)"
Scrivi "By Lotto_tom75 - Numeri Lotto Team",1,1,1,4,2
Scrivi
Call Scrivi("Sviluppo Combinazioni di classe " & Classe & " per sorte di... " & NomeSorte(nSorte),1,1,2,4,4) ' size 5
Scrivi
Scrivi "Totale colonne elaborate: " & numerocolonnerandomtotale,0,0,1,4,5
Scrivi
'Scrivi ColoreTesto("0")
Scrivi "Totale estrazioni elaborate: " & ff,0,0,1,4,5
Scrivi
Scrivi
Scrivi "Estrazione inizio... " & DataEstrazione(Inizio) & " Estrazione fine... " & DataEstrazione(EstrazioneFin)
Scrivi
Scrivi "Ruota Analizzata... " & NomeRuota(ruota),0,0,0,4,5
Scrivi
Scrivi
Scrivi "RA massimo impostato con scrittura su file e alert... RA= " & ramassimotop
Scrivi
Scrivi "RA medio impostato con scrittura su file e output... RA= " & ramassimostandard
Scrivi
Scrivi "Incmax da cui partire... Incmax= " & Incmaxdeciso
Scrivi
For i = valoreInizioelaborazione To valorefineelaborazione
Call GetColonnaCasuale(Classe,aRetcol,aNum)
Call StatisticaFormazioneTurbo(aRetcol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio)', Fine)
Call AvanzamentoElab(1,valorefineelaborazione,i)
Call Messaggio("Colonna " & i)
Dim Diff
Diff = RetRitMax - RetRit1
'max RA rilevato nelle 10ine random generabili dalla 60ina doc : 128 -> SFALDATOSI A RA 129
' nuovo massimo ra 142 rilevato da una 60ina doc con RA=RS=4 e incmax = 2 dal 1874
If(RetRit1 >= ramassimotop And RetIncrRitMax >= Incmaxdeciso) Then
Call Scrivi("Ruota: " & SiglaRuota(ruota) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)
Dim reportlunghettadoc
reportlunghettadoc = "Ruota: " & SiglaRuota(ruota) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff
'-----------------------------------------------------------------------------------------------------------------------------------
sfile = "c:\lunghetta-top.txt" ' costruisce un percorso valido usando la dir temp dell'applicazione
'Call EliminaFile(sfile) ' cancella eventualmente il file se gia esiste
Call ScriviFile(sfile,reportlunghettadoc,False,True) ' scrivo anche sul file preposto
Call CloseFileHandle(sfile) ' chiudo l'handle al file
Call LanciaFile(sfile) ' lancio il file si aprira notepad
Exit For
ElseIf(RetRit1 >= ramassimostandard And RetIncrRitMax >= Incmaxdeciso) Then
Call Scrivi("Ruota: " & SiglaRuota(ruota) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)
Dim reportlunghettadoc2
reportlunghettadoc2 = "Ruota: " & SiglaRuota(ruota) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff
sfile = "c:\lunghette-interessanti.txt"
'Righe da lasciare commentate fino ache non si ha dimestichezza con gli RA massimi standard rintracciati per la propria ricerca...
'Call ScriviFile(sfile,reportlunghettadoc2,False,True) ' scrivo anche sul file preposto
'Call CloseFileHandle(sfile) ' chiudo l'handle al file
'Call LanciaFile(sfile) ' lancio il file si aprira notepad
End If
If ScriptInterrotto Then Exit For
Next
End Sub