script da sviluppare

[margot]

in qualsiasi estrazione, rintracciata su qualsiasi ruota un ambo di somma 90 in 1° e 2° e 3° posizione, ricaveremo l'ambata da giocare sulle ruote di GE e TO sommando il fisso 65 al 2° estratto di BA.
1 abbinamento: 1° di RO + il fisso 65
2 abbinamento: 1° di NA + il fisso 34

giocare x 6 colpi


grazie a chi mi aiuta a svilupparlo

 

[Edoardo_95]

Sub Main
    ColoreTesto 2
    Scrivi "AMBI SOMMA 90"
    Scrivi "METODO BY Margot"
    ColoreTesto 0
    Dim ruote(2)
    Dim posta(1)
    Dim poste(2)
    Dim ambata(1)
    Dim ambo1(2)
    Dim ambo2(2)
    posta(1) = 1
    poste(2) = 1
    k = CInt(InputBox("Quante estrazioni controllare?",,400))
    clp = CInt(InputBox("Quanti colpi di gioco?",,6))
    s = CInt(InputBox("Quale somma devono avere gli ambi?",,90))
    Ini = EstrazioneFin - k
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio "Script by Edo"
        Call AvanzamentoElab(Ini,fin,es)
        For r = 1 To 10
            a = Estratto(es,r,1)
            b = Estratto(es,r,2)
            c = Estratto(es,r,3)
            ok = 0
            If(a + b) = s Or(a + c) = s Or(b + c) = s Then
                ambata(1) = Fuori90((Estratto(es,BA_,2)) + 65)
                ambo1(1) = ambata(1)
                ambo1(2) = Fuori90((Estratto(es,RO_,1)) + 65)
                ambo2(1) = ambata(1)
                ambo2(2) = Fuori90((Estratto(es,BA_,1)) + 34)
                ok = 1
            End If
            If ok = 1 Then
                co = co + 1
                ColoreTesto 1
                Scrivi String(100,"=") & " Caso n°" & co,1
                Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & "  Ambo somma novanta rilevato "
                Scrivi String(100,"=")
                ColoreTesto 0
                ruote(1) = GE_ : ruote(2) = TO_
                ImpostaGiocata 1,ambata,ruote,posta,clp
                ImpostaGiocata 2,ambo1,ruote,poste,clp
                ImpostaGiocata 3,ambo2,ruote,poste,clp
                Gioca es
            End If
        Next
    Next
    ScriviResoconto
End Sub

 

[Edoardo_95]

Spero di esserti stato utile