richiesta script

[arcor]

buongiorno a tutti gli scripter avrei bisogno di uno script che mi ricerchi in 2 estrazioni consecutive e sulla stessa ruota lo stesso numero uscito nella stessa posizione.
esempio fi-il 24-12 usciti 4-6-8-9-10 sempre su fi-il 26-12(estrazione dopo)11-25-8-84-77 abbiamo il numero 8 ripetuto sulla stessa ruota e stessa posizione.
grazie

 

[Joe91]

Ciao Arcor.

Prova questo:

Option Explicit
'Estratto Ripetuto Isotopo. Script By Joe.
Sub Main
Dim Ini,Fin,Es,Pr,R,P,E
	Ini = EstrazioneFin - 15 : Fin = EstrazioneFin
	For Es = Ini To Fin : Pr = Es - 1
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P)
				If Posizione(Pr,R,E) = P Then
					Scrivi DataEstrazione(Pr) & Space(2) & SiglaRuota(R) & Space(2) & StringaEstratti(Pr,R)
					Scrivi DataEstrazione(Es) & Space(2) & SiglaRuota(R) & Space(2) & StringaEstratti(Es,R)
					Scrivi Format2(E) & Space(1) & "Rip." & Space(1) & P & "° Estratto",True
					Scrivi
				End If
			Next
		Next
	Next
End Sub

Buona Giornata a tutte/i.

 

[arcor]

grazie joe91 perfetto
ciao

 

[boris]

buonasera arcor, ho controllato facendo diff a 90 + o - 45 è l'ambata
26/3 VE 20 diff. 70 - 45 = 25 al primo
28/3 MI 82 diff. 18 + 45 = 53 al secondo colpo
ecc. hai una dritta per l'ambo ?
saluti

 

[arcor]

salve boris non lo so ancora cosa scegliere x ambo dobbiamo fare un po di verifiche prima.