Ricerca script

[lottofortune]

Cia a tutti,volevo sapere se esiste già uno script che ricerca la terzine simmetriche sul quadro estrazionale,con due numero su una ruota,ed un terzo numero su un'altra isotopo...es
nell estrazione del 25/06
Cagliari 13-8-56-73-14
Firenze 43-50-9-39-52..grazie.

 

[joe]

Ciao ... sicuramente esiste in decine di versioni.

Considerato che si scrive in 5 minuti

è molto più veloce scriverlo che cercarne uno già fatto.

Così ho scritto questo.

Non ho controllato che sia giusto.

Dunque è da prendersi per quello che è.

Option Explicit
Sub Main
'Ricerca Terzine Simmetriche Isotope (in 2 ruote)
'Script By Joe
Dim Ini,Fin,Es,R1,R2,P1,P2,Nu(4),X,T(3)
Ini = EstrazioneFin -155 : Fin = EstrazioneFin
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
For R2 = R1 + 1 To 12 : If R2 = 11 Then R2 = 12
For P1 = 1 To 4
For P2 = P1 + 1 To 5
Nu(1) = Estratto(Es,R1,P1) : Nu(2) = Estratto(Es,R1,P2)
Nu(3) = Estratto(Es,R2,P1) : Nu(4) = Estratto(Es,R2,P2)
For X = 1 To 30
T(1) = X : T(2) = X + 30 : T(3) = X + 60
If PuntiSuArray(Nu,T) = 4 Then
Scrivi DataEstrazione(Es) & " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1)
Scrivi DataEstrazione(Es) & " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2)
Scrivi String (28,"-") & Space(1) & StringaNumeri(T,,True)
End If
Next
Next
Next
Next
Next
Next
End Sub

 

[lottofortune]

Grazie Joe,molto gentile..buona giornata

 

[flama]

Ciao a tutti,
scusate l'intromissione, vorrei chiedere se è possibile modificare lo script postato in modo che i numeri della terzina siano A+B=C e si trovino due su una ruota e il terzo in isotopia in ruote consecutive. Si dovrebbe alla fine formare un quadrato a chiudere le isotopie e di questo quarto numero prendere la terzina simmetrica e giocarla abbinata a C sulle due ruote di calcolo.
Faccio un esempio per spiegarmi meglio:
4/4/19
CA = 50-70-83-28-19
FI = 50-53-51-32-84

Metteremo in gioco 28-58-88-83