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
    venerdì 01 agosto 2025
    Bari
    38
    02
    68
    33
    79
    Cagliari
    21
    78
    83
    22
    55
    Firenze
    63
    14
    72
    28
    16
    Genova
    21
    46
    17
    40
    39
    Milano
    49
    60
    17
    77
    63
    Napoli
    90
    05
    77
    74
    53
    Palermo
    16
    61
    43
    37
    90
    Roma
    40
    45
    27
    57
    32
    Torino
    62
    57
    26
    82
    61
    Venezia
    06
    46
    68
    32
    29
    Nazionale
    71
    36
    06
    32
    15
    Estrazione Simbolotto
    Nazionale
    30
    37
    17
    41
    08
Indietro
Alto