Novità

richiesta per luigi o anche agli scripter

arcor

Advanced Member
un saluto al buon Luigi e a tutti gli utenti del forum io avrei una richiesta da fare non so se è già possibile farla col programma di luigi o è necessario uno script su misura. riquardo al 10elotto serale quindi abbinato alle estrazioni del lotto. inserendo 15 numeri a piacere voglio che mi dia i 10 terni(che hanno realizzato il terno ovvio) + frequenti e i 10 terni meno usciti della quindicina scelta
e se possibile anche le 10 quartine (che hanno realizzato la quaterna)+ frequenti e le 10 meno uscite partendo dalla introduzione del 10e lotto serale quindi dal 9-05-2009

magari questa ricerca è già fattibile col programma ma io non ci riesco
grazie
ciao:(
 
Ciao Arcor, uno script del genere è già esistente negli esempi vari di spaziometria chiaramente fatto da luigi, vedi se fa al caso tuo.
Mike

Codice:
Sub Main

	Dim aComb
	Dim nClasse
	Dim nGaranzia
	Dim k,j
	Dim sNumeri
	Dim idComb
	Dim nInizio,nFine
	Dim idValoreDaAna
	Dim sValoreUsato
	Dim TipoArchivio
	
	el = CInt(InputBox("QUANTE COMBINAZIONI ELENCARE","ELENCO COMBINAZIONI",10))	
	ReDim aCombMigliori(el,4)
	
	TipoArchivio = ScegliArchivio	
	nClasse = ScegliClasse
	nGaranzia = ScegliGaranzia
	idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
	
	
	Call ImpostaArchivio10ELotto(TipoArchivio)
	
	
	nFine = EstrazioniArchivioDL
	nInizio = 8077
	
	
	
	If nClasse > 0 And nGaranzia > 0 And nGaranzia <= nClasse And idValoreDaAna > 0 Then
		Call Messaggio("Sviluppo combinazioni di classe " & nClasse)
		Call SviluppaComb(aComb,nClasse)
		Call Messaggio("Statistica combinazioni in corso ")

		For k = 1 To UBound(aComb)
			Call AnalisiComb(aComb,k,nClasse,nGaranzia,aCombMigliori,nInizio,nFine,idValoreDaAna)
			'If k Mod 20 = 0 Then
				Call Messaggio("Statistica combinazioni in corso " & k)
		
				Call AvanzamentoElab(1,UBound(aComb),k)
				If ScriptInterrotto Then Exit For
			'End If
		Next	
		Call Messaggio("")

		ReDim aTitoli(4)
		aTitoli(1) = "Combinazione"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		aTitoli(4) = "RitardoMax"
		
		
		
		Call Scrivi("Archivio " & Iif(TipoArchivio = 1,"10 e lotto","10 e lotto 5 minuti"))
		Call Scrivi("Combinazioni di classe " & nClasse & " analizzate per punti " & nGaranzia)
		Call Scrivi("La seguente lista mostra le prime Tot combinazioni in base al valore di " & sValoreUsato)
		Call Scrivi("Range analizzato " & GetInfoEstrazioneDL(nInizio) & " fino a " & GetInfoEstrazioneDL(nFine))
		Call Scrivi("Estrazioni analizzate totali : " &(nFine + 1) - nInizio)
		Call Scrivi
		'Call Scrivi("Numeri scelti..." & aComb)
		
		

		Call InitTabella(aTitoli,1,,2,5)

		For k = 1 To UBound(aCombMigliori)
			sNumeri = ""
			idComb = aCombMigliori(k,4)
			For j = 1 To nClasse
				sNumeri = sNumeri & Format2(aComb(idComb,j)) & "."
			Next
			
			ReDim ADati(4)
			ADati(1) = Left(sNumeri,Len(sNumeri) - 1)
			ADati(2) = aCombMigliori(k,1)
			ADati(3) = aCombMigliori(k,2)
			ADati(4) = aCombMigliori(k,3)

			Call AddRigaTabella(ADati) 			

		Next

		Call CreaTabella()
	
	Else
		MsgBox "Selezionare la classe di sviluppo e la garanzia , " & _
		"si ricorda che la garanzia non puo essere maggiore della classe di sviluppo " & _
		"e che bisogna scegliere quale valore statistico considerare per " & _
		"alimentare la lista delle prime 100 Combinazioni "
		
		
				
	End If
	
End Sub
Sub AnalisiComb(aComb,idComb,nClasse,Garanzia,aCombMig,nInizio,nFine,idValoreDaAna)
	
	Dim k,j
	ReDim aNum(nClasse)
	Dim Rit
	Dim RitMax
	Dim Freq
	Dim Valore
	
	
	For k = 1 To nClasse
		aNum(k) = aComb(idComb,k)
	Next
	
	Call StatisticaFormazioneDL(aNum,Garanzia,Rit,RitMax,0,Freq,nInizio,nFine)
	Select Case idValoreDaAna
	Case 1
		Valore = Freq
	Case 2
		Valore = Rit
	Case 3
		Valore = RitMax
	End Select
	For k = 1 To UBound(aCombMig)
		
		If Valore >= aCombMig(k,0) Then
			
			For j = UBound(aCombMig) To(k + 1) Step - 1
				aCombMig(j,0) = aCombMig(j - 1,0)
				aCombMig(j,1) = aCombMig(j - 1,1)
				aCombMig(j,2) = aCombMig(j - 1,2)
				aCombMig(j,3) = aCombMig(j - 1,3)
				aCombMig(j,4) = aCombMig(j - 1,4)
				
			Next
			aCombMig(k,0) = Valore
			aCombMig(k,1) = Freq
			aCombMig(k,2) = Rit
			aCombMig(k,3) = RitMax
			aCombMig(k,4) = idComb
			
			Exit For
				
		End If
	Next
End Sub
Sub SviluppaComb(aComb,Classe)
	
	Dim k
	ReDim aNum(90)
	ScegliNumeri(aNum)
	For k = 1 To UBound(aNum)
		'aNum(k) = UBound (k)
	Next
	
	aComb = SviluppoIntegrale(aNum,Classe)
	
End Sub


Function ScegliClasse()
	ReDim aVoci(3)
	
	aVoci(0) = "Estratto"
	aVoci(1) = "Ambo"
	aVoci(2) = "Terno"
	aVoci(3) = "Quaterna"
	
	
	ScegliClasse = ScegliOpzioneMenu(aVoci,2,"Secegli tipo combinazione") + 1
End Function

Function ScegliGaranzia()

	ReDim aVoci(3)
	
	aVoci(0) = "Estratto"
	aVoci(1) = "Ambo"
	aVoci(2) = "Terno"
	aVoci(3) = "Quaterna"
	
	
	ScegliGaranzia = ScegliOpzioneMenu(aVoci,2,"Secegli garanzia") + 1
End Function

Function ScegliValoreDaAnalizzare(sValore)

	ReDim aVoci(2)
	Dim i
	
	aVoci(0) = "Frequenza"
	aVoci(1) = "Ritardo"
	aVoci(2) = "Ritardo massimo"
	
	
	
	i = ScegliOpzioneMenu(aVoci,0,"Quale valore considerare per l'ordinamento ? ")
	sValore = aVoci(i)
	ScegliValoreDaAnalizzare = i + 1
End Function

Function ScegliArchivio()

	ReDim aVoci(1)
	
	aVoci(0) = "10 e lotto"
	aVoci(1) = "10 e lotto 5 min"
	
	
	ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Secegli aechivio") + 1
End Function
 
grazie Mike58 è proprio quello che cercavo peccato non esamini anche le cinquine ma va bene anche così
 
Ciao arcor,

prova con questo...Bastava un piccolo "accorgimento" allo script di LuigiB...

Codice:
Sub Main

	Dim aComb
	Dim nClasse
	Dim nGaranzia
	Dim k,j
	Dim sNumeri
	Dim idComb
	Dim nInizio,nFine
	Dim idValoreDaAna
	Dim sValoreUsato
	Dim TipoArchivio
	
	el = CInt(InputBox("QUANTE COMBINAZIONI ELENCARE","ELENCO COMBINAZIONI",10))	
	ReDim aCombMigliori(el,4)
	
	TipoArchivio = ScegliArchivio	
	nClasse = ScegliClasse
	nGaranzia = ScegliGaranzia
	idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
	
	
	Call ImpostaArchivio10ELotto(TipoArchivio)
	
	
	nFine = EstrazioniArchivioDL
	nInizio = 8077
	
	
	
	If nClasse > 0 And nGaranzia > 0 And nGaranzia <= nClasse And idValoreDaAna > 0 Then
		Call Messaggio("Sviluppo combinazioni di classe " & nClasse)
		Call SviluppaComb(aComb,nClasse)
		Call Messaggio("Statistica combinazioni in corso ")

		For k = 1 To UBound(aComb)
			Call AnalisiComb(aComb,k,nClasse,nGaranzia,aCombMigliori,nInizio,nFine,idValoreDaAna)
			'If k Mod 20 = 0 Then
				Call Messaggio("Statistica combinazioni in corso " & k)
		
				Call AvanzamentoElab(1,UBound(aComb),k)
				If ScriptInterrotto Then Exit For
			'End If
		Next	
		Call Messaggio("")

		ReDim aTitoli(4)
		aTitoli(1) = "Combinazione"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		aTitoli(4) = "RitardoMax"
		
		
		
		Call Scrivi("Archivio " & Iif(TipoArchivio = 1,"10 e lotto","10 e lotto 5 minuti"))
		Call Scrivi("Combinazioni di classe " & nClasse & " analizzate per punti " & nGaranzia)
		Call Scrivi("La seguente lista mostra le prime Tot combinazioni in base al valore di " & sValoreUsato)
		Call Scrivi("Range analizzato " & GetInfoEstrazioneDL(nInizio) & " fino a " & GetInfoEstrazioneDL(nFine))
		Call Scrivi("Estrazioni analizzate totali : " &(nFine + 1) - nInizio)
		Call Scrivi
		'Call Scrivi("Numeri scelti..." & aComb)
		
		

		Call InitTabella(aTitoli,1,,2,5)

		For k = 1 To UBound(aCombMigliori)
			sNumeri = ""
			idComb = aCombMigliori(k,4)
			For j = 1 To nClasse
				sNumeri = sNumeri & Format2(aComb(idComb,j)) & "."
			Next
			
			ReDim ADati(4)
			ADati(1) = Left(sNumeri,Len(sNumeri) - 1)
			ADati(2) = aCombMigliori(k,1)
			ADati(3) = aCombMigliori(k,2)
			ADati(4) = aCombMigliori(k,3)

			Call AddRigaTabella(ADati) 			

		Next

		Call CreaTabella()
	
	Else
		MsgBox "Selezionare la classe di sviluppo e la garanzia , " & _
		"si ricorda che la garanzia non puo essere maggiore della classe di sviluppo " & _
		"e che bisogna scegliere quale valore statistico considerare per " & _
		"alimentare la lista delle prime 100 Combinazioni "
		
		
				
	End If
	
End Sub
Sub AnalisiComb(aComb,idComb,nClasse,Garanzia,aCombMig,nInizio,nFine,idValoreDaAna)
	
	Dim k,j
	ReDim aNum(nClasse)
	Dim Rit
	Dim RitMax
	Dim Freq
	Dim Valore
	
	
	For k = 1 To nClasse
		aNum(k) = aComb(idComb,k)
	Next
	
	Call StatisticaFormazioneDL(aNum,Garanzia,Rit,RitMax,0,Freq,nInizio,nFine)
	Select Case idValoreDaAna
	Case 1
		Valore = Freq
	Case 2
		Valore = Rit
	Case 3
		Valore = RitMax
	End Select
	For k = 1 To UBound(aCombMig)
		
		If Valore >= aCombMig(k,0) Then
			
			For j = UBound(aCombMig) To(k + 1) Step - 1
				aCombMig(j,0) = aCombMig(j - 1,0)
				aCombMig(j,1) = aCombMig(j - 1,1)
				aCombMig(j,2) = aCombMig(j - 1,2)
				aCombMig(j,3) = aCombMig(j - 1,3)
				aCombMig(j,4) = aCombMig(j - 1,4)
				
			Next
			aCombMig(k,0) = Valore
			aCombMig(k,1) = Freq
			aCombMig(k,2) = Rit
			aCombMig(k,3) = RitMax
			aCombMig(k,4) = idComb
			
			Exit For
				
		End If
	Next
End Sub
Sub SviluppaComb(aComb,Classe)
	
	Dim k
	ReDim aNum(90)
	ScegliNumeri(aNum)
	For k = 1 To UBound(aNum)
		'aNum(k) = UBound (k)
	Next
	
	aComb = SviluppoIntegrale(aNum,Classe)
	
End Sub


Function ScegliClasse()
	ReDim aVoci(4)
	
	aVoci(0) = "Estratto"
	aVoci(1) = "Ambo"
	aVoci(2) = "Terno"
	aVoci(3) = "Quaterna"
	aVoci(4) = "Cinquina"
	
	ScegliClasse = ScegliOpzioneMenu(aVoci,2,"Secegli tipo combinazione") + 1
End Function

Function ScegliGaranzia()

	ReDim aVoci(4)
	
	aVoci(0) = "Estratto"
	aVoci(1) = "Ambo"
	aVoci(2) = "Terno"
	aVoci(3) = "Quaterna"
	aVoci(4) = "Cinquina"
	
	
	ScegliGaranzia = ScegliOpzioneMenu(aVoci,2,"Secegli garanzia") + 1
End Function

Function ScegliValoreDaAnalizzare(sValore)

	ReDim aVoci(2)
	Dim i
	
	aVoci(0) = "Frequenza"
	aVoci(1) = "Ritardo"
	aVoci(2) = "Ritardo massimo"
	
	
	
	i = ScegliOpzioneMenu(aVoci,0,"Quale valore considerare per l'ordinamento ? ")
	sValore = aVoci(i)
	ScegliValoreDaAnalizzare = i + 1
End Function

Function ScegliArchivio()

	ReDim aVoci(1)
	
	aVoci(0) = "10 e lotto"
	aVoci(1) = "10 e lotto 5 min"
	
	
	ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Secegli aechivio") + 1
End Function


Ciao ciao
 
Ultima modifica:
grazie mille Moro_80 avevo provato a modificarlo avevo aggiunto una voce di meno ora ho capito dove devo mettere le mani
ciao:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
Indietro
Alto