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
 
da verificare .
Codice: 
Option Explicit
Sub Main
    ' --- Definizione ruote (obbligatorie) ---
    Const MI_ = 1
    Const NA_ = 2
    Const TO_ = 3
    Const NZ_ = 4
    Const TT_ = 5

    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)
    Dim Ru1, Ru2

    FIn = EstrazioneFin

    ' --- Input utente (usati SOLO per stampa, non per logica) ---
    Ini = InputBox("Inserisci l'estrazione che vuoi iniziare", , 10550)
    If Ini = "" Or Not IsNumeric(Ini) Or CLng(Ini) < 1 Or CLng(Ini) > FIn Then
        MsgBox "Estrazione non valida!", vbExclamation
        Exit Sub
    End If
    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 il numero dell'indice mensile (solo per stampa)", , 13)
    If Ind_Me = "" Or Not IsNumeric(Ind_Me) Then Ind_Me = 13
    Ind_Me = CInt(Ind_Me)

    Posta(1) = 1
    Poste(2) = 1

    Ruo(1) = MI_ : Ruo(2) = NZ_ : Ruo(3) = TT_
    Ruo1(1) = MI_ : Ruo1(2) = NZ_

    Casi = 0

    For Es = Ini To FIn
        ' ?? Lillo usa SEMPRE indice = 13, NON il valore inserito!
        If IndiceMensile(Es) = 13 Then
            Messaggio Es
            AvanzamentoElab Ini, FIn, Es

            ' --- Controllo estratti ---
            Dim tA, tB, tC, tD
            tA = Estratto(Es, MI_, 2)
            tB = Estratto(Es, MI_, 3)
            tC = Estratto(Es, NA_, 2)
            tD = Estratto(Es, TO_, 2)

            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)

            N1 = Fuori90(A + 29)
            N2 = Fuori90(N1 + 40)
            N3 = Fuori90(N2 + 30)
            N4 = Fuori90(B + 61)
            N5 = Fuori90(N4 + 50)
            N6 = Fuori90(N5 + 45)

            ' ?? Modifica ruota come nell'originale
            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

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

            ' --- Giocata 2: Ambo/Terno (N1,N2,N3) ---
            Ambo(1) = N1 : Ambo(2) = N2 : Ambo(3) = N3
            ImpostaGiocata 2, Ambo, Ruo, Poste, Clp, 2

            Gioca Es  ' ? Non Es2!

            Scrivi

            ' --- Giocata 3: Ambo/Terno (N4,N5,N6) ---
            Ambo1(1) = N4 : Ambo1(2) = N5 : Ambo1(3) = N6  ' ? CORRETTO!
            ImpostaGiocata 3, Ambo1, Ruo, Poste, Clp, 3

            Gioca Es  ' ? Non Es2!

            ' --- Verifica Ambetti ---
            Scrivi Space(20) & "AMBETTI", 1, , , 2

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

                ' Su Milano
                Ambetto = VerificaAmbetto(Ambo, MI_, 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

                ' Su Tutte
                Ambetto = VerificaAmbetto(Ambo, TT_, 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
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 27 settembre 2025
    Bari
    38
    55
    18
    54
    58
    Cagliari
    15
    58
    62
    51
    78
    Firenze
    01
    10
    50
    21
    20
    Genova
    66
    33
    51
    03
    04
    Milano
    01
    74
    66
    42
    26
    Napoli
    80
    60
    31
    17
    22
    Palermo
    42
    26
    72
    68
    48
    Roma
    57
    62
    79
    89
    56
    Torino
    01
    28
    27
    32
    85
    Venezia
    18
    23
    28
    70
    81
    Nazionale
    36
    78
    02
    52
    65
    Estrazione Simbolotto
    Palermo
    03
    04
    24
    45
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto