Aiuto per correzione script

[irepi]

Sub Main()
 
    Dim ruote(12)
    Dim numero1(10)
    Dim numero2(10)
    Dim numero3(10)
    Dim numero4(10)
    Dim numero5(10)
    Dim numero6(10)
    Dim numero7(10)
    Dim numero8(10)
    Dim numero9(10)
    
    Dim posta(5)
    Dim poste(5)
    'posta(1) = 1
    poste(2) = 1
    poste(3) = 1
    poste(4) = 1
    poste(5) = 1
    
    cont = CInt(InputBox("Quante estrazioni controllo?",,10))
    k = InputBox("Inserisci i colpi di gioco",,6)
    co = 0
    For es =(EstrazioneFin - cont) To EstrazioneFin
        Messaggio DataEstrazione(es)
        For r = 1 To 10
            r1 = r + 1
            If r1 = 11 Then r1 = 12
            For p = 1 To 5
                a = Estratto(es,r,p)
                b = Estratto(es,r1,p)
                If Distanza(a,b) = 20 Then    '<<<<<<<<<<<<<<<<DISTANZA
                '----------------------------
                numero1(1) = Format2(a)
                numero1(2) = Format2(b)
                mv = MassimoV(numero1)
                '--------------------------------
                c = mv  

                        ruote(1) = r
                        ruote(2) = r1
                        casi = casi + 1
                        ColoreTesto 0
                        Scrivi String(68,"*") & " Caso n° " & casi,1
                        co = co + 1
                        ColoreTesto 2
                        Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & ":  " & StringaEstratti(es,r) & " - NUMERO ISOTOPO STESSA DECINA DISTANZA 20 --->  " & Format2(a)
                        ColoreTesto 2
                        Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & ":  " & StringaEstratti(es,r1) & " - NUMERO ISOTOPO STESSA DECINA DISTANZA 20 --->  " & Format2(b)
                        ColoreTesto 0
                        Scrivi String(68,"*"),1
                        Scrivi "NUMERO PIU' GRANDE: " & Format2(mv)

                        '-----------------------------------------------------------
                        numero1(1) = c
                        numero1(2) = 1
                        numero1(3) = 31
                        numero1(4) = 55
                        

                        ImpostaGiocata 1,numero1,ruote,posta,k
                        '-----------------------------------------------------------
                        numero2(1) = c
                        numero2(2) = 4
                        numero2(3) = 19
                        numero2(4) = 41
                        

                        ImpostaGiocata 2,numero2,ruote,poste,k,2
                        '-----------------------------------------------------------
                        numero3(1) = c
                        numero3(2) = 7
                        numero3(3) = 21
                        numero3(4) = 22
                        

                        ImpostaGiocata 3,numero3,ruote,poste,k,2
                        '-----------------------------------------------------------
                        numero4(1) = c
                        numero4(2) = 11
                        numero4(3) = 12
                        numero4(4) = 15
                        

                        ImpostaGiocata 4,numero4,ruote,poste,k,2
                        '-----------------------------------------------------------
                                                                    
                        Gioca es,1
                    End If
                'End If
            Next
        Next
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub

Buonasera a tutt!
Vorrei inserire nelle giocate il numero + grande degli estraatti che formano la distanza, ho provato ma ho fatto un pasticcio.
Qualcuno disponibile a risolvere il problema?
Grazie irepi

 

[Mike58]

Anziché usare MassimoVettore, usa solo Massimo(a,b) e trova il massimo tra i 2 estratti a-b.
mv = Massimo(a,b)
c = mv

 

[irepi]

Grazie Mike58!!!! !

 

[irepi]

ancora una cortesia, come posso chiedere allo script di fare i conteggi anche le ruote diametrali?

 

[Mike58]

Nel Tuo script hai la 2° Rupta (r1) r+1 ossia ruota consecutiva, basta mettere al posto di :
r1 = r+1
r1 = RuotaDianetrale(r)
e modificare anche nella (Ruota(r)) il ciclo for con 1 to 5

cosi
For r = 1 To 5

r1 =RuotaDiametrale(r)

 

[irepi]

Grazie Mike58!
Scusa per il ritardo, ho visto ora la tua risposta, entravo nel sito senza accedere col nome utente