adispo2000
Super Member >PLATINUM<
Scusa mike, io sempre da ignorante ma legge gli archivi lotto? perche mi ristituisce sempre la stessa combinazione?
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.
Spiamo i Giorni
- Creatore Discussione adispo2000
- Data di inizio
Mike58
Advanced Member >PLATINUM PLUS<
Non saprei, non mi ricordo neanche cosa fa lo script e cosa deve ricercare, mi sembra di capire che deve trovare i più frequenti in un range di estrazioni e svilupparle in classe voluta.
Cambiando ruota dovrebbe restituire Numeri differenti…
Poi per il super con lo script del 10elotto bisogna mettere suffisso SE anziché DL, ma se ti interessa poi lo faccio io.
Ora con le festività sono oberato di altre cose non riesco a concentrarmi per gli script.
Tu intanto verifica e fai pure le richieste, poi vedrò di capire cosa c'è da fare.
Un saluto
Mike
Cambiando ruota dovrebbe restituire Numeri differenti…
Poi per il super con lo script del 10elotto bisogna mettere suffisso SE anziché DL, ma se ti interessa poi lo faccio io.
Ora con le festività sono oberato di altre cose non riesco a concentrarmi per gli script.
Tu intanto verifica e fai pure le richieste, poi vedrò di capire cosa c'è da fare.
Un saluto
Mike
adispo2000
Super Member >PLATINUM<
OK ASPETTO TE...CIAO
Mike58
Advanced Member >PLATINUM PLUS<
x lotto avevo dimenticato di correggere inizio e fine estrazioni (corretti)
x super eccolo
Provali.
Ciao
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",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 Functionx super eccolo
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 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 FunctionProvali.
Ciao
adispo2000
Super Member >PLATINUM<
adispo2000
Super Member >PLATINUM<
io uso spaziomestria 1.6.31...........
Mike58
Advanced Member >PLATINUM PLUS<
per l'errore c'era ancora il codice interessato con il suffisso DL corretto con SE. ora tutto funziona
per il range c'è la scelta estrazioni da fine a meno scelte.
Per Alien non lo sò, io ho solo corretto lo script ai vari giochi.
per il range c'è la scelta estrazioni da fine a meno scelte.
Per Alien non lo sò, io ho solo corretto lo script ai vari giochi.
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 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
salvo50
Advanced Member >PLATINUM PLUS<
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
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
i legend
Premium Member
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 .
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 .
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Così sembra dai commenti
Sinceramente, non ho capito cosa deve fare lo script, però vedendo l'output, sembra che prende un'estrazione e sviluppa gli ambi, terni ecc..., dipende dalle risposte date alle domande iniziali e poi segnala dopo quante estrazioni si sono verificate i vari terni ambi ecc..
All'inizio era solo per il SuperEnalotto, ed Adispo aveva chiesto la modifica per il lotto, poi Alien aveva chiesto anche per il 10eLotto, e Mike aveva suggerito di cambiare dove occorre il suffisso, nuturalmente nel lotto bisogna aggiungere anche la ruota, ma quello l'aveva già fatto Mike
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 ?
Così sembra dai commenti
Sinceramente, non ho capito cosa deve fare lo script, però vedendo l'output, sembra che prende un'estrazione e sviluppa gli ambi, terni ecc..., dipende dalle risposte date alle domande iniziali e poi segnala dopo quante estrazioni si sono verificate i vari terni ambi ecc..
Non lo sò
All'inizio era solo per il SuperEnalotto, ed Adispo aveva chiesto la modifica per il lotto, poi Alien aveva chiesto anche per il 10eLotto, e Mike aveva suggerito di cambiare dove occorre il suffisso, nuturalmente nel lotto bisogna aggiungere anche la ruota, ma quello l'aveva già fatto Mike
Non lo sò, lo script è di Mike, però anche lui dice che di specifico non ricorda a cosa servisse (post 18)
Alien.
Advanced Premium Member
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-per-il-web-c%E8-il-superenalotto-110736/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(4) di Keeper MANCANO LE EVENTUALI VINCITE ",1' - http://forum.lottoced.com/f12/giro-per-il-web-c%E8-il-superenalotto-110736/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
salvo50
Advanced Member >PLATINUM PLUS<
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
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
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
Ultima modifica:
i legend
Premium Member
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 .
Ci riprovo.
Ciao.
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 16 gennaio 2025Bari4733545158Cagliari5888033065Firenze7656167329Genova7858711826Milano0974152657Napoli7581355917Palermo1739465408Roma2875760223Torino2436808789Venezia8670372345Nazionale0965300607Estrazione Simbolotto
Bari
2143010219
