CHI MI PUò AITARE QUI

[matt68]

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

 

[matt68]

DEVE RESTITUIRE DUE TERNI E AMBETTI

 

[Lottopython]

da verificare .

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