lotto_tom75
Advanced Premium Member
Il mio piccolo pensiero per questo Natale dedicato...
Al grandissimo e quasi non umano per quanto riguarda la Bravura e Grandezza d'Animo LuigiB in primis...
E poi a tutti i bravissimi scripters come Disaronno, Joe91, Mike58, Blackmore ecc... che indirettamente o direttamente mi hanno fatto conoscere questa fantastica programmazione script applicata al lotto permessa dal superlativo programma spaziometria che ormai annovera migliaia di fan, tra cui il sottoscritto, sia suoi che del suo Creatore LuigiB
a cui vanno nuovamente tutti i miei più grandi e sentiti complimenti e ringraziamenti. GRAZIE Luigi!
Questo piccolo mio script l'ho assemblato con l'intento di poter analizzare in modalità RANDOM uno o più ruote (unite) fino ad un massimo di 100 mln di lunghette per qualsiasi numero di elementi per qualsiasi sorte senza dover ricercare e utilizzare uno o l'altro tipo di script che faccia una delle due cose solamente. Resto a disposizione per eventuali aiuti e chiarimenti sul suo utilizzo.
Buone Feste a Tutti/e e speriamo in una qualche bella e interessante vincitina da mettere sotto l'albero
Al grandissimo e quasi non umano per quanto riguarda la Bravura e Grandezza d'Animo LuigiB in primis...
E poi a tutti i bravissimi scripters come Disaronno, Joe91, Mike58, Blackmore ecc... che indirettamente o direttamente mi hanno fatto conoscere questa fantastica programmazione script applicata al lotto permessa dal superlativo programma spaziometria che ormai annovera migliaia di fan, tra cui il sottoscritto, sia suoi che del suo Creatore LuigiB
a cui vanno nuovamente tutti i miei più grandi e sentiti complimenti e ringraziamenti. GRAZIE Luigi! Questo piccolo mio script l'ho assemblato con l'intento di poter analizzare in modalità RANDOM uno o più ruote (unite) fino ad un massimo di 100 mln di lunghette per qualsiasi numero di elementi per qualsiasi sorte senza dover ricercare e utilizzare uno o l'altro tipo di script che faccia una delle due cose solamente. Resto a disposizione per eventuali aiuti e chiarimenti sul suo utilizzo.
Buone Feste a Tutti/e e speriamo in una qualche bella e interessante vincitina da mettere sotto l'albero
Codice:
Option Explicit
Sub Main
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 aRuoteTmp
Dim sfile
Dim ruota
Dim ff
Dim numerocolonne
Dim multiplocolonne
Dim numerocolonnerandomtotale
Dim ramassimotop
Dim ramassimostandard
Dim Incmaxdeciso
Dim opzionemultiruota
Dim quanteruote
Dim ruota1
Dim ruota2
Dim ruota3
Dim ruota4
Dim ruota5
Dim ruota6
Dim ruota7
Dim ruota8
Dim ruota9
Dim ruota10
Dim contaruote
Dim ruotascelta
Dim verificacaso
Classe = CInt(InputBox("QUALE CLASSE DI SVILUPPO",,10))
nSorte = CInt(InputBox("QUALE SORTE DI ESITO",,2))
opzionemultiruota = InputBox("CALCOLO SU PIU' RUOTE? 0=SI 1=NO",,1)
If(opzionemultiruota = 1) Then
ruota = InputBox("QUALE RUOTA? Digita 11 per TUTTE e 12 per NAZIONALE",,1)
ReDim aRuote(1)
quanteruote = 1
aRuote(1) = ruota
verificacaso = 1
ElseIf(opzionemultiruota = 0) Then
Dim R,s
ReDim aRuote(0)
R = ScegliRuote(aRuote)
For R = 1 To UBound(aRuote)
s = s & NomeRuota(aRuote(R)) & " - "
Next
verificacaso = 0
s = RimuoviLastChr(s,"-")
'Scrivi s
'aRuote(R) = aRuoteSel(R)
End If
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))
'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
numerocolonnerandomtotale = numerocolonne * multiplocolonne
valoreInizioelaborazione = 1
valorefineelaborazione = numerocolonnerandomtotale '...
Scrivi "Analizzatore TOTALE lunghette desiderate di gruppo numerico desiderato per sorte desiderata in quantità di colonne Random desiderate (max 100 mln) su UNA o PIU RUOTE a scelta.",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",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 "Ruote Analizzate... "
If(verificacaso = 0) Then
For R = 1 To UBound(aRuote)
s = s & NomeRuota(aRuote(R)) & " - "
Next
s = RimuoviLastChr(s,"-")
Scrivi s
ElseIf(verificacaso = 1) Then
Scrivi NomeRuota(aRuote(1))
End If
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
If(RetRit1 >= ramassimotop And RetIncrRitMax >= Incmaxdeciso) Then
Call Scrivi("Ruota: " & " ruote decise " & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)
Dim reportlunghettadoc
reportlunghettadoc = "Ruota: " & " ruote decise " & " 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: " & " ruote decise " & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)
Dim reportlunghettadoc2
reportlunghettadoc2 = "Ruota: " & " ruote decise " & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff
sfile = "c:\lunghette-interessanti.txt"
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
Ultima modifica:
Ciao mitico! 
