Novità

per francesco pfca

P

ppaaoolloo

Super Member >PLATINUM<
ciao francesco,
ti chiedo se ti è possibile costruire
in excel un programmino per "VINCI CASA"
che contenta il tabellone analitico e la possibilità
di sapere le frequenze e i ritardi dei numeri sortiti.

ti ringrazio anticipatamente
fammi sapere

ciao
 
Ciao paolo,
mi dispiace ma in questo periodo non ho tempo a disposizione per seguire i giochi,
mi limito a piccoli interventi su qualche post.
Francesco
 
Ciao Paolo, sicuramente Pfca avrebbe fatto un ottimo lavoro in Excel, io avrei fatto invece questo script che previo un archivio esterno fa in qualche modo l'analisi che chiedi.
vedi se può esserti utile.
devi solo allacciare l'archivio salvato in bloccoNote e allacciare il percorso Sfile
questo è l'archivio fino ad adesso e lo salvi in bloccoNote sul desktop, poi con lo script mettendo il tuo user Pc lo allacci con questa riga

sFile = "C:\Users\....tuo user.......\Desktop\vincicasa.txt"






1,09/07/2014,01,03,14,30,32
2,16/07/2014,11,20,25,28,37
3,23/07/2014,19,24,36,38,40
4,30/07/2014,4,26,30,33,36
5,08/08/2014,5,6,11,20,23
6,13/08/2014,4,5,14,15,31
7,20/08/2014,1,14,19,35,40
8,27/08/2014,7,13,15,19,20
9,03/09/2014,2,7,24,30,31
10,10/09/2014,1,12,18,25,30
11,17/09/2014,6,10,27,34,38
12,24/09/2014,3,25,34,37,38
13,1/10/2014,7,8,18,22,33
14,08/10/2014,12,23,26,29,39
15,15/10/2014,11,24,25,27,30
16,22/10/2014,16,21,22,30,33
17,29/10/2014,11,13,25,32,34

Codice: 
Sub Main
	Dim sFile
	Dim sRecord
	Dim k,nu(5),nuV(90),nuR(1),cad(5)
	Dim idEstr
	Scrivi " Script Per Archivio **** VINCICASA **** By Mike58 **** ",1,1,2,4,4

	' scrivo un file che leggero successivamente con le ultime estrazioni
	sFile = "C:\Users\.........\Desktop\vincicasa.txt"
	'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,5,",",40) Then
		Ini = EstrazioneIni
		'kk = kk + 1
		idEstr = EstrazioniArchivioFT
		kk = idEstr - Ini + 1
		ScegliNumeri(nuV)
		sRecord = "L'archivio letto va da " & GetInfoEstrazioneFT(1) & " a " & GetInfoEstrazioneFT(EstrazioniArchivioFT)
		
		Call Scrivi(sRecord)
		Scrivi "Estrazioni analizzate..." & kk
		Scrivi
		Scrivi "------ Elenco Estrazioni ------",1
		Scrivi
		Scrivi "Verifica Numeri Giocati.... " & StringaNumeri(nuV),1,1,,1,3
		For es = Ini To idEstr
			For p = 1 To 5
				nu(p) = EstrattoFT(es,p)
				'If EstrattoFrequenzaFT(nu(p),Ini,es) > 1 Then nu(p) = 0
			Next
			Call VerificaEsitoFT(nuV,es,1,1,esito,,estratti,id)
			somma = nu(1) + nu(2) + nu(3) + nu(4) + nu(5)
			Scrivi FormatSpace(IndiceAnnualeFT(es),2) & " " & "  " & DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & "   Peso...." & _
			FormatSpace(somma,3),0,0
			Scrivi "  -  " & estratti & "  " & esito
		Next
		Scrivi "------------------Analitico----------------------"
		For es = idEstr To Ini Step - 1' To idEstr
			For p = 1 To 5
				nu(p) = EstrattoFT(es,p)
				cad(p) = EstrattoFT(es,p)
				If EstrattoFrequenzaFT(nu(p),es,idEstr) > 1 Then nu(p) = "--"
				If EstrattoFrequenzaFT(cad(p),es,idEstr) = 1 Then cad(p) = "--"
			Next
			Scrivi DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & " - Ritarda da.... " & idEstr - es,0,0
			Scrivi vbTab & " Caduti  " & StringaNumeri(cad,,1)
		Next
		Scrivi
		' preimposto i titoli delle colonne
		ReDim aTitoli(4)
		aTitoli(1) = "Numero"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		aTitoli(4) = " Rit.Prec "
		' inizializzo la tabella
		Call InitTabella(aTitoli,1,,,5)
		For k = 1 To 40 ' ciclo numeri
			nuR(1) = k
			Call StatisticaFormazioneFT(nuR,1,rit,max,Incr,fre,Ini,idEstr)
			sf = EstrattoFrequenzaFT(k,Ini,idEstr)
			rp1 = EstrattoRitardoFT(k,Ini,idEstr - 1)
			
			ReDim aValori(4) ' 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)
			If rit = 0 Then aValori(4) = rp1
			If rit > 0 Then aValori(4) = " - "
			Call AddRigaTabella(aValori,,,3)
			Call SetColoreCella(1,3,1)
			If pari(k) And sf > 0 Then par = par + 1
			If dispari(k) And sf > 0 Then ds = ds + 1
			If k > 0 And k < 10 And sf > 0 Then dc1 = dc1 + 1
			
			If k > 10 And k < 21 And sf > 0 Then dc2 = dc2 + 1
			
			If k > 20 And k < 31 And sf > 0 Then dc3 = dc3 + 1
			
			If k > 30 And k < 41 And sf > 0 Then dc4 = dc4 + 1
			
			If sf > 0 Then us = us + 1
			If rit = kk Then Call SetColoreCella(1,2,4)
			If rit = 0 Then Call SetColoreCella(3,3,1)
			If aValori(4) = kk - 1 Then Call SetColoreCella(4,4,2)
		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(0,,,,1)
	End If
	Scrivi "Numeri Pari......" & par
	Scrivi "Numeri dispari..." & ds
	Scrivi "1° Decina...01-09....." & dc1 
	Scrivi "2° Decina...10-19....." & dc2 
	Scrivi "3° Decina...20-29....." & dc3 
	Scrivi "4° Decina...30-40....." & dc4 
	Scrivi
	Scrivi "Numeri usciti...." & us,1
	Scrivi "Rimasti.........." & 40 - us,1
	ReDim nd1(10)
	For k1 = 1 To 40
		kk1 = EstrattoFrequenzaFT(k1,Ini,idEstr)
		kk2 = EstrattoRitardoFT(k1,Ini,idEstr)
		riga = riga & kk1 & "  "
		rita = rita & Format2(kk2) & " "
	Next
	Scrivi
	Scrivi "01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40",1,1,,0,3
	Scrivi String(150,"-")
	Scrivi riga,1,1,,1,3
	Scrivi rita,1,1,,2,3
End Sub
 
ciao mike
per me è arabo....

non capisco cosa devo fare

in excel sarebbe facilissimo da usare

se hai tempo prova a spiegarmelo con immagini
altrimenti non fa niente

grazie

ciao
 
Paolo, 2 cose devi fare
1 - aprire bloccoNote ( che avrai sicuramente a corredo di Windows )
2 - copiare l'archivio postato e incollarlo su blocconote e salvarlo con nome (vincicasa) meglio se su locazione desktop
3 - incollare lo script su spaziometria avendo cura di rinominare la righa di richiamo con il tuo percorso pc.

nota : se l'archicio è stato salvato su desktop il percorso sarà

sFile = "C:\Users\paolo\Desktop\vincicasa.txt"

Script Per Archivio **** VINCICASA **** By Mike58 ****
L'archivio letto va da [00001] [1] 09.07.2014 a [00017] [17] 29.10.2014
Estrazioni analizzate...17

------ Elenco Estrazioni ------

Verifica Numeri Giocati.... 4.13.14.23.24
1 09.07.2014 01.03.14.30.32 Peso....80 - .. .. 14 .. .. Estratto
2 16.07.2014 11.20.25.28.37 Peso....121 -
3 23.07.2014 19.24.36.38.40 Peso....157 - .. 24 .. .. .. Estratto
4 30.07.2014 04.26.30.33.36 Peso....129 - 04 .. .. .. .. Estratto
5 08.08.2014 05.06.11.20.23 Peso....65 - .. .. .. .. 23 Estratto
6 13.08.2014 04.05.14.15.31 Peso....69 - 04 .. 14 .. .. Ambo
7 20.08.2014 01.14.19.35.40 Peso....109 - .. 14 .. .. .. Estratto
8 27.08.2014 07.13.15.19.20 Peso....74 - .. 13 .. .. .. Estratto
9 03.09.2014 02.07.24.30.31 Peso....94 - .. .. 24 .. .. Estratto
10 10.09.2014 01.12.18.25.30 Peso....86 -
11 17.09.2014 06.10.27.34.38 Peso....115 -
12 24.09.2014 03.25.34.37.38 Peso....137 -
13 01.10.2014 07.08.18.22.33 Peso....88 -
14 08.10.2014 12.23.26.29.39 Peso....129 - .. 23 .. .. .. Estratto
15 15.10.2014 11.24.25.27.30 Peso....117 - .. 24 .. .. .. Estratto
16 22.10.2014 16.21.22.30.33 Peso....122 -
17 29.10.2014 11.13.25.32.34 Peso....115 - .. 13 .. .. .. Estratto
------------------Analitico----------------------
29.10.2014 11.13.25.32.34 - Ritarda da.... 0 Caduti --.--.--.--.--
22.10.2014 16.21.22.30.33 - Ritarda da.... 1 Caduti --.--.--.--.--
15.10.2014 --.24.--.27.-- - Ritarda da.... 2 Caduti 11.--.25.--.30
08.10.2014 12.23.26.29.39 - Ritarda da.... 3 Caduti --.--.--.--.--
01.10.2014 07.08.18.--.-- - Ritarda da.... 4 Caduti --.--.--.22.33
24.09.2014 03.--.--.37.38 - Ritarda da.... 5 Caduti --.25.34.--.--
17.09.2014 06.10.--.--.-- - Ritarda da.... 6 Caduti --.--.27.34.38
10.09.2014 01.--.--.--.-- - Ritarda da.... 7 Caduti --.12.18.25.30
03.09.2014 02.--.--.--.31 - Ritarda da.... 8 Caduti --.07.24.30.--
27.08.2014 --.--.15.19.20 - Ritarda da.... 9 Caduti 07.13.--.--.--
20.08.2014 --.14.--.35.40 - Ritarda da.... 10 Caduti 01.--.19.--.--
13.08.2014 04.05.--.--.-- - Ritarda da.... 11 Caduti --.--.14.15.31
08.08.2014 --.--.--.--.-- - Ritarda da.... 12 Caduti 05.06.11.20.23
30.07.2014 --.--.--.--.36 - Ritarda da.... 13 Caduti 04.26.30.33.--
23.07.2014 --.--.--.--.-- - Ritarda da.... 14 Caduti 19.24.36.38.40
16.07.2014 --.--.--.28.-- - Ritarda da.... 15 Caduti 11.20.25.--.37
09.07.2014 --.--.--.--.-- - Ritarda da.... 16 Caduti 01.03.14.30.32



[TD="bgcolor: #0000ff, align: center"] Numero [/TD]
[TD="bgcolor: #00ff00, align: center"] 01 [/TD]
[TD="bgcolor: #00ff00, align: center"] 02 [/TD]
[TD="bgcolor: #00ff00, align: center"] 03 [/TD]
[TD="bgcolor: #00ff00, align: center"] 04 [/TD]
[TD="bgcolor: #00ff00, align: center"] 05 [/TD]
[TD="bgcolor: #00ff00, align: center"] 06 [/TD]
[TD="bgcolor: #00ff00, align: center"] 07 [/TD]
[TD="bgcolor: #00ff00, align: center"] 08 [/TD]
[TD="bgcolor: #ff0000, align: center"] 09 [/TD]
[TD="bgcolor: #00ff00, align: center"] 10 [/TD]
[TD="bgcolor: #00ff00, align: center"] 11 [/TD]
[TD="bgcolor: #00ff00, align: center"] 12 [/TD]
[TD="bgcolor: #00ff00, align: center"] 13 [/TD]
[TD="bgcolor: #00ff00, align: center"] 14 [/TD]
[TD="bgcolor: #00ff00, align: center"] 15 [/TD]
[TD="bgcolor: #00ff00, align: center"] 16 [/TD]
[TD="bgcolor: #ff0000, align: center"] 17 [/TD]
[TD="bgcolor: #00ff00, align: center"] 18 [/TD]
[TD="bgcolor: #00ff00, align: center"] 19 [/TD]
[TD="bgcolor: #00ff00, align: center"] 20 [/TD]
[TD="bgcolor: #00ff00, align: center"] 21 [/TD]
[TD="bgcolor: #00ff00, align: center"] 22 [/TD]
[TD="bgcolor: #00ff00, align: center"] 23 [/TD]
[TD="bgcolor: #00ff00, align: center"] 24 [/TD]
[TD="bgcolor: #00ff00, align: center"] 25 [/TD]
[TD="bgcolor: #00ff00, align: center"] 26 [/TD]
[TD="bgcolor: #00ff00, align: center"] 27 [/TD]
[TD="bgcolor: #00ff00, align: center"] 28 [/TD]
[TD="bgcolor: #00ff00, align: center"] 29 [/TD]
[TD="bgcolor: #00ff00, align: center"] 30 [/TD]
[TD="bgcolor: #00ff00, align: center"] 31 [/TD]
[TD="bgcolor: #00ff00, align: center"] 32 [/TD]
[TD="bgcolor: #00ff00, align: center"] 33 [/TD]
[TD="bgcolor: #00ff00, align: center"] 34 [/TD]
[TD="bgcolor: #00ff00, align: center"] 35 [/TD]
[TD="bgcolor: #00ff00, align: center"] 36 [/TD]
[TD="bgcolor: #00ff00, align: center"] 37 [/TD]
[TD="bgcolor: #00ff00, align: center"] 38 [/TD]
[TD="bgcolor: #00ff00, align: center"] 39 [/TD]
[TD="bgcolor: #00ff00, align: center"] 40 [/TD]

[TD="bgcolor: #0000ff, align: center"] Frequenza [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]

[TD="bgcolor: #0000ff, align: center"] Ritardo [/TD]
[TD="bgcolor: #ffffff, align: center"] 7 [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 11 [/TD]
[TD="bgcolor: #ffffff, align: center"] 11 [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 17 [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 10 [/TD]
[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 17 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 15 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 10 [/TD]
[TD="bgcolor: #ffffff, align: center"] 13 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 10 [/TD]

[TD="bgcolor: #0000ff, align: center"] Rit.Prec [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 15 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]



Numeri Pari......20
Numeri dispari...18

1° Decina...01-09.....8
2° Decina...10-19.....9
3° Decina...20-29.....10
4° Decina...30-40.....10

Numeri usciti....38
Rimasti..........2




non devi fare altro che elaborare lo script
 
Mike58 ha scritto:
Paolo, 2 cose devi fare
1 - aprire bloccoNote ( che avrai sicuramente a corredo di Windows )
2 - copiare l'archivio postato e incollarlo su blocconote e salvarlo con nome (vincicasa) meglio se su locazione desktop
3 - incollare lo script su spaziometria avendo cura di rinominare la righa di richiamo con il tuo percorso pc.

nota : se l'archicio è stato salvato su desktop il percorso sarà

sFile = "C:\Users\paolo\Desktop\vincicasa.txt"
Clicca per espandere...

ciao mike
non ci crederai ma ancora non sono riuscito a realizzarlo.
che non riesco a fare è l'ultima parte che mi hai detto di fare
e che ti ho sottolineato cioè

rinominare la righa di richiamo con il tuo percorso pc

- per come lo intendo io devrei sostituire la riga n.8 esistente nello script che è
sFile = "C:\Users\..........\Desktop\vincicasa.txt"
con questa che mi indichi tu nel post che è
sFile = "C:\Users\pao\Desktop\vincicasa.txt"

(ho scritto pao perchè questo è il mio user)

ma spaziometria mi da il messaggio "il file di testo non esiste"

dove sbaglio??
 
Ultima modifica:
Ok Paolo fai una cosa se hai salvato l'archivio in blocco Note sulla locazione voluta

1 - selezione l'archivio salvato con il tasto destro e dal menu a tendina vedi la proprietà, li troverai il tuo percorso file
2- seleziona ed incolla nello script tra le " "

magari il tuo percorso non è c:\users\...... etc
facendo cosi copierai il tuo vero percorso, fallo finire sempre con il nome del file.txt"

provaci è più facile a farsi che a dirsi.
 
ciao Mike,spero che ppaaoolloo
non getti la spugna......ma veramente mi interessa pure a me,copiare sul blocco note ok...............ma poi....come si salva l'archivio su spaziometria? passo.passo....

poi dici:::::::3 - incollare lo script su spaziometria avendo cura di rinominare la righa di richiamo con il tuo percorso pc.


acc.....e dove lo incollo? ci sono 200 icone.....

se hai un po di pazienza ....................grazie

ALIEN


VORREI USARLO PER IL LOTTO PENNSYLVANIA ........FUNZIONA LO STESSO IL TUO SCRIPT?
 
Ultima modifica:
Ciao a tutti...
scusate "l'intromissione", avevo già fatto un mini-plugin semplice semplice che faceva tutto il lavoro "sporco" diciamo così...:)

Se volete testatelo, basta copiarlo nella directory Plugin di Spaziometria:

- Da menù cliccare su Base Dati;
- Apri directory dati
- Cercare la cartella chiamata Plugin
- Copiare all'interno il file messo a disposizione
- Riavviare Spaziometria

Ora nel menù plugin troverete la voce "Vinci Casa" lanciatelo e provatelo.

P.S. Ho aggiunto un'opzione che chiede di aprire il file con Notepad, in caso si vogliano copiare tutte le estrazioni all'interno in un colpo solo...

Ecco il file, ricordate di estrarre lo zip prima, mi raccomando!


Vedi l'allegato VinciCasa.zip

Ciao.
 
Ultima modifica:
ok mike
ho fatto un passo avanti, ma ancora non va.

questo è il mio percorso file:
C:\Documents and Settings\pao\Desktop
quindi ho inserito tra le ""
sFile = "C:\Documents and Settings\pao\Desktop\vincicasa.txt"

adesso spaziometria trova il file,
mi chiede di scegliere i numeri,
ho scelto gli stessi 5 numeri che avevi scelto tu,
4 . 13 . 14 . 23 . 24
ma mi da tutti 0
questo è il risultato (faccio copia/incolla):


Script Per Archivio **** VINCICASA **** By Mike58 ****
L'archivio letto va da [00001] [1] 09.07.2014 a [00017] [17] 29.10.2014
Estrazioni analizzate...-7836

------ Elenco Estrazioni ------

Verifica Numeri Giocati.... 4.13.14.23.24
------------------Analitico----------------------

Numero 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 Frequenza 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 Ritardo 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 Rit.Prec 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

Numeri Pari......
Numeri dispari...
1° Decina...01-09.....
2° Decina...10-19.....
3° Decina...20-29.....
4° Decina...30-40.....

Numeri usciti....
Rimasti..........40

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
------------------------------------------------------------------------------------------------------------------------------------------------------
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 
Ultima modifica:
Buongiorno a tutti gli intervenuti.
Paolo già hai fatto un passo avanti, anche se mi sembra anomalo che il percorso file è stato salvato su documenti\desktop, però se cosi è controlla nel file Vincicasa (BloccoNote o NotePad) ci siano realmente le estrazioni incollate e salvate(avendo cura di non lasciarlo aperto).
La meta è li vicina, Riprova, poi anche come dice Moro si può utilizzare il plugin (ma prima è meglio avere la padronanza per allacciare il file esterno).

Alien stessa cosa e stesso modo, alla tua domanda per PENNSYLVANIA dovrebbe funzionare lo stesso è solo che se i numeri come quantità sono diversi bisogna cambiare nello script il numero di combinazioni validi.
Per il vincicasa sono = 5 ad ogni modo esiste la stringaCodice per cambiare il numero (si!!! può fare).
 
stesso problema di Paolo, risultati tutti 0
ho notato che in output scrive....estrazioni analizzate -7836 ????????????
grazie anticipatamente Giorgio
 
Questo è l'archivio vincicasa, salvatelo sul desktop con salva con nome vincicasa poi chiudere il file.

Copiare lo script e rinominare la riga con il proprio percorso file

elaborare lo script con spaziometria.

questo è il mio percorso dove è salvato il file che si chiama vincicasa
sFile = "C:\Users\Mike58\Desktop\vincicasa.txt"

se non elabora correttamente avete sbagliato il percorso, vedete le istruzioni sopra descritte.

Forza un po' di impegno.:p
qui di nuovo lo script con nuove aggiunte.

Codice: 
Sub Main
	Dim sFile
	Dim sRecord
	Dim k,nu(5),nuV(90),nuR(1),cad(5),d1(5)
	Dim idEstr
	Scrivi " Script Per Archivio **** VINCICASA **** By Mike58 **** ",1,1,2,4,4

	' scrivo un file che leggero successivamente con le ultime estrazioni
	sFile = "C:\Users\Mike58\Desktop\vincicasa.txt"
	'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,5,",",40) Then
		Ini = EstrazioneIni
		'kk = kk + 1
		idEstr = EstrazioniArchivioFT
		kk = idEstr - Ini + 1
		ScegliNumeri(nuV)
		sRecord = "L'archivio letto va da " & GetInfoEstrazioneFT(1) & " a " & GetInfoEstrazioneFT(EstrazioniArchivioFT)
		'sRecord = sRecord & "si compone di " & EstrazioniArchivioFT	 & " estrazioni "
		'sRecord = sRecord & "di seguito la lista delle frequenze"
		Call Scrivi(sRecord)
		Scrivi "Estrazioni analizzate..." & kk
		Scrivi
		Scrivi "------ Elenco Estrazioni ------",1
		Scrivi
		Scrivi "Verifica Numeri Giocati.... " & StringaNumeri(nuV),1,1,,1,3
		For es = Ini To idEstr
			For p = 1 To 5
				nu(p) = EstrattoFT(es,p)
			Next
			Call VerificaEsitoFT(nuV,es,1,1,esito,,estratti,id)
			somma = nu(1) + nu(2) + nu(3) + nu(4) + nu(5)
			Scrivi FormatSpace(IndiceAnnualeFT(es),2) & " " & "  " & DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & "   Peso...." & _
			FormatSpace(somma,3),0,0
			Scrivi "  -  " & estratti & "  " & esito
		Next
		Scrivi "------------------Analitico----------------------"
		For es = idEstr To Ini Step - 1' To idEstr
			For p = 1 To 5
				nu(p) = EstrattoFT(es,p)
				cad(p) = EstrattoFT(es,p)
				'd1(p) = Decina(Estratto(es,p))
				If EstrattoFrequenzaFT(nu(p),es,idEstr) > 1 Then nu(p) = "--"
				If EstrattoFrequenzaFT(cad(p),es,idEstr) = 1 Then cad(p) = "--"
				'If EstrattoFrequenzaFT(d1(p),es,idEstr) = 0 Then k1 = k1 + 1
				'If Decina(EstrattoFT(es,p)) = 0 Then k1 = k1 +1
			Next
			Scrivi DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & " - Ritarda da.... " & idEstr - es,0,0
			Scrivi vbTab & " Caduti  " & StringaNumeri(cad,,1)
			'k1 = 0
		Next
		Scrivi
		' preimposto i titoli delle colonne
		ReDim aTitoli(4)
		aTitoli(1) = "Numero"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		aTitoli(4) = " Rit.Prec "
		' inizializzo la tabella
		Call InitTabella(aTitoli,1,,,5)
		For k = 1 To 40 ' ciclo numeri
			nuR(1) = k
			Call StatisticaFormazioneFT(nuR,1,rit,max,Incr,fre,Ini,idEstr)
			sf = EstrattoFrequenzaFT(k,Ini,idEstr)
			rp1 = EstrattoRitardoFT(k,Ini,idEstr - 1)
			'If Decina(k) = 0 Then dec0 = EstrattoRitardoFT(Decina(k),Ini,fin)
			'If Decina(k) = 1 Then dec1 = EstrattoRitardoFT(Decina(k),Ini,fin)
			'If Decina(k) = 2 Then dec2 = EstrattoRitardoFT(Decina(k),Ini,fin)
			'If Decina(k) = 3 Then dec3 = EstrattoRitardoFT(Decina(k),Ini,fin)
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(4) ' 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)
			If rit = 0 Then aValori(4) = rp1
			If rit > 0 Then aValori(4) = " - "
			Call AddRigaTabella(aValori,,,3)
			Call SetColoreCella(1,3,1)
			If pari(k) And sf > 0 Then par = par + 1
			If dispari(k) And sf > 0 Then ds = ds + 1
			If k > 0 And k < 10 And sf > 0 Then dc1 = dc1 + 1
			
			If k > 10 And k < 21 And sf > 0 Then dc2 = dc2 + 1
			
			If k > 20 And k < 31 And sf > 0 Then dc3 = dc3 + 1
			
			If k > 30 And k < 41 And sf > 0 Then dc4 = dc4 + 1

			If sf > 0 Then us = us + 1
			If rit = kk Then Call SetColoreCella(1,2,4)
			If rit = 0 Then Call SetColoreCella(3,3,1)
			If aValori(4) = kk - 1 Then Call SetColoreCella(4,4,2)
		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(0,,,,1)
	End If
	Scrivi "Numeri Pari......" & par
	Scrivi "Numeri dispari..." & ds
	Scrivi "1° Decina...01-09....." & dc1
	Scrivi "2° Decina...10-19....." & dc2
	Scrivi "3° Decina...20-29....." & dc3
	Scrivi "4° Decina...30-40....." & dc4
	Scrivi
	Scrivi "Numeri usciti...." & us,1
	Scrivi "Rimasti.........." & 40 - us,1

	'ReDim nd1(10)
	For k1 = 1 To 40
		kk1 = EstrattoFrequenzaFT(k1,Ini,idEstr)
		kk2 = EstrattoRitardoFT(k1,Ini,idEstr)
		riga = riga & kk1 & "  "
		rita = rita & Format2(kk2) & " "
	Next
	k1 = 0
	k2 = 0
	k3 = 0
	k4 = 0
	Scrivi "------- Decine naturali ---------  0-10 - 11.20 - 21.30 - 31.40 ---"
	For es = idEstr To Ini Step - 1
		For p = 1 To 5
			nu(p) = EstrattoFT(es,p)
			d1(p) = DecinaNaturale(EstrattoFT(es,p))
			'If EstrattoFrequenzaFT(nu(p),Ini,es) > 1 Then nu(p) = 0
			'If d1(p) = 0 Then k1 = k1 +1
			' If Decina(EstrattoFT(es,p)) <> 0 Then k1 = " -"
			If d1(p) = 0 Then k1 = k1 + 1
			If d1(p) = 1 Then k2 = k2 + 1
			If d1(p) = 2 Then k3 = k3 + 1
			If d1(p) = 3 Then k4 = k4 + 1
		Next
		Scrivi FormatSpace(IndiceAnnualeFT(es),2) & " " & "  " & DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & "  ",0,0
		Scrivi "   " & k1 & "   -   " & k2 & "   -   " & k3 & "   -   " & k4
		k1 = 0
		k2 = 0
		k3 = 0
		k4 = 0
	Next
	'k1 = 0
	'Scrivi StringaNumeri(d1)
	Scrivi
	Scrivi "01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40",1,1,,0,3
	Scrivi String(150,"-")
	Scrivi riga,1,1,,1,3
	Scrivi rita,1,1,,2,3
End Sub
 

Allegati

dovete ottenere questo

Script Per Archivio **** VINCICASA **** By Mike58 ****
L'archivio letto va da [00001] [1] 09.07.2014 a [00017] [17] 29.10.2014
Estrazioni analizzate...17

------ Elenco Estrazioni ------

Verifica Numeri Giocati.... 14.15.24.25.34.35
1 09.07.2014 01.03.14.30.32 Peso....80 - .. .. 14 .. .. Estratto
2 16.07.2014 11.20.25.28.37 Peso....121 - .. .. 25 .. .. Estratto
3 23.07.2014 19.24.36.38.40 Peso....157 - .. 24 .. .. .. Estratto
4 30.07.2014 04.26.30.33.36 Peso....129 -
5 08.08.2014 05.06.11.20.23 Peso....65 -
6 13.08.2014 04.05.14.15.31 Peso....69 - .. .. 14 15 .. Ambo
7 20.08.2014 01.14.19.35.40 Peso....109 - .. 14 .. 35 .. Ambo
8 27.08.2014 07.13.15.19.20 Peso....74 - .. .. 15 .. .. Estratto
9 03.09.2014 02.07.24.30.31 Peso....94 - .. .. 24 .. .. Estratto
10 10.09.2014 01.12.18.25.30 Peso....86 - .. .. .. 25 .. Estratto
11 17.09.2014 06.10.27.34.38 Peso....115 - .. .. .. 34 .. Estratto
12 24.09.2014 03.25.34.37.38 Peso....137 - .. 25 34 .. .. Ambo
13 01.10.2014 07.08.18.22.33 Peso....88 -
14 08.10.2014 12.23.26.29.39 Peso....129 -
15 15.10.2014 11.24.25.27.30 Peso....117 - .. 24 25 .. .. Ambo
16 22.10.2014 16.21.22.30.33 Peso....122 -
17 29.10.2014 11.13.25.32.34 Peso....115 - .. .. 25 .. 34 Ambo
------------------Analitico----------------------
29.10.2014 11.13.25.32.34 - Ritarda da.... 0 Caduti --.--.--.--.--
22.10.2014 16.21.22.30.33 - Ritarda da.... 1 Caduti --.--.--.--.--
15.10.2014 --.24.--.27.-- - Ritarda da.... 2 Caduti 11.--.25.--.30
08.10.2014 12.23.26.29.39 - Ritarda da.... 3 Caduti --.--.--.--.--
01.10.2014 07.08.18.--.-- - Ritarda da.... 4 Caduti --.--.--.22.33
24.09.2014 03.--.--.37.38 - Ritarda da.... 5 Caduti --.25.34.--.--
17.09.2014 06.10.--.--.-- - Ritarda da.... 6 Caduti --.--.27.34.38
10.09.2014 01.--.--.--.-- - Ritarda da.... 7 Caduti --.12.18.25.30
03.09.2014 02.--.--.--.31 - Ritarda da.... 8 Caduti --.07.24.30.--
27.08.2014 --.--.15.19.20 - Ritarda da.... 9 Caduti 07.13.--.--.--
20.08.2014 --.14.--.35.40 - Ritarda da.... 10 Caduti 01.--.19.--.--
13.08.2014 04.05.--.--.-- - Ritarda da.... 11 Caduti --.--.14.15.31
08.08.2014 --.--.--.--.-- - Ritarda da.... 12 Caduti 05.06.11.20.23
30.07.2014 --.--.--.--.36 - Ritarda da.... 13 Caduti 04.26.30.33.--
23.07.2014 --.--.--.--.-- - Ritarda da.... 14 Caduti 19.24.36.38.40
16.07.2014 --.--.--.28.-- - Ritarda da.... 15 Caduti 11.20.25.--.37
09.07.2014 --.--.--.--.-- - Ritarda da.... 16 Caduti 01.03.14.30.32



[TD="bgcolor: #0000ff, align: center"] Numero [/TD]
[TD="bgcolor: #00ff00, align: center"] 01 [/TD]
[TD="bgcolor: #00ff00, align: center"] 02 [/TD]
[TD="bgcolor: #00ff00, align: center"] 03 [/TD]
[TD="bgcolor: #00ff00, align: center"] 04 [/TD]
[TD="bgcolor: #00ff00, align: center"] 05 [/TD]
[TD="bgcolor: #00ff00, align: center"] 06 [/TD]
[TD="bgcolor: #00ff00, align: center"] 07 [/TD]
[TD="bgcolor: #00ff00, align: center"] 08 [/TD]
[TD="bgcolor: #ff0000, align: center"] 09 [/TD]
[TD="bgcolor: #00ff00, align: center"] 10 [/TD]
[TD="bgcolor: #00ff00, align: center"] 11 [/TD]
[TD="bgcolor: #00ff00, align: center"] 12 [/TD]
[TD="bgcolor: #00ff00, align: center"] 13 [/TD]
[TD="bgcolor: #00ff00, align: center"] 14 [/TD]
[TD="bgcolor: #00ff00, align: center"] 15 [/TD]
[TD="bgcolor: #00ff00, align: center"] 16 [/TD]
[TD="bgcolor: #ff0000, align: center"] 17 [/TD]
[TD="bgcolor: #00ff00, align: center"] 18 [/TD]
[TD="bgcolor: #00ff00, align: center"] 19 [/TD]
[TD="bgcolor: #00ff00, align: center"] 20 [/TD]
[TD="bgcolor: #00ff00, align: center"] 21 [/TD]
[TD="bgcolor: #00ff00, align: center"] 22 [/TD]
[TD="bgcolor: #00ff00, align: center"] 23 [/TD]
[TD="bgcolor: #00ff00, align: center"] 24 [/TD]
[TD="bgcolor: #00ff00, align: center"] 25 [/TD]
[TD="bgcolor: #00ff00, align: center"] 26 [/TD]
[TD="bgcolor: #00ff00, align: center"] 27 [/TD]
[TD="bgcolor: #00ff00, align: center"] 28 [/TD]
[TD="bgcolor: #00ff00, align: center"] 29 [/TD]
[TD="bgcolor: #00ff00, align: center"] 30 [/TD]
[TD="bgcolor: #00ff00, align: center"] 31 [/TD]
[TD="bgcolor: #00ff00, align: center"] 32 [/TD]
[TD="bgcolor: #00ff00, align: center"] 33 [/TD]
[TD="bgcolor: #00ff00, align: center"] 34 [/TD]
[TD="bgcolor: #00ff00, align: center"] 35 [/TD]
[TD="bgcolor: #00ff00, align: center"] 36 [/TD]
[TD="bgcolor: #00ff00, align: center"] 37 [/TD]
[TD="bgcolor: #00ff00, align: center"] 38 [/TD]
[TD="bgcolor: #00ff00, align: center"] 39 [/TD]
[TD="bgcolor: #00ff00, align: center"] 40 [/TD]

[TD="bgcolor: #0000ff, align: center"] Frequenza [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]

[TD="bgcolor: #0000ff, align: center"] Ritardo [/TD]
[TD="bgcolor: #ffffff, align: center"] 7 [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 11 [/TD]
[TD="bgcolor: #ffffff, align: center"] 11 [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 17 [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 10 [/TD]
[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 17 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 15 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #00ff00, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 10 [/TD]
[TD="bgcolor: #ffffff, align: center"] 13 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 10 [/TD]

[TD="bgcolor: #0000ff, align: center"] Rit.Prec [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 15 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]
[TD="bgcolor: #ffffff, align: center"] - [/TD]



Numeri Pari......20
Numeri dispari...18
1° Decina...01-09.....8
2° Decina...10-19.....9
3° Decina...20-29.....10
4° Decina...30-40.....10

Numeri usciti....38
Rimasti..........2
------- Decine naturali --------- 0-10 - 11.20 - 21.30 - 31.40 ---
17 29.10.2014 11.13.25.32.34 0 - 2 - 1 - 2
16 22.10.2014 16.21.22.30.33 0 - 1 - 3 - 1
15 15.10.2014 11.24.25.27.30 0 - 1 - 4 - 0
14 08.10.2014 12.23.26.29.39 0 - 1 - 3 - 1
13 01.10.2014 07.08.18.22.33 2 - 1 - 1 - 1
12 24.09.2014 03.25.34.37.38 1 - 0 - 1 - 3
11 17.09.2014 06.10.27.34.38 2 - 0 - 1 - 2
10 10.09.2014 01.12.18.25.30 1 - 2 - 2 - 0
9 03.09.2014 02.07.24.30.31 2 - 0 - 2 - 1
8 27.08.2014 07.13.15.19.20 1 - 4 - 0 - 0
7 20.08.2014 01.14.19.35.40 1 - 2 - 0 - 2
6 13.08.2014 04.05.14.15.31 2 - 2 - 0 - 1
5 08.08.2014 05.06.11.20.23 2 - 2 - 1 - 0
4 30.07.2014 04.26.30.33.36 1 - 0 - 2 - 2
3 23.07.2014 19.24.36.38.40 0 - 1 - 1 - 3
2 16.07.2014 11.20.25.28.37 0 - 2 - 2 - 1
1 09.07.2014 01.03.14.30.32 2 - 1 - 1 - 1
 
Ultima modifica:
ciao mike
ma io ci ho provato e riprovato e riprovato e riprovato ancora
ma niente da fare

eppure faccio tutto quello che mi dici tu di fare

cos'altro posso provare?
 
Paolo,Giorgio , cosa vi posso dire anche ricopiandolo dal forum a me funziona e da risultati.
posso solo vedere se mi ripostate il vostro script con il vostro percorso cosa non funziona.
L'importante che avete salvato le estrazioni in bloccoNote che vi ho postato e che lo abbiate chiamato vincicasa,
Altro non saprei suggerirvi.

Ciao
 
q0nbbiePyPGLvG6veF6FDaqqvWX1Ny75bHQgghvhP LYPhRaN1vbZXZVOLsf6x2fhKSloqbW1oys6hacu2c49r0sZWhoS0Hfr0cqUff7U2frLtbmDtTEvz0MH6rS3aWEdjeDjBf3j4X59UItVCIYQQ4pIiwfAb5Cs4gHftJ6CdGdkO7aScxhdfbrn22tkhVKvkqbBmv 9ejJGRgcazNDRgvnIk5tT gQYhhBBCiPMjwfC7Rn0cWre1fimfs4uT2kelwqJ54IBAgxBCCCFEx5FgKIQQQgghdDKITAghhBBC6CQYCiGEEEIInQRDIYQQQgihk2AohBBCCCF0EgyFEEIIIYROgqEQQgghhNBJMBRCCCGEEDoJhkIIIYQQQifBUAghhBBC6CQYCiGEEEIInQRDIYQQQgihk2AohBBCCCF0EgyFEEIIIYROgqEQQgghhNBJMBRCCCGEEDoJhkIIIYQQQifBUAghhBBCKPAPE3pqDHDKGWoAAAAASUVORK5CYII=

questo il mio percoso ed in questo modo lo trovo e lo copio nella righa interessata.
 

Allegati

  • Immagine2.jpg
    Immagine2.jpg
    19,9 KB · Visite: 1
Ciao a tutti,
visto che il plugin è una "pappa pronta" e non aiuta ad apprendere provate con questo script da me rivisto...

Nel dettaglio con questo script, create voi il file nel percorso prestabilito di Spaziometria, lo potete editare con notepad etc etc..NON PUO' NON FUNZIONARE ! :)

Codice: 
Sub Main
	Dim sFile
	sFile = GetDirectoryAppData & "VinciCasa.txt" ' costruisce un percorso valido usando la dir temp dell'applicazione
	If FileEsistente(sFile) Then
	Call Esiste
	Else
	Call CreaArchivio
	End If
End Sub
Sub CreaArchivio
	Dim sNumeri
	Dim CosaFaccio
	Dim sFile
	CosaFaccio = MsgBox("NON HO RILEVATO IL FILE ARCHIVIO, VUOI CREARLO ?",vbYesNo + vbQuestion,"CREA ARCHIVIO ESTRAZIONI VINCI CASA")
	If CosaFaccio = vbYes Then
	sFile = GetDirectoryAppData & "VinciCasa.txt"
	sNumeri = InputBox("Inserisci Numeri Estratti" & vbCrLf & "Formatta la stringa da inserire nel seguente modo:" & vbCrLf & "ID - (Numero Progressivo Estrazioni)" & vbCrLf & "DATA - (Formato dd/mm/yyyy)" & vbCrLf & "ESTRATTI - (Separa i valori con la virgola)" & vbCrLf & "ESEMPIO STRINGA DA OTTENERE : (1,01/01/1900,01,02,03,04,05)","Vinci Casa") ' trasformo il vettore dei numeri in stringa			
		If sNumeri <> "" Then
			Call ScriviFile(sFile,sNumeri) ' scrivo anche sul file preposto
			Dim Altre
			Altre = MsgBox("VUOI INSERIRE ALTRE ESTRAZIONI ?",vbYesNo + vbQuestion,"INSERISCI ESTRAZIONI")
			If CiSonoAltre = vbYes Then
			Call Esiste
			Else
			Call CloseFileHandle(sFile) ' chiudo l'handle al file
			Call Analisi
			End If
		Else
			MsgBox "NON HAI INSERITO NESSUN NUMERO",vbOKOnly + vbCritical,"PROCEDURA ANNULLATA"
			EliminaFile(sFile)
			Exit Sub
		End If
	End If
	If CosaFaccio = vbNo Then
	MsgBox "HAI SCELTO DI NON CREARE L'ARCHIVIO" & vbCrLf & "NON POSSO FARE LE STATISTICHE !",vbOKOnly + vbCritical,"PROCEDURA ANNULLATA"
	EliminaFile(sFile)
	Exit Sub
	End If
End Sub
Sub Esiste
	Dim sNumeri
	Dim CosaFare
	Dim sFile
	Dim ApriConNotepad
	sFile = GetDirectoryAppData & "VinciCasa.txt" ' costruisce un percorso valido usando la dir temp dell'applicazione
	CosaFare = MsgBox("CI SONO NUOVE ESTRAZIONI DA INSERIRE ?",vbYesNo + vbQuestion,"INSERISCI NUOVE ESTRAZIONI")
	If CosaFare = vbYes Then		
	sNumeri = InputBox("Inserisci Numeri Estratti" & vbCrLf & "Formatta la stringa da inserire nel seguente modo:" & vbCrLf & "ID - (Numero Progressivo Estrazioni)" & vbCrLf & "DATA - (Formato dd/mm/yyyy)" & vbCrLf & "ESTRATTI - (Separa i valori con la virgola)" & vbCrLf & "ESEMPIO STRINGA DA OTTENERE : (1,01/01/1900,01,02,03,04,05)","Vinci Casa") ' trasformo il vettore dei numeri in stringa			
		If sNumeri <> "" Then
		Call ScriviFile(sFile,sNumeri) ' scrivo anche sul file preposto
		Call CloseFileHandle(sFile) ' chiudo l'handle al file
		Call Analisi
		Else
		MsgBox "NON HAI INSERITO NESSUN NUMERO",vbOKOnly + vbCritical,"PROCEDURA ANNULLATA"
		Exit Sub
		End If
	End If
	If CosaFare = vbNo Then
	ApriConNotepad = MsgBox("VUOI EDITARE IL FILE DELL'ARCHIVIO ?",vbYesNo + vbQuestion,"EDITA FILE ESTRAZIONI")
		If ApriConNotepad = vbYes Then
		LanciaFile(sFile)
		Call Analisi
		Else
		Call Analisi
		End If
	End If
End Sub	
Sub Analisi	
Dim sFile
	Dim sRecord
	Dim k,nu(5),nuV(90),nuR(1),cad(5),d1(5)
	Dim idEstr
	Scrivi " Script Per Archivio **** VINCICASA **** By Mike58 ****, ***Rivisto da Moro_80*** ",1,1,2,4,4

	' scrivo un file che leggero successivamente con le ultime estrazioni
	sFile = GetDirectoryAppData & "VinciCasa.txt"
	'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,5,",",40) Then
		Ini = EstrazioneIni
		'kk = kk + 1
		idEstr = EstrazioniArchivioFT
		kk = idEstr - Ini + 1
		ScegliNumeri(nuV)
		sRecord = "L'archivio letto va da " & GetInfoEstrazioneFT(1) & " a " & GetInfoEstrazioneFT(EstrazioniArchivioFT)
		'sRecord = sRecord & "si compone di " & EstrazioniArchivioFT	 & " estrazioni "
		'sRecord = sRecord & "di seguito la lista delle frequenze"
		Call Scrivi(sRecord)
		Scrivi "Estrazioni analizzate..." & kk
		Scrivi
		Scrivi "------ Elenco Estrazioni ------",1
		Scrivi
		Scrivi "Verifica Numeri Giocati.... " & StringaNumeri(nuV),1,1,,1,3
		For es = Ini To idEstr
			For p = 1 To 5
				nu(p) = EstrattoFT(es,p)
			Next
			Call VerificaEsitoFT(nuV,es,1,1,esito,,estratti,id)
			somma = nu(1) + nu(2) + nu(3) + nu(4) + nu(5)
			Scrivi FormatSpace(IndiceAnnualeFT(es),2) & " " & "  " & DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & "   Peso...." & _
			FormatSpace(somma,3),0,0
			Scrivi "  -  " & estratti & "  " & esito
		Next
		Scrivi "------------------Analitico----------------------"
		For es = idEstr To Ini Step - 1' To idEstr
			For p = 1 To 5
				nu(p) = EstrattoFT(es,p)
				cad(p) = EstrattoFT(es,p)
				'd1(p) = Decina(Estratto(es,p))
				If EstrattoFrequenzaFT(nu(p),es,idEstr) > 1 Then nu(p) = "--"
				If EstrattoFrequenzaFT(cad(p),es,idEstr) = 1 Then cad(p) = "--"
				'If EstrattoFrequenzaFT(d1(p),es,idEstr) = 0 Then k1 = k1 + 1
				'If Decina(EstrattoFT(es,p)) = 0 Then k1 = k1 +1
			Next
			Scrivi DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & " - Ritarda da.... " & idEstr - es,0,0
			Scrivi vbTab & " Caduti  " & StringaNumeri(cad,,1)
			'k1 = 0
		Next
		Scrivi
		' preimposto i titoli delle colonne
		ReDim aTitoli(4)
		aTitoli(1) = "Numero"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		aTitoli(4) = " Rit.Prec "
		' inizializzo la tabella
		Call InitTabella(aTitoli,1,,,5)
		For k = 1 To 40 ' ciclo numeri
			nuR(1) = k
			Call StatisticaFormazioneFT(nuR,1,rit,max,Incr,fre,Ini,idEstr)
			sf = EstrattoFrequenzaFT(k,Ini,idEstr)
			rp1 = EstrattoRitardoFT(k,Ini,idEstr - 1)
			'If Decina(k) = 0 Then dec0 = EstrattoRitardoFT(Decina(k),Ini,fin)
			'If Decina(k) = 1 Then dec1 = EstrattoRitardoFT(Decina(k),Ini,fin)
			'If Decina(k) = 2 Then dec2 = EstrattoRitardoFT(Decina(k),Ini,fin)
			'If Decina(k) = 3 Then dec3 = EstrattoRitardoFT(Decina(k),Ini,fin)
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(4) ' 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)
			If rit = 0 Then aValori(4) = rp1
			If rit > 0 Then aValori(4) = " - "
			Call AddRigaTabella(aValori,,,3)
			Call SetColoreCella(1,3,1)
			If pari(k) And sf > 0 Then par = par + 1
			If dispari(k) And sf > 0 Then ds = ds + 1
			If k > 0 And k < 10 And sf > 0 Then dc1 = dc1 + 1
			
			If k > 10 And k < 21 And sf > 0 Then dc2 = dc2 + 1
			
			If k > 20 And k < 31 And sf > 0 Then dc3 = dc3 + 1
			
			If k > 30 And k < 41 And sf > 0 Then dc4 = dc4 + 1

			If sf > 0 Then us = us + 1
			If rit = kk Then Call SetColoreCella(1,2,4)
			If rit = 0 Then Call SetColoreCella(3,3,1)
			If aValori(4) = kk - 1 Then Call SetColoreCella(4,4,2)
		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(0,,,,1)
	End If
	Scrivi "Numeri Pari......" & par
	Scrivi "Numeri dispari..." & ds
	Scrivi "1° Decina...01-09....." & dc1
	Scrivi "2° Decina...10-19....." & dc2
	Scrivi "3° Decina...20-29....." & dc3
	Scrivi "4° Decina...30-40....." & dc4
	Scrivi
	Scrivi "Numeri usciti...." & us,1
	Scrivi "Rimasti.........." & 40 - us,1

	'ReDim nd1(10)
	For k1 = 1 To 40
		kk1 = EstrattoFrequenzaFT(k1,Ini,idEstr)
		kk2 = EstrattoRitardoFT(k1,Ini,idEstr)
		riga = riga & kk1 & "  "
		rita = rita & Format2(kk2) & " "
	Next
	k1 = 0
	k2 = 0
	k3 = 0
	k4 = 0
	Scrivi "------- Decine naturali ---------  0-10 - 11.20 - 21.30 - 31.40 ---"
	For es = idEstr To Ini Step - 1
		For p = 1 To 5
			nu(p) = EstrattoFT(es,p)
			d1(p) = DecinaNaturale(EstrattoFT(es,p))
			'If EstrattoFrequenzaFT(nu(p),Ini,es) > 1 Then nu(p) = 0
			'If d1(p) = 0 Then k1 = k1 +1
			' If Decina(EstrattoFT(es,p)) <> 0 Then k1 = " -"
			If d1(p) = 0 Then k1 = k1 + 1
			If d1(p) = 1 Then k2 = k2 + 1
			If d1(p) = 2 Then k3 = k3 + 1
			If d1(p) = 3 Then k4 = k4 + 1
		Next
		Scrivi FormatSpace(IndiceAnnualeFT(es),2) & " " & "  " & DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & "  ",0,0
		Scrivi "   " & k1 & "   -   " & k2 & "   -   " & k3 & "   -   " & k4
		k1 = 0
		k2 = 0
		k3 = 0
		k4 = 0
	Next
	'k1 = 0
	'Scrivi StringaNumeri(d1)
	Scrivi
	Scrivi "01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40",1,1,,0,3
	Scrivi String(150,"-")
	Scrivi riga,1,1,,1,3
	Scrivi rita,1,1,,2,3
End Sub

Fatemi sapere se funziona,


Saluti!
 
Ottimo Moro, è perfettamente funzionante, lo userò anch'io cosi.

Grazie del supporto e collaborazione.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto