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

 

[sesto1]

Scusami Reacher ho fatto confusione io perchè trattasi di doppia somma 90 e di doppia distanza 30 ,perchè se vediamo su
FI in orizzontale abbiamo 70-40,GE 20-50,

Mentre in diagonale abbiamo Fi -70 e Ge-20
Fi-40 e GE-50
Perdonami ho sbagliato io nell'impostare la domanda, quindi in conclusione si devono trovare due somme 90 e due distanze 30,
Nella stessa estrazione su due ruote , scusami ancora per la confusione che ho creato io

 

[Reacher]

Quindi due somme 90 due distanze 30 sia verticale orizzontale diagonale... Giusto? Perché sarebbe più ristretta ma forse poche condizioni

 

[sesto1]

Scusami Reacher ho fatto confusione io perchè trattasi di doppia somma 90 e di doppia distanza 30 ,perchè se vediamo su
FI in orizzontale abbiamo 70-40,GE 20-50,

Mentre in diagonale abbiamo Fi -70 e Ge-20
Fi-40 e GE-50
Perdonami ho sbagliato io nell'impostare la domanda, quindi in conclusione si devono trovare due somme 90 e due distanze 30,
Nella stessa estrazione su due ruote , scusami ancora per la confusione che ho creato io

Scusami Reacher ho fatto confusione io perchè trattasi di doppia somma 90 e di doppia distanza 30 ,perchè se vediamo su
FI in orizzontale abbiamo 70-40,GE 20-50,

Mentre in diagonale abbiamo Fi -70 e Ge-20
Fi-40 e GE-50
Perdonami ho sbagliato io nell'impostare la domanda, quindi in conclusione si devono trovare due somme 90 e due distanze 30,
Nella stessa estrazione su due ruote , scusami ancora per la confusione che ho creato io

Quindi due somme 90 due distanze 30 sia verticale orizzontale diagonale... Giusto? Perché sarebbe più ristretta ma forse poche condizioni

Si Recher 2 somme 90 più 2 distanze 30 sia in orizzontale in verticale o in diagonale l'interessante e che stiano in una unica estrazione e su due ruote,si saranno poche condizioni,se può mettere anche una opzione che magari controlla due estrazioni consecutive al massimo sempre se la cosa e fattibile,sei molto gentile grazie,sai certi script alcune volte prima che arrivi quello finale fa un po' penare lo capisco ma purtroppo io non sono capace ho anche una certa età che finisce l'opera grazie ancora buona serata

 

[sesto1]

Poi domani mi faccio sentire

 

[Reacher]

Ti consiglio di passare a spaziometria molto più facile
L8 ha vecchio codice

 

[sesto1]

Ottimo consiglio Reacher ma spaziometria ha molti problemi di aggiornamento e come ti ho accennato ho una certa età per sapere fare tutto , comunque grazie per l'interessamento

 

[Reacher]

Non ti preoccupare per gli aggiornamenti
Poi ti guido io

 

[Reacher]

Allora per questo ho chiesto a gemini, (devo ancora masticare bene il codice e capire come interpretarlo anche con l aiuto di AI) poichè avevo difficoltà con la scrittura delle somme 90 ed è più completo...
infatti queste condizioni sono molto particolari specie insieme.
I precedenti li ho fatti con le mie conoscenze di base

Sub Main()
Dim r1, r2, p1, p2, p3, p4
Dim n, a, b, c, d, s1, s2, s3, s4, s5, s6

' Inizio ciclo estrazioni
For n = 8000 To EstrazioneFin
AvanzamentoElab n, EstrazioneFin, 1

For r1 = 1 To 12
If r1 = 11 Then r1 = 12 ' Salta la ruota Tutte

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

' Calcolo somme per la prima ruota
s1 = Fuori90(a + b)

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)

' Calcolo di tutte le possibili somme incrociate
s2 = Fuori90(c + d) ' Somma orizzontale r2
s3 = Fuori90(a + c) ' Somma verticale p1/p3
s4 = Fuori90(b + d) ' Somma verticale p2/p4
s5 = Fuori90(a + d) ' Somma diagonale
s6 = Fuori90(b + c) ' Somma diagonale

' Variabile di controllo per evitare doppie stampe
Dim trovato
trovato = False

' CASO 1: Distanza 30 Orizzontale (su r1 o r2) + Somma 90 Verticale o Diagonale
If (Distanza(a, b) = 30 Or Distanza(c, d) = 30) Then
If s3 = 90 Or s4 = 90 Or s5 = 90 Or s6 = 90 Then trovato = True
End If

' CASO 2: Distanza 30 Verticale (tra r1 e r2) + Somma 90 Orizzontale o Diagonale
If trovato = False And (Distanza(a, c) = 30 Or Distanza(b, d) = 30) Then
If s1 = 90 Or s2 = 90 Or s5 = 90 Or s6 = 90 Then trovato = True
End If

' CASO 3: Distanza 30 Diagonale + Somma 90 Orizzontale o Verticale
If trovato = False And (Distanza(a, d) = 30 Or Distanza(b, c) = 30) Then
If s1 = 90 Or s2 = 90 Or s3 = 90 Or s4 = 90 Then trovato = True
End If

' Se una delle condizioni è soddisfatta, procedo alla stampa
If trovato = True Then
Scrivi DataEstrazione & " - " & NomeRuota(r1) & " [" & a & "-" & b & "] Somma " & s1
Scrivi DataEstrazione & " - " & NomeRuota(r2) & " [" & c & "-" & d & "] Somma " & s2
Scrivi "Distanze: Oriz(" & Distanza(a, b) & "-" & Distanza(c, d) & ") " & _
"Vert(" & Distanza(a, c) & "-" & Distanza(b, d) & ") " & _
"Diag(" & Distanza(a, d) & "-" & Distanza(b, c) & ")"
Scrivi "Somme Incrociate: V(" & s3 & "-" & s4 & ") D(" & s5 & "-" & s6 & ")"
Scrivi String(80, "-")
End If

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