adispo2000
Super Member >PLATINUM<
Scusa mike, io sempre da ignorante ma legge gli archivi lotto? perche mi ristituisce sempre la stessa combinazione?
Option Explicit
'Per tutti gli scripter Metodi Terno Mancato di adispo2000
'http://forum.lottoced.com/forum/lottoced/area-download/2069029-per-tutti-gli-scripter-metodi-terno-mancato
Sub Main()
'Dim Tipoarchivio : Tipoarchivio = ScegliArchivioDL()
'If Tipoarchivio > 00 Then
'If Tipoarchivio = 02 Then
' If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
'Call AggiornaArchivioDL()
'End If
'End If
' Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim r,ru(1)' ruota
r = InputBox("Quale Ruota",,1)
Dim sorte : sorte = InputBox("Quale Sorte Di VerificaEsito",,2)
Dim EstrCon : EstrCon = CInt(InputBox("ESTRAZIONI RICERCA FRREQUENTI","ricerca Frequenti",5))
Dim nClasse : nClasse = CInt(InputBox("CLASSE SVILUPPO","Sviluppo",3))
Dim Ini,fin : Ini = EstrazioneFin - EstrCon : fin = EstrazioneFin - 01
Dim Y,nFrq01 : ReDim nFr01(90,01)
ru(1) = r
For Y = 01 To 90
nFr01(Y,00) = Format2(Y)
nFr01(Y,01) = EstrattoFrequenza(Y,r,Ini,fin)
nFrq01 = EstrattoFrequenza(Y,r,Ini,fin)
Next
Call OrdinaMatriceTurbo(nFr01,- 01,01)
ReDim EN(05) : EN(01) = nFr01(01,00) : EN(02) = nFr01(02,00) : EN(03) = nFr01(03,00) : EN(04) = nFr01(04,00) : EN(05) = nFr01(05,00)
Dim aNumeri :aNumeri = Array(EN(01),EN(02),EN(03),EN(04),EN(05))
Call Scrivi("Sviluppo combinazione " & StringaNumeri(aNumeri) & " In " & NomeSorte(nClasse),,01) : Call Scrivi()
Dim k
For k = 01 To UBound(aNumeri)
aNumeri(k) = aNumeri(k)
Next
Dim aTitoli : aTitoli = Array(aTitoli," CONTATORE "," SVILUPPO " & NomeSorte(nClasse)," ESITO "," COLPI "," ESTRATTI "," ID ESTR ")
Call InitTabella(aTitoli,03,,03,01)
Dim aCol
If InitSviluppoIntegrale(aNumeri,nClasse) > 00 Then
Do While GetCombSviluppo(aCol) = True
Dim i : i = i + 01
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Call VerificaEsito(aCol,ru,Ini,sorte,EstrCon + 01,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
Dim aValori : aValori = Array(aValori,FormattaStringa(i,"00"),StringaNumeri(aCol,,True),RetEsito,RetColpi,RetEstratti,RetIdEstr)
If RetEsito <> "" Then
aValori(06) = GetInfoEstrazione(RetIdEstr)
ElseIf RetEsito = "" Then
aValori(03) = " -- " : aValori(06) = " -- "
End If
Call AddRigaTabella(aValori,,,03)
Loop
End If
Call CreaTabella()
'End If
End Sub
'Function ScegliArchivioDL()
'ReDim aVoci(01)
'aVoci(00) = "10 e lotto Serale"
'aVoci(01) = "10 e lotto 5minuti"
'ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
'End Function
Option Explicit
'Per tutti gli scripter Metodi Terno Mancato di adispo2000
'http://forum.lottoced.com/forum/lottoced/area-download/2069029-per-tutti-gli-scripter-metodi-terno-mancato
Sub Main()
'Dim Tipoarchivio : Tipoarchivio = ScegliArchivioDL()
'If Tipoarchivio > 00 Then
'If Tipoarchivio = 02 Then
'If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioSE()
'End If
'End If
'Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim EstrCon : EstrCon = CInt(InputBox("ESTRAZIONI RICERCA FRREQUENTI","ricerca Frequenti",10))
Dim nClasse : nClasse = CInt(InputBox("CLASSE SVILUPPO","Sviluppo",3))
Dim Ini,fin : Ini = EstrazioniArchivioSE - EstrCon : fin = EstrazioniArchivioSE - 01
Dim Y,nFrq01 : ReDim nFr01(90,01)
For Y = 01 To 90
nFr01(Y,00) = Format2(Y)
nFr01(Y,01) = EstrattoFrequenzaSE(Y,Ini,fin)
nFrq01 = EstrattoFrequenzaSE(Y,Ini,fin)
Next
Call OrdinaMatriceTurbo(nFr01,- 01,01)
ReDim EN(05) : EN(01) = nFr01(01,00) : EN(02) = nFr01(02,00) : EN(03) = nFr01(03,00) : EN(04) = nFr01(04,00) : EN(05) = nFr01(05,00)
Dim aNumeri :aNumeri = Array(EN(01),EN(02),EN(03),EN(04),EN(05))
Call Scrivi("Sviluppo combinazione " & StringaNumeri(aNumeri) & " In " & NomeSorte(nClasse),,01) : Call Scrivi()
Dim k
For k = 01 To UBound(aNumeri)
aNumeri(k) = aNumeri(k)
Next
Dim aTitoli : aTitoli = Array(aTitoli," CONTATORE "," SVILUPPO " & NomeSorte(nClasse)," ESITO "," COLPI "," ESTRATTI "," ID ESTR ")
Call InitTabella(aTitoli,03,,03,01)
Dim aCol
If InitSviluppoIntegrale(aNumeri,nClasse) > 00 Then
Do While GetCombSviluppo(aCol) = True
Dim i : i = i + 01
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Call VerificaEsitoDL(aCol,Ini,nClasse,EstrCon + 01,RetEsito,RetColpi,RetEstratti,RetIdEstr)
Dim aValori : aValori = Array(aValori,FormattaStringa(i,"00"),StringaNumeri(aCol,,True),RetEsito,RetColpi,RetEstratti,RetIdEstr)
If RetEsito <> "" Then
aValori(06) = GetInfoEstrazioneSE(RetIdEstr)
ElseIf RetEsito = "" Then
aValori(03) = " -- " : aValori(06) = " -- "
End If
Call AddRigaTabella(aValori,,,03)
Loop
End If
Call CreaTabella()
'End If
End Sub
'Function ScegliArchivioDL()
'ReDim aVoci(01)
'aVoci(00) = "10 e lotto Serale"
'aVoci(01) = "10 e lotto 5minuti"
'ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
'End Function
Option Explicit
'Per tutti gli scripter Metodi Terno Mancato di adispo2000
'http://forum.lottoced.com/forum/lottoced/area-download/2069029-per-tutti-gli-scripter-metodi-terno-mancato
Sub Main()
'Dim Tipoarchivio : Tipoarchivio = ScegliArchivioDL()
'If Tipoarchivio > 00 Then
'If Tipoarchivio = 02 Then
'If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
'Call AggiornaArchivioSE()
'End If
'End If
'Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim EstrCon : EstrCon = CInt(InputBox("ESTRAZIONI RICERCA FRREQUENTI","ricerca Frequenti",10))
Dim nClasse : nClasse = CInt(InputBox("CLASSE SVILUPPO","Sviluppo",3))
Dim Ini,fin : Ini = EstrazioniArchivioSE - EstrCon : fin = EstrazioniArchivioSE - 01
Dim Y,nFrq01 : ReDim nFr01(90,01)
For Y = 01 To 90
nFr01(Y,00) = Format2(Y)
nFr01(Y,01) = EstrattoFrequenzaSE(Y,Ini,fin)
nFrq01 = EstrattoFrequenzaSE(Y,Ini,fin)
Next
Call OrdinaMatriceTurbo(nFr01,- 01,01)
ReDim EN(05) : EN(01) = nFr01(01,00) : EN(02) = nFr01(02,00) : EN(03) = nFr01(03,00) : EN(04) = nFr01(04,00) : EN(05) = nFr01(05,00)
Dim aNumeri :aNumeri = Array(EN(01),EN(02),EN(03),EN(04),EN(05))
Call Scrivi("Sviluppo combinazione " & StringaNumeri(aNumeri) & " In " & NomeSorte(nClasse),,01) : Call Scrivi()
Dim k
For k = 01 To UBound(aNumeri)
aNumeri(k) = aNumeri(k)
Next
Dim aTitoli : aTitoli = Array(aTitoli," CONTATORE "," SVILUPPO " & NomeSorte(nClasse)," ESITO "," COLPI "," ESTRATTI "," ID ESTR ")
Call InitTabella(aTitoli,03,,03,01)
Dim aCol
If InitSviluppoIntegrale(aNumeri,nClasse) > 00 Then
Do While GetCombSviluppo(aCol) = True
Dim i : i = i + 01
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Call VerificaEsitoSE(aCol,Ini,nClasse,EstrCon + 01,RetEsito,RetColpi,RetEstratti,RetIdEstr)
Dim aValori : aValori = Array(aValori,FormattaStringa(i,"00"),StringaNumeri(aCol,,True),RetEsito,RetColpi,RetEstratti,RetIdEstr)
If RetEsito <> "" Then
aValori(06) = GetInfoEstrazioneSE(RetIdEstr)
ElseIf RetEsito = "" Then
aValori(03) = " -- " : aValori(06) = " -- "
End If
Call AddRigaTabella(aValori,,,03)
Loop
End If
Call CreaTabella()
'End If
End Sub
'Function ScegliArchivioDL()
'ReDim aVoci(01)
'aVoci(00) = "10 e lotto Serale"
'aVoci(01) = "10 e lotto 5minuti"
'ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
'End Function
Option Explicit
'Per tutti gli scripter Metodi Terno Mancato di adispo2000
'http://forum.lottoced.com/forum/lottoced/area-download/2069029-per-tutti-gli-scripter-metodi-terno-mancato
Sub Main()
'Dim Tipoarchivio : Tipoarchivio = ScegliArchivioDL()
'If Tipoarchivio > 00 Then
'If Tipoarchivio = 02 Then
' If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
'Call AggiornaArchivioDL()
'End If
'End If
' Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim r,ru(1)' ruota
r = InputBox("Quale Ruota",,1)
Dim sorte : sorte = InputBox("Quale Sorte Di VerificaEsito",,2)
Dim EstrCon : EstrCon = CInt(InputBox("ESTRAZIONI RICERCA FRREQUENTI","ricerca Frequenti",50))
Dim nClasse : nClasse = CInt(InputBox("CLASSE SVILUPPO","Sviluppo",3))
Dim Ini,fin : Ini = EstrazioneFin - EstrCon : fin = EstrazioneFin - 1
Dim Y,nFrq01 : ReDim nFr01(90,01)
ru(1) = r
For Y = 01 To 90
nFr01(Y,00) = Format2(Y)
nFr01(Y,01) = EstrattoFrequenza(r,Y,Ini,fin)
nFrq01 = EstrattoFrequenza(r,Y,Ini,fin)
Next
Call OrdinaMatriceTurbo(nFr01,- 01,01)
ReDim EN(05) : EN(01) = nFr01(01,00) : EN(02) = nFr01(02,00) : EN(03) = nFr01(03,00) : EN(04) = nFr01(04,00) : EN(05) = nFr01(05,00)
Dim aNumeri :aNumeri = Array(EN(01),EN(02),EN(03),EN(04),EN(05))
Call Scrivi("Sviluppo combinazione " & StringaNumeri(aNumeri) & " In " & NomeSorte(nClasse),,01) : Call Scrivi()
Dim k
For k = 01 To UBound(aNumeri)
aNumeri(k) = aNumeri(k)
Next
Dim aTitoli : aTitoli = Array(aTitoli," CONTATORE "," SVILUPPO " & NomeSorte(nClasse)," ESITO "," COLPI "," ESTRATTI "," ID ESTR ")
Call InitTabella(aTitoli,03,,03,01)
Dim aCol
If InitSviluppoIntegrale(aNumeri,nClasse) > 00 Then
Do While GetCombSviluppo(aCol) = True
Dim i : i = i + 01
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Call VerificaEsito(aCol,ru,Ini,sorte,EstrCon + 01,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
Dim aValori : aValori = Array(aValori,FormattaStringa(i,"00"),StringaNumeri(aCol,,True),RetEsito,RetColpi,RetEstratti,RetIdEstr)
If RetEsito <> "" Then
aValori(06) = GetInfoEstrazione(RetIdEstr)
ElseIf RetEsito = "" Then
aValori(03) = " -- " : aValori(06) = " -- "
End If
Call AddRigaTabella(aValori,,,03)
Loop
End If
Call CreaTabella()
'End If
End Sub
'Function ScegliArchivioDL()
'ReDim aVoci(01)
'aVoci(00) = "10 e lotto Serale"
'aVoci(01) = "10 e lotto 5minuti"
'ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
'End Function
i legend;n2146576 ha scritto:Ciao Salvo ricambio si cuore gli auguri
vorrei chiedere due cose:
1 * il metodo che ha listato mike è di adispo ?
2* in pratica lo script deve cercare i numeri più frequenti su un tot di estrazione e cercare quelli che non si sono abbinati nella sorte voluta?
Non lo sòdeve fare solo questo ?
3* deve agire sul lotto 10elotto superenalotto?
Non lo sò, lo script è di Mike, però anche lui dice che di specifico non ricorda a cosa servisse (post 18)i giochi sono molro diversi tra loro .
Ci sono delle peculiarità per ogni script oppure basta solo evidenziare le frequenze?
salvo50;n2146467 ha scritto:Ciao a Tutti.
Ciao Alien, Mike ha già spiegato che per cambiare tra 10 e Lotto E SuperEnalotto, basta cambiare la sigla
finale a questi comandi
EstrazioniArchivioSE
GetInfoEstrazioneSE
EstrattoFrequenzaSE
E probabilmente ce ne qualcunaltro, comunque al post 20 il secondo script è per il SuperEnalotto
il primo script Mike lo ha modificato su richiesta di Adispo per il Lotto, adesso io vedendo più o meno dove
lui è intervenuto nello script, ho capito cosa si deve modificare e mi sono accorto che (Mike probabilmente
per la premura e per tutti gli impegni che uno può avere in questi giorni di festa non si è accorto che) c'è
un piccolo errore in quello per il lotto ecco perchè non funziona a dovere.
Ne approfitto per Augurare a Tutti un Felice e Prospero Anno Nuovo
Script per il lotto
Codice:Option Explicit 'Per tutti gli scripter Metodi Terno Mancato di adispo2000 'http://forum.lottoced.com/forum/lottoced/area-download/2069029-per-tutti-gli-scripter-metodi-terno-mancato Sub Main() 'Dim Tipoarchivio : Tipoarchivio = ScegliArchivioDL() 'If Tipoarchivio > 00 Then 'If Tipoarchivio = 02 Then ' If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then 'Call AggiornaArchivioDL() 'End If 'End If ' Call ImpostaArchivio10ELotto(Tipoarchivio) Dim r,ru(1)' ruota r = InputBox("Quale Ruota",,1) Dim sorte : sorte = InputBox("Quale Sorte Di VerificaEsito",,2) Dim EstrCon : EstrCon = CInt(InputBox("ESTRAZIONI RICERCA FRREQUENTI","ricerca Frequenti",50)) Dim nClasse : nClasse = CInt(InputBox("CLASSE SVILUPPO","Sviluppo",3)) Dim Ini,fin : Ini = EstrazioneFin - EstrCon : fin = EstrazioneFin - 1 Dim Y,nFrq01 : ReDim nFr01(90,01) ru(1) = r For Y = 01 To 90 nFr01(Y,00) = Format2(Y) nFr01(Y,01) = EstrattoFrequenza(r,Y,Ini,fin) nFrq01 = EstrattoFrequenza(r,Y,Ini,fin) Next Call OrdinaMatriceTurbo(nFr01,- 01,01) ReDim EN(05) : EN(01) = nFr01(01,00) : EN(02) = nFr01(02,00) : EN(03) = nFr01(03,00) : EN(04) = nFr01(04,00) : EN(05) = nFr01(05,00) Dim aNumeri :aNumeri = Array(EN(01),EN(02),EN(03),EN(04),EN(05)) Call Scrivi("Sviluppo combinazione " & StringaNumeri(aNumeri) & " In " & NomeSorte(nClasse),,01) : Call Scrivi() Dim k For k = 01 To UBound(aNumeri) aNumeri(k) = aNumeri(k) Next Dim aTitoli : aTitoli = Array(aTitoli," CONTATORE "," SVILUPPO " & NomeSorte(nClasse)," ESITO "," COLPI "," ESTRATTI "," ID ESTR ") Call InitTabella(aTitoli,03,,03,01) Dim aCol If InitSviluppoIntegrale(aNumeri,nClasse) > 00 Then Do While GetCombSviluppo(aCol) = True Dim i : i = i + 01 Dim RetEsito,RetColpi,RetEstratti,RetIdEstr Call VerificaEsito(aCol,ru,Ini,sorte,EstrCon + 01,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Dim aValori : aValori = Array(aValori,FormattaStringa(i,"00"),StringaNumeri(aCol,,True),RetEsito,RetColpi,RetEstratti,RetIdEstr) If RetEsito <> "" Then aValori(06) = GetInfoEstrazione(RetIdEstr) ElseIf RetEsito = "" Then aValori(03) = " -- " : aValori(06) = " -- " End If Call AddRigaTabella(aValori,,,03) Loop End If Call CreaTabella() 'End If End Sub 'Function ScegliArchivioDL() 'ReDim aVoci(01) 'aVoci(00) = "10 e lotto Serale" 'aVoci(01) = "10 e lotto 5minuti" 'ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01 'End Function
Alien.;n2146725 ha scritto:Ciao ,ho su spazio questo script ma come dice: mancano le eventuali vincite chi può fare qualche cosa per risolverlo,grazie.
Sub Main
Scrivi " in giro per il web c'è il superenalotto(4) di Keeper MANCANO LE EVENTUALI VINCITE ",1' - http://forum.lottoced.com/f12/giro-p...36/index2.html -
Dim n1(01),nn(12)
k = 13
fin = EstrazioneFin
ini = EstrazioneIni + 8633
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 5 Then
casi = casi + 1
Scrivi String(75,"=") & " caso n° " &(casi),1
n1(01) = Fuori90((Estratto(es,NA_,3) * Estratto(es,NA_,3)) + 66)' CALCOLO CAPOGIOCO: 3° ESTRATTO DI NA X 3° ESTRATTO DI NA + 66
nn(01) = Fuori90(90 +(90 +(90 +(((Estratto(es,BA_,3) + Estratto(es,FI_,1)) + Estratto(es,TO_,2)) * Estratto(es,GE_,1)) - Estratto(es,PA_,2)) - Estratto(es,MI_,5)) - Estratto(es,TO_,3))
'ABBINAMENTO 01: 3° ESTRATTO DI BA + 1° ESTRATTO DI FI + 2° ESTRATTO DI TO X 1° ESTRATTO DI GE - 2° ESTRATTO DI PA - 5° ESTRATTO DI MI - 3° ESTRATTO DI TO
nn(02) = Fuori90((Estratto(es,CA_,3) + Estratto(es,GE_,3)) + 86)' ABBINAMENTO 02: 3° ESTRATTO DI CA + 3° ESTRATTO DI GE + 86
nn(03) = Fuori90((Estratto(es,FI_,2) + Estratto(es,NA_,4)) + Estratto(es,PA_,2))' ABBINAMENTO 03: 2° ESTRATTO DI FI + 4° ESTRATTO DI NA + 2° ESTRATTO DI PA
nn(04) = Fuori90(((Estratto(es,GE_,1) + Estratto(es,GE_,1)) + Estratto(es,MI_,1)) + 05)' ABBINAMENTO 04: 1° ESTRATTO DI GE + 1° ESTRATTO DI GE + 1° ESTRATTO DI MI + 5
nn(05) = Fuori90((Estratto(es,MI_,3) + Estratto(es,MI_,4)) + Estratto(es,RO_,3))' ABBINAMENTO 05: 3° ESTRATTO DI MI + 4° ESTRATTO DI MI + 3° ESTRATTO DI RO
nn(06) = Fuori90(((90 + Estratto(es,NA_,4)) - Estratto(es,GE_,4)) * 84)' ABBINAMENTO 06: 4° ESTRATTO DI NA - 4° ESTRATTO DI GE X 84
nn(07) = Fuori90((90 +(Estratto(es,PA_,2) + Estratto(es,FI_,5))) - Estratto(es,PA_,5))' ABBINAMENTO 07: 2° ESTRATTO DI PA + 5° ESTRATTO DI FI - 5° ESTRATTO DI PA
nn(08) = Fuori90((Estratto(es,RO_,2) + 16) * 64)' ABBINAMENTO 08: 2° ESTRATTO DI RO + 16 X 64
nn(09) = Fuori90((((90 +(Estratto(es,TO_,1) + Estratto(es,FI_,4))) - Estratto(es,NA_,4)) * Estratto(es,TO_,2)) + 01)'ABBINAMENTO 09: 1° ESTRATTO DI TO + 4° ESTRATTO DI FI - 4° ESTRATTO DI NA X 2° ESTRATTO DI TO + 1
nn(10) = Fuori90(((90 +(Estratto(es,VE_,3) + Estratto(es,MI_,4))) - Estratto(es,VE_,5)))' ABBINAMENTO 10: 3° ESTRATTO DI VE + 4° ESTRATTO DI MI - 5° ESTRATTO DI VE
nn(11) = Fuori90(((90 + Estratto(es,BA_,1)) - Estratto(es,PA_,2)) - Estratto(es,VE_,3))' ABBINAMENTO 11: 1° ESTRATTO DI BA - 2° ESTRATTO DI PA - 3° ESTRATTO DI VE
nn(12) = Fuori90(((90 + Estratto(es,CA_,5)) - Estratto(es,FI_,4)) + 26)' ABBINAMENTO 12: 5° ESTRATTO DI CA - 4° ESTRATTO DI FI + 26
'OrdinaMatrice nn,1 ' Togliere la spunta per ordinamento progressivo
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
rip = 0
If NumeriRipetuti(nn) Then
If NumeriRipetuti(nn) Then Scrivi " NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI" & " : " & Format2(nn(01)) & " . " & Format2(nn(02)) _
& " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06)) & " . " & Format2(nn(07)) & " . " & _
Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,4
rip = 1
While NumeriRipetuti(nn)
For x = 01 To 11
For y = x + 01 To 12
If nn(x) = nn Then nn = Fuori90(nn + 01)
Next
Next
Wend
End If
If rip = 1 Then Scrivi " SONO PRESENTI NUMERI RIPETUTI, I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA",1,1,3
Scrivi
Scrivi
Scrivi " Numeri da giocare al Superenalotto per " & Format2(k) & " colpi dall' estrazione successiva alla " & IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",1,1,4
Scrivi
Scrivi " CAPOGIOCO : " & Format2(n1(01)),1,1,6
Scrivi " NUMERI GIRANTI : " & Format2(nn(01)) & " . " & Format2(nn(02)) & " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06))_
& " . " & Format2(nn(07)) & " . " & Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,6
End If
Next
End Sub
Sub Main
Scrivi " in giro per il web c'è il superenalotto(2) di Keeper ",1' - http://forum.lottoced.com/f12/giro-p...36/index2.html -
Dim n1(01),nn(12),esSE
fin = EstrazioneFin
ini = EstrazioneIni + 8633
For es = Ini To fin
If ScriptInterrotto Then Exit Sub
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 5 Then
casi = casi + 1
Scrivi String(75,"=") & " caso n° " &(casi),1
n1(01) = Fuori90((Estratto(es,NA_,3) * Estratto(es,NA_,3)) + 66)' CALCOLO CAPOGIOCO: 3° ESTRATTO DI NA X 3° ESTRATTO DI NA + 66
nn(01) = Fuori90(90 +(90 +(90 +(((Estratto(es,BA_,3) + Estratto(es,FI_,1)) + Estratto(es,TO_,2)) * Estratto(es,GE_,1)) - Estratto(es,PA_,2)) - Estratto(es,MI_,5)) - Estratto(es,TO_,3))
'ABBINAMENTO 01: 3° ESTRATTO DI BA + 1° ESTRATTO DI FI + 2° ESTRATTO DI TO X 1° ESTRATTO DI GE - 2° ESTRATTO DI PA - 5° ESTRATTO DI MI - 3° ESTRATTO DI TO
nn(02) = Fuori90((Estratto(es,CA_,3) + Estratto(es,GE_,3)) + 86)' ABBINAMENTO 02: 3° ESTRATTO DI CA + 3° ESTRATTO DI GE + 86
nn(03) = Fuori90((Estratto(es,FI_,2) + Estratto(es,NA_,4)) + Estratto(es,PA_,2))' ABBINAMENTO 03: 2° ESTRATTO DI FI + 4° ESTRATTO DI NA + 2° ESTRATTO DI PA
nn(04) = Fuori90(((Estratto(es,GE_,1) + Estratto(es,GE_,1)) + Estratto(es,MI_,1)) + 05)' ABBINAMENTO 04: 1° ESTRATTO DI GE + 1° ESTRATTO DI GE + 1° ESTRATTO DI MI + 5
nn(05) = Fuori90((Estratto(es,MI_,3) + Estratto(es,MI_,4)) + Estratto(es,RO_,3))' ABBINAMENTO 05: 3° ESTRATTO DI MI + 4° ESTRATTO DI MI + 3° ESTRATTO DI RO
nn(06) = Fuori90(((90 + Estratto(es,NA_,4)) - Estratto(es,GE_,4)) * 84)' ABBINAMENTO 06: 4° ESTRATTO DI NA - 4° ESTRATTO DI GE X 84
nn(07) = Fuori90((90 +(Estratto(es,PA_,2) + Estratto(es,FI_,5))) - Estratto(es,PA_,5))' ABBINAMENTO 07: 2° ESTRATTO DI PA + 5° ESTRATTO DI FI - 5° ESTRATTO DI PA
nn(08) = Fuori90((Estratto(es,RO_,2) + 16) * 64)' ABBINAMENTO 08: 2° ESTRATTO DI RO + 16 X 64
nn(09) = Fuori90((((90 +(Estratto(es,TO_,1) + Estratto(es,FI_,4))) - Estratto(es,NA_,4)) * Estratto(es,TO_,2)) + 01)'ABBINAMENTO 09: 1° ESTRATTO DI TO + 4° ESTRATTO DI FI - 4° ESTRATTO DI NA X 2° ESTRATTO DI TO + 1
nn(10) = Fuori90(((90 +(Estratto(es,VE_,3) + Estratto(es,MI_,4))) - Estratto(es,VE_,5)))' ABBINAMENTO 10: 3° ESTRATTO DI VE + 4° ESTRATTO DI MI - 5° ESTRATTO DI VE
nn(11) = Fuori90(((90 + Estratto(es,BA_,1)) - Estratto(es,PA_,2)) - Estratto(es,VE_,3))' ABBINAMENTO 11: 1° ESTRATTO DI BA - 2° ESTRATTO DI PA - 3° ESTRATTO DI VE
nn(12) = Fuori90(((90 + Estratto(es,CA_,5)) - Estratto(es,FI_,4)) + 26)' ABBINAMENTO 12: 5° ESTRATTO DI CA - 4° ESTRATTO DI FI + 26
OrdinaMatrice nn,1
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
rip = 0
If NumeriRipetuti(nn) Then
If NumeriRipetuti(nn) Then Scrivi " NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & Format2(nn(01)) & " . " & Format2(nn(02)) & _
" . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06)) & " . " & Format2(nn(07)) & " . " & _
Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,4
rip = 1
While NumeriRipetuti(nn)
For x = 01 To 11
For y = x + 01 To 12
If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 01)
Next
Next
Wend
End If
If rip = 1 Then Scrivi " SONO PRESENTI NUMERI RIPETUTI, I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA",1,1,3
Scrivi
Scrivi
Scrivi " Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla " & IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",1,1,4
Scrivi
Scrivi " CAPOGIOCO : " & Format2(n1(01)),1,1,6
Scrivi " NUMERI GIRANTI : " & Format2(nn(01)) & " . " & Format2(nn(02)) & " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06))_
& " . " & Format2(nn(07)) & " . " & Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,6
esSE =(es - 6659)
nn(00) = n1(01)
For x = 1 To 13
If ScriptInterrotto Then Exit For
If VerificaEsitoSE(nn,esSE + x,1,1,retesito,retcolpi,retestratti,retidestr) = True Then
Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n1(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
Else
Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n1(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & "negativo "
End If
Next
End If
Next
End Sub
salvo50;n2146734 ha scritto:Ciao Alien, uno script uguale e con le eventuali vincite e stato postato tempo fa da Claudio8, quindi ho preso lo script postato da Claudio8 e gli ho inserito i calcoli dello script postato da te.
Codice:Sub Main Scrivi " in giro per il web c'è il superenalotto(2) di Keeper ",1' - http://forum.lottoced.com/f12/giro-p...36/index2.html - Dim n1(01),nn(12),esSE fin = EstrazioneFin ini = EstrazioneIni + 8633 For es = Ini To fin If ScriptInterrotto Then Exit Sub Messaggio es AvanzamentoElab Ini,fin,es If IndiceMensile(es) = 5 Then casi = casi + 1 Scrivi String(75,"=") & " caso n° " &(casi),1 n1(01) = Fuori90((Estratto(es,NA_,3) * Estratto(es,NA_,3)) + 66)' CALCOLO CAPOGIOCO: 3° ESTRATTO DI NA X 3° ESTRATTO DI NA + 66 nn(01) = Fuori90(90 +(90 +(90 +(((Estratto(es,BA_,3) + Estratto(es,FI_,1)) + Estratto(es,TO_,2)) * Estratto(es,GE_,1)) - Estratto(es,PA_,2)) - Estratto(es,MI_,5)) - Estratto(es,TO_,3)) 'ABBINAMENTO 01: 3° ESTRATTO DI BA + 1° ESTRATTO DI FI + 2° ESTRATTO DI TO X 1° ESTRATTO DI GE - 2° ESTRATTO DI PA - 5° ESTRATTO DI MI - 3° ESTRATTO DI TO nn(02) = Fuori90((Estratto(es,CA_,3) + Estratto(es,GE_,3)) + 86)' ABBINAMENTO 02: 3° ESTRATTO DI CA + 3° ESTRATTO DI GE + 86 nn(03) = Fuori90((Estratto(es,FI_,2) + Estratto(es,NA_,4)) + Estratto(es,PA_,2))' ABBINAMENTO 03: 2° ESTRATTO DI FI + 4° ESTRATTO DI NA + 2° ESTRATTO DI PA nn(04) = Fuori90(((Estratto(es,GE_,1) + Estratto(es,GE_,1)) + Estratto(es,MI_,1)) + 05)' ABBINAMENTO 04: 1° ESTRATTO DI GE + 1° ESTRATTO DI GE + 1° ESTRATTO DI MI + 5 nn(05) = Fuori90((Estratto(es,MI_,3) + Estratto(es,MI_,4)) + Estratto(es,RO_,3))' ABBINAMENTO 05: 3° ESTRATTO DI MI + 4° ESTRATTO DI MI + 3° ESTRATTO DI RO nn(06) = Fuori90(((90 + Estratto(es,NA_,4)) - Estratto(es,GE_,4)) * 84)' ABBINAMENTO 06: 4° ESTRATTO DI NA - 4° ESTRATTO DI GE X 84 nn(07) = Fuori90((90 +(Estratto(es,PA_,2) + Estratto(es,FI_,5))) - Estratto(es,PA_,5))' ABBINAMENTO 07: 2° ESTRATTO DI PA + 5° ESTRATTO DI FI - 5° ESTRATTO DI PA nn(08) = Fuori90((Estratto(es,RO_,2) + 16) * 64)' ABBINAMENTO 08: 2° ESTRATTO DI RO + 16 X 64 nn(09) = Fuori90((((90 +(Estratto(es,TO_,1) + Estratto(es,FI_,4))) - Estratto(es,NA_,4)) * Estratto(es,TO_,2)) + 01)'ABBINAMENTO 09: 1° ESTRATTO DI TO + 4° ESTRATTO DI FI - 4° ESTRATTO DI NA X 2° ESTRATTO DI TO + 1 nn(10) = Fuori90(((90 +(Estratto(es,VE_,3) + Estratto(es,MI_,4))) - Estratto(es,VE_,5)))' ABBINAMENTO 10: 3° ESTRATTO DI VE + 4° ESTRATTO DI MI - 5° ESTRATTO DI VE nn(11) = Fuori90(((90 + Estratto(es,BA_,1)) - Estratto(es,PA_,2)) - Estratto(es,VE_,3))' ABBINAMENTO 11: 1° ESTRATTO DI BA - 2° ESTRATTO DI PA - 3° ESTRATTO DI VE nn(12) = Fuori90(((90 + Estratto(es,CA_,5)) - Estratto(es,FI_,4)) + 26)' ABBINAMENTO 12: 5° ESTRATTO DI CA - 4° ESTRATTO DI FI + 26 OrdinaMatrice nn,1 Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk) rip = 0 If NumeriRipetuti(nn) Then If NumeriRipetuti(nn) Then Scrivi " NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & Format2(nn(01)) & " . " & Format2(nn(02)) & _ " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06)) & " . " & Format2(nn(07)) & " . " & _ Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,4 rip = 1 While NumeriRipetuti(nn) For x = 01 To 11 For y = x + 01 To 12 If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 01) Next Next Wend End If If rip = 1 Then Scrivi " SONO PRESENTI NUMERI RIPETUTI, I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA",1,1,3 Scrivi Scrivi Scrivi " Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla " & IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",1,1,4 Scrivi Scrivi " CAPOGIOCO : " & Format2(n1(01)),1,1,6 Scrivi " NUMERI GIRANTI : " & Format2(nn(01)) & " . " & Format2(nn(02)) & " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06))_ & " . " & Format2(nn(07)) & " . " & Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,6 esSE =(es - 6659) nn(00) = n1(01) For x = 1 To 13 If ScriptInterrotto Then Exit For If VerificaEsitoSE(nn,esSE + x,1,1,retesito,retcolpi,retestratti,retidestr) = True Then Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n1(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti Else Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n1(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & "negativo " End If Next End If Next End Sub
i legend;n2146576 ha scritto:Ciao Salvo ricambio si cuore gli auguri
vorrei chiedere due cose:
1 * il metodo che ha listato mike è di adispo ?
2* in pratica lo script deve cercare i numeri più frequenti su un tot di estrazione e cercare quelli che non si sono abbinati nella sorte voluta?
deve fare solo questo ?
3* deve agire sul lotto 10elotto superenalotto?
i giochi sono molro diversi tra loro .
Ci sono delle peculiarità per ogni script oppure basta solo evidenziare le frequenze?
ciao a tutti .