Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Ciao 
Che ne dici di entrambi?
BARI
03.05.08.10.
14.17.18.19.
21.22.23.29.30.
31.33.34.36.37.40.
42.44.
52.54.55.56.59.
61.63.64.65.66.67.68.70.
72.75.77.78.79.
83.84.85.87.88.90
NAPOLI
05.07.08.10.
12.13.15.16.17.18.20.
22.24.25.28.30.
31.34.36.38.
41.44.45.47.48.49.50.
51.54.55.58.
63.64.67.70.
71.72.73.78.79.
81.82.83.86.90
Unica nota dolente.. -> sembrerebbero essere non ottimali come quella passata...
Ciao Tom Purtroppo non riesco a sviluppare tutti i numeri....
ho provato a filtrare tutto anche per tentare qualcosina su tutte
Bari e tutte ho trovato vicine al limite storico su Bari questa terzina, mancano 11 colpi al limite.
Vedi l'allegato 14602
Ciao vediamo scusami se non riesco afare di meglio
Ciao
Ciao
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
scusa Lotto_tom75
i parametri che imposti allo script sono quelli standard o di default
classe di sviluppo =
estrazioni dalla fine =
colonne elaborate =
