Combinazioni in Ritardo Ambo in Figura

[Zetrix]

ciao , mi sono accorto adesso che questa tabella da dei risultati sbagliati sui rit
esempio a Fi la combinazione sulla figura (2) riporta 22 estr di rit ma e sbagliato il rit

Estrazione del 23.03.2023

Bari 35 36 72 09 56
Cagliari 62 82 60 69 24
Firenze 02 74 84 54 05 -----> ambo in figura (2)
Genova 70 76 43 67 02
Milano 30 31 58 42 85
Napoli 48 79 66 70 67
Palermo 53 35 08 82 10
Roma 60 33 19 81 50
Torino 42 13 38 36 65
Venezia 76 18 56 59 57
Nazionale 57 41 62 72 03

 

[Zetrix]

Sub Main
   Dim aN,aLung(10),Id
   Dim Nu,Ru(1),er(12)
   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   filtro = CInt(InputBox("Quale scelta" & Chr(13) & Chr(13) & "1 Frequenza" & Chr(13) & "2 Ritardo",,2))
   If filtro = 1 Then Scrivi "Verifica Combinazioni per Frequenza",1
   If filtro = 2 Then Scrivi "Verifica Combinazioni per Ritardo",1
   Scrivi
   Scrivi "Range Inizio........ " & GetInfoEstrazione(Ini),0,1,7,1
   Scrivi "Range Fine.......... " & GetInfoEstrazione(fin),0,1,4,1
   Scrivi "Totali Estrazioni... " & fin - Ini + 1
   Scrivi
   ReDim T(15)
   For x = 1 To 12
      T(1) = "Numeri"
      T(x + 1) = SiglaRuota(x)
   Next
   T(15) = "Max"
   T(14) = "Min"
   'T(16) = "Valida/Non Valida"
   Call InitTabella(T,RGB(0,71,171),,3,6,"Dubai Light")
   '-------------------------------------------
   For Id = 1 To 9 ' variare a secondo la quantità di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------
      ReDim V(15)
      V(1) = StringaNumeri(aN)
      For r = 1 To 12
         Ru(1) = r
         If filtro = 1 Then er(r) = SerieFreqTurbo(Ini,fin,aN,Ru,2)
         If filtro = 2 Then er(r) = SerieRitardoTurbo(Ini,fin,aN,Ru,2)
         V(r + 1) = er(r)
      Next
      Call OrdinaMatrice(er,1,1)
      V(14) = er(2)
      V(15) = er(12)
      Call AddRigaTabella(V,,,3,1,"Dubai Light")
      '
      Call SetColoreCella(1,RGB(0,71,171),6)
      Call SetColoreCella(2,RGB(0,71,171),6)
      Call SetColoreCella(3,RGB(0,71,171),6)
      Call SetColoreCella(4,RGB(0,71,171),6)
      Call SetColoreCella(5,RGB(0,71,171),6)
      Call SetColoreCella(6,RGB(0,71,171),6)
      Call SetColoreCella(7,RGB(0,71,171),6)
      Call SetColoreCella(8,RGB(0,71,171),6)
      Call SetColoreCella(9,RGB(0,71,171),6)
      Call SetColoreCella(10,RGB(0,71,171),6)
      Call SetColoreCella(11,RGB(0,71,171),6)
      Call SetColoreCella(12,RGB(0,71,171),6)
      Call SetColoreCella(13,RGB(0,71,171),6)
      Call SetColoreCella(14,RGB(0,71,171),6)
      Call SetColoreCella(15,RGB(0,71,171),6)
      For xx = 1 To 13
         If xx = 12 Then xx = 13 End If
         If V(xx) = er(12) Then Call SetColoreCella((xx),RGB(255,51,171),1)
         If V(xx) = er(2) Then Call SetColoreCella((xx),RGB(255,204,58),1)
         If er(12) > 50 Then Call SetColoreCella(15,RGB(255,51,171),1)
         If er(12) = 0 Then Call SetColoreCella(13,RGB(255,204,58),1)
         '
      Next
   Next
   CreaTabella
End Sub
Sub Lunghetta(aLung,id,aN)
   '--- inserimento lunghette -----------
   aLung(1) = Array(01,10,19,28,37,46,55,64,73,82)
   aLung(2) = Array(02,11,20,29,38,47,56,65,74,83)
   aLung(3) = Array(03,12,21,30,39,48,57,66,75,84)
   aLung(4) = Array(04,13,22,31,40,49,58,67,76,85)
   aLung(5) = Array(05,14,23,32,41,50,59,68,77,86)
   aLung(6) = Array(06,15,24,33,42,51,60,69,78,87)
   aLung(7) = Array(07,16,25,34,43,52,61,70,79,88)
   aLung(8) = Array(08,17,26,35,44,53,62,71,80,89)
   aLung(9) = Array(09,18,27,36,45,54,63,72,81,90)
   '----fine inserimento-----------------
   aN = aLung(id)
End Sub

 

[Xeroxs]

Ciao,
Il Programma non fa nessun errore, certi errori sono dovuti quando noi scriviamo dei valori nel modo sbagliato se non sbaglio devi scrivere così per la figura 2
aLung(2) = Array(0,02,11,20,29,38,47,56,65,74,83)

infatti se non metti lo zero come primo valore ogni ambo con il numeretto non lo rileva lo zero se non ricordo male è un valore di impostazione e non va considerato, ma nell'array va scritto così credo che sia una regola del codice stesso o qualcosa di simile...
se lo scrivi per tutti i tuoi dati vedrai la statistica corretta

 

[Zetrix]

grazie Xeroxs adesso i risultati sono esatti grazie per avermi risposto..
ciao