Novità

CHI MI PUò AITARE QUI

M

matt68

Member
Sub Main
Dim FIn,Es,Es2,Es3,Lillo,Ini,N1,N2,N3,N4,N5,N6,Retnum,Retvinc
Dim Caso,Casi,A,B,C,D,Clp,Ind_Me,Ambetto,k
Dim Amba(1),Ambo(3),Ambo1(3),Posta(1),Poste(2),Ruo(3),Ruo1(2)
Dim Ru1,Ru2,Ru3,Ru4,Ru5,Ru6,Ru7,Ru8,Ru9,Ru10,Ru11
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10550)
Clp = InputBox("Per quanti colpi vuoi giocare?",Lillo,13)
Ind_Me = CInt(InputBox("Inserisci il numero dell'indice mensile",Lillo,13))
Posta(1) = 1
Poste(2) = 1
'Scrivi "Solo Una Ambata ed un Ambo Secco di Lillo PER LE SORTI DI AMBETTO AMBO TERNO- Con scelta Indice Mensile - Script Lillo",1,,4,,3,,1
Ruo(1) = MI_ : Ruo(2) = NZ_: Ruo(3) = TT_
Ruo1(1) = MI_ : Ruo1(2) = NZ_

For Es = Ini To FIn
If IndiceMensile(Es) = 13 Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
A = CInt(Estratto(Es,MI_,2))
B = CInt(Estratto(Es,MI_,3))
C = CInt(Estratto(Es,NA_,2))
D = CInt(Estratto(Es,TO_,2))
N1 = CInt(Fuori90(A + 29))
N2 = CInt(Fuori90(N1 +40))
N3 = CInt(Fuori90(N2 +30))
N4 = CInt(Fuori90(B + 61))
N5 = CInt(Fuori90(N4 +50))
N6 = CInt(Fuori90(N5 +45))
: Ruo(2) = MI_
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi Space(5) & "INDICE MENSILE INSERITO " & Ind_Me,1,,,1
Scrivi
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo1,Posta,Clp,1
Ambo(1) = N1 : Ambo(2) = N2: Ambo(3) = N3
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
Gioca Es2
Scrivi
Amba(2) = N4 : Ambo(2) = N5: Ambo(3) = N6
ImpostaGiocata 3,Ambo1,Ruo,Poste,Clp,3

Gioca Es2
Scrivi Space(20) & "AMBETTI",1,,,2
For k = 1 To Clp
Ru1 = MI_
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,Ru1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
Ru2 = TT_
Ambetto = VerificaAmbetto(Ambo,Ru2,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1

End If
Next
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub


MI DA ERRORE
 
Codice: 
Option Explicit

Sub Main
    ' --- COSTANTI RUOTE CORRETTE PER L8+ (LottoDelta / Spaziometria) ---
    Const BA_ = 1
    Const CA_ = 2
    Const FI_ = 3
    Const GE_ = 4
    Const MI_ = 5      ' ? Milano = 5
    Const NA_ = 6      ' ? Napoli = 6
    Const PA_ = 7
    Const RM_ = 8
    Const TO_ = 9
    Const VE_ = 10
    Const NZ_ = 11     ' ? Nazionale = 11
    Const TT_ = 12     ' ? Tutte = 12

    Dim FIn, Es, Es2, Ini, N1, N2, N3, N4, N5, N6, Retnum, Retvinc
    Dim Caso, Casi, A, B, C, D, Clp, Ind_Me, Ambetto, k
    Dim Amba(1), Ambo(3), Ambo1(3), Posta(1), Poste(2), Ruo(3), Ruo1(2)

    FIn = EstrazioneFin
    If FIn < 1 Then
        MsgBox "Archivio estrazioni non disponibile!", vbCritical
        Exit Sub
    End If

    ' --- Input utente ---
    Ini = InputBox("Inserisci l'estrazione da cui iniziare", , FIn - 100)
    If Ini = "" Or Not IsNumeric(Ini) Or CLng(Ini) < 1 Or CLng(Ini) > FIn Then Exit Sub
    Ini = CLng(Ini)

    Clp = InputBox("Per quanti colpi vuoi giocare?", , 13)
    If Clp = "" Or Not IsNumeric(Clp) Or CInt(Clp) < 1 Then Clp = 13
    Clp = CInt(Clp)

    Ind_Me = InputBox("Inserisci l'indice mensile da cercare (es. 13)", , 13)
    If Ind_Me = "" Or Not IsNumeric(Ind_Me) Then Ind_Me = 13
    Ind_Me = CInt(Ind_Me)

    ' --- Impostazioni giocate ---
    Posta(1) = 1
    Poste(2) = 1

    ' ? Ruote per ambo/terno: MI, NZ, TT (invariato)
    Ruo(1) = MI_ : Ruo(2) = NZ_ : Ruo(3) = TT_

    Casi = 0

    ' --- Ciclo principale ---
    For Es = Ini To FIn
        If IndiceMensile(Es) = Ind_Me Then
            Messaggio Es
            AvanzamentoElab Ini, FIn, Es

            ' --- Estrai numeri con controllo Null ---
            Dim tA, tB, tC, tD
            tA = Estratto(Es, MI_, 2)   ' Milano, 2° estratto
            tB = Estratto(Es, MI_, 3)   ' Milano, 3° estratto
            tC = Estratto(Es, NA_, 2)   ' Napoli, 2° estratto
            tD = Estratto(Es, TO_, 2)   ' Torino, 2° estratto

            If IsNull(tA) Or IsNull(tB) Or IsNull(tC) Or IsNull(tD) Then
                Continue 
            End If

            A = CInt(tA)
            B = CInt(tB)
            C = CInt(tC)
            D = CInt(tD)

            ' --- Calcoli originali di Lillo ---
            N1 = Fuori90(A + 29)
            N2 = Fuori90(N1 + 40)
            N3 = Fuori90(N2 + 30)
            N4 = Fuori90(B + 61)
            N5 = Fuori90(N4 + 50)
            N6 = Fuori90(N5 + 45)

            Caso = Caso + 1
            Casi = Casi + 1

            ' --- Stampa ---
            ColoreTesto 2
            Scrivi String(89, "*") & " Casi Totali " & FormattaStringa(Casi, "0000")
            ColoreTesto 1
            Scrivi String(80, "*") & " Estrazione " & Es & " caso " & FormattaStringa(Caso, "0000")
            ColoreTesto 0
            Scrivi " Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es), 1, 0
            Scrivi " INDICE MENSILE: " & Ind_Me & " | Gruppo1=" & N1 & "." & N2 & "." & N3 & " | Gruppo2=" & N4 & "." & N5 & "." & N6, 1
            Scrivi

            ' >>> AMBATA RIMOSSA COMPLETAMENTE <<<
            ' (nessuna ImpostaGiocata 1, nessun riferimento ad Amba)

            ' --- Giocata 1: Prima terzina (MI, NZ, TT) ---
            If N1 <> N2 And N1 <> N3 And N2 <> N3 Then
                Ambo(1) = N1 : Ambo(2) = N2 : Ambo(3) = N3
                ImpostaGiocata 2, Ambo, Ruo, Poste, Clp, 2
            End If

            ' --- Giocata 2: Seconda terzina (MI, NZ, TT) ---
            If N4 <> N5 And N4 <> N6 And N5 <> N6 Then
                Ambo1(1) = N4 : Ambo1(2) = N5 : Ambo1(3) = N6
                ImpostaGiocata 3, Ambo1, Ruo, Poste, Clp, 3
            End If

            Gioca Es

            ' --- Verifica Ambetti SOLO su MI e NA (come richiesto) ---
            Scrivi Space(20) & "VERIFICA AMBETTI", 1, , , 2

            For k = 1 To Clp
                Es2 = Es + k
                If Es2 > FIn Then Exit For

                ' --- Prima terzina: MI e NA ---
                Ambetto = VerificaAmbetto(Ambo, MI_, Es2, Retnum, Retvinc)
                If Ambetto > 0 Then
                    Scrivi " ? Ambetto (Gruppo1) su MI: " & Retnum & " del " & DataEstrazione(Es2), 1
                    Scrivi "    Vincita: " & Retvinc & "x", 1
                End If

                Ambetto = VerificaAmbetto(Ambo, NA_, Es2, Retnum, Retvinc)
                If Ambetto > 0 Then
                    Scrivi " ? Ambetto (Gruppo1) su NA: " & Retnum & " del " & DataEstrazione(Es2), 1
                    Scrivi "    Vincita: " & Retvinc & "x", 1
                End If

                ' --- Seconda terzina: MI e NA ---
                Ambetto = VerificaAmbetto(Ambo1, MI_, Es2, Retnum, Retvinc)
                If Ambetto > 0 Then
                    Scrivi " ? Ambetto (Gruppo2) su MI: " & Retnum & " del " & DataEstrazione(Es2), 1
                    Scrivi "    Vincita: " & Retvinc & "x", 1
                End If

                Ambetto = VerificaAmbetto(Ambo1, NA_, Es2, Retnum, Retvinc)
                If Ambetto > 0 Then
                    Scrivi " ? Ambetto (Gruppo2) su NA: " & Retnum & " del " & DataEstrazione(Es2), 1
                    Scrivi "    Vincita: " & Retvinc & "x", 1
                End If
            Next

            If ScriptInterrotto Then Exit Sub
        End If
    Next

    ScriviResoconto
End Sub

Qf1xJJGELi.png
 
Ultima modifica:
Salve, ho eseguito con questo Script, e da' come detto il terno ! ( i numeri Pronosticati sono DIVERSI..)

'
' Script: LilloEX.ls - Del 30 Set. 2025
' https://forum.lottoced.com/threads/chi-mi-può-aitare-qui.2224827/
'
Sub Main
Dim FIn,Es,Es2,Es3,Lillo,Ini,N1,N2,N3,N4,N5,N6,Retnum,Retvinc
Dim Caso,Casi,A,B,C,D,Clp,Ind_Me,Ambetto,k
Dim Amba(1),Ambo(3),Ambo1(3),Posta(1),Poste(2),Ruo(3),Ruo1(2)
Dim Ru1,Ru2,Ru3,Ru4,Ru5,Ru6,Ru7,Ru8,Ru9,Ru10,Ru11
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10550)
Clp = InputBox("Per quanti colpi vuoi giocare?",Lillo,13)
Ind_Me = CInt(InputBox("Inserisci il numero dell'indice mensile",Lillo,13))
Posta(1) = 1
Poste(2) = 1
'Scrivi "Solo Una Ambata ed un Ambo Secco di Lillo PER LE SORTI DI AMBETTO AMBO TERNO- Con scelta Indice Mensile - Script Lillo",1,,4,,3,,1
Ruo(1) = MI_ : Ruo(2) = NZ_: Ruo(3) = TT_
Ruo1(1) = MI_ : Ruo1(2) = NZ_

For Es = Ini To FIn
If IndiceMensile(Es) = 13 Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
A = CInt(Estratto(Es,MI_,2))
B = CInt(Estratto(Es,MI_,3))
C = CInt(Estratto(Es,NA_,2))
D = CInt(Estratto(Es,TO_,2))
N1 = CInt(Fuori90(A + 29))
N2 = CInt(Fuori90(N1 + 40))
N3 = CInt(Fuori90(N2 + 30))
N4 = CInt(Fuori90(B + 61))
N5 = CInt(Fuori90(N4 + 50))
N6 = CInt(Fuori90(N5 + 45))
: Ruo(2) = MI_
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi Space(5) & "INDICE MENSILE INSERITO " & Ind_Me,1,,,1
Scrivi
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo1,Posta,Clp,1
Ambo(1) = N1 : Ambo(2) = N2: Ambo(3) = N3
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
' Gioca Es2 ' commentare
Scrivi
Ambo(1) = N4 : Ambo(2) = N5: Ambo(3) = N6 ' Ambo(1) = N4
ImpostaGiocata 3,Ambo1,Ruo,Poste,Clp,3

Gioca Es,,,1
Scrivi Space(20) & "AMBETTI",1,,,2
For k = 1 To Clp
Ru1 = MI_
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,Ru1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
Ru2 = TT_
Ambetto = VerificaAmbetto(Ambo,Ru2,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1

End If
Next
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub
'
Non ho ancora controllato perche' ? sono differenti , ma non tanto, se puo' servire un altra VERIFICA

Buona Serata
 
Non ho ancora verificato ma la previsione sono due terni ce devono girare su ruote mi nz e tt

Per ambetto su mi è naz e terno su mi
Grazie
 
La previsione per questo mese

la previsione è Milano 22-62-2 e 59-19-64 per ambo ambetto e terno

Ripeto ambo e terno MI NZ TT

Ambetto ambo e terno su MI NZ
 
Lottopython ha scritto:
Codice: 
Option Explicit

Sub Main
    ' --- COSTANTI RUOTE CORRETTE PER L8+ (LottoDelta / Spaziometria) ---
    Const BA_ = 1
    Const CA_ = 2
    Const FI_ = 3
    Const GE_ = 4
    Const MI_ = 5      ' ? Milano = 5
    Const NA_ = 6
    Const PA_ = 7
    Const RM_ = 8
    Const TO_ = 9
    Const VE_ = 10
    Const NZ_ = 11     ' ? Nazionale = 11
    Const TT_ = 12     ' ? Tutte = 12

    Dim FIn, Es, Es2, Ini, N1, N2, N3, N4, N5, N6, Retnum, Retvinc
    Dim Caso, Casi, A, B, C, D, Clp, Ind_Me, Ambetto, k
    Dim Amba(1), Ambo(3), Ambo1(3), Posta(1), Poste(2), Ruo(3), Ruo1(2)

    FIn = EstrazioneFin
    If FIn < 1 Then
        MsgBox "Archivio estrazioni non disponibile!", vbCritical
        Exit Sub
    End If

    ' --- Input utente ---
    Ini = InputBox("Inserisci l'estrazione da cui iniziare", , FIn - 100)
    If Ini = "" Or Not IsNumeric(Ini) Or CLng(Ini) < 1 Or CLng(Ini) > FIn Then Exit Sub
    Ini = CLng(Ini)

    Clp = InputBox("Per quanti colpi vuoi giocare?", , 13)
    If Clp = "" Or Not IsNumeric(Clp) Or CInt(Clp) < 1 Then Clp = 13
    Clp = CInt(Clp)

    Ind_Me = InputBox("Inserisci l'indice mensile da cercare (es. 13)", , 13)
    If Ind_Me = "" Or Not IsNumeric(Ind_Me) Then Ind_Me = 13
    Ind_Me = CInt(Ind_Me)

    ' --- Impostazioni giocate ---
    Posta(1) = 1
    Poste(2) = 1

    ' ? Ruote corrette: Ambata su MI (5) e NZ (11)
    Ruo1(1) = MI_ : Ruo1(2) = NZ_

    ' ? Ambo/Terno su MI (5), NZ (11), TT (12)
    Ruo(1) = MI_ : Ruo(2) = NZ_ : Ruo(3) = TT_

    Casi = 0

    ' --- Ciclo principale ---
    For Es = Ini To FIn
        If IndiceMensile(Es) = Ind_Me Then
            Messaggio Es
            AvanzamentoElab Ini, FIn, Es

            ' --- Estrai numeri con controllo Null ---
            Dim tA, tB, tC, tD
            tA = Estratto(Es, MI_, 2)   ' Milano, 2° estratto
            tB = Estratto(Es, MI_, 3)   ' Milano, 3° estratto
            tC = Estratto(Es, NA_, 2)   ' Napoli, 2° estratto
            tD = Estratto(Es, TO_, 2)   ' Torino, 2° estratto

            If IsNull(tA) Or IsNull(tB) Or IsNull(tC) Or IsNull(tD) Then
                Continue
            End If

            A = CInt(tA)
            B = CInt(tB)
            C = CInt(tC)
            D = CInt(tD)

            ' --- Calcoli originali di Lillo ---
            N1 = Fuori90(A + 29)
            N2 = Fuori90(N1 + 40)
            N3 = Fuori90(N2 + 30)
            N4 = Fuori90(B + 61)
            N5 = Fuori90(N4 + 50)
            N6 = Fuori90(N5 + 45)

            Caso = Caso + 1
            Casi = Casi + 1

            ' --- Stampa ---
            ColoreTesto 2
            Scrivi String(89, "*") & " Casi Totali " & FormattaStringa(Casi, "0000")
            ColoreTesto 1
            Scrivi String(80, "*") & " Estrazione " & Es & " caso " & FormattaStringa(Caso, "0000")
            ColoreTesto 0
            Scrivi " Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es), 1, 0
            Scrivi " INDICE MENSILE: " & Ind_Me & " | Ambata=" & N1 & _
                   " | Gruppo1=" & N1 & "." & N2 & "." & N3 & " | Gruppo2=" & N4 & "." & N5 & "." & N6, 1
            Scrivi

            ' --- Giocata 1: Ambata su MI e NZ ---
            Amba(1) = N1
            ImpostaGiocata 1, Amba, Ruo1, Posta, Clp, 1

            ' --- Giocata 2: Prima terzina (MI, NZ, TT) ---
            If N1 <> N2 And N1 <> N3 And N2 <> N3 Then
                Ambo(1) = N1 : Ambo(2) = N2 : Ambo(3) = N3
                ImpostaGiocata 2, Ambo, Ruo, Poste, Clp, 2
            End If

            ' --- Giocata 3: Seconda terzina (MI, NZ, TT) ---
            If N4 <> N5 And N4 <> N6 And N5 <> N6 Then
                Ambo1(1) = N4 : Ambo1(2) = N5 : Ambo1(3) = N6
                ImpostaGiocata 3, Ambo1, Ruo, Poste, Clp, 3
            End If

            Gioca Es

            ' --- Verifica Ambetti su MI e TT ---
            Scrivi Space(20) & "VERIFICA AMBETTI", 1, , , 2

            For k = 1 To Clp
                Es2 = Es + k
                If Es2 > FIn Then Exit For

                ' Prima terzina
                Ambetto = VerificaAmbetto(Ambo, MI_, Es2, Retnum, Retvinc)
                If Ambetto > 0 Then
                    Scrivi " ? Ambetto (Gruppo1) su MI: " & Retnum & " del " & DataEstrazione(Es2), 1
                    Scrivi "    Vincita: " & Retvinc & "x", 1
                End If

                Ambetto = VerificaAmbetto(Ambo, TT_, Es2, Retnum, Retvinc)
                If Ambetto > 0 Then
                    Scrivi " ? Ambetto (Gruppo1) su TT: " & Retnum & " del " & DataEstrazione(Es2), 1
                    Scrivi "    Vincita: " & Retvinc & "x", 1
                End If

                ' Seconda terzina
                Ambetto = VerificaAmbetto(Ambo1, MI_, Es2, Retnum, Retvinc)
                If Ambetto > 0 Then
                    Scrivi " ? Ambetto (Gruppo2) su MI: " & Retnum & " del " & DataEstrazione(Es2), 1
                    Scrivi "    Vincita: " & Retvinc & "x", 1
                End If

                Ambetto = VerificaAmbetto(Ambo1, TT_, Es2, Retnum, Retvinc)
                If Ambetto > 0 Then
                    Scrivi " ? Ambetto (Gruppo2) su TT: " & Retnum & " del " & DataEstrazione(Es2), 1
                    Scrivi "    Vincita: " & Retvinc & "x", 1
                End If
            Next

            If ScriptInterrotto Then Exit Sub
        End If
    Next

    ScriviResoconto
End Sub

IdpF4TIdom.png
Clicca per espandere...
QUESTO SEMBTA PERFFETTO SOLO CHE GLI AMBETTI VANNO GIOCATI SU MI E NA
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 30 settembre 2025
    Bari
    14
    59
    63
    72
    68
    Cagliari
    05
    42
    65
    20
    30
    Firenze
    64
    61
    33
    56
    31
    Genova
    16
    38
    14
    31
    17
    Milano
    67
    80
    18
    26
    90
    Napoli
    56
    46
    13
    88
    20
    Palermo
    12
    68
    09
    26
    14
    Roma
    81
    80
    31
    84
    01
    Torino
    84
    69
    47
    12
    10
    Venezia
    74
    79
    06
    53
    81
    Nazionale
    83
    81
    47
    13
    66
    Estrazione Simbolotto
    Palermo
    41
    40
    45
    13
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto