Uno script,per per chi vuole grazie

[sesto1]

Intanto buongiorno e buon 25 aprile, allora lo script per L8+6.0 dovrebbe trovare su due ruote due ambi di somma 90,aventi nello stesso tempo due distanze 30, faccio un esempio:
FI- 59-70-40-41-65 "70-40"

GE-28-21-29-20-50 "20-50"

Vanno bene anche gli ambi non uniti e in qualunque posizione l'importante e che siano su due ruote,o anche una ruota con tutti e quattro i numeri presenti, importante che il listato giri su L8+, ringrazio in anticipo ancora buona giornata a tutti

 

[Reacher]

Qualcosa non quadra.... La distanza 30 non fa mai somma 90
O l una o l altra

 

[sesto1]

Qualcosa non quadra.... La distanza 30 non fa mai somma 90
O l una o l altra

Ciao Reacher non capisco a cosa ti riferisci ,se vedi ho messo a posta un esempio,una ruota escono 70 e 40/su un'altra ruota escono 20 e 50,allora facciamo70 di una ruota con 20 altra ruota uguale 90/mentre sull'altra ruote escono 50 e 40 uguale 90/ancora su una ruota esce sempre 70 e 40 uguale distanza 30, mentre sull'altra ruota esce 20 e 50 uguale distanza 30, quindi c'è la la condizione che ho detto e forse ho dimenticato di aggiungere che questi incroci possono avvenire sia come ho detto in modo orizzontale ma anche in modo verticale e incrociato,cosa che si dovrebbe tenere conto nell'eventuale listato, comunque grazie per la risposta a disposizione per eventuali chiarimenti buona giornata

 

[Reacher]

Sub Main()
Dim number(4)
Dim ruote(12), r1, r2, p1, p2, p3, p4
Dim posta(2), n
Dim a, b, c, d, s1, s2, s3, s4

posta(2) = 2
' Nota: La gestione delle ruote è corretta, ma assicurati che l'indice r1/r2 non superi 12

For n = 10000 To EstrazioneFin
AvanzamentoElab n, EstrazioneFin, 1

For r1 = 1 To 12
If r1 = 11 Then r1 = 12

For p1 = 1 To 5
For p2 = p1 + 1 To 5
a = Estratto(n, r1, p1)
b = Estratto(n, r1, p2)


If Distanza(a, b) = 30 Then
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12

For p3 = 1 To 5
For p4 = p3 + 1 To 5
c = Estratto(n, r2, p3)
d = Estratto(n, r2, p4)
s1 = Fuori90(a + c)
s2 = Fuori90(b + d)
s3=Fuori90(a+d)
s4=Fuori90(b+c)

' Correzione logica: aggiunte parentesi per la corretta valutazione delle condizioni
If (Distanza(a, b) = 30) And (Distanza(c, d) = 30) And (s2 = 90 Or s1 = 90 Or s3 = 90 Or s4 = 90) Then
Scrivi DataEstrazione & " " & NomeRuota(r1) & " " & a & " " & b & "=" & Distanza(a, b)
Scrivi DataEstrazione & " " & NomeRuota(r2) & " " & c & " " & d & "=" & Distanza(c, d)


End If
Next 'p4
Next 'p3
Next 'r2
End If
Next 'p2
Next 'p1
Next 'r1
Next 'n
End Sub

 

[sesto1]

Sub Main()
Dim number(4)
Dim ruote(12), r1, r2, p1, p2, p3, p4
Dim posta(2), n
Dim a, b, c, d, s1, s2, s3, s4

posta(2) = 2
' Nota: La gestione delle ruote è corretta, ma assicurati che l'indice r1/r2 non superi 12

For n = 10000 To EstrazioneFin
AvanzamentoElab n, EstrazioneFin, 1

For r1 = 1 To 12
If r1 = 11 Then r1 = 12

For p1 = 1 To 5
For p2 = p1 + 1 To 5
a = Estratto(n, r1, p1)
b = Estratto(n, r1, p2)


If Distanza(a, b) = 30 Then
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12

For p3 = 1 To 5
For p4 = p3 + 1 To 5
c = Estratto(n, r2, p3)
d = Estratto(n, r2, p4)
s1 = Fuori90(a + c)
s2 = Fuori90(b + d)
s3=Fuori90(a+d)
s4=Fuori90(b+c)

' Correzione logica: aggiunte parentesi per la corretta valutazione delle condizioni
If (Distanza(a, b) = 30) And (Distanza(c, d) = 30) And (s2 = 90 Or s1 = 90 Or s3 = 90 Or s4 = 90) Then
Scrivi DataEstrazione & " " & NomeRuota(r1) & " " & a & " " & b & "=" & Distanza(a, b)
Scrivi DataEstrazione & " " & NomeRuota(r2) & " " & c & " " & d & "=" & Distanza(c, d)


End If
Next 'p4
Next 'p3
Next 'r2
End If
Next 'p2
Next 'p1
Next 'r1
Next 'n
End Sub

Reacher grazie per lo script e per la velocità,ma sicuramente mi sono spiegato male io,quando ho fatto questi esempi di FI e GE, intendevo facciamo una data inventata:
Estrazione del 10/1/24
Fi-59-70-40-41-65
GE-28-22-29-20-50

Quindi quei parametri da trovare sono ambo somma 90, e ambo distanza 30 in orizzontale, verticale e diagonale sono su due ruote della stessa estrazione,e non una somma 90 ouna di

 

[sesto1]

Reacher grazie per lo script e per la velocità,ma sicuramente mi sono spiegato male io,quando ho fatto questi esempi di FI e GE, intendevo facciamo una data inventata:
Estrazione del 10/1/24
Fi-59-70-40-41-65
GE-28-22-29-20-50

Quindi quei parametri da trovare sono ambo somma 90, e ambo distanza 30 in orizzontale, verticale e diagonale sono su due ruote della stessa estrazione,e non una somma 90 o una distanza 30, ma contemporaneamente nella stessa estrazione ci deve essere un ambo di somma 90 e un ambo distanza 30 su due ruote diverse,non ha importanza se questi ambi sono isotopi ,uniti,vanno bene in qualsiasi posizione