Terni consecutivi

[Reacher]

Buongiorno avrei bisogno di aiuto per uno script che elenchi le terni consecutive sortite.
L ho approntato con tutte le combinazioni possibili con if... End if
A b c d e sono le posizioni con tutte le variabili.
Ma in alcune estrazioni ci possono essere più Terni consecutivi e non mi compaiono.

 

[joe]

Buongiorno avrei bisogno di aiuto per uno script che elenchi le terni consecutive sortite.
L ho approntato con tutte le combinazioni possibili con if... End if
A b c d e sono le posizioni con tutte le variabili.
Ma in alcune estrazioni ci possono essere più Terni consecutivi e non mi compaiono.

Non si riesce a capire bene cosa fa lo script che hai, e cosa, invece, dovrebbe fare.

 

[Reacher]

Semplicemente un Elenco di terni consecutivi sortiti

 

[joe]

E' semplicemente questo ?

10361 29/12/2023 VE 25.26.27
10379 30/01/2024 MI 69.70.71
10383 06/02/2024 GE 52.53.54
10392 22/02/2024 FI 49.50.51
10405 15/03/2024 FI 60.61.62
10416 04/04/2024 VE 21.22.23
10439 14/05/2024 VE 53.54.55
10446 25/05/2024 GE 25.26.27
10470 06/07/2024 FI 52.53.54
10473 12/07/2024 FI 63.64.65
10473 12/07/2024 MI 61.62.63
10473 12/07/2024 TO 29.30.31
10499 27/08/2024 RO 39.40.41
10525 11/10/2024 BA 75.76.77
10527 15/10/2024 RO 22.23.24
10531 22/10/2024 BA 08.09.10
10599 18/02/2025 PA 78.79.80
10610 08/03/2025 FI 29.30.31
10627 08/04/2025 CA 67.68.69
10633 18/04/2025 BA 83.84.85
10649 16/05/2025 NA 74.75.76
10652 22/05/2025 FI 16.17.18
10653 23/05/2025 MI 77.78.79
10660 05/06/2025 GE 71.72.73
10673 27/06/2025 NA 87.88.89
10683 15/07/2025 NA 57.58.59
10771 16/12/2025 MI 13.14.15
10781 03/01/2026 PA 20.21.22
10798 03/02/2026 RO 75.76.77
10802 12/02/2026 NA 79.80.81

 

[Reacher]

Si infatti
Solo che nello script mi perdo con le posizioni... Anche se Ho utilizzato if.... Puoi postarlo?

 

[joe]

Si infatti
Solo che nello script mi perdo con le posizioni... Anche se Ho utilizzato if.... Puoi postarlo?

Se hai uno script da correggere, posso cercare di aggiungere il mio aiuto.

Farlo io, no.

 

[Reacher]

Sub Main()
Dim a,b,c,d,e,n,r1,p1,p2,p3,p4,p5
Dim ruote(12),number(4)
Dim posta(2)
'posta(1) = 1
posta(2) = 2
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
ruote(12) = 12
For n = 10750 To EstrazioneFin
For r1 = 1 To 12
For p1 = 1 To 5
For p2 = p1 + 1 To 5
For p3 = p2 + 1 To 5
For p4 = p3 + 1 To 5
For p5 = p4 + 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r1,p2)
c = Estratto(n,r1,p3)
d = Estratto(n,r1,p4)
e = Estratto(n,r1,p5)
If Distanza(a,b) = 1 And Distanza(b,c) = 1 Or Distanza(b,c) = 1 And Distanza(c,d) = 1 Or Distanza(c,d) = 1 And Distanza(d,e) = 1 Or Distanza(a,d) = 1 And Distanza(d,e) = 1 Or Distanza(a,c) = 1 And Distanza(c,d) = 1 Or Distanza(a,c) = 1 And Distanza(c,e) = 1 Or Distanza(b,d) = 1 And Distanza(b,e) = 1 Then
Scrivi DataEstrazione & " " & SiglaRuota(r1) & " " & a & " " & b & " " & c
End If
Next:Next
Next:Next
Next
Next
Next
End Sub

Prego... comunque nel frattempo ho cercato di modificare.

 

[joe]

Hai scritto molto e forse troppo per questo ho richiesto lo script.

Per migliorarlo ... come prima cosa devi decidere cosa vuoi ottenere.

Perché potrebbe essere un ottimo esercizio voler provare ad imitare Spaziometria,

Ma se, nel programma già ci sono ruotine di calcolo (forse anche più evolute e veloci) relative a quanto si vuole ottenere,

potrebbe diventare uno spreco di risorse ... applicarsi nel tentativo di clonare l'esistente.

In concreto Spaziometria potrebbe avere già quello che chiedi come ad esempio :




Da quello che vedo, in ogni caso lo sviluppo delle formazioni che contempli tutti i 10 terni

un test condizionale come filtro (con tanti If) è difficile da scrivere e molto pesante da elaborare per il computer.