Questo metodo è pubblicato sulla Settimana del lotto odierna, la tecnica gioca 5 colonne al SuperEnalotto per 12 colpi.
L'elaborazione avviene alla dodicesima estrazione del mese e seguita per le successive dodici estrazioni.
L'elaborazione avviene alla dodicesima estrazione del mese e seguita per le successive dodici estrazioni.
Codice:
Option Explicit
'Metodo x SuperEnalotto di Fabio Bubù
Sub Main
Dim nn(6)
Dim ID
'ID = CInt(InputBox("inserire indice mensile ","ID MESE",11))
Dim casi
casi = 00
Dim Ini,fin,es
Ini = EstrazioneFin - 160
fin = EstrazioneFin
For es = Ini To fin
If ScriptInterrotto Then Exit For
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
If IndiceMensile(es) = 12 Then ' SI ELABORA IN QUALSIASI ESTRAZIONE
casi = casi + 01
nn(1) = Fuori90((Estratto(es,1,4) + Estratto(es,2,1) + Estratto(es,5,5) + 31)*2)
nn(2) = Fuori90((Estratto(es,1,4) + Estratto(es,2,1) + Estratto(es,7,3) + 3)*61)
nn(3) = Fuori90((Estratto(es,2,1) + Estratto(es,4,2) + Estratto(es,9,5) + 67)*61)
nn(4) = Fuori90((Estratto(es,2,3) + Estratto(es,5,2) + Estratto(es,6,5) + 59)*07)
nn(5) = Fuori90((Estratto(es,4,2) + Estratto(es,9,4) + Estratto(es,10,1) + 52)*01)
nn(6) = Fuori90((Estratto(es,6,1) + Estratto(es,7,5) + Estratto(es,10,3) + 50)*01)
OrdinaMatrice nn,+ 1
Scrivi(DataEstrazione(es) & " numeri da giocare " & nn(1) & " " & nn(2) & " " & nn(3) & " " & nn(4) & " " & nn(5) & " " & nn(6))
'
'---------------------------------------------------------------------------------------------------------------------------------
'Call OrdinaMatriceTurbo(nn,01)
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
' Call Scrivi()
Dim rip,x,y
rip = 00
If NumeriRipetuti(nn) Then
'If NumeriRipetuti(nn) Then Call Scrivi(" NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI " & " - " & _
'StringaNumeri(nn,,True),01,01,04)
rip = 01
While NumeriRipetuti(nn)
For x = 01 To 5
For y = x + 01 To 6
If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 01)
Next
Next
Wend
End If
'If rip = 01 Then Call Scrivi(" SONO PRESENTI NUMERI RIPETUTI,I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA ",01,01,03)
'Call Scrivi()
' Call Scrivi()
''Call Scrivi(" Numeri da giocare al Superenalotto per 2 colpi dall' estrazione successiva alla " & _
'IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",01,01,04)
' Call Scrivi(" CON PROCEDURA DA METODO ")
' Call Scrivi(" CAPOGIOCO: " & Format2(n1(01)),01,01,06)
' Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)
Dim ESSE
ESSE =(es - 6659)
nn(00) = 0
Dim xlp,xColpi
xColpi = 12
Dim EVP01,EVP02,EVP03,EVP04,EVP05,EVP06
EVP01 = 00:EVP02 = 00:EVP03 = 00:EVP04 = 00:EVP05 = 00:EVP06 = 00
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Call Scrivi()
Call Scrivi()
Call Scrivi(" Numeri da giocare al Superenalotto per 6 colpi dall' estrazione successiva alla " & _
IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",01,01,04)
Call Scrivi(" CON PROCEDURA DA METODO ")
'Call Scrivi(" CAPOGIOCO: " & Format2(n1(01)),01,01,06)
Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)
For xlp = 01 To xColpi
If VerificaEsitoSE(nn,ESSE + xlp,AMBO_,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
If rip = 01 Then Call Scrivi(" SONO PRESENTI NUMERI RIPETUTI,I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA ",01,01,03)
rip = 00
Dim EV01,EV02,EV03,EV04,EV05,EV06
If RetEsito = "Ambo" Then EV01 = EV01 + 01:EVP01 = EVP01 + 01
If RetEsito = "Terno" Then EV02 = EV02 + 01:EVP02 = EVP02 + 01
If RetEsito = "Quaterna" Then EV03 = EV03 + 01:EVP03 = EVP03 + 01
If RetEsito = "Cinquina" Then EV04 = EV04 + 01:EVP04 = EVP04 + 01
If RetEsito = "5+1" Then EV05 = EV05 + 01:EVP05 = EVP05 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01:EVP06 = EVP06 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & _
" ..estratti al superenalotto... " & StringaEstrattiSE(ESSE + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
'ElseIf RetEsito = "" And RetColpi < 01 Then
'Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
' Else
' Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n1(01)) & _
'" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & "negativo ")
End If
If es + xlp > fin Then Exit For
Next
nn(1) = Fuori90(nn(1) + 31)
nn(2) = Fuori90(nn(2) + 31)
nn(3) = Fuori90(nn(3) + 31)
nn(4) = Fuori90(nn(4) + 31)
nn(5) = Fuori90(nn(5) + 31)
nn(6) = Fuori90(nn(6) + 31)
OrdinaMatrice nn,+ 1
Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)
For xlp = 01 To xColpi
If VerificaEsitoSE(nn,ESSE + xlp,AMBO_,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
If RetEsito = "Ambo" Then EV01 = EV01 + 01:EVP01 = EVP01 + 01
If RetEsito = "Terno" Then EV02 = EV02 + 01:EVP02 = EVP02 + 01
If RetEsito = "Quaterna" Then EV03 = EV03 + 01:EVP03 = EVP03 + 01
If RetEsito = "Cinquina" Then EV04 = EV04 + 01:EVP04 = EVP04 + 01
If RetEsito = "5+1" Then EV05 = EV05 + 01:EVP05 = EVP05 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01:EVP06 = EVP06 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & _
" ..estratti al superenalotto... " & StringaEstrattiSE(ESSE + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
'ElseIf RetEsito = "" And RetColpi < 01 Then
'Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
' Else
' Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n1(01)) & _
'" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & "negativo ")
End If
If es + xlp > fin Then Exit For
Next
nn(1) = Fuori90(nn(1) + 18)
nn(2) = Fuori90(nn(2) + 18)
nn(3) = Fuori90(nn(3) + 18)
nn(4) = Fuori90(nn(4) + 18)
nn(5) = Fuori90(nn(5) + 18)
nn(6) = Fuori90(nn(6) + 18)
OrdinaMatrice nn,+ 1
Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)
For xlp = 01 To xColpi
If VerificaEsitoSE(nn,ESSE + xlp,AMBO_,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
If RetEsito = "Ambo" Then EV01 = EV01 + 01:EVP01 = EVP01 + 01
If RetEsito = "Terno" Then EV02 = EV02 + 01:EVP02 = EVP02 + 01
If RetEsito = "Quaterna" Then EV03 = EV03 + 01:EVP03 = EVP03 + 01
If RetEsito = "Cinquina" Then EV04 = EV04 + 01:EVP04 = EVP04 + 01
If RetEsito = "5+1" Then EV05 = EV05 + 01:EVP05 = EVP05 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01:EVP06 = EVP06 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & _
" ..estratti al superenalotto... " & StringaEstrattiSE(ESSE + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
'ElseIf RetEsito = "" And RetColpi < 01 Then
'Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
' Else
' Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n1(01)) & _
'" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & "negativo ")
End If
If es + xlp > fin Then Exit For
Next
nn(1) = Fuori90(nn(1) + 4)
nn(2) = Fuori90(nn(2) + 4)
nn(3) = Fuori90(nn(3) + 4)
nn(4) = Fuori90(nn(4) + 4)
nn(5) = Fuori90(nn(5) + 4)
nn(6) = Fuori90(nn(6) + 4)
OrdinaMatrice nn,+ 1
Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)
For xlp = 01 To xColpi
If VerificaEsitoSE(nn,ESSE + xlp,AMBO_,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
If RetEsito = "Ambo" Then EV01 = EV01 + 01:EVP01 = EVP01 + 01
If RetEsito = "Terno" Then EV02 = EV02 + 01:EVP02 = EVP02 + 01
If RetEsito = "Quaterna" Then EV03 = EV03 + 01:EVP03 = EVP03 + 01
If RetEsito = "Cinquina" Then EV04 = EV04 + 01:EVP04 = EVP04 + 01
If RetEsito = "5+1" Then EV05 = EV05 + 01:EVP05 = EVP05 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01:EVP06 = EVP06 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & _
" ..estratti al superenalotto... " & StringaEstrattiSE(ESSE + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
'ElseIf RetEsito = "" And RetColpi < 01 Then
'Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
' Else
' Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n1(01)) & _
'" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & "negativo ")
End If
If es + xlp > fin Then Exit For
Next
nn(1) = Fuori90(nn(1) + 36)
nn(2) = Fuori90(nn(2) + 36)
nn(3) = Fuori90(nn(3) + 36)
nn(4) = Fuori90(nn(4) + 36)
nn(5) = Fuori90(nn(5) + 36)
nn(6) = Fuori90(nn(6) + 36)
OrdinaMatrice nn,+ 1
Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)
For xlp = 01 To xColpi
If VerificaEsitoSE(nn,ESSE + xlp,AMBO_,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
If RetEsito = "Ambo" Then EV01 = EV01 + 01:EVP01 = EVP01 + 01
If RetEsito = "Terno" Then EV02 = EV02 + 01:EVP02 = EVP02 + 01
If RetEsito = "Quaterna" Then EV03 = EV03 + 01:EVP03 = EVP03 + 01
If RetEsito = "Cinquina" Then EV04 = EV04 + 01:EVP04 = EVP04 + 01
If RetEsito = "5+1" Then EV05 = EV05 + 01:EVP05 = EVP05 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01:EVP06 = EVP06 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & _
" ..estratti al superenalotto... " & StringaEstrattiSE(ESSE + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
'ElseIf RetEsito = "" And RetColpi < 01 Then
'Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
' Else
' Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n1(01)) & _
'" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & "negativo ")
End If
If es + xlp > fin Then Exit For
Next
End If
Next
Call Scrivi(String(125,"-"))
Call Scrivi()
Call Scrivi("RIEPILOGO ESITI COMPLESSIVO CON PROCEDURA DA METODO")
Call Scrivi()
Call Scrivi("DUE : " & FormattaStringa(EV01,"00"))
Call Scrivi("TRE : " & FormattaStringa(EV02,"00"))
Call Scrivi("QUATTRO : " & FormattaStringa(EV03,"00"))
Call Scrivi("CINQUE : " & FormattaStringa(EV04,"00"))
Call Scrivi("5 + 1 : " & FormattaStringa(EV05,"00"))
Call Scrivi("SEI : " & FormattaStringa(EV06,"00"))
'-----------------------------------------------------------------
' Call Scrivi(String(125,"-"))
'Call Scrivi()
'Call Scrivi("RIEPILOGO ESITI COMPLESSIVO CON REGOLE MATEMATICHE")
'Call Scrivi()
'Call Scrivi("DUE : " & FormattaStringa(EV010,"00"))
'Call Scrivi("TRE : " & FormattaStringa(EV020,"00"))
'Call Scrivi("QUATTRO : " & FormattaStringa(EV030,"00"))
'Call Scrivi("CINQUE : " & FormattaStringa(EV040,"00"))
'Call Scrivi("5 + 1 : " & FormattaStringa(EV050,"00"))
'Call Scrivi("SEI : " & FormattaStringa(EV060,"00"))
End Sub
