Qualcuno.......

[Y10]

.......potrebbe costesemente fare lo script di questo metodo trovato sul Web che sembra interessante. Grazie.
ITER OPERATIVO

Bisogna cercare in qualsiasi posizione e su una ruota un ambo diametrale di figura (distanza 45); a condizione rispettata, si effettua il calcolo del prodotto degli elementi dell'ambo base.
Il valore determinato dalla moltiplicazione, lo si cerca nell'estrazione base o al massimo nelle due estrazioni precedenti.
Ecco un esempio:

02.03.2006 35.61.55.82.80 : Mi 35 80 Prodotto = 10
28.02.2006 87.01.68.31.10 : Mi 10

Calcolo:
10+35=45 1° Elemento
10+80=90 2° Elemento
da giocare per ambata.

Terzina 45-90-10
da giocare per Ambo anche su Tutte.

 

[Roby]

Ciao Y10 prova questo (fallo girare su Spaziometria)
PS: Ho messo la data di partenza dell'esempio, ma essendo un po' lunga
puoi cambiarla a piacimento tramite inputbox

Sub Main()
	Scrivi "Metodo Trovato sul Web: richiesta di Y10 Script By Blackmore":Scrivi
	Dim ruota(10)
	Dim ruote(10)
	Dim ambata(2)
	Dim terzina(3)
	Dim posta(1)
	Dim poste(2)
	posta(1) = 1
	poste(2) = 1
	k = InputBox("Inserisci i colpi di gioco :",,10)
	ds = CInt(InputBox("Inserisci la distanza (da 1 a 45) :",,45))
	ini = InputBox("Inizio Ricerca :",,7563) 'Esempio alla numero 7563 (02/03/2006) 
	fin = EstrazioneFin
	For es = ini To fin
		For ess = es - 2 To es
			Call AvanzamentoElab(ini,fin,es)
			Messaggio "Richiesta di Y10 Script By Blackmore"
			For r = 1 To 10
				For p1 = 1 To 4
					For p2 = p1 + 1 To 5
						For p3 = 1 To 5
							ruota(1) = r : ruote(1) = r : ruote(2) = 11 'tutte le ruote
							n1 = Estratto(es,r,p1): n2 = Estratto(es,r,p2)
							If Distanza(n1,n2) = ds Then
								If Figura(n2) = Figura(n1) Then
									x = Fuori90(n1*n2)
									a = Estratto(ess,r,p3)
									If a = x Then
										m1 = Fuori90(a + n1) : m2 = Fuori90(a + n2)
										co = co + 1
										Scrivi String(100,"=") & " Caso n°" & Format2(co),1
										Scrivi DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  Ambo Distanza " & ds & " [" & Format2(n1) & "-" & Format2(n2) & "] Stessa Figura"
										Scrivi DataEstrazione(ess) & "  " & SiglaRuota(r) & "  " & StringaEstratti(ess,r) & "  " & n1 & "x" & n2 & " = " & Format2(x):ColoreTesto 0
										If ess = es Then: ColoreTesto 2: Scrivi " Presente nella stessa estrazione",False,False Else ColoreTesto 1: Scrivi " Presente " & es - ess & " Estrazione/i fa",False,False
									ColoreTesto 0
									ambata(1) = m1
									ambata(2) = m2
									ImpostaGiocata 1,ambata,ruota,posta,k
									terzina(1) = m1
									terzina(2) = m2
									terzina(3) = a
									ImpostaGiocata 2,terzina,ruote,poste,k,2
									Gioca es,1
								End If
							End If
						End If
					Next
				Next
			Next
		Next
	Next
	If ScriptInterrotto Then Exit For
Next
Scrivi:ScriviResoconto
End Sub

ESEMPIO:

==================================================================================================== Caso n°01
02.03.2006  MI  35.61.55.82.80  Ambo Distanza 45 [35-80] Stessa Figura
28.02.2006  MI  87.01.68.31.10  35x80 = 10 Presente 1 Estrazione/i fa
Estrazione generatrice del pronostico 07563 [ 26 - 02/03/2006]
G 0001 Numeri in gioco : 45.90 su MI per Estratto
V N. [45.90                         ] [MI]     [45 .. .. .. 90] C.  10 Ambo       07573 [ 36 - 25/03/2006]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 45.90.10 su MI TT per Ambo
V N. [45.90.10                      ] [MI]     [45 .. .. .. 90] C.  10 Ambo       07573 [ 36 - 25/03/2006]
V N. [45.90.10                      ] [TT] [MI][45 .. .. .. 90] C.  10 Ambo       07573 [ 36 - 25/03/2006]
Interrotta per raggiunta durata
Interrotta per esito verificato

 

[Y10]

Grazie Black , perfetto. Buona giornata.