Superenalotto: Perchè non provarci.....

[lotto69]

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

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

 

[Alien.]

ottimo