script 10elotto estrapolare terni .

[edesimone]

Grazie Luigi
Nessun problema, quello che fai per noi è tantissimo, proverò ad imparare età permettendo, i tuoi sono 41 i miei 52, per me è un mondo nuovo.
Poi rimane il fatto che in questo forum ci sono persone straordinarie dove si possono scambiare idee e suggerimenti.
Un saluto
edesimone

 

[LuigiB]

Ciao Ede , guarda che fare gli script è alla portata di chiunque sia dotato di un po' di logica e di un po' di buona volonta, certo
all'inizio puo sembrare difficile o una cosa astrusa , ma dopo un paio di mesetti di pratica si supera quel muro iniziale e il resto della strada è in discesa nel senso che superato l'impatto con le presunte
difficolta e acquisita un po' di pratica se si continua a farli, gli script verranno giu come quando si scrive una lettera in italiano !
Io avevo fatto dei video per spiegare ed introdurre le basi , non mi ricordo la link ma Claudio l'aveva ripostata qualche tempo fa.
Ciao

 

[dbr]

Ciao Luigi-Edesione
ho scovato in archivio il link dei video x gli script
ci provo pure io speriamo bene
http://forum.lottoced.com/topic.asp?TOPIC_ID=123737&SearchTerms=video,script
-dbr-

 

[imported_n/a]

quote:Originally posted by mike58

Ciao Luigi, ottimo questo script rispecchia una mia precedente richiesta.
Se magari potessi aggiungerci il ritardo della combinazione per sorte
cioè ritardo x sorte1, sorte2, e sorte3 sarebbe molto utile al fine delle giocate stesse.

Purtroppo questo livello mi risulta difficile da comprendere, ho bisogno di studiarci un pò.

ciao Mike58

Ciao Ede,( e luigi ) solo per incoraggiamento anche io sono tuo coetaneo e ti posso dire che nelle parole di luigi c'è tanta verità.
Anche per me erano inconprensile gli script, ma seguendo i consigli su questo forum e soprattutto dell'insegnamento di luigi e altri bravi scripter(uno x tutti esselotto) uniti con la logica e la volonta a personalizzare i propi lavori si arriva ad avere qualche soddisfazione personale dell'esserci riusciti.

Ora per quanto sopra da mia richiesta quando Luigi ha sviluppato il primo script e ha messo ritardi e ritardi storici per me è stato facile personalizzarmi quello che io chiedevo.

Se può essere utile allego lo script personalizzato con un range di 200 estrazione per diminuire i tempi di elaborazioni(che bastano per avere dei risultati vicini all'attualità).

Ciao Mike58


' mia correzione'
Class clsPresenze
Dim Presenze
Dim sNumeri
Dim Rit
Dim RitMax

End Class

Sub Main

' mio correzione script

Dim sFile
Dim idEstr
Dim sRecord
Dim nClasse
Dim k
Dim sKey
Dim clsPres
Dim collPres
Dim nTrovati
Dim aColonne
Dim aNumeri



nClasse = ScegliClasse
If nClasse <= 0 Then Exit Sub

sFile = GetDirectoryAppData & "Estrazioni10ELotto.txt"
Call EliminaFile(sFile)


Call Messaggio("Calcolo frequenza")
Set collPres = GetNewCollection
For idEstr = EstrazioneFin - 200 To EstrazioneFin

ReDim aColonna(0)
If GetColonna(idEstr,aColonna) Then

sRecord = FormatSpace(IndiceAnnuale(idEstr),5,True) & "|" & DataEstrazione(idEstr) & "|" & StringaNumeri(aColonna,"|")
Call ScriviFile(sFile,sRecord)


aColonne = SviluppoIntegrale(aColonna,nClasse)

For k = 1 To UBound(aColonne)
sKey = "k"
For j = 1 To nClasse
sKey = sKey & Format2(aColonne(k,j)) & "."
Next
If sKey <> "" Then
sKey = Left(sKey,Len(sKey) - 1)
Set clsPres = GetClsPres(sKey,collPres)
clsPres.Presenze = clsPres.Presenze + 1


End If
Next
End If



Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
If ScriptInterrotto Then Exit For
Next

ReDim aComb(100,2)
Call IsolaPiuFrequenti(collPres,aComb)


If ApriBaseDatiFT(sFile,20,"|") Then
Call Messaggio("Creo lista")

Call Scrivi("Elenco delle 100 combinazioni da " & nClasse & " numeri piu frequenti al 10 e lotto")
Call Scrivi

ReDim aTitoli(9)
aTitoli(1) = "Combinazione"
aTitoli(2) = "Frequenza"
aTitoli(3) = "Ritardo"
aTitoli(4) = "RitardoMax"
aTitoli(5) = "Ritardo x 1"
aTitoli(6) = "Ritardo x 2"
aTitoli(7) = "Ritardo x 3"
aTitoli(8) = "Frequenza x 2"
aTitoli(9) = "Frequenza x 3"

Call InitTabella(aTitoli)
k = 0
For k = 1 To UBound(aComb)


aNumeri = Split(aComb(k,2),".")




ReDim aV(9)
aV(1) = aComb(k,2)
aV(2) = aComb(k,1)
aV(3) = RitardoCombinazioneFT(aNumeri,nClasse)
aV(4) = SerieStoricoFT(1,EstrazioniArchivioFT,aNumeri,nClasse)
aV(5) = SerieRitardoFT(1,EstrazioniArchivioFT,aNumeri,1)
aV(6) = SerieRitardoFT(1,EstrazioniArchivioFT,aNumeri,2)
aV(7) = SerieRitardoFT(1,EstrazioniArchivioFT,aNumeri,3)
aV(8) = SerieFreqFT(1,EstrazioniArchivioFT,aNumeri,2)
aV(9) = SerieFreqFT(1,EstrazioniArchivioFT,aNumeri,3)

If aComb(k,1) > 0 Then


Call AddRigaTabella(aV)
End If
Call AvanzamentoElab(1,UBound(aCom

 

[edesimone]

LuigiB
Questa è la forza del forum, Te per primo riesci a spronare le persone, prendo atto delle Tue parole,grazie.
Grazie DBR scaricato archivio il link dei video x gli script, adesso cominciamo.
Mike58 che dire, da una parola detta, mi ritrovo già delle persone amiche, grazie per Tuo incoraggiamento, grazie dello script.
Un saluto
edesimone

 

[cozzio]

Sarebbe interessante che spiegaste come avvalersi dello script e come estrapolare la giocata. Inoltre sarebbe anche più comodo che lo script ordinasse dal più frequente al meno frequente ( dal + al- ritardato ect) tutti i dati in tabella, altrimenti si va fuori di testa a controllare il tutto...[V]

La fortuna è cieca...ma la sfiga ci vede benissimo!!!

 

[LuigiB]

ciao , per come ricavare la previsione magari puo intervenire Edesimone , per quanto riguarda il resto lo script gia ordina i dati per il valore di Frequenza , Ritardo , RitardoMassimo quale tra questi tre valori scegliere per creare la lista delle prime 100 combinazioni viene
chiesto direttamente all'utente in fase di esecuzione dello script

 

[edesimone]

Un saluto Cozzio
Estrapolare la giocata deve venire dal tuo intuito, non c'è sicurezza nelle previsioni,però possono aiutarti molto.
Esempio, facendo una previsione per ambata,vedo il 79 numero più frequente con ritardo di 6 e un ritardo storico 9, il mio istinto è stato di giocare questo numero,naturalmento con fortuna è uscito al primo colpo.
Come ripeto non esiste sicurezza poteva uscire dopo altri 10 colpi.
Questo nuovo gioco ti da la possibilità di giocare da 1 a 10 numeri,
naturalmente non è addatto al 10elotto ogni 5 minuti.
Io le previsioni cerco di tirarle fuori dai terni a garanzia del tre,
perchè se esce il terno ti paga 50 la posta,e se vedi le statistiche è la giocata più redittizia.
Per lo script prendi quello di LuigiB.
Possiamo chiedere a Mike58 di fare le modifiche del suo script che ordinasse dal più frequente al meno frequente.
Per Mike58 fai partire dalla data di inizio 10elotto(11/06/2009)questa è data di partenza, deve essere fissa.
Spero di esser stato chiaro, Cozzio se vuoi qualche previsione puoi chiederlo senza problemi, ricordati che è sempre un gioco.
Voglio regalare al forum questa previsione 4 terzine.
56-68-66
66-4-68
56-4-66
68-56-4
Siate cauti nel giocare.
Giocate solo nelle estrazioni serali, martedì,giovedì e sabato.
Mi ripeto non va bene per il 10elotto ogni 5 minuti.
Un saluto
edesimone

 

[cozzio]

quote:Originally posted by LuigiB

ciao , per come ricavare la previsione magari puo intervenire Edesimone , per quanto riguarda il resto lo script gia ordina i dati per il valore di Frequenza , Ritardo , RitardoMassimo quale tra questi tre valori scegliere per creare la lista delle prime 100 combinazioni viene
chiesto direttamente all'utente in fase di esecuzione dello script

Scusa Luigi, non parlavo del tuo script ma di quello limitato alle 200 estrazioni di controllo

La fortuna è cieca...ma la sfiga ci vede benissimo!!!

 

[cozzio]

quote:Originally posted by edesimone

Un saluto Cozzio

Io le previsioni cerco di tirarle fuori dai terni a garanzia del tre,
perchè se esce il terno ti paga 50 la posta,e se vedi le statistiche è la giocata più redittizia.

Scusa, ma al 10elotto non si vince con lo 0 e con 5 fino ai 10 punti? Quindi cosa vuoi dire che il terno paga 50 volte la posta? [?]

La fortuna è cieca...ma la sfiga ci vede benissimo!!!

 

[imported_n/a]

Ciao Ede,per quanto riguarda il mio script non c'è problema per la correzione che vuoi vedere era abbastanza facile se ci si mette a leggere il listato.
Giusto per farti capire cose basilari, inizio estrazione si puo cambiare a tuo piacimento nel mio c'era questa istruzione:

For idEstr = estrazionefin-200 To EstrazioneFin
significa inizio estrazionefinale-200 a estrazionefinale cioè 200.

ora ti ho messo l'inputbox(chiamata ini) che parte dall'estrazione 8077 data
11.06.2009
quindi l'istruzione diventa:
for idestr = ini to estrazionefin.

Poi per quanto riguarda l'ordinamento io ho ordinato per mia comodità sulla colonna 8 cioè frequenza x 2 estratti cosi da vedere la presenza 2 su 3. o 2 su 4

Call CreaTabella(8,0,0,100)' ORDINA TABELLA PER COLONNA 8

se vuoi cambiare l'ordinamento esempio pre frequenze generali basta cambiare il numero di colonna cioe colonna 2
cosi...


Call CreaTabella(2,0,0,100)' ORDINA TABELLA PER COLONNA 2

Su mettiamoci un po d'impegno a leggere fra le righe.

allego comunque il mio listato ri-corretto.
nel caso venisse chiesto potrei anche cercare di mettere il msbox di ordinamento messo da luigi nel nuovo script

Ciao Mike58



Class clsPresenze
Dim Presenze
Dim sNumeri
Dim Rit
Dim RitMax

End Class

Sub Main

' mio correzione script

Dim sFile
Dim idEstr
Dim sRecord
Dim nClasse
Dim k
Dim sKey
Dim clsPres
Dim collPres
Dim nTrovati
Dim aColonne
Dim aNumeri

Ini = CInt(InputBox("DA QUALE ESTRAZIONE VUOI ANALIZZARE ? ",,8077))

nClasse = ScegliClasse
If nClasse <= 0 Then Exit Sub

sFile = GetDirectoryAppData & "Estrazioni10ELotto.txt"
Call EliminaFile(sFile)


Call Messaggio("Calcolo frequenza")
Set collPres = GetNewCollection
For idEstr = Ini To EstrazioneFin

ReDim aColonna(0)
If GetColonna(idEstr,aColonna) Then

sRecord = FormatSpace(IndiceAnnuale(idEstr),5,True) & "|" & DataEstrazione(idEstr) & "|" & StringaNumeri(aColonna,"|")
Call ScriviFile(sFile,sRecord)


aColonne = SviluppoIntegrale(aColonna,nClasse)

For k = 1 To UBound(aColonne)
sKey = "k"
For j = 1 To nClasse
sKey = sKey & Format2(aColonne(k,j)) & "."
Next
If sKey <> "" Then
sKey = Left(sKey,Len(sKey) - 1)
Set clsPres = GetClsPres(sKey,collPres)
clsPres.Presenze = clsPres.Presenze + 1


End If
Next
End If



Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
If ScriptInterrotto Then Exit For
Next

ReDim aComb(100,2)
Call IsolaPiuFrequenti(collPres,aComb)


If ApriBaseDatiFT(sFile,20,"|") Then
Call Messaggio("Creo lista")

Call Scrivi("Elenco delle 100 combinazioni da " & nClasse & " numeri piu frequenti al 10 e lotto")
Call Scrivi ("data estrazione inizio 10 e lotto(estrazioni del lotto ... " & DataEstrazione(Ini))
Call Scrivi

ReDim aTitoli(9)
aTitoli(1) = "Combinazione"
aTitoli(2) = "Frequenza"
aTitoli(3) = "Ritardo"
aTitoli(4) = "RitardoMax"
aTitoli(5) = "Ritardo x 1"
aTitoli(6) = "Ritardo x 2"
aTitoli(7) = "Ritardo x 3"
aTitoli(8) = "Frequenza x 2"
aTitoli(9) = "Frequenza x 3"

Call InitTabella(aTitoli)
k = 0
For k = 1 To UBound(aComb)


aNumeri = Split(aComb(k,2),".")




ReDim aV(9)
aV(1) = aComb(k,2)
aV(2) = aComb(k,1)
aV(3) = RitardoCombinazioneFT(aNumeri,nClasse)
aV(4) = SerieStoricoFT(1,EstrazioniArchivioFT,aNumeri,nClasse)
aV(5) = SerieRitardoFT(1,EstrazioniArchivioFT,aNumeri,1)
aV(6) = SerieRitardoFT(1,EstrazioniArchivioFT,aNumeri,2)
aV(7) = SerieRitardoFT(1,EstrazioniArchivioFT,aNumeri,3)
aV(8) = SerieFreqFT(1,EstrazioniArchivioFT,aNumeri,2)
aV(9) = SerieFreqFT(1,EstrazioniArchivioFT,aNumeri,3)

If aComb(k,1) > 0 Then


Call AddRigaTabella(aV)
End If
Call AvanzamentoElab(1,UBound(aComb),k)
If ScriptInterrotto Then Exit For

Next


Call CreaTabella

 

[edesimone]

Grazie mike58.
La richiesta della data inizio sapevo di modificare -200,la mia è stata solo una precisazione di inizio gioco del 10elotto 11/06/2009 è nato questo gioco,e credo sia giusto fare delle statistiche partendo dalla questa data.
Comunque grazie delle correzioni copiato e salvato,oltre quello di LuigiB.
Per cozzio.
Come ti dicevo il 10elotto è cambiato, si può gicare con lo 0 e con 5 fino ai 10 punti, oppure prendi la stessa schedina evidenzia 3 numeri,
metti il pallino estrazione del lotto, metti il pallino su € 1, vai e gioca, devi dire al ricevitore che sono 3 numeri e che la giocata è quella serale, e non quella ogni 5 minuti.
Poi sempre dove giochi la schedina fatti dare una nuova schedina del 10elotto sono di colore blu, dietro ci sono le vincite con vari numeri.
Se devi giocare come dico io ricordati di farle su le shedine vecchie e dire sempre quanti numeri sono,e per l'estrazione serale, se le fai con quelle blu sicuramente giocherai con le estrazioni ogni 5 minuti.
Poi tutto dipende dal ricevitore queste cose le deve sapere.
Un saluto
edesimone

 

[rudivall]

Ciao Luigi, una domanda, è possibile adattare o far funzionare questo tuo capolavoro invece che per il 10 e lotto per l'archivio del lotto?
anche solo a ruota singola?

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(100,4)
	
	nClasse = ScegliClasse
	nGaranzia = ScegliGaranzia
	idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
		
	
	
	nInizio = EstrazioneIni
	nFine = EstrazioneFin
	
	
	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(1) = "Ritardo"
	aVoci(2) = "Ritardo massimo"
	
	
	
	i = ScegliOpzioneMe

 

[LuigiB]

cio Rudival , certamente è possibile con pochissimo sforzo
bastava cambiare un paio di righe..
Le funzioni Lotto DiecieElotto hanno come unica differenza che quelle del
10elotto terminano col suffisso DL senno sono praticamente uguali ,un'altra piccola differenza è che nelle funzioni per il lotto bisogna passare la ruota che ovviamente nel 10 e lotto non esiste.

Option Explicit
Sub Main

	
	Dim nClasse
	Dim nGaranzia
	Dim k,j
	Dim sNumeri
	Dim idComb
	Dim nInizio,nFine
	Dim idValoreDaAna
	Dim sValoreUsato
	Dim CombTot
	Dim aRuote
	
	ReDim aCombMigliori(100,4)
	
	nClasse = ScegliClasse
	Call ScegliRuote ( aRuote)
	nGaranzia = ScegliGaranzia
	idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
		
	
	
	nInizio = EstrazioneIni
	nFine = EstrazioneFin
	
	
	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,aRuote,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 & " sulle ruote " & GetRuoteUsate(aRuote))
		Call Scrivi("La seguente lista mostra le prime 100 combinazioni in base al valore di " & sValoreUsato)
		Call Scrivi("Range analizzato " & GetInfoEstrazione(nInizio) & " fino a " & GetInfoEstrazione(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,aRuote,Garanzia,aCombMig,nInizio,nFine,idValoreDaAna)
	
	Dim k,j
	
	Dim Rit
	Dim RitMax
	Dim Freq
	Dim Valore
	
	
	
	
	
	Call StatisticaFormazione(aNum,aRuote,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) = "

 

[rudivall]

lUIGI grazie mille, sei eccezionale, grande. immenso

rodolfo

 

[imported_n/a]

Mi Aggiungo anche io per i complimenti su questo script semplicemente SPETTACOLARE e ampliabile per ricerche personali.

Bravissimo Luigi e scusaci se ci ripetiamo ma ogni volta ci stupisci e sempre con effetti speciali

ciao
Mike58