PER MIKE58

Mike58 · 17 Luglio 2014

Scusate mancava l'inizio nella finzione estrattofrequenzaFT
ecco lo script corretto

Codice:

Sub Main
	Dim sFile
	Dim sRecord
	Dim k
	Dim idEstr
	

	' 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
	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(2)
		aTitoli(1) = "Numero"
		aTitoli(2) = "Frequenza"
		' inizializzo la tabella
		Call InitTabella(aTitoli,1,,,5)
		For k = 1 To 40 ' ciclo numeri
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(2) ' abbiamo 2 titoli quindi anche qui dimensioniamo con 2 colonne
			aValori(1) = Format2(k) ' numero
			aValori(2) = EstrattoFrequenzaFT(k,Ini,idEstr) ' valore della frequenza
			Call AddRigaTabella(aValori,,,3)
		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(2)
	End If
End Sub

Piccolo passo ma per me grande risultato.

ciao

LuigiB · 17 Luglio 2014

quindi ora funziona ? non ho capito ..ciao

Mike58 · 17 Luglio 2014

Si è tutto ok. ho imparato ancora qualche cosa di utile.

ciao

net535353 · 18 Luglio 2014

Caro Mike, leggo le vostre discussioni tecniche ma sinceramente non riesco a capire molto. Ho lanciato in spaziometria il tuo ultimo script
riguardante il "vinci casa" per le frequenze ma dice "file non esistente". Evidentemente bisogna trovare l' archivio delle prime due estrazioni o quant'altro. Come posso risolvere il problema?
Ti ringrazio.Ciao

net 535353

Mike58 · 18 Luglio 2014

Ciao Net535353, devi prima crearti, l'archivio con il bloccoNote, salvarlo in una locazione tua del tuo pc, e richiamarla con la routine
la mia locazione sul pc è questa :
sFile = "C:\Users\Mike58\Desktop\vincicasa.txt"

quello che devi fare e crearti l'archivio nel seguente modo
archivio reale

1,09/07/2014,01,03,14,30,32
2,16/07/2014,11,20,25,28,37

1( è l'indice annuale),data,n1,n2,n3,n4,n5,n6

salvi con nome il tutto su una directory e lo richiami in

sfile = "C:\user\...........\vincicasa o come lo chiami.txt"

Ciao prova che funziona.

Mike58 · 18 Luglio 2014

Ciao Net se hai fatto tutto quello che ti ho indicato, dovresti ottenere questo.

L'archivio letto va da [00001] [1] 09.07.2014 a [00002] [2] 16.07.2014
Estrazioni analizzate...2

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

1 09.07.2014 01.03.14.30.32
2 16.07.2014 11.20.25.28.37
-------------------------------

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

[TD="bgcolor: #0000ff, align: center"] Frequenza [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]

[TD="bgcolor: #0000ff, align: center"] Ritardo [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/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"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/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"] 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"] 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"] 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"] 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"] 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"] 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"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]

Numeri Pari......5
Numeri dispari...5
1° Decina........2
2° Decina........3
3° Decina........3
4° Decina........2

LOTTOLEON · 19 Luglio 2014

ciao Mike58

Ho seguito la procedura che hai descritto

ma nel mio output non mi da la freq. dei numeri.

Mike58 · 19 Luglio 2014

Ciao LottoLeon, intanto bravo per essere riuscito a far funzionare l'archivio.

prova questo script, cambiando chiramente il percorso per richiamare il tuo archivio.

Codice:

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

	' scrivo un file che leggero successivamente con le ultime estrazioni
	sFile = "C:\Mike58\Desktop\vincicasa.txt"' mettere qui il proprio percorso
	'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)
			
			Scrivi FormatSpace(IndiceAnnualeFT(es),2) & " " & "  " & DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & "  " & estratti & "  " & esito
			
		Next
		Scrivi "-------------------------------"
		Scrivi
		' preimposto i titoli delle colonne
		ReDim aTitoli(3)
		aTitoli(1) = "Numero"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		' 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)
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(3) ' 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)
			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

		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(2,,,,1)
	End If
	Scrivi "Numeri Pari......" & par
	Scrivi "Numeri dispari..." & ds
	Scrivi "1° Decina........" & dc1
	Scrivi "2° Decina........" & dc2
	Scrivi "3° Decina........" & dc3
	Scrivi "4° Decina........" & dc4
	Scrivi
	Scrivi "Numeri usciti...." & us,1

End Sub

P.s. oggi sarò assente causa lavoro

net535353 · 19 Luglio 2014

Caro Mike, grazie come sempre per la tua pazienza, faro' il possibile per realizzare quanto hai detto nonostante le mie poche conoscenze in materia. Comunque ti comunichero' il risultato.

Ciao

net535353

Moro_80 · 19 Luglio 2014

Ciao Mike e ciao net535353,
perchè non farsi un piccolo plugin che verifica se il file archivio esiste e casomai manchi lo crea?

Provate a lanciare questo mini-plugin

Procedura per installare il plugin

1) Aprire spaziometria
2) Dal primo menu selezionare ApriDirectoryDati
3) Si aprira una cartella di windows , dove è presente la sottocartella PLUGIN
4) Fare doppio click su questa cartella
5) Creare una sottocartella e chiamarla come si vuole (es. VinciCasa)
6) Incollare qui dentro il plugin scaricato
7) Riavviare spaziometria

Donwload Plugin

Vedi l'allegato VinciCasa.zip

Ciao a tutti!

LOTTOLEON · 19 Luglio 2014

perfetto funziona benissimo ottimo lavoro.

Ciao mike58

non dimenticarti, quando hai tempo e voglia della mia richiesta di qualche post fa.

LOTTOLEON · 19 Luglio 2014

ciao Moro_80

anche il tuo plugin funziona benissimo

saluti LOTTOLEON

Mike58 · 19 Luglio 2014

Ciao Raga, mi complimento con quelli che pian piano stanno muovendo i primi passi con risultati soddisfacenti.
Ciao Moro per il plugin funziona perfettamente, purtroppo io non sono capace in questo. (ahimè)
Siccome mi piacerebbe imparare ti va se metti una semplice procedura per arrivare a creare un plugin penso che la cosa sarebbe gradita da tanti di noi.

Ciao un saluto a tutti.

net535353 · 20 Luglio 2014

Caro Mike, ieri ho impiegato mezza giornata ma alla fine sono riuscito a creare l'archivio. Lo script funziona benissimo come dai tuoi esempi.
Fatto questo e scusandomi se mi ripeto , non e' possibile ora eliminare i numeri che via via sortiscono e giocando solo i rimanenti seguendo il proprio intuito nella scelta?
A completamento cerchero' di sbrigarmela anche sul piccolo plugin.

Grazie di tutto. Ciao

net535353

net535353 · 20 Luglio 2014

Ciao Moro, ti ringrazio per l'interessamento ma l'archivio e lo script funzionano alla perfezione grazie ai consigli di Mike58.
Ho seguito passo passo la procedura per il mini-plugin ma devo dirti a malincuore che non mi funziona. Come posso rimediare?

net535353 · 20 Luglio 2014

ciao.
net535353

net535353 · 20 Luglio 2014

Caro Moro, praticamente l'archivio c'è ma il plugin mi dice che non c'è. Forse bisogna collocare il "file archivio" in altro posto? Ho fatto molti tentativi con scarsi risultati

net535353

Moro_80 · 20 Luglio 2014

net535353 ha scritto:
Caro Moro, praticamente l'archivio c'è ma il plugin mi dice che non c'è. Forse bisogna collocare il "file archivio" in altro posto? Ho fatto molti tentativi con scarsi risultati

net535353

Ciao net535353,
infatti mi stavo proprio chiedendo il perchè Tu abbia perso mezza giornata per farti l'archivio txt, mentre col mio plugin Ti ci vogliono si e no 10 secondi...

Il file VinciCasa.txt deve essere collocato nella directory principale del programma, se segui passo passo la guida non puoi sbagliare:

1) Aprire spaziometria
2) Dal primo menu selezionare ApriDirectoryDati
3) Si aprira una cartella di windows (qui ci deve essere il file chiamato VinciCasa.txt )

Ciao!

net535353 · 20 Luglio 2014

Caro Moro, ho seguito le tue ultime indicazioni, funziona tutto alla perfezione.
Appena mi verrà in mente qualche altra cosa te la comunicherò.
Grazie.Ciao

net535353

Mike58 · 20 Luglio 2014

Ciao Net, credi è solo voglia a far da se poi dopo le prime prove tutto risulta + chiaro è la soddisfazione è piena quando si riesce a far qualcosa con le proprie mani.
Per quello che chiedi di evidenziare i numeri non usciti al Vincicasa è ancora presto per vedere risultati validi, tuttavia ho solo immesso una condizione IF se il ritardo è = alle estrazioni correnti colora di ROSSO.
In questo modo puoi vedere i numeri rimasti.

ciao

Codice:

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

	' scrivo un file che leggero successivamente con le ultime estrazioni
	sFile = "C:\Users\user......prorpio\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)
			
			Scrivi FormatSpace(IndiceAnnualeFT(es),2) & " " & "  " & DataEstrazioneFT(es) & "  " & StringaNumeri(nu,,1) & "  " & estratti & "  " & esito
			
		Next
		Scrivi "-------------------------------"
		Scrivi
		' preimposto i titoli delle colonne
		ReDim aTitoli(3)
		aTitoli(1) = "Numero"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		' 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)
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(3) ' 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)
			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)

		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(2,,,,1)
	End If
	Scrivi "Numeri Pari......" & par
	Scrivi "Numeri dispari..." & ds
	Scrivi "1° Decina........" & dc1
	Scrivi "2° Decina........" & dc2
	Scrivi "3° Decina........" & dc3
	Scrivi "4° Decina........" & dc4
	Scrivi
	Scrivi "Numeri usciti...." & us,1

End Sub

PER MIKE58

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Member

Member

Advanced Member

Member

Advanced Member >PLATINUM PLUS<