Per Luigi , sembra che funzioni ... ma

[fillotto]

Ciao Luigi in un vecchio post del 2013 (basta digitare in cerca Denis COSTANTINI) sei intervenuto per correggere uno script
che funziona perfettamente , io l'ho voluto adattare con gli FT a una lotteria a 30 num 5 estratti di seguito ti metto lo script adattato e l'output che sembrerebbe giusto ma mancano per certo risultati intermedi :

Option Explicit
	Sub Main
		Dim RitMinimo
		Dim NumeriCercati
		Dim RitardoMinimo
		Dim i,j,k,n,q,w,jj,qqq
		Dim Fine
		Dim FineCiclo
		Dim AmbiRitardoValido
		Dim RitardoAttuale
		Dim Ritardo
		Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
		
		'Script realizzato da Denis COSTANTINI - 23/06/2007
		'lo script esegue la ricerca delle formazioni da 2 fino a 7 numeri
		'in maggior ritardo su PENSY per la sorte di ambo
		'tempo stimato (usando i valori indicati in RitMinimo) circa 20 secondi
		Scrivi("TABELLONE DELLE PRINCIPALI COMBINAZIONI IN RITARDO PER AMBO Su PENSY ")
		Call Scrivi("aggiornato all'estrazione n° " & EstrazioniArchivioFT & " del " & DataEstrazioneFT(EstrazioniArchivioFT))
		Call Scrivi("")
		'valori di ritardo minimo per velocizzare (!) la ricerca
		RitMinimo = Array(0,0,120,55,40,35)
		
		'inizia ricerca combinazioni da 2 a 5 numeri in ritardo per ambo su PENSY
		For NumeriCercati = 2 To 5
			ReDim MaxRuota(1) ' MaxRuota = VarArrayCreate([0,11],3)
			ReDim MaxNumero(30) ' MAxNumero = VarArrayCreate([0,30],3)
			'ReDim RuotaCercata(11)' RuotaCercata = VarArrayCreate([0,11],3)
			ReDim Minim(30,30)' = VarArrayCreate([0,30,0,30],3)
			ReDim RitAmbo(30,30) ' RitAmbo = VarArrayCreate([0,30,0,30],3)
			ReDim Numeri(30) ' Numeri = VarArrayCreate([0,0],3)
			ReDim OrdCom(20) ' OrdCom = VarArrayCreate([0,20],12)
			ReDim OrdRit(20) ' OrdRit = VarArrayCreate([0,20],3)
			Scrivi("combinazioni di " & NumeriCercati & " numeri con ritardo minimo di " & RitMinimo(NumeriCercati) & " estrazioni")
			Scrivi("")
			RitardoMinimo = RitMinimo(NumeriCercati)		
					For i = 1 To 29
						For j =(i + 1) To 30
							Minim(i,j) = EstrazioniArchivioFT
								If AmboRitardoFT(i,j) < Minim(i,j) Then
									Minim(i,j) = AmboRitardoFT(i,j)
								End If						
						Next
					Next
					For i = 1 To NumeriCercati
						MaxNumero(i) = 30 + i - NumeriCercati
					Next
					n = 1
					Numeri(n) = 1
					'inizia la ricerca dei numeri
					Do
						Fine = 1
						n = n + 1
						Numeri(n) = Numeri(n - 1) + 1
						Do
							If Numeri(n) > MaxNumero(n) Then
								Do
									n = n - 1
									If n = 0 Then
										Fine = 0
										Exit Do
									End If
									Numeri(n) = Numeri(n) + 1
								Loop Until Numeri(n) <= MaxNumero(n)
							End If
							If n > 1 Then
								FineCiclo = 1
								'controllo ritardo degli ambi
								AmbiRitardoValido = 0 : Ritardo = EstrazioniArchivioFT
								For j = 1 To(n - 1)
									RitardoAttuale = Minim(Numeri(j),Numeri(n))
									If RitardoAttuale < RitardoMinimo Then
										Exit For
									Else
										AmbiRitardoValido = AmbiRitardoValido + 1
									End If
								Next
								If AmbiRitardoValido =(n - 1) Then
									If n = NumeriCercati Then
										'trovato una combinazione
										qqq = " "
										For q = 1 To n
											If Numeri(q) > 9 Then
												qqq = qqq & Numeri(q) & " "
											Else
												qqq = qqq & " " & Numeri(q) & " "
											End If
										Next
										For q = 1 To(n - 1)
											For w =(q + 1) To n
												If Ritardo > Minim(Numeri(q),Numeri(w)) Then
													Ritardo = Minim(Numeri(q),Numeri(w))
												End If
											Next
										Next
										'
										jj = 0
										For j = 1 To 1 Step - 1
											If Ritardo > OrdRit(j) Then
												jj = j
											End If
										Next
										If jj > 0 Then
											If jj = 20 Then
												OrdRit(20) = Ritardo
												OrdCom(20) = qqq
											Else
												For j = 20 To jj + 1 Step - 1
													OrdRit(j) = OrdRit(j - 1)
													OrdCom(j) = OrdCom(j - 1)
												Next
												OrdRit(jj) = Ritardo
												OrdCom(jj) = qqq
											End If
										End If
										
										Numeri(n) = Numeri(n) + 1
									Else
										FineCiclo = 0
									End If
								Else
									Numeri(n) = Numeri(n) + 1
									FineCiclo = 1
								End If
							Else
								FineCiclo = 0
							End If
							If Fine = 0 Then Exit Do End If
						Loop Until FineCiclo = 0
					Loop Until Fine = 0
				
			For j = 1 To 20
				If OrdRit(j) > 0 Then
					Call Scrivi("PENSY  " & OrdCom(j) & "    ritardo : " & OrdRit(j))
				End If
			Next
			'
			Scrivi("-----------------------------------------------------------------------")
			
			Call AvanzamentoElab(2,5,NumeriCercati)
			If ScriptInterrotto Then Exit For
		Next	
		
	End Sub

Ecco l'output sbagliato che non contemplano formazioni tra gli ambi , terzine ecc che hanno la caratteristica di esserci inclusi:

TABELLONE DELLE PRINCIPALI COMBINAZIONI IN RITARDO PER AMBO Su PENSY 
aggiornato all'estrazione n° 2780 del 16.12.2014

combinazioni di 2 numeri con ritardo minimo di 120 estrazioni

PENSY   17 26     ritardo : 255
PENSY    3 16     ritardo : 203
PENSY    2  9     ritardo : 183
PENSY    1  3     ritardo : 121
-----------------------------------------------------------------------
combinazioni di 3 numeri con ritardo minimo di 55 estrazioni

PENSY    3 20 27     ritardo : 139
PENSY    3 10 27     ritardo : 135
PENSY    3  8 27     ritardo : 112
PENSY    1  3 10     ritardo : 94
-----------------------------------------------------------------------
combinazioni di 4 numeri con ritardo minimo di 40 estrazioni

PENSY    3 16 20 27     ritardo : 98
PENSY    1  3 10 27     ritardo : 87
PENSY    1  2 10 27     ritardo : 48
-----------------------------------------------------------------------
combinazioni di 5 numeri con ritardo minimo di 35 estrazioni

PENSY    5 10 16 23 27     ritardo : 67
PENSY    5  7 10 23 27     ritardo : 56
PENSY    3 10 16 20 27     ritardo : 52
PENSY    3  8 16 23 27     ritardo : 42
PENSY    2  6 15 27 28     ritardo : 39
PENSY    1  2 10 20 27     ritardo : 35
-----------------------------------------------------------------------

 

[LuigiB]

ciao Fiulotto , non so perche manchino ho dato uno sguardo veloce ma non ho visto niente ...
piu che modificare script di altri dove se non si è esperti si va incontro a molti problemi ti consiglio di partire piano piano seguire una tua logica
e farti da solo i tuoi script ...