script modifica

[lottofortune]

Salve qualcuno può aiutarmi a modificare questo script che ho trovato nel forum..Creato dal buon mike58..? Praticamente mi deve rilevare la distanza 5 su tutte le ruote non solo su quelle contigue.. Grazie mille..


Sub Main ' x trylli Dim nu(4),num(2),ru(2),posta(1),poste(3) posta(1) = 1 poste(2) = 1 poste(3) = 1 Ini = EstrazioneFin - 100 fin = EstrazioneFin For es = Ini To fin For r1 = 1 To 10 r2 = r1 + 1 If r2 = 11 Then r2 = 12 For p1 = 1 To 5 a = Estratto(es,r1,p1) b = Estratto(es,r2,p1) If a = DiametraleD(b) Then k = k + 1 Scrivi String(100,"=") & " Caso n. " & k,1 Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " " & Format2(a) & " Pos " & p1 Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " " & Format2(b) & " Pos " & p1 nu(1) = Fuori90(a + 11) nu(2) = Fuori90(b + 11) nu(3) = Fuori90(nu(1) + nu(2)) nu(4) = Vert(nu(3)) num(1) = Fuori90(nu(1) + nu(2)) num(2) = Vert(nu(3)) ru(1) = r1 ru(2) = r2 Scrivi "Numeri ricavati + fisso 11 -> " & StringaNumeri(nu),1 Scrivi String(100,"-") ImpostaGiocata 1,num,ru,posta,10,1 ImpostaGiocata 2,nu,ru,poste,10,2 Gioca es,1 End If Next Next Next ScriviResoconto End Sub

 

[Membro cancellato 16574]

Buongiorno,
Salutando,
le diamo un consiglio , citando un iscritto , BaffoBlu :

Non postate gli script a colori,
perchè perdono tutta la formattazione,
e quando si inseriscono in spaziometria,
bisogna lavorarci su anche parecchio,
a secondo dello script.
Usate il code # previsto in modalita avanzata.
o al limite all'inizio dello script mettete :
" parentesi quadra, code , parentesi quadra ".
alla fine dello script, invece mettete :
" parentesi quadra, /code, parentesi quadra "

Comunque questo e' il listato modificato

Option Explicit
'script modifica di lottofortune
'http://forum.lottoced.com/forum/lottoced/area-download/2043486-script-modifica
Sub Main ' x trylli
    Dim nu(04),num(02),ru(02),posta(01),poste(03)
    Dim Ini,fin,es
    Dim r1,r2,p1,a,b,k
    posta(01) = 1
    poste(02) = 1
    poste(03) = 1
    Ini = EstrazioneFin - 100
    fin = EstrazioneFin
    For es = Ini To fin
        Call Messaggio(es)
        Call AvanzamentoElab(Ini,fin,es)
        For r1 = 01 To 10
            For r2 = r1 + 01 To 11
                If r2     = 11 Then r2 = 12
                For p1 = 01 To 05
                    a = Estratto(es,r1,p1)
                    b = Estratto(es,r2,p1)
                    If a = DiametraleD(b)Then
                        k = k + 01
                        Call Scrivi(String(100,"=") & " Caso n. " & Format2(k),01)
                        Call Scrivi(GetInfoEstrazione(es) & " " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " " & Format2(a) & " Pos " & p1)
                        Call Scrivi(GetInfoEstrazione(es) & " " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " " & Format2(b) & " Pos " & p1)
                        nu(1) = Fuori90(a + 11)
                        nu(2) = Fuori90(b + 11)
                        nu(3) = Fuori90(nu(1) + nu(2))
                        nu(4) = Vert(nu(3))
                        num(1) = Fuori90(nu(1) + nu(2))
                        num(2) = Vert(nu(3))
                        ru(1) = r1
                        ru(2) = r2
                        Call Scrivi("Numeri ricavati + fisso 11 -> " & StringaNumeri(nu,,True),,01)
                        Call Scrivi (String(100,"-"),01)
                        Call ImpostaGiocata(01,num,ru,posta,10,01)
                        Call ImpostaGiocata(02,nu,ru,poste,10,02)
                        Call Gioca (es,True,,01)
                    End If
                Next
            Next
        Next
    Next
    Call ScriviResoconto()
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

 

[lottofortune]

Mi scusi magia.... Grazie mille gentilissimo..Buona serata..