Tabelle estrazioni

[Bubblegum]

Ciao ragazzi , potrei avere lo script che genera le tabella delle ultime 3 estrazioni ma con gli estratti in ordine crescente con la possibilità di scegliere di vedere accanto o le distanze ciclometriche oppure le differenze o le somme ?
Esempio , dal + piccolo al + grande
Grazie Ciao

 

[Mike58]

Ciao Bubblegun eccolo senza pretese.

Sub Main
   Dim Nu(5),Ru(1),T
   Ini = EstrazioneFin - 2
   fin = EstrazioneFin
   For es = fin To Ini Step - 1
      T = Array(T,"Info Estrazione","Ruota","Numeri Estratti","Distanze Ciclometrica","Differenze","Somme posizioni")
      Call InitTabella(T,,,,,"arial black")
      '
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            Nu(p) = Estratto(es,r,p)
         Next
         OrdinaMatrice Nu,1,1
         '
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               k1 = k1 + 1
               rigaDC = rigaDC & FormattaStringa(Distanza(Nu(p1),Nu(p2)),"000") & "  "
               rigaDF = rigaDF & FormattaStringa(Differenza(Nu(p1),Nu(p2)),"000") & "  "
               rigaSM = rigaSM & FormattaStringa(Fuori90((Nu(p1) + Nu(p2))),"000") & "  "
            Next
         Next
         T = Array(T,GetInfoEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),rigaDC,rigaDF,rigaSM)
         Call AddRigaTabella(T)
         rigaDC = ""
         rigaDF = ""
         rigaSM = ""
      Next
      Call SetTableWidth ("100%")
      CreaTabella
      '
   Next
End Sub

Info Estrazione​	Ruota​	Numeri Estratti​	Distanze Ciclometrica​	Differenze​	Somme posizioni​
[10228] [ 48] 22.04.2023​	BA​	57.64.69.76.90​	007 012 019 033 005 012 026 007 021 014​	007 012 019 033 005 012 026 007 021 014​	031 036 043 057 043 050 064 055 069 076​
[10228] [ 48] 22.04.2023​	CA​	21.26.30.46.81​	005 009 025 030 004 020 035 016 039 035​	005 009 025 060 004 020 055 016 051 035​	047 051 067 012 056 072 017 076 021 037​
[10228] [ 48] 22.04.2023​	FI​	20.27.39.79.89​	007 019 031 021 012 038 028 040 040 010​	007 019 059 069 012 052 062 040 050 010​	047 059 009 019 066 016 026 028 038 078​
[10228] [ 48] 22.04.2023​	GE​	28.33.43.86.89​	005 015 032 029 010 037 034 043 044 003​	005 015 058 061 010 053 056 043 046 003​	061 071 024 027 076 029 032 039 042 085​
[10228] [ 48] 22.04.2023​	MI​	01.05.07.18.53​	004 006 017 038 002 013 042 011 044 035​	004 006 017 052 002 013 048 011 046 035​	006 008 019 054 012 023 058 025 060 071​
[10228] [ 48] 22.04.2023​	NA​	12.17.30.53.87​	005 018 041 015 013 036 020 023 033 034​	005 018 041 075 013 036 070 023 057 034​	029 042 065 009 047 070 014 083 027 050​
[10228] [ 48] 22.04.2023​	PA​	02.11.58.66.74​	009 034 026 018 043 035 027 008 016 008​	009 056 064 072 047 055 063 008 016 008​	013 060 068 076 069 077 085 034 042 050​
[10228] [ 48] 22.04.2023​	RO​	09.18.45.53.85​	009 036 044 014 027 035 023 008 040 032​	009 036 044 076 027 035 067 008 040 032​	027 054 062 004 063 071 013 008 040 048​
[10228] [ 48] 22.04.2023​	TO​	08.14.32.84.88​	006 024 014 010 018 020 016 038 034 004​	006 024 076 080 018 070 074 052 056 004​	022 040 002 006 046 008 012 026 030 082​
[10228] [ 48] 22.04.2023​	VE​	26.30.57.75.89​	004 031 041 027 027 045 031 018 032 014​	004 031 049 063 027 045 059 018 032 014​	056 083 011 025 087 015 029 042 056 074​
[10228] [ 48] 22.04.2023​	NZ​	47.63.66.67.87​	016 019 020 040 003 004 024 001 021 020​	016 019 020 040 003 004 024 001 021 020​	020 023 024 044 039 040 060 043 063 064​

Come vedi con OrdinaMatrice Numeri Estratti le distanze sono uguali alle differenze

 

[Bubblegum]

Ciao Mike58 , grazie mille per aver dedicato del tuo tempo , è perfetta !!
Buona giornata

 

[Mike58]

Bene !! ero sicuro che poi mi avresti chiesto le evidenze uguali e le avevo preparate (anche per me)
lo posto

Sub Main
   Dim Nu(5),Ru(1),T
   Ini = EstrazioneFin - 2
   fin = EstrazioneFin
   For es = fin To Ini Step - 1
      T = Array(T,"Info Estrazione","Ruota","Numeri Estratti","D_1.2","D_1.3","D_1.4","D_1.5","D_2.3","D_2.4","D_2.5","D_3.4","D_3.5","D_4.5",_
      "S_1.2","S_1.3","S_1.4","S_1.5","S_2.3","S_2.4","S_2.5","S_3.4","S_3.5","S_4.5")
      Call InitTabella(T,,,,,"arial black")
      '
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            Nu(p) = Estratto(es,r,p)
         Next
         OrdinaMatrice Nu,1,1
         '
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               k1 = k1 + 1
               rigaDC = rigaDC & FormattaStringa(Distanza(Nu(p1),Nu(p2)),"000") & "  "
               rigaDF = rigaDF & FormattaStringa(Differenza(Nu(p1),Nu(p2)),"000") & "  "
               rigaSM = rigaSM & FormattaStringa((Nu(p1) + Nu(p2)),"000") & "  "
               ReDim Preserve rigoDC(k1)
               rigoDC(k1) = Distanza(Nu(p1),Nu(p2))
               ReDim Preserve rigoDf(k1)
               rigoDf(k1) = Differenza(Nu(p1),Nu(p2))
               ReDim Preserve rigoSm(k1)
               rigoSm(k1) = Fuori90(Nu(p1) + Nu(p2))
            Next
         Next
         k1 = 0
         T = Array(T,GetInfoEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),_
         rigoDf(1),rigoDf(2),rigoDf(3),rigoDf(4),rigoDf(5),rigoDf(6),rigoDf(7),rigoDf(8),rigoDf(9),rigoDf(10),_
         rigoSm(1),rigoSm(2),rigoSm(3),rigoSm(4),rigoSm(5),rigoSm(6),rigoSm(7),rigoSm(8),rigoSm(9),rigoSm(10))
         Call AddRigaTabella(T)
         For xx = 4 To 13
            Call SetColoreCella((xx),RGB(196,225,225),1)
         Next
         For x1 = 4 To 13
            For x2 = x1 + 1 To 13
               If T(x1) = T(x2) Then Call SetColoreCella((x1),2,4)
               If T(x2) = T(x1) Then Call SetColoreCella((x2),2,4)
            Next
         Next
         For xxx = 14 To 23
            Call SetColoreCella((xxx),RGB(206,206,157),1)
         Next
         For x3 = 14 To 23
            For x4 = x3 + 1 To 23
               If T(x3) = T(x4) Then Call SetColoreCella((x3),4,2)
               If T(x4) = T(x3) Then Call SetColoreCella((x4),4,2)
            Next
         Next
         rigaDC = ""
         rigaDF = ""
         rigaSM = ""
      Next
      Call SetTableWidth("100%")
      CreaTabella
      '
   Next
End Sub

 

[Bubblegum]

Grazie