Novità

Spiamo i Giorni

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
 

Mike58

Advanced Member >PLATINUM PLUS<
x lotto avevo dimenticato di correggere inizio e fine estrazioni (corretti)

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 Function

x 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 Function

Provali.

Ciao
 

adispo2000

Super Member >PLATINUM<
Ciao Mike..al superenalotto mi spunta un errore...e poi mike come mai non posso scegliere un range di concorsi?
 

Allegati

  • Cattura.JPG
    Cattura.JPG
    17,3 KB · Visite: 0

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.

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

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 .
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

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

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?

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..

deve fare solo questo ?
Non lo sò

3* deve agire sul lotto 10elotto superenalotto?

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 giochi sono molro diversi tra loro .
Ci sono delle peculiarità per ogni script oppure basta solo evidenziare le frequenze?
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(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 " & 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
 

Alien.

Advanced Premium Member
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

Ciao,i comandi vanno bene quelli inseriti al superenalotto controllato,quindi è già stato fatto da mike..
 

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(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 " & 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:

Alien.

Advanced Premium Member
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

ottimo ma come al solito dopo un po non danno il dovuto,troppo bello.......grazie Salvo.
 

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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto