Errore nello Script - Dove Sbaglio?

[Xeroxs]

Ciao a Tutti, Su Richiesta di una mia amica sto elaborando uno script ma prima di ultimare i calcoli non comprendo da dove scaturisce l'errore,
pur cambiando qualcosa, i calcoli sembrano tornare..., sicuramente qualche condizione scritta lo manda in errore pur ultimando i calcoli che appaiono corretti.

Qualcuno mi aiuta a capire dove sbaglio?

Questo è lo script

Option Explicit
Sub Main()
   Call Scrivi(String(12," ") & " ** Metodo - Ambi Diametrali In Decina - By Xeroxs ** ",1 - 1,,,2,3)
   Scrivi
   Dim ruote(2),r1,r2,ambata(1),ambo1(2),ambo2(2),posta(1),poste(2),QE,Clp,K
   Dim p1,p2,q,n1,n2,n3,A,ini,fin,es
   posta(1) = 1
   poste(2) = 1
   Clp = 8
   QE = InputBox("Quante estrazioni controllo?","By Xeroxs",50)
   fin = EstrazioneFin
   ini = fin - QE
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r1 = 1 To 10
         For r2 = r1 + 1 To 11
            If r2 = 11 Then r2 = 12
            For p1 = 1 To 5
               p2 = p1 + 1
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)
               If n2 = n1 + 1 Then
                  For q = 1 To 5
                     If q = p1 Or q = p2 Then
                        n3 = Estratto(es,r2,q)
                        If n3 = DiametraleD(n1) Or n3 = DiametraleD(n2) Then
                           A = DiametraleD(n1)
                           If A = n3 Then A = DiametraleD(n2)
                           '------------------------------------------------------------------ Ruote di Gioco
                           ruote(1) = r1
                           ruote(2) = r2
                           '------------------------------------------------------------------
                           ColoreTesto 1
                           K = K + 1 : Scrivi String(96,"*") & " Caso n° " & K,1
                           Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "   " & Format2(n1) & " - " & Format2(n2)
                           Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & "     " & Format2(n3)
                           Scrivi "DIAMETRALE IN DECINA MANCANTE: " & "   " & "[" & Format2(A) & "]"
                           ColoreTesto 1
                           Scrivi String(106,"*")
                           Scrivi
                           ColoreTesto 0
                           '------------------------------------------------------------------ Calcoli e Giocate - Al Momento escluso gioco per Ambo
                           ambata(1) = A
                           ImpostaGiocata 1,ambata,ruote,posta,Clp
                           ambo1(1) = A
                           ambo1(2) = Vert(n3)
                           'ImpostaGiocata 2,ambo1,ruote,poste,Clp
                           ambo2(1) = A
                           ambo2(2) = Vert(n1)
                           'ImpostaGiocata 3,ambo2,ruote,poste,Clp
                           '------------------------------------------------------------------
                           Gioca es
                        End If
                     End If
                  Next
               End If
            Next
         Next
      Next
   Next
   Scrivi
   ScriviResoconto
End Sub

Grazie come sempre

 

[joe]

Ciao,

 For p1 = 1 To 5
          p2 = p1 + 1

Come vedi quando p1 "vale 5" p2 diventa 6

mentre gli estratti sono solo 5.

 

[Xeroxs]

Ciao, Joe,
Però che sbadato, non mi ero accorto di questo perchè dopo ho aggiunto il + 1 per cercare l'ambo unito....
devo fare più attenzione anche nelle modifiche.

Grazie, ancora.