Bari al 100% nella storia non fallisce. SICURA (negativa)

[Membro cancellato 16574]

Buongiorno ,
Salutando tutti .
Postiamo il listato richiesto .

Option Explicit
'Bari al 100% nella storia non fallisce. SICURA (negativa) di asiagoDOP
'http://forum.lottoced.com/forum/lottoced/metodi/1980727-bari-al-100-nella-storia-non-fallisce-sicura-negativa
Sub Main()
    Dim posta(01),poste(02)
    posta(01) = 1
    poste(02) = 1
    Dim casi
    casi = 00
    Dim clp
    clp = 10
    Dim Ini,fin,es
    Ini = 4867
    fin = EstrazioneFin
    For es = Ini To fin
        Call Messaggio(es)
        Call AvanzamentoElab(Ini,fin,es)
        Dim r
        r = BA_
        Dim p1,p2
        For p1 = 01 To 04
            For p2 = p1 + 01 To 05
                Dim a,b
                a = Estratto(es,01,p1) : b = Estratto(es,01,p2)
                If a = 03 And b = 74 Or a = 74 And b = 03 Then
                    casi = casi + 01
                    Call Scrivi((String(125,"-")) & " Caso n° " & Format2(casi),01)
                    Call Scrivi(GetInfoEstrazione(es) & " - " & StringaEstratti(es,r) & " - Ambo spia 3-74 sulla ruota di " & NomeRuota(r),01)
                    Call Scrivi(String(125,"-"))
                    ReDim a01(01)
                    Dim a02,a03,a04,a05,a06,a07,a08
                    ReDim ruota(01)
                    ruota(01) = r
                    a01(01) = Fuori90(((90 + Estratto(es,BA_,02)) - Estratto(es,VE_,05)) + 47)
                    Call ImpostaGiocata(01,a01,ruota,posta,clp,01)
                    a02 = Array(Fuori90(((90 + Estratto(es,BA_,02)) - Estratto(es,VE_,05)) + 47),03)
                    Call ImpostaGiocata(02,a02,ruota,poste,clp,02,,01)
                    a03 = Array(Fuori90(((90 + Estratto(es,BA_,02)) - Estratto(es,VE_,05)) + 47),06)
                    Call ImpostaGiocata(03,a03,ruota,poste,clp,02,,01)
                    a04 = Array(Fuori90(((90 + Estratto(es,BA_,02)) - Estratto(es,VE_,05)) + 47),11)
                    Call ImpostaGiocata(04,a04,ruota,poste,clp,02,,01)
                    a05 = Array(Fuori90(((90 + Estratto(es,BA_,02)) - Estratto(es,VE_,05)) + 47),69)
                    Call ImpostaGiocata(05,a05,ruota,poste,clp,02,,01)
                    a06 = Array(Fuori90(((90 + Estratto(es,BA_,02)) - Estratto(es,VE_,05)) + 47),13)
                    Call ImpostaGiocata(06,a06,ruota,poste,clp,02,,01)
                    a07 = Array(Fuori90(((90 + Estratto(es,BA_,02)) - Estratto(es,VE_,05)) + 47),39)
                    Call ImpostaGiocata(07,a07,ruota,poste,clp,02,,01)
                    a08 = Array(Fuori90(((90 + Estratto(es,BA_,02)) - Estratto(es,VE_,05)) + 47),03,06,11,69,13,39)
                    Call ImpostaGiocata(08,a08,ruota,poste,clp,02)
                    Call Gioca(es,True,,01)
                End If
            Next
        Next
    Next
    Call ScriviResoconto()
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

 

[skygirl]

magia grazie per il listato