Aiuto per codice

[antonio65]

Buonasera, dovendo fare o meglio fare gestire allo script le 10 migliori accoppiate da metodo(in allegato) sarebbe a dire quante volte i nominati aa e k
danno miglior esito esempio aa sarebbe la distanza tra il 1°e 2° estratto invece k la differenza consecutiva dei 5 estratti ovvero la differenza di somma dei 5 estratti.
Mi servirebbe sapere se ci sono più frequenze con aa e idem con k contemporanee cioè presenti o nel caso si ripetono più volte nel giro di 20 estrazioni.
Dovendo elaborare tale metodo per tutte le ruote comprese le posizioni accoppiate 1-2/ 1/3 etc etc mi viene molto faticoso gestire il tutto.
Ho provato leggendo e rileggendo il manuale ma non riesco.
Grazie Antonio!!!

Sub Main
   Dim Nu(2),Nn(2),Num(2),dg(4),Ru(12),T,V,Som(2),Mu(1),Nufr(90,5)
   Ini = EstrazioneFin - 20
   fin = EstrazioneFin
   r = InputBox("Quale Ruota",,1)
   T = Array(T,"J","Data Info Estraz ","Ruota","Somma1","Estratti Es"," Dist 1","Somma2","Estratti Es-1","Dist 2","Num Calc","op1","op2","op3","op4","Sv1","Sv2","Sv3","Sv4","Sv5","Sv6","Sv7","Sv8","Sott")
   Call InitTabella(T,2,,4,5)
   For es = Ini To fin
      p1 = 1
      p2 = 2
      p3 = 3
      p4 = 4
      p5 = 5
      a = Estratto(es,r,p1)'''''1°estratto
      b = Estratto(es,r,p2)'''''2°estratto
      c = Estratto(es - 1,r,p1)''''1°estratto precedente
      d = Estratto(es - 1,r,p2)'''2°estratto precedente
      aa = Abs(a - b)''''distanza tra il 1°estratto ed il 2°estratto
      bb = Abs(c - d)''''distanza tra il 1°estratto precedente ed il 2°estratto precedente
      'cc = Abs(aa - bb)
      'If k = 10 Then'''se esce la distanza
      '------- calcolo sommativo ---------------
      casi = casi + 1
      co = 0
      Ru(1) = r
      For sm = 1 To 90
         co = co + 1
         Mu(1) = Fuori90(k + sm)
         Nufr(co,1) = sm
         sf = SerieFreq(es + 1,es + clp,Mu,Ru,1)
         If sf > 0 Then
            Nufr(co,2) = Nufr(co,2) + 1
         End If
      Next
      Nu(1) = a
      Nu(2) = b
      Nn(1) = c
      Nn(2) = d
      Ru(1) = r
      Num(1) = Abs(aa + bb)'1°anello
      Num(2) = Abs(aa - bb)'2°anello
      dg(1) = Abs(a - c)'''sottrazioni in verticale
      dg(2) = Abs(a - d)'''sottrazioni in verticale
      dg(3) = Abs(b - c)'''sottazioni in verticale
      dg(4) = Abs(b - d)'''sottrazioni in verticale
      E =(a + b)'''Somma 1
      F =(c + d)'''Somma 2
      Som(1) = E
      Som(2) = F
      K = Abs(E - F)
      If K = k Then'''se esce la distanza
         'End If
         'End If
         'dg(1) = Differenza(a,c)
         'dg(2) = Differenza(a,d)
         'dg(3) = Differenza(b,c)
         'dg(4) = Differenza(b,d)
         Call OrdinaMatrice(dg,1,1)
         sv1 = Abs(dg(2) + dg(3))'diagonali
         sv2 = Abs(dg(1) - dg(4))
         sv3 = Abs(dg(2) + dg(3))
         sv4 = Abs(dg(1) + dg(4))
         sv5 = Abs(dg(1) + dg(2))
         sv6 = Abs(dg(3) - dg(4))
         sv7 = Abs(dg(1) + dg(3))
         sv8 = Abs(dg(2) - dg(4))
         j = j + 1
         Call VerificaEsito(Nu,Ru,es + 1,1,1,,Esito,clp,estratti,id)
         V = Array(V,j,GetInfoEstrazione(es),SiglaRuota(r),Som(1),StringaNumeri(Nu,,1),aa,Som(2),StringaNumeri(Nn,,1),bb,StringaNumeri(Num),dg(1),dg(2),dg(3),dg(4),sv1,sv2,sv3,sv4,sv5,sv6,sv7,sv8,K)
         Call AddRigaTabella(V)
         For x = 15 To 22
            If sv1 = sv2 Then Call SetColoreCella((x),1,5)
            If sv2 = sv3 Then Call SetColoreCella((x),1,5)
            If sv3 = sv4 Then Call SetColoreCella((x),1,5)
            If sv4 = sv5 Then Call SetColoreCella((x),1,5)
            If sv5 = sv6 Then Call SetColoreCella((x),1,5)
            If sv6 = sv7 Then Call SetColoreCella((x),1,5)
            If sv7 = sv8 Then Call SetColoreCella((x),1,5)
            If sv8 = k Then Call SetColoreCella((x),1,5)
         Next
      End If
   Next
   CreaTabella
End Sub