lotto pick 10

[Settenario]

buona sera, è possibile realizzare un foglio excel per il lotto new york PICK 10.
Il foglio dovrebbe scaricare l' archivio e calcolare il ritardo attuale degli 80 numeri e calcolare la frequenza storica dal 01/01 2008.

il link dell'archivio è :

New York Lottery

la lotteria è composta da 80 numeri e ne vengono estratti 20

un grazie anticipato

Alberto

 

[LuigiB]

Bravo Magia , sei il primo che usa i codici con suffisso FT per i file di testo .. mi fa piacere che senza particolari istruzioni ci siano lo stesso persone intraprendenti.
Ho scaricato il file per curiosità , gli utenti una volta che ce l'ahnno in qualsiasi directory facendoci doppio click sopra si dovrebbe aprire direttamente il programma con lo script attivo.
un saluto

 

[Alien.]

lotto pick mi ricorda una siringa per iniezioni ci vorrebbe con dentro un po di €.......
si puo saper come funziona?
Grazie.

 

[Mike58]

Ciao Magia, cazzeggiando un pochetto con il tuo archivio siamo riusciti a ricavarne una piccola statistica.

ecco lo script

Sub Main
	Dim sFile
	Dim sRecord
	Dim k,nu(1)
	Dim idEstr
	

	' scrivo un file che leggero successivamente con le ultime estrazioni
	sFile = "C:\Users\Mike58\Desktop\lotto pick 10.txt" ' mettere il vostro percorso file
	'Call ScriviFileEstrazioni(sFile,1)
	' da ora in poi tutte le funzioni da utilizzare sono quelle che terminano con FT
	' che servono per lavorare su archivi di file di testo
	If ApriBaseDatiFT(sFile,20,";",80) Then
	Ini = EstrazioneIni
	
	idEstr = EstrazioniArchivioFT
		sRecord = "L'archivio letto va da " & GetInfoEstrazioneFT(1) & " a " & GetInfoEstrazioneFT(EstrazioniArchivioFT) & vbCrLf
		sRecord = sRecord & "si compone di " & EstrazioniArchivioFT	 & " estrazioni " & vbCrLf
		sRecord = sRecord & "di seguito la lista delle frequenze" & vbCrLf
		Call Scrivi(sRecord)
		
		' preimposto i titoli delle colonne
		ReDim aTitoli(5)
		aTitoli(1) = "Numero"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		aTitoli(4) = " Storico "
		aTitoli(5) = " Incr Max "
		' inizializzo la tabella
		Call InitTabella(aTitoli,1,,,5)
		For k = 1 To 80 ' ciclo numeri
		nu(1) = k
		Call StatisticaFormazioneFT(nu,1,rit,max,Incr,fre,Ini,idEstr)
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(5) ' abbiamo 2 titoli quindi anche qui dimensioniamo con 2 colonne
			aValori(1) = Format2(k) ' numero
			aValori(2) = fre 'EstrattoFrequenzaFT(k,Ini,idEstr) ' valore della frequenza
			aValori(3) = rit 'EstrattoRitardoFT(k,Ini,idEstr)
			aValori(4) = max
			aValori(5) = Incr
			Call AddRigaTabella(aValori,,,3)
			Call SetColoreCella(1,3,1)
		Next
		' ora che ho terminato l'analisi e ho finito di accodare le righe
		' creo la tabella e la ordino per la colonna 2 che rappresenta la frequenza
		Call CreaTabella(3,,,,0)
	End If
End Sub

Ciao alla prossima