Novità

Aiuto per codice

antonio65

Super Member >PLATINUM<
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!!!
Codice:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 ottobre 2025
    Bari
    89
    74
    27
    47
    37
    Cagliari
    78
    13
    22
    83
    44
    Firenze
    56
    79
    68
    59
    75
    Genova
    74
    40
    71
    57
    18
    Milano
    88
    11
    33
    07
    84
    Napoli
    53
    25
    49
    83
    85
    Palermo
    49
    25
    85
    20
    11
    Roma
    14
    50
    75
    10
    13
    Torino
    43
    67
    36
    72
    73
    Venezia
    88
    55
    26
    59
    37
    Nazionale
    15
    49
    18
    21
    20
    Estrazione Simbolotto
    18
    24
    21
    32
    33
Indietro
Alto