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.
raccolta di sript per 10elotto 5 m
- Creatore Discussione keeper
- Data di inizio
keeper
Advanced Member >PLATINUM PLUS<
questo è del bravo mike58 che ho ritrovato in un vecchio post scusa mike ma non poteva andare perso 
Codice:
Sub Main()
ImpostaArchivio10ELotto(2)
Dim num(10),nu(1),sorte(10)
SP = CInt(InputBox("Quale spia ",,37))
so = CInt(InputBox("Quale sorte verificare...",,2))
cl = CInt(InputBox("Quanti colpi verificare...",,6))
dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI 2=NO",,2)
ScegliNumeri(num)
For k = 1 To UBound(num)
num(k) = num(k)
Next
Scrivi "Verifica dopo numero SPIA l'esito in x.. colpi dei Numeri..." & StringaNumeri(num),1
Scrivi
nu(1) = sp
fin = EstrazioniArchivioDL
ini = fin - 100
ReDim atitoli(6)
atitoli(1) = " DATA ESTR. "
atitoli(2) = " SPIA "
atitoli(3) = " ESITO "
atitoli(4) = " STRINGA ESITO"
atitoli(5) = "N° Colpi"
atitoli(6) = " NUMERI IN GIOCO "
Call InitTabella(atitoli,1,,3,5)
For es = ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
Messaggio es
AvanzamentoElab Ini,fin,es
Call VerificaEsitoDL(num,es + 1,so,cl,retesito,retcolpi,retestratti,retidestr)
ReDim avalori(6)
avalori(1) = GetInfoEstrazioneDL(es)
avalori(2) = SP
avalori(3) = retesito
avalori(4) = retestratti
avalori(5) = retcolpi & "°"
avalori(6) = StringaNumeri(num)
Call AddRigaTabella(avalori,,,2)
End If
Next
CreaTabella
If dett = 1 Then
Scrivi"---------------------------- DETTAGLIO GIOCATE ----------------------------------------"
fin = EstrazioniArchivioDL
Ini = fin - 100
nu(1) = sp
For es = Ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
ImpostaGiocataDL 1,num,1,6
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi String(125,"="),1
ColoreTesto 1
Scrivi "Uscita numero SPIA..." & SP & " Nell'estrazione del..." & GetInfoEstrazioneDL(es),1
ColoreTesto 0
Scrivi String(125,"="),1
GiocaDL es
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi"Spesa Parziale....." & gs
Scrivi"Vincite Parziale..." & gv
Scrivi"Guadagno Parziale.." & gg
End If
Next
ScriviResocontoDL
End If
If dett = 2 Then
TestoInBandaPassante(" Listed by Mike58 "),1,3,0
End If
End Subkeeper
Advanced Member >PLATINUM PLUS<
script di rubino suula ricerca dei frequenti
Codice:
Sub[SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main
[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'by rubino
[/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt2[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt1[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt0[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt3
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]EntroColpi[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]e[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ee[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]c[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]totest
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nBase[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscito[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]presenzespia
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscite
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aPresenze[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](90,90),[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Incrocio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](90)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetRit[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetRitMax[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetFreq
[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]gioco [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]1 = 10eLotto serale 2 = 10eLotto5Minuti[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",,1)
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]EntroColpi[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]CInt[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]("[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Entro quanti colpi ?[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]","[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Colpi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]",5))[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]CInt[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]("[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Quanti numeri frequenti vuoi?[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]",,7))[/COLOR]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]''''imposta archivio
[/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ImpostaArchivio10ELotto[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Int[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](gioco))[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] gioco [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 8077 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Else[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 500[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]totest[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](1)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Int[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](gioco) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Namescript (SpiaefrequentiRubinoV2) by(LuigiB - mod.Rubino) [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]"[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Archivio impostato su 10 E LOTTO SERALE [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Frequenti quantità [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],1[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] n.estrazioni esaminate [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]totest[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Entro colpi n.[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]EntroColpi
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] dal.n. al n. [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]/[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If
If[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Int[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](gioco) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 2 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Archivio impostato su 1O E LOTTO 5 MINUTI [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Frequenti quantità [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],1[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Ultime estrazioni esaminate [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]totest[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Entro colpi n.[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]EntroColpi
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Situazione Frequenti nei colpi successivi all'estrazione del nr.spia [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]",1[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]e[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 20[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nBase[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrattoDL[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]e[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]c[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]EntroColpi
idEstr[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]c
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ee[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 20[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscito[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrattoDL[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ee[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aPresenze[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nBase[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscito[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aPresenze[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nBase[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscito[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next
Next
Next
Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]AvanzamentoElab[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScriptInterrotto[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Exit[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For
Next
If[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 11 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt3[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 3[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt2[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 2[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt1[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt0[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Else
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt0[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 10[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt1[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 9[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt2[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 8[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt3[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 7[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If
ReDim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](11)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](1) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Numero Spia[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]"[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](2) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Numeri Piu Freq[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]"[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](3) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Uscite[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]"[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](4) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Frequenza[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]"[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](5) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]% fav.Spia[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]"[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](6) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]% fav.numeri Freq.[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]"[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](7) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Punti[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt3
aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](8) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Punti[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt2
aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](9) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Punti[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt1
aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](10) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Punti[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]" [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt0
aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](11) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Ritardo x 5 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]"[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]InitTabella[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aTitoli[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],3,"[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]center[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]",1.5,1)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nBase[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 90[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](11)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](1) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nBase
aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](2) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]GetNumeroPiuFreq[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nBase[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aPresenze[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscite[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Incrocio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aV[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](0)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SplitByChar[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](2),"[/COLOR][/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]",[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aV[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](3) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscite
[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]''''controlla presenze totali spia nel range di estrazioni
[/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](1)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](1) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](1)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StatisticaFormazioneDL[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],1,[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetRit[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetRitMax[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],0,[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetFreq[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]presenzespia[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetFreq
[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]''''controlla frequenze totali della quantità di numeri
[/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](1)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](1) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](2)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StatisticaFormazioneDL[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],1,[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetRit[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetRitMax[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],0,[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RetFreq[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]''''controlla frequenze totali della quantità di numeri
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]f [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]UBound[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aV[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aVn[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](f)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]e[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] f[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aVn[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]e[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aV[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]e[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](7) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](8) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](9) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](10) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0[/COLOR]
fpt3 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreqDL[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aVn[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt3[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](7) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] fpt3[/COLOR]
fpt2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreqDL[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aVn[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt2[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](8) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] fpt2[/COLOR]
fpt1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreqDL[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aVn[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt1[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](9) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] fpt1[/COLOR]
fpt0 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreqDL[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aVn[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]pt0[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](10) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] fpt0[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](4) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]presenzespia
aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](5) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Round[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscite[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]/[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]totest[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]*[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 100,2)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](6) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Round[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscite[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]/[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]presenzespia[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]*[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 100,2)[/COLOR]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'SerieRitardoDL(Inizio,Fine,aN,3)
[/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](11) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieRitardoDL[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Inizio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Fine[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aVn[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],5)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]AddRigaTabella[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](7) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](7,[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbRed[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbWhite[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](8) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](8,[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbGreen[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbBlack[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](9) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](9,[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbYellow[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbBlack[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](10) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](10,[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbYellow[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbBlack[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next
Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]CreaTabella
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub
Function[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]GetNumeroPiuFreq[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nBase[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aPresenze[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscite[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Incrocio[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aOrd[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](90,2)[/COLOR]
nfre [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ""
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 90[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aOrd[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],1) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aOrd[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],2) [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aPresenze[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nBase[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next
Call[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]OrdinaMatrice[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aOrd[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000],[/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1,2)[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] q [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 1 [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Int[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000]([/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]quanti[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000])[/COLOR]
nfre [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] nfre [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aOrd[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](q,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"
tfre [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] tfre [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aOrd[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](q,2)
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next
[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]''
''' GetNumeroPiuFreq = aOrd(1,1)
[/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]GetNumeroPiuFreq[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] nfre[/COLOR]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]''''nUscite = aOrd(1,2)
[/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nUscite[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] tfre[/COLOR]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] [/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Function
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/B][/SIZE]keeper
Advanced Member >PLATINUM PLUS<
script di una mia tecnica sviluppato da luigib presente in spaziometria
Codice:
OptionExplicit
SubMain
DimIdEstr,IdEstrBase,Colpi,nEstrTot,nPresenti,nQuantitaResidua
Dimk,i
CallImpostaArchivio10ELotto(2)
nEstrTot=EstrazioniArchivioDL
IdEstrBase=CInt(InputBox("Immettere il numero di estrazione da 1 a " &nEstrTot,,1))
IdEstr=IdEstrBase
nQuantitaResidua=CInt(InputBox("Quanti numeri devono rimanere (valore maggiore di 1)?",,3))
IfnQuantitaResidua<= 1 ThenExitSub
ReDimaB(90)
Fork= 1 To 20
aB(EstrattoDL(IdEstr,k)) =True
Next
nPresenti= 20
Do
IdEstr=IdEstr+ 1
Colpi=Colpi+ 1
IfIdEstr<=nEstrTotThen
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 20
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aB[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrattoDL[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]IdEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])) [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aB[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrattoDL[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]IdEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]False
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nPresenti[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nPresenti[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Else
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Exit[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Do
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Loop[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]While[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nPresenti[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nQuantitaResidua
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nPresenti[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 2 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nPresenti[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 90
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aB[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]i[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]i[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]i[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]I numeri residui dopo colpi [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Colpi[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] sono [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nPresenti[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]L'estrazione di partenza è [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]IdEstrBase[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]I numeri residui sono [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]))
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aCol[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](0)
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]InitSviluppoIntegrale[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aN[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],2)
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]i[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Do[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]While[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GetCombSviluppo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aCol[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]i[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]i[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ImpostaGiocataDL[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]i[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aCol[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],1,100,2)
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Loop
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GiocaDL[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]IdEstrBase[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Colpi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScriviResocontoDL
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Else
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]I numeri residui dopo colpi [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Colpi[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] sono [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nPresenti[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If
End[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][/B]
Ultima modifica:
keeper
Advanced Member >PLATINUM PLUS<
mio scirpt per giocare 4 terzine
Codice:
Sub MainDim nEstrtot,IdEstrbase
Call ImpostaArchivio10ELotto(2)
nEstrtot = EstrazioniArchivioDL
IdEstrbase = CInt(InputBox("Immettere il numero di estrazione da 1 a " & nEstrtot,,18550))
numero = CInt(InputBox("Quale numero vuoi analizzare ",,4))
ReDim ambo1(4)
ReDim ambo2(3)
ReDim ambo3(3)
ReDim ambo4(3)
'ReDim ambo5(2)
ambo1(1) = numero
'ambo2(1) = numero
ambo1(3) = Fuori90(numero + 30)
'ambo3(1) = numero
ambo1(4) = Fuori90(numero + 60)
ambo2(1) = numero
ambo2(2) = Fuori90(numero + 1)
'ambo5(2) = numero
ambo2(3) = Fuori90(numero - 1)
ambo3(1) = Vert(numero)
ambo3(3) = Fuori90(numero + 1)
'ambo5(2) = numero
ambo3(2) = Fuori90(numero - 1)
ambo4(1) = Vert(numero)
ambo4(3) = Fuori90(numero + 30)
'ambo3(1) = numero
ambo4(2) = Fuori90(numero + 60)
Call ImpostaGiocataDL(1,ambo1,1,qt)
Call ImpostaGiocataDL(2,ambo2,1,qt)
Call ImpostaGiocataDL(3,ambo3,1,qt)
Call ImpostaGiocataDL(4,ambo4,1,qt)
'Call ImpostaGiocataDL(5,ambo5,1,qt)
Call GiocaDL(IdEstrbase)
Call ScriviResocontoDL
End Subkeeper
Advanced Member >PLATINUM PLUS<
script la 20
Codice:
Option ExplicitDim collPresenze
Class clsFormazione
Public nFre
Public nRit
Public nRitMax
Public aNumeri(90)
Private Sub Class_Initialize
Dim k
For k = 1 To 90
aNumeri(k) = False
Next
nFre = 0
nRit = 0
nRitMax = 0
End Sub
Function GetNumeri
Dim k,s
s = ""
For k = 1 To 90
If aNumeri(k) Then s = s & Format2(k) & "."
Next
If s <> "" Then s = Left(s,Len(s) - 1)
GetNumeri = s
End Function
End Class
Sub Main
Dim nEstrInizio,nEstrFine
Dim DataIni,DataFin
Dim FasciaOrariaIni,FasciaOrariaFin
Dim sOraIni,sOraFin
Dim quantitaFrz
Dim nClasse
Dim nSorte
Dim nEstrEsam,nEstrValide,nEstrNonValide
Call ImpostaArchivio10ELotto(2)
ReDim aNumBase(0)
If ChiediNumeri(aNumBase) Then
If ChiediDataInizioFine(DataIni,DataFin,10) Then
If ChiediFasciaInizioFine(FasciaOrariaIni,FasciaOrariaFin,sOraIni,sOraFin) Then
If ChiediClasse(nClasse) Then
If ChiediSorte(nSorte) Then
quantitaFrz = Int(InputBox("Inserire la quantità di formazioni da visulizzare da 1 a " & Combinazioni(UBound(aNumBase),nClasse),,10))
If quantitaFrz > 0 Then
nEstrInizio = DataEstrToIdEstrDL(Day(DataIni),Month(DataIni),Year(DataIni),1)
nEstrFine = DataEstrToIdEstrDL(Day(DataFin),Month(DataFin),Year(DataFin),1)
If AlimentaCollFrz(aNumBase,nClasse) Then
If IsRangeValido(nEstrInizio,nEstrFine) Then
Call EseguiStatistica(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,nClasse,nEstrEsam,nEstrValide,nEstrNonValide,nSorte)
Call ScriviParametriRicerca(DataIni,DataFin,sOraIni,sOraFin,nEstrEsam,nEstrValide,nEstrNonValide,quantitaFrz,nClasse,aNumBase,nSorte)
Call MostraFormazioniPiuFre(quantitaFrz)
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Sub ScriviParametriRicerca(DataI,DataF,OraI,OraF,EstrEsam,Valide,NonValide,QuantitaFrz,nClasse,aNumBase,nSorte)
Call Scrivi("Numeri in gioco : " & StringaNumeri(aNumBase))
Call Scrivi("Statistica delle prime " & QuantitaFrz & " formazioni piu frequenti sviluppate in " & NomeSorte(nClasse) & " per la sorte " & nSorte)
Call Scrivi
Call Scrivi("Data inizio : " & DataI)
Call Scrivi("Data fine : " & DataF)
Call Scrivi("Range Orario : " & OraI & "/" & OraF)
Call Scrivi("Estrazioni nel range : " & EstrEsam & " (Valide : " & Valide & "; NonValide : " & NonValide & ")")
Call Scrivi
End Sub
Sub MostraFormazioniPiuFre(Quantita)
Dim clsFrz
Dim k,y
Dim idFrz
ReDim aIdFrzScelte(Quantita,1)
For Each clsFrz In collPresenze
idFrz = idFrz + 1
For k = 1 To Quantita
If clsFrz.nFre >= aIdFrzScelte(k,0) Then
For y = Quantita To(k + 1) Step - 1
aIdFrzScelte(y,0) = aIdFrzScelte(y - 1,0)
aIdFrzScelte(y,1) = aIdFrzScelte(y - 1,1)
Next
aIdFrzScelte(k,0) = clsFrz.nFre
aIdFrzScelte(k,1) = idFrz
Exit For
End If
Next
Next
ReDim aV(4)
aV(1) = "Formazione"
aV(2) = "Frequenza"
aV(3) = "Ritardo"
aV(4) = "Ritardo max"
InitTabella(aV)
For k = 1 To Quantita
If k <= collPresenze.count Then
Set clsFrz = collPresenze(aIdFrzScelte(k,1))
aV(1) = clsFrz.GetNumeri
aV(2) = clsFrz.nFre
aV(3) = clsFrz.nRit
aV(4) = clsFrz.nRitMax
Call AddRigaTabella(aV)
End If
Next
Call CreaTabella
End Sub
Sub EseguiStatistica(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,nClasse,nEstrEsaminateTot,nEstrValide,nEstrNonValide,nSorte)
Dim k,f,idEstr
Dim clsFrz
Dim p,e,nFatte
nEstrEsaminateTot = 0
nEstrValide = 0
nEstrNonValide = 0
For Each clsFrz In collPresenze
For k = nEstrInizio To nEstrFine Step 228
Call Messaggio("Estrazione : " & k)
For f = FasciaOrariaIni To FasciaOrariaFin
idEstr =(k - 1) + f
ReDim aNum(0)
Call GetEstrazioneCompletaDL(idEstr,aNum)
If aNum(1) > 0 Then
p = 0
For e = 1 To 20
If clsFrz.aNumeri(aNum(e)) Then
p = p + 1
End If
Next
If p >= nSorte Then
clsFrz.nRit = 0
clsFrz.nFre = clsFrz.nFre + 1
Else
clsFrz.nRit = clsFrz.nRit + 1
If clsFrz.nRit > clsFrz.nRitMax Then
clsFrz.nRitMax = clsFrz.nRit
End If
End If
If nFatte = 0 Then nEstrValide = nEstrValide + 1
Else
If nFatte = 0 Then nEstrNonValide = nEstrNonValide + 1
End If
If nFatte = 0 Then nEstrEsaminateTot = nEstrEsaminateTot + 1
If ScriptInterrotto Then Exit For
Next
Next
nFatte = nFatte + 1
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,collPresenze.count,nFatte)
Next
End Sub
Function GetItemInColl(sKey,cls)
On Error Resume Next
Set cls = collPresenze(sKey)
If Err.number <> 0 Then
Set cls = Nothing
GetItemInColl = False
Else
GetItemInColl = True
End If
End Function
Function IsRangeValido(Inizio,Fine)
Dim b
b = False
If Inizio > 0 And Fine > 0 Then
If Fine >= Inizio Then
b = True
End If
End If
If Not b Then
MsgBox "Range non valido , probabilemente mancano le estrazioni nella base dati " & _
vbCrLf & "EstrazioneIni : " & Inizio & vbCrLf & "EstrazioneFine : " & Fine
End If
IsRangeValido = b
End Function
Function ChiediDataInizioFine(DataI,DataF,GiorniDaAnalizzare)
If Not IsDate(DataF) Then DataF = FormattaStringa(Now,"dd/mm/yyyy")
If Not IsDate(DataI) Then DataI = FormattaStringa(DateAdd("d",-(GiorniDaAnalizzare),DataF),"dd/mm/yyyy")
DataI = InputBox("Inserire data inizio ricerca in formato GG/MM/AAAA","Data inizio",DataI)
DataF = InputBox("Inserire data fine ricerca in formato GG/MM/AAAA","Data fine",DataF)
If IsDate(DataI) And IsDate(DataF) Then
If DateDiff("d",DataI,DataF) >= 0 Then
ChiediDataInizioFine = True
Else
MsgBox "La data FINE deve essere maggiore od uguale alla data INIZIO"
End If
Else
MsgBox "Date inserite non valide"
End If
End Function
Function ChiediFasciaInizioFine(FasciaI,FasciaF,sOraIni,sOraFin)
FasciaI = ChiediFasciaOraria("Fascia oraria inizio",sOraIni)
FasciaF = ChiediFasciaOraria("Fascia oraria fine",sOraFin)
If FasciaI > 0 And FasciaF > 0 Then
If FasciaF >= FasciaI Then
ChiediFasciaInizioFine = True
Else
MsgBox "La fascia oraria Fine deve essere maggiore della fascia oraria INIZIO"
End If
Else
MsgBox "Fascie orarie non valide"
End If
End Function
Function ChiediFasciaOraria(sCaption,sRetOra)
On Error Resume Next
Dim aLista(228)
Dim h,m
Dim i
For h = 5 To 23
For m = 5 To 60 Step 5
i = i + 1
If m = 60 Then
aLista(i) = Format2(h + 1) & ":00"
Else
aLista(i) = Format2(h) & ":" & Format2(m)
End If
Next
Next
aLista(i) = "23:59"
i = ScegliOpzioneMenu(aLista,- 1,sCaption)
sRetOra = aLista(i)
ChiediFasciaOraria = i
End Function
Function ChiediClasse(nClasse)
ReDim aVoci(10)
Dim k
For k = 1 To 10
aVoci(k) = "Classe " & k
Next
nClasse = ScegliOpzioneMenu(aVoci,- 1,"Sviluppa combinazioni di classe")
If nClasse > 0 Then
ChiediClasse = True
Else
MsgBox "Classe formazione non valida"
End If
End Function
Function ChiediSorte(nSorte)
ReDim aVoci(10)
Dim k
For k = 1 To 10
aVoci(k) = "Sorte " & k
Next
nSorte = ScegliOpzioneMenu(aVoci,- 1,"Scegli sorte")
If nSorte > 0 Then
ChiediSorte = True
Else
MsgBox "Classe formazione non valida"
End If
End Function
Function ChiediNumeri(aNumBase)
Dim s,i,k
s = InputBox("Inserire da 1 a 20 numeri separandoli col punto <.>",,"1.2.3.4.5.6.7.8")
ReDim av(0)
Call SplitByChar(s,".",av)
ReDim aB(90)
For k = 0 To UBound(av)
If Int(av(k)) > 0 And Int(av(k)) <= 90 Then
aB(Int(av(k))) = True
End If
Next
For k = 1 To 90
If aB(k) Then
i = i + 1
ReDim Preserve aNumBase(i)
aNumBase(i) = k
End If
Next
If i > 0 And i <= 20 Then
ChiediNumeri = True
Else
MsgBox "Si devono selezionare da 1 a 20 numeri",vbExclamation
End If
End Function
Function AlimentaCollFrz(aNumBase,nClasse)
Dim k,e,s
ReDim aNumeri(UBound(aNumBase))
Dim aColonne
Dim clsFrz
Set collPresenze = GetNewCollection
If nClasse <= UBound(aNumBase) Then
Call Messaggio("Sviluppo combinazioni di classe " & nClasse)
For k = 1 To UBound(aNumBase)
aNumeri(k) = aNumBase(k)
Next
' sviluppo il sistema valorizzando le colonne sviluppate
aColonne = SviluppoIntegrale(aNumeri,nClasse)
' scrivo le colonne in output
For k = 1 To UBound(aColonne)
Set clsFrz = New clsFormazione
' ciclo per leggere la colonna k
For e = 1 To nClasse
clsFrz.aNumeri(aColonne(k,e)) = True
Next
collPresenze.add clsFrz
Next
AlimentaCollFrz = True
Else
MsgBox "La classe è maggiore dei numeri in gioco"
AlimentaCollFrz = False
End If
End Functionkeeper
Advanced Member >PLATINUM PLUS<
script di mike58 sui cicli
Codice:
Sub Main()' presenze su cicli di 9 estrazioni"
ImpostaArchivio10ELotto(2)
Scrivi " Statistica rilevamento Numeri per il 10 e lotto 5 minuti ",1,- 1,6
Scrivi String(85,"=")
Dim ruote(1)
Dim nm(1)
periodo = CInt(InputBox("lunghezza ciclo ",,10))
zero = CInt(InputBox("ultimo ciclo lunghezza, ? ",,5))
ultima = InputBox("Estrazione ultima",,EstrazioniArchivioDL)
pres = CInt(InputBox("N° di presenza nel ciclo ",,2))
pres1 = CInt(InputBox("N° presenze ultimo ciclo ",,0))
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica per ciclo 10 e lotto - creato by Mike58 - ",1
Scrivi " Correlazione e presenze dei singoli numeri in periodi di " & periodo & " estrazioni"
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Ultimo ciclo di " & zero & " estrazioni ... presenza ... zero "
Scrivi "-------------------------------------------------------------------------"
fine = EstrazioniArchivioDL
Inizio = EstrazioniArchivioDL - 200
dal1 =(ultima + 1) - zero
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
dal6 = dal5 - periodo
al6 = dal5 - 1
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
casi = casi + 1
Scrivi "_________________________________________________ __________________" & " ( caso n°.) " & casi
Scrivi " Periodo dal...al..." & dal1 & "/" & al1 & " " & DataEstrazione(ultima) & " Presenze del nr.." & a
Scrivi " Periodo dal...al..." & dal2 & "/" & al2 & " " & DataEstrazione(dal1) & " Presenze del nr.." & b
Scrivi " Periodo dal...al..." & dal3 & "/" & al3 & " " & DataEstrazione(dal2) & " Presenze del nr.." & c
Scrivi " Periodo dal...al..." & dal4 & "/" & al4 & " " & DataEstrazione(dal3) & " Presenze del nr.." & d
Scrivi " Periodo dal...al..." & dal5 & "/" & al5 & " " & DataEstrazione(dal4) & " Presenze del nr.." & e
Scrivi " Periodo dal...al..." & dal6 & "/" & al6 & " " & DataEstrazione(dal5) & " Presenze del nr.." & f
fre = a + b + c + d + e + f
Scrivi""
ColoreTesto 2
Scrivi " ----- numero " & nm(1) & " ritardo attuale " & rit & " --- presenza" & " ---> " & fre,2
ColoreTesto 0
End If
End If
End If
End If
End If
End If
Next
ColoreTesto 1
Scrivi "_________________________________________________ __________________________________________________ ___",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati " & " numeri totali " & casi & " .... [cicli di ] : " & periodo & " estraz.",- 1,6,3
Scrivi "_________________________________________________ __________________________________________________ ___",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
Scrivi " ----- numero " & Format2(nm(1)) & " Ritardo attuale " & Format2(rit) & " --- presenza nei cicli " & " ---> " & Format2(fre) & " .... [" & a & "." & b & "." & c & "." & d & "." & e & "." & f & "]",2
End If
End If
End If
End If
End If
End If
Next
Scrivi "_________________________________________________ __________________________________________________ __",2
End Subkeeper
Advanced Member >PLATINUM PLUS<
script sulle distanze
Codice:
Sub Main''''metodo 10 e lotto
'--------------------------------------------------------
Dim num(2)
Dim nm(20)
Dim dis(89)
ImpostaArchivio10ELotto(2)
fin = EstrazioniArchivioDL
Storia = InputBox("estrazione iniziale..",,fin)
qe = InputBox("quante estrazioni analizzare..",,750)
p = InputBox("Posizione fissa..",,1)
qt = CInt(InputBox("quanti Distanze vuoi..",,10))
Ini = storia - Int(qe)
For Ini = Ini + 1 To fin
idestr = Ini
'''scrivi ini
'''carica schiera 20 numeri estratti
For h = 2 To 20
di = EstrattoDL(idestr - 1,h) - EstrattoDL(idestr - 1,p)
dis(di) = dis(di) + 1
Next
Next
k = 201
For kk = 1 To 20
K = k - 1
If ct <= qt Then
For t = 1 To 89
If dis(t) = K Then
Scrivi "Distanza " & Format2(t) & " " & dis(t)
ct = ct + 1
End If
Next
End If
Next
End Subkeeper
Advanced Member >PLATINUM PLUS<
frequenza relativa
Codice:
Sub Main() ''''metodo 10 e lotto frequenza dei 90 numeri
'-------------------------------------------------------------------------------------------------------------------------------
Dim nm(20)
Dim fre(90)
Dim Totest,tq,kk,di
nf = CInt(InputBox("Archivio 10eLotto = 1 1oeLotto5m = 2 ",,1))
lim = InputBox("Evidenzia Numeri con Frequenza media < 4.5 (metti virgola) ",,"4.5")
If nf = 2 Then
rt = InputBox("Quante estrazioni prima dell'ultima in archivio? ",,8000)
End If
ImpostaArchivio10ELotto(nf)
If nf = 1 Then
fin = EstrazioniArchivioDL
Ini = 8075
Else
fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - Int(rt)
End If
If nf = 1 Then Scrivi " Calcolo Media Sortite dei 90 numeri al 10eLOTTO Serale"
If nf = 2 Then Scrivi " Calcolo Media Sortite dei 90 numeri al 10eLOTTO 5 Minuti"
Scrivi " Dall'estrazione n. al n. " & Ini & " - " & fin
Totest = fin - Ini
For Ini = Ini + 1 To fin
idestr = Ini
'''carica schiera con 20 numeri estratti x calcolo frequenza
For h = 1 To 20
di = EstrattoDL(idestr,h)
fre(di) = fre(di) + 1
Next
Next
Scrivi Totest & "-" & Ini & "-" & fin
For kk = 1 To 90
tq = Totest / fre(kk)
Scrivi " nr. " & Format2(kk) & " media = " & Round(tq,3) & " uscite " & Format2(fre(kk))
If Round(tq,1) < Round(lim,1) Then
riepil = riepil & Format2(kk) & " "
End If
Next
ColoreTesto(2)
Scrivi " Riepilogo numeri con freq.media < " & lim,1
Scrivi riepil
End Subkeeper
Advanced Member >PLATINUM PLUS<
da un metodo di ib63 ed elaborato da vari scripter
Codice:
Sub MainImpostaArchivio10ELotto(2)
Dim a(20)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - 3000
'Scrivi NomeRuota(Ru(1)),1,0
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & EstrazioniArchivioDL(),1,0,6
Scrivi" ****** Per 10 e lotto 5min ******** ",1,0,3
Scrivi " totali estrazioni " &(fin - Ini) & " ",1,- 1,4
Scrivi
a(01) = "11-19-22-29"
a(02) = "22-29-33-39"
a(03) = "33-39-44-49"
a(04) = "44-49-55-59"
a(05) = "55-59-66-69"
a(06) = "66-69-77-79"
a(07) = "77-79-88-89"
a(08) = "88-89-11-19"
' a(09) = "09-35-80"
' a(10) = "09-49-80"
' a(11) = "15-34-90"
' a(12) = "15-32-90"
' a(13) = "14-15-90"
' a(14) = "14-32-34"
' a(15) = "15-67-90"
' a(16) = "14-15-32"
' a(17) = "14-32-90"
' a(18) = "15-87-90"
' a(19) = "05-35-49"
' a(20) = "15-32-34"
For n = 1 To 8 '''''''''''''''''''''''''il 20 è riferito alla quantità di formazioni da ricercare
Nu = Split("0-" & a(n),"-")
SF = SerieFreqDL(Ini,Fin,Nu,2)
Tot = Tot + SF
SRA = SerieRitardoDL(Ini,fin,nu,2)
''''''''''''''''''''''''''
SFT = SerieFreqDL(Ini,Fin,Nu,3)
TotT = TotT + SFT
SRT = SerieRitardoDL(Ini,fin,nu,3)
''''''''''''''''''''''''''
SFQ = SerieFreqDL(Ini,Fin,Nu,4)
TotQ = TotT + SFQ
SRQ = SerieRitardoDL(Ini,fin,nu,4)
ColoreTesto 1
Scrivi StringaNumeri(Nu) & " - " & " Pres. Ambo " & Format2(SF) & " - Rit. Ambo : " & Format2(srA) & " Pres. Terno " & Format2(SFT) & " - Rit. Terno : " & Format2(srT) & " Pres. Quaterna " & Format2(SFQ) & " - Rit. Quaterna : " & Format2(srQ),1
ColoreTesto 0
ImpostaGiocataDL n,nu,1,72
Next
Scrivi
Scrivi"----------------------------------- Dettaglio ultime 10 giocate ---------------------------------"
Call GiocaDL(fin - 72)
ScriviResoconto(True)
TestoInBandaPassante("listato originale joe91 - mike58 modificato da keeper > "),1,3,0
End Subkeeper
Advanced Member >PLATINUM PLUS<
una mia idea sviluppata da rubino
Codice:
Sub Main() ImpostaArchivio10ELotto(2)
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(2)
Dim nm(40)
Dim lun(90)
Dim anm(90)
fin = EstrazioniArchivioDL
storia = InputBox("Estrazioni Iniziale..",,fin)
lis = InputBox("verifica garanzia 4=Quaterna 5=Cinquina 6=Sestina 7=Settina 8=Ottina 9=Novina 10=10 punti 11=11 punti 12=12 punti 13=13punti",,6)
s1 = InputBox("esamina solo presenze = 2 ",,2)
s2 = InputBox("esamina distanza (x) tra 2 estratti",,1)
s3 = InputBox("vuoi aggiungere fissi una 1 decina ? ",,70)
s4 = InputBox("Verifica in n.colpi..",,3)
ColoreTesto 2
Scrivi " Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al...." & Storia & "/" & DataEstrazioneDL(storia) & " - " & fin & "/" & DataEstrazioneDL(fin)
Scrivi " Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi (script Keep)"
Scrivi "_________________________________________________________________________________________________________________________________"
Scrivi
ColoreTesto 0
Ini = storia - 1
For Ini = Ini + 1 To fin
idestr = Ini
numeria = ""
numerib = ""
ok = 0
lunghetta = ""
z = z + 1
'''azzera schiere
For j = 1 To 90
anm(j) = 0
lun(j) = 0
Next
'''carica schiera con 20 numeri estratti
For h = 1 To 20
numeria = numeria & Format2(EstrattoDL(idestr - 1,h)) & " "
numerib = numerib & Format2(EstrattoDL(idestr,h)) & " "
Next
ColoreTesto 0
Scrivi "____________________________________________________________________________________________________"
Scrivi GetInfoEstrazioneDL(idestr - 1) & "...Estratti..." & numeria
Scrivi GetInfoEstrazioneDL(idestr) & "...Estratti..." & numeriB
ColoreTesto 2
''''----------------------------------------------------------------------------------------------------
num(1) = 0
num(2) = 0
''''''vede se presenze = 2 in 2 concorsi
For h = 1 To 20
num(1) = EstrattoDL(idestr,h)
pres = SerieFreqDL(idestr - 1,idestr,num,1)
If pres = 2 Then
ok = ok + 1
lun(ok) = Format2(num(1))
End If
Next
''''----------------------------------------------------------------------------------------------------
''''esamina distanza (x) tra 2 estratti
For h = 1 To 19
h1 = h
For h1 = h1 + 1 To 20
dis = EstrattoDL(idestr,h1) - EstrattoDL(idestr,h)
If Int(s2) = dis Then
num(1) = EstrattoDL(idestr,h)
num(2) = EstrattoDL(idestr,h1)
anm(num(1)) = Format2(num(1))
anm(num(2)) = Format2(num(2))
ColoreTesto 1
Scrivi "Rilevato...." & idestr & " " & DataEstrazioneDL(idestr) & "....Estratti aventi Distanza richiesta..." & dis & " ...... " & Format2(num(1)) & " - " & Format2(num(2))
End If
Next
Next
For j = 1 To 90
If anm(j) > 0 Then
ok = ok + 1
lun(ok) = anm(j)
End If
Next
''''------facoltativo a scelta--------------------------------------------------------------------------
'''aggiungere una decina come fissi
If s3 > 0 Then
de = s3
For x = 1 To 10
ok = ok + 1
lun(ok) = de
de = de + 1
Next
End If
''''----------------------------------------------------------------------------------------------------
EliminaRipetuti lun
ctr = 0
For j = 1 To 90
If lun(j) > 0 Then
lunghetta = lunghetta & Format2(lun(j)) & " "
ctr = ctr + 1
End If
Next
ColoreTesto 2
Scrivi "...numeri.in gioco..." & ctr & "......dal........" & idestr + 1 & "..." & lunghetta
ColoreTesto 0
If idestr <= fin - 1 Then
If ok >= 1 Then
If VerificaEsitoDL(lun,idestr + 1,lis,Int(s4),RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
combin1 = combin1 + 1
ColoreTesto 0
If RetEsito = "Dieci" Then
Diecitotali = Diecitotali + 1
End If
If RetEsito = "Nove" Then
Novetotali = Novetotali + 1
End If
If RetEsito = "Otto" Then
Ottototali = Ottototali + 1
End If
If RetEsito = "Sette" Then
Settetotali = Settetotali + 1
End If
If RetEsito = "Sestina" Then
seitotali = seitotali + 1
End If
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
End If
End If
End If
Next
ColoreTesto 0
Scrivi
Scrivi " R_I_E_P_I_L_O_G_O_ "
Scrivi "Ambata totali realizzati..." & Estrattototali
Scrivi "Ambi totali realizzati..." & ambitotali
Scrivi "Terni totali realizzati..." & ternitotali
Scrivi "Quaterne totali realizzati..." & Quatetotali
Scrivi "Cinquine totali realizzati..." & Cinquitotali
Scrivi "6 Punti totali realizzati..." & Seitotali
Scrivi "7 Punti totali realizzati..." & Settetotali
Scrivi "8 Punti totali realizzati..." & Ottototali
Scrivi "9 Punti totali realizzati..." & Novetotali
Scrivi "10 Punti totali realizzati..." & Diecitotali
Scrivi "concorsi esaminati totale.." & z
Scrivi "Vincenti Combinazione ....." & combin1
End Subkeeper
Advanced Member >PLATINUM PLUS<
Codice:
Sub Main() ' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
''''' nome script sistemaKEEPER10LOTTO5M
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(2)
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
v = InputBox("somma nr.consecutivi 2,3,4,5",,3)
lis = InputBox("garanzia Terno=3, Quaterna=4, Cinquina=5",,3)
k = InputBox("Verifica esito n.colpi..",,20)
acc = InputBox("Accorpa giocate Si-No ",,"S")
If lis < 3 Then
MsgBox("valore (Garanzia) errato, deve essere >= 3")
StopProcess
End If
fin = storia
Ini = storia - z
ColoreTesto 1
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Sistemi Per il 10 E LOTTO 5 minuti - by Rubino - sistemaKEEPER10LOTTO5M "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Accorpa giocate.." & acc
Scrivi "Verifica esito : segnala punteggio >= di..." & lis
Scrivi "Verifica esito : n.colpo..." & k
Scrivi
ColoreTesto 0
Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
Scrivi "______________________________________________________________________________________________________________________________________________________"
For x = 1 To z
idestr = storia - x
riga = ""
For t = 1 To 20
asom(t) = ""
Next
For yy = 1 To 20
riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
num(yy) = Format2(EstrattoDL(idestr,yy))
Next
If v = 2 Then
For b = 1 To 19
c = Fuori90(Int(num(b)) + Int(num(b + 1)))
asom(b) = asom(b) & CLng(c)
Next
lim = 19
End If
If v = 3 Then
For b = 1 To 18
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
asom(b) = asom(b) & CLng(c)
Next
lim = 18
End If
If v = 4 Then
For b = 1 To 17
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
asom(b) = asom(b) & CLng(c)
Next
lim = 17
End If
If v = 5 Then
For b = 1 To 16
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
asom(b) = asom(b) & CLng(c)
Next
lim = 16
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0)
Scrivi idestr & " " & riga & "......................." & rsomme
''''riepilogo terni con somme uguali
For r = 1 To lim
For r2 = r + 1 To lim + 1
If asom(r) = asom(r2) Then
t1 = Format2(EstrattoDL(idestr,r))
t2 = Format2(EstrattoDL(idestr,r + 1))
If v = 3 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
End If
If v = 4 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
End If
If v = 5 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
t5 = Format2(EstrattoDL(idestr,r + 4))
End If
u1 = Format2(EstrattoDL(idestr,r2))
u2 = Format2(EstrattoDL(idestr,r2 + 1))
If v = 3 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
End If
If v = 4 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
End If
If v = 5 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
u5 = Format2(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1)
Scrivi "------ somma.." & Format2(asom(r)) & " ............" & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ReDim tnm(24)
For j = 1 To 24
tnm(j) = 0
Next
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
tnm(4) = t4
tnm(5) = t5
''''''' accorpa giocate in una unica
If acc = "S" Then
tnm(6) = u1
tnm(7) = u2
tnm(8) = u3
tnm(9) = u4
tnm(10) = u5
'''''variante incremento punteggio
tnm(11) = 67
tnm(12) = 78
tnm(13) = 87
tnm(14) = 76
tnm(15) = 66
tnm(16) = 75
tnm(17) = 88
tnm(18) = 01
tnm(19) = 11
tnm(20) = 17
tnm(21) = 32
tnm(22) = 35
tnm(23) = 73
tnm(24) = 75
EliminaRipetuti tnm
completa = ""
ctr = 0
For j = 1 To 24
If tnm(j) > 0 Then
completa = completa & Format2(tnm(j)) & " "
ctr = ctr + 1
End If
Next
ColoreTesto 0
Scrivi " Previsione completa con aggiunta di fissi tot.n. " & ctr & " ----serie in gioco----> " & completa
End If
''''mette in sviluppo sistema
g = 6
risultati = Getridotto(completa,g,ctr,idestr,lis,k)
'''accumula punteggi del sistema
ReDim aV2(0)
Call SplitByChar(risultati,",",aV2) ' scompongo la decina
If Int(aV2(0)) > 0 Then die = die + Int(aV2(0))
If Int(aV2(1)) > 0 Then nov = nov + Int(aV2(1))
If Int(aV2(2)) > 0 Then ott = ott + Int(aV2(2))
If Int(aV2(3)) > 0 Then Sett = Sett + Int(aV2(3))
If Int(aV2(4)) > 0 Then sei = sei + Int(aV2(4))
If Int(aV2(5)) > 0 Then cinq = cinq + Int(aV2(5))
If Int(aV2(6)) > 0 Then quat = quat + Int(aV2(6))
If Int(aV2(7)) > 0 Then tre = tre + Int(aV2(7))
est = RetIdEstr
estrazione = ""
For jj = 1 To 20
estrazione = estrazione & Format2(EstrattoDL(est,jj)) & " "
Next
ColoreTesto 0
Scrivi est & "/" & DataEstrazioneDL(est) & "........................................" & Estrazione
End If
Next
Next
Next
ColoreTesto 0
Scrivi " R_I_E_P_I_L_O_G_O________________"
Scrivi "Terni totali realizzati..." & tre
Scrivi "Quaterne totali realizzati..." & Quat
Scrivi "Cinquine totali realizzati..." & Cinq
Scrivi "6 Punti totali realizzati..." & Sei
Scrivi "7 Punti totali realizzati..." & Sett
Scrivi "8 Punti totali realizzati..." & Ott
Scrivi "9 Punti totali realizzati..." & Nov
Scrivi "10 Punti totali realizzati..." & Die
Scrivi "concorsi esaminati totale.." & z
End Sub
''''-------------------------------------------------------------------------------------------------------------------------
Function Getridotto(completa,g,ctr,idestr,lis,k)
'leggo file(tutti i record dello sviluppo ridotto richiesto)
Dim namefile
Dim sFile
ReDim aRighe(0)
ReDim asvil(0)
ReDim numeri(90)
namefile = "C:\Temp\SVILUPPOBASE\n19g6f0.txt"
sFile = namefile
LeggiRigheFileDiTesto sFile,asvil
'ricerca last record e qta tot.record.presenti nel file
xbas = UBound(asvil)
''''' carica schiera con numeri da metodo
jj = 1
For j = 1 To ctr
If Mid(completa,jj,2) <> " " Then
numeri(j) = Mid(completa,jj,2)
End If
jj = jj + 3
Next
For U = 0 To xbas
'scompongo la decina
Dim d
ReDim Nums(19)
ReDim aV(0)
Call SplitByChar(asvil(U),",",aV) ' scompongo la decina
Nums(1) = numeri(aV(0))
Nums(2) = numeri(aV(1))
Nums(3) = numeri(aV(2))
Nums(4) = numeri(aV(3))
Nums(5) = numeri(aV(4))
Nums(6) = numeri(aV(5))
Nums(7) = numeri(aV(6))
Nums(8) = numeri(aV(7))
Nums(9) = numeri(aV(8))
Nums(10) = numeri(aV(9))
nus = Nums(1) & " " & Nums(2) & " " & Nums(3) & " " & Nums(4) & " " & Nums(5) & " " & Nums(6) & " " & Nums(7) & " " & Nums(8) & " " & Nums(9) & " " & Nums(10)
Scrivi nus
If idestr + 1 < EstrazioniArchivioDL Then
If VerificaEsitoDL(Nums,idestr + 1,lis,k,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
combin2 = combin2 + 1
ColoreTesto 0
If RetEsito = "Dieci" Then
Diecitotali = Diecitotali + 1
End If
If RetEsito = "Nove" Then
Novetotali = Novetotali + 1
End If
If RetEsito = "Otto" Then
Ottototali = Ottototali + 1
End If
If RetEsito = "Sette" Then
Settetotali = Settetotali + 1
End If
If RetEsito = "Sestina" Then
seitotali = seitotali + 1
End If
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
If RetEsito = "Estratto" Then
Estrattototali = Estrattototali + 1
End If
Else
Call Scrivi("Negativo")
End If
End If
Next
If diecitotali = "" Then diecitotali = 0
If novetotali = "" Then novetotali = 0
If ottototali = "" Then ottototali = 0
If settetotali = "" Then settetotali = 0
If seitotali = "" Then seitotali = 0
If cinquitotali = "" Then cinquitotali = 0
If quatetotali = "" Then quatetotali = 0
If ternitotali = "" Then ternitotali = 0
risultati = diecitotali & "," & novetotali & "," & ottototali & "," & Settetotali & "," & seitotali & "," & cinquitotali & "," & quatetotali & "," & ternitotali
Getridotto = risultati
End Function
''''-------------------------------------------------------------------------------------------------------------------------keeper
Advanced Member >PLATINUM PLUS<
script di mike frequenti e frequenza
Codice:
Option ExplicitSub Main
Dim Inizio,Fine,idEstr
Dim k,EntroColpi,e,ee,c
Dim nBase,nUscito
Dim nUscite
ReDim aPresenze(90,90)
Dim RetRit,RetRitMax,RetFreq
Call ImpostaArchivio10ELotto(2)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioniArchivioDL - 300
Fine = EstrazioniArchivioDL
For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
ReDim aTitoli(6)
aTitoli(1) = " Numero Spia "
aTitoli(2) = " Numero Piu Freq "
aTitoli(3) = " Uscite "
aTitoli(4) = " Ritardo "
aTitoli(5) = " RitardoMax "
aTitoli(6) = " Frequenza "
Call InitTabella(aTitoli,vbYellow)
For nBase = 1 To 90
ReDim aValori(6)
aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) = nUscite
ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
aValori(4) = RetRit
aValori(5) = RetRitMax
aValori(6) = RetFreq
Call AddRigaTabella(aValori)
Call SetColoreCella(6,vbMagenta)' colora la cella
Call SetColoreCella(2,vbGreen)' colora la cella
Next
Call CreaTabella(6)' serve anche per stabilire l'ordinamento della colonna
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
Dim k
ReDim aOrd(90,2)
For k = 1 To 90
aOrd(k,1) = k
aOrd(k,2) = aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)
GetNumeroPiuFreq = aOrd(1,2)
nUscite = aOrd(1,2)
End Functionkeeper
Advanced Member >PLATINUM PLUS<
mia idea sviluppato da luigib
Codice:
Option ExplicitSub Main
Dim IdEstr,IdEstrBase,Colpi,nEstrTot,nPresenti,nQuantitaResidua
Dim k,i
Call ImpostaArchivio10ELotto(2)
nEstrTot = EstrazioniArchivioDL
IdEstrBase = CInt(InputBox("Immettere il numero di estrazione da 1 a " & nEstrTot,,1))
IdEstr = IdEstrBase
nQuantitaResidua = CInt(InputBox("Quanti numeri devono rimanere (valore maggiore di 1)?",,3))
If nQuantitaResidua <= 1 Then Exit Sub
ReDim aB(90)
For k = 1 To 20
aB(EstrattoDL(IdEstr,k)) = True
Next
nPresenti = 20
Do
IdEstr = IdEstr + 1
Colpi = Colpi + 1
If IdEstr <= nEstrTot Then
For k = 1 To 20
If aB(EstrattoDL(IdEstr,k)) Then
aB(EstrattoDL(IdEstr,k)) = False
nPresenti = nPresenti - 1
End If
Next
Else
Exit Do
End If
Loop While nPresenti > nQuantitaResidua
If nPresenti >= 2 Then
ReDim aN(nPresenti)
For k = 1 To 90
If aB(k) Then
i = i + 1
aN(i) = k
End If
Next
Call Scrivi("I numeri residui dopo colpi " & Colpi & " sono " & nPresenti)
Call Scrivi("L'estrazione di partenza è " & IdEstrBase)
Call Scrivi("I numeri residui sono " & StringaNumeri(aN))
Call Scrivi
ReDim aCol(0)
Call InitSviluppoIntegrale(aN,3)
i = 0
Do While GetCombSviluppo(aCol)
i = i + 1
Call ImpostaGiocataDL(i,aCol,1,50,3)
Loop
Call GiocaDL(IdEstrBase + Colpi)
Call ScriviResocontoDL
Else
Call Scrivi("I numeri residui dopo colpi " & Colpi & " sono " & nPresenti)
End If
End Subkeeper
Advanced Member >PLATINUM PLUS<
da una metologia del grande vidoque e sviluppato da rubino il magnanimo
Codice:
Sub Main() ImpostaArchivio10ELotto(2)
Dim posta(3)
posta(1) = 1
posta(2) = 1
posta(3) = 1
''''prima parte determina 2 numeri frequenti della giornata o in 228 concorsi
dett = InputBox("Vuoi dettaglio dei frequenti della giornata?",,"N")
fine = InputBox("Estrazione finale della statistica ",,EstrazioneFin)
Iniz = fine - 227
Dim nfr(90,1)
For y = 1 To 90
nfr(y,0) = Format2(y)
nfr(y,1) = EstrattoFrequenzaDL(y,Iniz,fine)
nfrq = EstrattoFrequenzaDL(y,Iniz,fine)
Next
OrdinaMatrice nfr,- 2,1
If dett = "S" Then
Scrivi "fr NR"
For v = 1 To 90
Scrivi nfr(v,1) & " " & Format2(nfr(v,0))
Next
End If
''''seconda parte determina ambi frequenti che si abbinano ai 2 numeri frequenti precedenti
Dim freq1(8990,2)
Dim anum(10)
h = 2
ambata1 = nfr(1,0)
ambata2 = nfr(2,0)
qtfre = InputBox(" Quanti ambi più frequenti vuoi...",,2)
nco = InputBox("Verifica esiti n.colpi ",,13)
gar = InputBox("punteggio richiesto x verifica ",,2)
Iniz = EstrazioneIni
'''' fine = EstrazioneFin
ColoreTesto 0:Scrivi "_____________________________________________________________________________"
Scrivi " 10ELOTTO 5 Minuti 2 ambate frequenti e Ambi più frequenti "
Scrivi " By Rubino Metodologia di vidoque (2)"
Scrivi " Parametri richiesti:"
Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazioneDL(Iniz) & " / " & fine & " " & DataEstrazioneDL(fine)
Scrivi " Richiesti quantità Ambi frequenti uguale a...." & qtfre
ColoreTesto 1:Scrivi " Ambate... " & ambata1 & " - " & ambata2
ColoreTesto 0:Scrivi "_____________________________________________________________________________"
Scrivi "Nr. freq. RAquart RXquart "
''''calcola ambi più frequenti sulle 2 ruote
For x = 1 To 89
For y = x + 1 To 90
Call Messaggio("quartina con " & ambata1 & "-" & ambata2 & " ed ambo " & Format2(x) & "-" & Format2(y))
If x <> Int(ambata1) Or x <> Int(ambata2) Then
If y <> Int(ambata2) Or y <> Int(ambata2) Then
anum(1) = ambata1
anum(2) = ambata2
anum(3) = Format2(x)
anum(4) = Format2(y)
stofre = SerieFreqDL(Iniz,fine,anum,2)
ambo = ""
ambo = Format2(x) & Format2(y)
freq1(ambo,0) = ambo
freq1(ambo,1) = stofre
End If
End If
Next
Next
'''''''''' 1° ordina per ambi più frequenti o quartine per ambo più frequenti e scrivi
OrdinaMatrice freq1,- 1,1
ReDim Sing(1)
anum(1) = ambata1
anum(2) = ambata2
For yz = 1 To qtfre
' anum(3) = Left(freq1(yz,0),2)
' anum(4) = Right(freq1(yz,0),2)
abbinamenti = abbinamenti & Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & " - "
h = h + 1
anum(h) = Left(freq1(yz,0),2)
h = h + 1
anum(h) = Right(freq1(yz,0),2)
RAquart = RitardoCombinazioneDL(anum,2)
RXquart = SerieStoricoDL(iniz,fine,anum,2)
Scrivi Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & " freq." & freq1(yz,1) & " RA." & RAquart & " RX." & RXquart
Next
ColoreTesto 2:Scrivi "In gioco 2 ambate e (x) ambi + frequenti..." & Format2(ambata1) & " - " & Format2(ambata2) & " / " & abbinamenti
ColoreTesto 0:Scrivi "la frequenza è relativa alla quartina per ambo composta da 2 ambate e ambo tra i 4005"
EliminaRipetuti anum
Sing(1) = ambata1
ImpostaGiocataDL 1,Sing,1,nco,gar
Sing(1) = ambata2
ImpostaGiocataDL 2,Sing,1,nco,gar
ImpostaGiocataDL 3,anum,1,nco,gar
GiocaDL fine
End Subkeeper
Advanced Member >PLATINUM PLUS<
Codice:
Sub Main() ' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(2)
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
Dim n(20)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
co2 = InputBox("Verifica se già usciti in n.colpi precedenti..",,100)
lis2 = InputBox("Verifica quanti punti già sortiti in precedenza..",,3)
fin = storia
Ini = storia - z
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO 5 con verifica a ritroso "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
Scrivi "______________________________________________________________________________________________________________________________________________________"
For x = 1 To z
idestr = storia - x
riga = ""
For t = 1 To 20
asom(t) = ""
Next
For yy = 1 To 20
riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
num(yy) = Format2(EstrattoDL(idestr,yy))
Next
If v = 2 Then
For b = 1 To 19
c = Fuori90(Int(num(b)) + Int(num(b + 1)))
asom(b) = asom(b) & CLng(c)
Next
lim = 19
End If
If v = 3 Then
For b = 1 To 18
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
asom(b) = asom(b) & CLng(c)
Next
lim = 18
End If
If v = 4 Then
For b = 1 To 17
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
asom(b) = asom(b) & CLng(c)
Next
lim = 17
End If
If v = 5 Then
For b = 1 To 16
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
asom(b) = asom(b) & CLng(c)
Next
lim = 16
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0)
Scrivi idestr & " " & riga & "......................." & rsomme
''''riepilogo terni con somme uguali
For r = 1 To lim
For r2 = r + 1 To lim + 1
If asom(r) = asom(r2) Then
t1 = Format2(EstrattoDL(idestr,r))
t2 = Format2(EstrattoDL(idestr,r + 1))
If v = 3 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
End If
If v = 4 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
End If
If v = 5 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
t5 = Format2(EstrattoDL(idestr,r + 4))
End If
u1 = Format2(EstrattoDL(idestr,r2))
u2 = Format2(EstrattoDL(idestr,r2 + 1))
If v = 3 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
End If
If v = 4 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
End If
If v = 5 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
u5 = Format2(EstrattoDL(idestr,r2 + 4))
End If
''''verifica 1 combinazione nel passato
ReDim tnm(5)
tnm(1) = Format2(t1)
tnm(2) = Format2(t2)
tnm(3) = Format2(t3)
tnm(4) = Format2(t4)
tnm(5) = Format2(t5)
ColoreTesto(1)
Scrivi
Scrivi "------ somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ini = idestr
ColoreTesto 0
Scrivi " VERIFICA SE combinazione GIA' USCITA NEI PRECEDENTI CONCORSI " & tnm(1) & " " & tnm(2) & " " & tnm(3) & " " & tnm(4) & " " & tnm(5)
ctz = 0
For ccc = ini - Int(co2) To ini - 1
For mm = 1 To 20
n(mm) = Format2(EstrattoDL(ccc,mm))
Next
snconc = GetInfoEstrazioneDL(ccc)
punti = 0
evidenza = ""
For q = 1 To 20
If Format2(n(q)) = tnm(1) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(2) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(3) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(4) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(5) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
Next
If punti >= Int(lis2) Then
ColoreTesto 2
If Int(lis2) = 3 Then Scrivi " -------> Terno già uscito nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
If Int(lis2) = 4 Then Scrivi " -------> Quaterna già uscita nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
ctz = ctz + 1
End If
Next
If ctz = 0 Then
ColoreTesto 2
Scrivi " -------> NESSUNA quantità di numeri richiesta E' USCITA NEI PRECEDENTI CONCORSI "
ColoreTesto 0
End If
esito = 0
ColoreTesto 0
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
esito = 1
ColoreTesto 7
Scrivi
Scrivi "Esito: "
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
ColoreTesto 0
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
Else
If esito = 0 Then Scrivi " Esito NEGATIVO o IN CORSO "
End If
''''' ----------------------------------------------------------------------------------------------------------------------------
''''' 2 combinazione verifica nel passato
ReDim tnm(5)
tnm(1) = Format2(u1)
tnm(2) = Format2(u2)
tnm(3) = Format2(u3)
tnm(4) = Format2(u4)
tnm(5) = Format2(u5)
ColoreTesto 0
Scrivi " VERIFICA SE combinazione GIA' USCITA NEI PRECEDENTI CONCORSI " & tnm(1) & " " & tnm(2) & " " & tnm(3) & " " & tnm(4) & " " & tnm(5)
ctz = 0
For ccc = ini - Int(co2) To ini - 1
For mm = 1 To 20
n(mm) = Format2(EstrattoDL(ccc,mm))
Next
snconc = GetInfoEstrazioneDL(ccc)
punti = 0
evidenza = ""
For q = 1 To 20
If Format2(n(q)) = tnm(1) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(2) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(3) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(4) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(5) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
Next
ColoreTesto 2
If punti >= Int(lis2) Then
If Int(lis2) = 3 Then Scrivi " -------> Terno già uscito nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
If Int(lis2) = 4 Then Scrivi " -------> Quaterna già uscita nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
ctz = ctz + 1
End If
Next
If ctz = 0 Then
ColoreTesto 2
Scrivi " -------> NESSUNA quantità di numeri richiesta E' USCITA NEI PRECEDENTI CONCORSI "
ColoreTesto 0
End If
ColoreTesto 0
esito = 0
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
esito = 1
ColoreTesto 7
Scrivi
Scrivi "Esito: "
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
ColoreTesto 0
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
Else
If esito = 0 Then Scrivi " Esito NEGATIVO o IN CORSO "
End If
End If
Next
Next
Next
ColoreTesto 0
Scrivi "Ambi totali realizzati..." & ambitotali
Scrivi "Terni totali realizzati..." & ternitotali
Scrivi "Quaterne totali realizzati..." & Quatetotali
Scrivi "Cinquine totali realizzati..." & Cinquitotali
Scrivi "concorsi esaminati totale.." & z
'For n = 1 To 999
' If acolpi(n) > 0 Then
' Scrivi Format2(n) & "°.colpo.." & acolpi(n)
' End If
'Next
End SubUltima estrazione Lotto
-
Estrazione del lotto
venerdì 17 gennaio 2025Bari1087772360Cagliari7533602415Firenze4534664117Genova0565155386Milano2084747601Napoli9029385268Palermo3336022068Roma6812590774Torino0322299028Venezia8124351803Nazionale0631358974Estrazione Simbolotto
Bari
1424171308
