Novità

Superenalotto: Perchè non provarci.....

lotto69

Member
Metodo semplice che ricava una solo colonna al Superenalotto da seguire solo per due colpi.
L'elaborazione avviene in ogni estrazione


Codice:
Option Explicit
'Metodo x SuperEnalotto di Fabio
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 - 1000
    fin = EstrazioneFin
    For es = Ini To fin
        If ScriptInterrotto Then Exit For
        Call Messaggio(es)
        Call AvanzamentoElab(Ini,fin,es)
        If 1 = 1 Then ' SI ELABORA IN QUALSIASI ESTRAZIONE
            casi = casi + 01
                      
            nn(1) = Fuori90((Estratto(es,1,3) + 27)*11)
            nn(2) = Fuori90((Estratto(es,1,4) + 17)*37)
             nn(3) = Fuori90((Estratto(es,5,1) + 51)*29)
             nn(4) = Fuori90((Estratto(es,5,3) + 80)*59)
            nn(5) = Fuori90((Estratto(es,7,3) + 38)*43)
             nn(6) = Fuori90((Estratto(es,10,4) + 28)*23)
            
            '
            '---------------------------------------------------------------------------------------------------------------------------------
            '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 = 2
            Dim EVP01,EVP02,EVP03,EVP04,EVP05,EVP06
            EVP01 = 00:EVP02 = 00:EVP03 = 00:EVP04 = 00:EVP05 = 00:EVP06 = 00
            Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
            For xlp = 01 To xColpi
                If VerificaEsitoSE(nn,ESSE + xlp,TERNO_,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)
            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 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(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)

                    Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
                Else
                Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)

                    Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & _
                    " ..... " & 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"))
    '-----------------------------------------------------------------
 
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 settembre 2025
    Bari
    01
    26
    50
    16
    49
    Cagliari
    61
    18
    01
    62
    22
    Firenze
    84
    23
    32
    26
    88
    Genova
    24
    27
    47
    76
    44
    Milano
    59
    08
    06
    11
    39
    Napoli
    02
    65
    40
    28
    57
    Palermo
    09
    66
    51
    81
    49
    Roma
    76
    55
    73
    88
    65
    Torino
    38
    49
    40
    21
    90
    Venezia
    80
    60
    34
    69
    42
    Nazionale
    89
    76
    64
    80
    21
    Estrazione Simbolotto
    Palermo
    39
    34
    02
    08
    43
Indietro
Alto