Novità

script per lunghette 10elotto

paolox

Super Member >GOLD<
ciao
ho controllato su spaziometria del grande luigi,
ma non vedo la possibilità di trovare i ritardi
e le frequenze delle lunghette per il 10elotto.
si potrebbe avere uno script per questa statistica??
ringrazio anticipatamente chi mi vorrà aiutare
buona domenica
 
io vorrei ad esempio una tabella in ordine decrescente
di lunghette di 3 numeri tra i più ritardatari (come
solitamente è con il gioco del lotto classico)faccio
un esempio con numeri presi a caso

ad esempio:
-7,11,88 rit.51
-52,82,1 rit.50
-15,28,40 rit.42
ecc.ecc.
 
Ciao Paolox, esiste in spaziometria nella cartella vari uno script creato da Luigi che si avvicina a quello che vuoi ottenere.
Te lo posto con qualche mia modifica per ridurre i tempi di elaborazione.

Mike58


'------------------------------

Codice:
Option Explicit
Sub Main

	
	Dim nClasse
	Dim nGaranzia
	Dim k,j
	Dim sNumeri
	Dim idComb
	Dim nInizio,nFine
	Dim idValoreDaAna
	Dim sValoreUsato
	Dim CombTot
		
	ReDim aCombMigliori(30,4)
	
	nClasse = ScegliClasse
	nGaranzia = ScegliGaranzia
	idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
		
	
	
	nInizio = 8077
	nFine = EstrazioniArchivioDL
	
	
	If nClasse > 0 And nGaranzia > 0 And nGaranzia <= nClasse And idValoreDaAna > 0 Then
		Call Messaggio("Sviluppo combinazioni di classe " & nClasse)
		CombTot = InitSviluppaComb(nClasse)
		
		Call Messaggio("Statistica combinazioni in corso ")
		ReDim aCol(nClasse)
		Do While GetCombSviluppo(aCol) = True
			Call AnalisiComb(aCol,nGaranzia,aCombMigliori,nInizio,nFine,idValoreDaAna)
			k = k + 1
			If k Mod 20 = 0 Then
				Call Messaggio("Statistica combinazioni in corso " & k & " di " & CombTot)
		
				Call AvanzamentoElab(1,CombTot,k)
				
				If ScriptInterrotto Then Exit Do
			End If
		Loop
		Call Messaggio("")

		ReDim aTitoli(4)
		aTitoli(1) = "Combinazione"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		aTitoli(4) = "RitardoMax"
		
		
		Call Scrivi("Combinazioni di classe " & nClasse & " analizzate per punti " & nGaranzia)
		Call Scrivi("La seguente lista mostra le prime 100 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 InitTabella(aTitoli)

		For k = 1 To UBound(aCombMigliori)
			
			
			ReDim ADati(4)
			ADati(1) = aCombMigliori(k,4)
			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(aNum,Garanzia,aCombMig,nInizio,nFine,idValoreDaAna)
	
	Dim k,j
	
	Dim Rit
	Dim RitMax
	Dim Freq
	Dim Valore
	
	
	
	
	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) = StringaNumeri(aNum)
			
			
			Exit For
				
		End If
	Next
End Sub
Function InitSviluppaComb(Classe)
	
	Dim k
	ReDim aNum(90)

	For k = 1 To 90
		aNum(k) = k
	Next
	
	InitSviluppaComb = InitSviluppoIntegrale(aNum,Classe)
	
End Function

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
 
ciao mike58
proprio quello che cercavo,
grazie mille.
riesco a visualizzare solo 30 combinazioni,
si potrebbe averne almeno il doppio o meglio
ancora 100, sarebbe per me il massimo....

ti ringrazio per la tua disponibilità e cortesia

ciao
 
Si Paolo la riga da cambiare e questa ma i tempi possono essere più lunghi.

ReDim aCombMigliori(30,4)

cambia il 30 con il numero che preferisci forse max 100

ReDim aCombMigliori(100,4)


Mike58
 
ciao
dato che il gioco del lotto e del 10elotto
sono numeri presi dalla stessa estrazione,
avrei pensato di confrontare le frequenze
sia dell'uno che dell'altro.

avrei bisogno di uno script
che mi trovi le frequenze
sia del lotto che del 10elotto
per un numero di estrazioni che inserisco
io di volta in volta.

quindi nel risultato ci dovrebbe essere
due colonne una per il lotto e una per 10elotto
con le relative frequenze

spero di essere stato chiaro
spero si possa fare

ringrazio anticipatamente chi mi vorrà aiutare

ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto