Script Estrazioni Datate Archivi Completi

TizianoCiclomet · 10 Novembre 2011

Ciao e un grazie in anticipo per chi mi
aiutera
Esempio visualzzare tutte le Estrazioni in
data 10 Novembre(Archivi Completi) e se possibile
inserire la data di ricerca libera nello script
Ciao

Joe91 · 10 Novembre 2011

Ciao Tiziano,

Così ?

Codice:

O per estrazioni, intendi, gli estratti, in queste date ?

Ogni estrazione è unica ed irripetibile. (Joe91)

TizianoCiclomet · 10 Novembre 2011

Ciao Joe Grazie si le estrazioni in quelle date
e la possibilita di visualizzarle in modo
completo con i numeri usciti in quelle date
Grazie di nuovo
Ciao

Joe91 · 10 Novembre 2011

Codice:

'Data SemiDeterminata V.3.0. Scritto da Joe91 per Tiziano, Alba, 11/11/11
'<[url]http://forum.lottoced.com/topic.asp?TOPIC_ID=139577>[/url]
Sub Main()
	Ini = 1
	Fin = EstrazioneFin
	I = InputBox("... separati da un punto.","Inserisci GIORNO e MESE ...","10.11")
	Rif = Split(I,".")
	Scrivi "Data Estr.    ",1,0
	For R = 1 To 11 :  If R = 11 Then R = 12
		Scrivi FormatSpace(NomeRuota(R),13) & "  ",1,0
	Next
	Scrivi
	For Es = Ini To Fin
		Dt = DataEstrazione(Es)
		Nu = Split(Dt,".")
		If(Nu(0) = Rif(0)) And(Nu(1) = Rif(1)) Then
			Scrivi StringaNumeri(nu) & " ",1,0
			For R = 1 To 11 :  If R = 11 Then R = 12
				If Estratto(Es,R,1) > 0 Then
					Scrivi StringaEstratti(Es,R) & " ",0,0
				Else
					Scrivi "  .  .  .  .  " & " ",0,0
				End If
			Next
			Scrivi
		End If
	Next
End Sub

TizianoCiclomet · 10 Novembre 2011

Ciao

Joe91 · 11 Novembre 2011

Buon Giorno a tutti.

Ho corretto un piccolo errore nella visualizzazione della data

aggiornando e sostituendo lo script con la versione 3.0.

Consiglio di utilizzare questa nuova, che funziona meglio.

Ogni estrazione è unica ed irripetibile. (Joe91)

TizianoCiclomet · 11 Novembre 2011

Grazie di Nuovo Joe91 per il nuovo Script
modificato stasera lo testero inoltre tua sai
la mia Stima e Ammirazione ne tuo confronti
sia come Previsionista
e Scripeter
Ciao

Joe91 · 11 Novembre 2011

Buon Giorno a tutti,

per le estrazioni del "12.11"

ho raggruppato i dati per numero ruota presenza ...

calcolando anche il ritardo di presenza.

La Nazionale concorre con le sue due sole estrazioni,

quindi il ritardo di 23 presenze DEVE ESSERE INTERPRETATO

per quello che è in pratica.

Tuttavia trovo interessante la lettura,

di queste pagine della storia, del lotto, che credo essere,

sino ad oggi sconosciute.

Ecco, il riassunto (amanuense) dei valori massimi e minimi riscontrati.

Codice:

Presenze : 

Nu  Ba Ca Fi Ge Mi Na Pa Ro To Ve Nz TOT

04)  2  0  3  2  1  2  1  2  3  1  1  18

17)  4  1  2  1  1  0  2  5  1  3  0  20

19)  1  1  0  0  0  0  0  0  0  1  0   3

35)  1  0  1  0  0  0  2  0  0  0  1   5

51)  1  1  0  0  0  0  0  0  0  2  0   4

83)  2  2  3  2  0  3  2  3  2  0  0  19

90)  1  1  0  2  3  6  3  2  1  1  0  20

Ritardi : 

Nu  Ba Ca Fi Ge Mi Na Pa Ro To Ve Nz TOT

16)  3 23 10  0  1 23  8  0  3  4 23  98

17)  0  2  2 11 10 23  1  2  9  0 23  83

19) 18  4 23 23 23 23 23 23 23 13 23 219

51) 13  6 23 23 23 23 23 23 23 15 23 218

79) 21 23  9  1  7  5  8  2  5  1  1  83

90)  3 11 23  2  1  4  5 20  3  4 23  99

Cordiali saluti

Ogni estrazione è unica ed irripetibile. (Joe91)

Roby · 12 Novembre 2011

Salve ragazzi, sono un novello del forum e sono d'obbligo i complimenti a tutti i frequentatori del forum. Mi sono permesso di aggiungere un contatore di presenze al vostro script. Non ha un bel modo di presentarsi a video perche' sono alle prime armi, ma chissa possa servire.

'Data SemiDeterminata V.3.0. Scritto da Joe91 per Tiziano, Alba, 11/11/11
'<http://forum.lottoced.com/topic.asp?TOPIC_ID=139577>
Sub Main()

Dim n(90, 12)

Ini = 1
Fin = EstrazioneFin
I = InputBox("... separati da un punto.","Inserisci GIORNO e MESE ...","10.11")
Rif = Split(I,".")
Scrivi "Data Estr. ",1,0
For R = 1 To 11 : If R = 11 Then R = 12
Scrivi FormatSpace(NomeRuota(R),13) & " ",1,0
Next

Scrivi

For Es = Ini To Fin
Dt = DataEstrazione(Es)
Nu = Split(Dt,".")
If(Nu(0) = Rif(0)) And (Nu(1) = Rif(1)) Then

Scrivi StringaNumeri(nu) & " ",1,0

For R = 1 To 11 : If R = 11 Then R = 12

If Estratto(Es,R,1) > 0 Then

Scrivi StringaEstratti(Es,R) & " ",0,0

For j = 1 To 5
n(Estratto(Es,R,j), R)=n(Estratto(Es,R,j), R)+Estratto(Es,R,j)
Next

Else
Scrivi " . . . . " & " ",0,0
End If

Next
Scrivi
End If
Next

Scrivi
For R = 1 To 12
For i = 1 To 90
If n(i, R)/i >= 3 Then 'CAMBIA QUI IL MINIMO NUMERO DI PRESENZE DA VISUALIZZARE
Scrivi( "Il numero " & Format2(I) & " e' sortito " & n(i, R)/i & " volte sulla ruota di " & NomeRuota(R) )
End If
Next
Next

End Sub

TizianoCiclomet · 12 Novembre 2011

Grazie Gennaro
Ciao

bigalbe · 12 Novembre 2011

Ciao a tutti.
Se posso permettermi un suggerimento alla modifica implementata da Gennaro, sarebbe più intuitivo se il contatore presenze fosse ordinato per Numero e non per Ruota.

Ciao.

bigalbe

Roby · 12 Novembre 2011

Joe, hai ragione ... e' stata una pippa ma solo perche' non sono pratico eheheh mi sono fermato alla sola funzionalita' dello script e non all'ottimizzazione dello stesso [V]

Joe91 · 12 Novembre 2011

Innanzitutto,

concordo con l'pportunità di approfondire le ricerche ...

ed è giusto il rilevare la presenza, degli estratti,

prelevandoli, uno ad uno,

all'estrazione "Es"

nella ruota "R"

nella posizione "j"

Ma non ho capito perchè aggiungere, nel conteggio,

l' estratto stesso ...

che poi costringe ad una divisione

e non un semplice "+1"

per ogni presenza dell'estratto "N" nela ruota "R".

Questa la parte dello script a cui mi riferisco:

Codice:

For j = 1 To 5
n(Estratto(Es,R,j), R)=n(Estratto(Es,R,j), R)+Estratto(Es,R,j)
Next

Quindi, con la ulteriore doverosa premessa, ovvero che ci sono

sia differenze negli archivi, che nei calcoli,

questo si traduce in una inevitabilmente differenza nei risultati.

Raccomando dunque di trattare questi "risultati" con la necessaria prudenza.

Tuttavia ringrazio, di cuore, tutti voi ...

per la gradita collaborazione.

Buon-Week-End

Ogni estrazione è unica ed irripetibile. (Joe91)

Joe91 · 15 Novembre 2011

BuonGiorno a tutti.

Ringrazio Claudio8 e tutti voi per l'attenzione.

Riprendo, per confronto, parte di quanto ho scritto

l' 11 Novembre 2011 ... in proiezione ... per l'estrazione del 12 Novembre.

Ho evidenziato come il Frequente 90 a tutte ...

a Firenze, invece, non fosse mai stato estratto in data 12.11.

Nella parte destra dell'immagine ORA si vede la sua "presenza"

"promossa" da "zero" ad "uno" ...

che lottologicamente significa: Caduto a colpo.

Ogni estrazione è unica ed irripetibile. (Joe91)

TizianoCiclomet · 16 Novembre 2011

Ciao Joe91 complimenti per la tua ricerca e se
mi consenti sembra anche confermata la buona
tendenza di queste Cinquine Datate di dare esito
anche nella estrazione successiva
Concludendo penso che TizianoCiclomet Joe91 Gennaro
Hanno creato un buon giocattolo per tutto il forum
di LottoCed quale sia il vostro metodo di fare
Previsioni
Rigrazio ancora una volta Joe91 e Gennaro e vi
ricordo che per questi script ho usato Spaziometria
di LiugiB
Ciao

Joe91 · 16 Novembre 2011

Vi riporto a seguito l'output completo ed aggiornato per l'estrazione di Giovedì prossimo e,

per Venerdì, sapendo che in statistica raddoppiando il numero di giocate,

si dovrebbe raddoppiare il numero di vincite ... ma non è sempre così!

Codice:

Data Estr.    Bari           Cagliari       Firenze        Genova         Milano         Napoli         Palermo        Roma           Torino         Venezia        Nazionale      
17.11.1872 .............. .............. 32.03.79.70.75 .............. 25.58.16.85.32 33.26.53.37.31 59.53.49.72.69 71.82.11.19.45 54.71.72.27.09 19.55.03.26.05 .............. 
17.11.1878 39.60.81.83.78 .............. 47.82.11.12.27 .............. 54.37.90.05.47 43.12.58.41.20 50.38.05.11.06 18.27.24.75.12 84.90.39.61.30 30.19.46.09.87 .............. 
17.11.1889 81.90.26.16.80 .............. 21.41.45.02.72 .............. 52.34.78.09.02 46.23.45.26.21 04.18.75.59.69 03.38.02.55.34 01.42.61.40.78 28.09.72.60.62 .............. 
17.11.1895 49.03.69.56.78 .............. 79.41.80.88.31 .............. 40.53.38.09.74 42.74.35.43.13 18.39.79.04.45 38.79.07.55.41 35.31.65.16.01 76.82.66.27.09 .............. 
17.11.1900 16.72.78.65.59 .............. 41.22.66.79.88 .............. 38.79.59.64.08 35.75.31.16.81 62.02.67.13.63 42.37.23.20.17 81.38.48.73.36 88.54.69.47.61 .............. 
17.11.1906 57.11.31.76.54 .............. 38.30.62.68.87 .............. 20.69.43.55.30 54.79.55.22.85 72.08.27.05.56 82.34.50.72.86 11.16.22.40.06 13.87.30.85.05 .............. 
17.11.1917 49.46.17.79.89 .............. 24.38.35.78.05 .............. 19.46.43.90.62 74.79.84.87.18 66.64.12.77.83 55.76.65.53.25 33.38.81.69.66 35.10.69.64.51 .............. 
17.11.1923 72.81.82.17.50 .............. 64.33.21.27.38 .............. 05.26.46.14.28 06.19.77.76.22 86.29.25.55.69 86.50.40.12.66 26.04.16.02.51 47.51.68.01.22 .............. 
17.11.1928 13.44.70.28.31 .............. 31.53.09.44.19 .............. 22.47.67.02.56 18.09.80.30.66 81.63.38.62.30 46.50.31.30.06 53.48.69.20.71 31.35.29.58.32 .............. 
17.11.1934 60.48.05.16.85 .............. 68.66.28.22.69 .............. 43.81.62.02.69 50.89.54.46.79 30.74.44.48.05 03.70.30.49.73 12.66.26.28.13 66.36.15.24.08 .............. 
17.11.1945 20.48.69.57.46 83.88.43.49.10 77.62.72.50.41 01.55.27.10.63 57.49.13.15.53 44.67.37.60.65 74.19.69.22.07 34.20.83.30.12 46.60.14.10.50 18.53.17.67.62 .............. 
17.11.1951 52.90.75.53.46 45.31.35.61.82 83.50.44.77.70 11.69.52.65.60 55.13.63.76.01 58.39.66.33.55 36.31.51.07.26 19.59.38.50.41 11.77.34.12.62 25.45.32.80.21 .............. 
17.11.1956 84.29.07.58.03 02.80.47.70.56 27.42.22.86.06 58.62.57.43.10 68.67.25.90.78 78.90.83.10.63 06.32.34.33.24 16.12.29.71.40 13.15.50.80.26 36.81.02.05.34 .............. 
17.11.1962 90.41.72.52.46 64.57.61.07.73 31.10.39.06.80 76.74.43.80.08 82.09.37.71.80 63.55.14.17.02 04.38.34.55.54 39.36.13.05.63 84.06.80.39.28 07.21.65.17.10 .............. 
17.11.1973 39.26.04.21.20 19.65.07.64.13 33.35.14.13.67 87.81.29.39.44 13.44.82.12.57 23.45.53.41.63 13.51.50.46.77 28.77.49.15.71 75.52.04.05.30 89.48.75.58.62 .............. 
17.11.1979 84.59.68.63.45 25.40.16.46.01 08.42.39.82.64 72.83.44.70.38 63.17.47.07.59 69.41.11.32.57 24.70.62.74.13 34.89.23.70.77 63.24.49.54.74 68.62.65.03.71 .............. 
17.11.1984 73.23.86.15.47 72.18.55.46.12 03.07.72.18.52 44.09.21.86.19 78.35.68.51.62 54.09.29.25.32 48.37.23.29.62 85.46.88.57.18 55.64.43.51.16 02.03.42.67.24 .............. 
17.11.1990 84.33.73.04.21 01.19.07.72.38 16.64.89.54.46 14.21.84.09.56 88.32.65.23.12 10.09.33.56.37 86.36.07.46.79 15.05.41.17.53 38.75.21.02.85 19.59.89.16.03 .............. 
17.11.1999 78.46.58.55.23 36.05.12.26.53 80.66.48.62.79 89.85.10.63.29 51.74.30.80.42 73.06.51.84.49 06.62.76.36.74 81.86.63.46.06 82.04.61.55.34 78.73.34.51.06 .............. 
17.11.2001 07.43.59.89.79 15.41.22.16.02 01.84.05.82.10 88.44.83.86.71 10.60.62.54.30 66.22.86.01.24 88.68.64.71.61 23.24.53.79.56 33.67.80.55.41 18.16.66.74.56 .............. 
17.11.2004 59.23.41.42.01 29.37.01.72.06 88.06.32.41.17 28.27.54.58.55 21.03.42.33.51 47.10.24.36.60

Joe91 · 16 Novembre 2011

Codice:

'Data-Semi-Determinata V.3.0. Scritto da Joe91 per Tiziano, Alba, 11/11/11
'Rev. 3.1 di Gennaro  / Rev 3.2 del 16/11/2011 per Bigalbe By Joe .
'http://forum.lottoced.com/topic.asp?TOPIC_ID=139577
Sub Main()
	Dim N(90,12)
	Pr = 3 'evidenzierà i numeri presenti in quantità maggiore o uguale a questo numero.
	Ini = 1
	Fin = EstrazioneFin
	I = InputBox("... separati da un punto.","Inserisci GIORNO e MESE ...","10.11")
	Rif = Split(I,".")
	Scrivi "Data Estr. ",1,0
	For R = 1 To 11
		If R = 11 Then
			R = 12
		End If
		Scrivi FormatSpace(NomeRuota(R),13) & " ",1,0
	Next
	Scrivi
	For Es = Ini To Fin
		Dt = DataEstrazione(Es)
		Nu = Split(Dt,".")
		If(Nu(0) = Rif(0)) And(Nu(1) = Rif(1)) Then
			Scrivi StringaNumeri(nu) & " ",1,0
			For R = 1 To 11
				If R = 11 Then
					R = 12
				End If
				If Estratto(Es,R,3) > 0 Then
					Scrivi StringaEstratti(Es,R) & " ",0,0
					For P= 1 To 5
						N(Estratto(Es,R,P),R) = N(Estratto(Es,R,P),R) + 1
					Next
				Else
					Scrivi String(14,".") & " ",0,0
				End If
			Next
			Scrivi
		End If
	Next
	
	Scrivi
	Scrivi "PRESENZE >= " & PR,1
	Scrivi
	For I = 1 To 90
		SP = 0 'Spazio tra i numeri
		For R = 1 To 12
			If N(I,R) >= Pr Then
				Scrivi "Il numero " & Format2(I) & " e' sortito : " & N(I,R) & " volte sulla ruota di " & NomeRuota(R)
				Sp = 1
			End If
		Next
		If SP = 1 Then Scrivi
	Next
	
	Scrivi
	Scrivi "PRESENZE >= " & PR,1
	Scrivi
	For R = 1 To 12
		SP = 0 'Spazio tra i numeri
		For I = 1 To 90
			If N(I,R) >= Pr Then
				Scrivi "Il numero " & Format2(I) & " e' sortito : " & N(I,R) & " volte sulla ruota di " & NomeRuota(R)
				Sp = 1
			End If
		Next
		If SP = 1 Then Scrivi
	Next
End Sub

Ogni estrazione è unica ed irripetibile. (Joe91)

joi_lotto · 16 Novembre 2011

Scusa la mia ignoranza. (Joe91, ma lo script con questo risultato dove lo trovo?
Grazie
Joi

Presenze:
Nu Ba Ca Fi Ge Mi Na Pa Ro To Ve Nz TOT
01) 2 3 3 2 1 1 0 0 2 1 1 16
02) 1 2 1 0 3 1 1 1 2 2 1 15
03) 2 0 2 1 1 0 0 3 0 4 1 14
04) 2 0 0 1 0 0 3 0 3 0 0 9
05) 2 1 3 0 4 0 3 2 1 3 0 19
06) 0 2 3 0 0 2 3 2 2 1 0 15
07) 2 3 1 0 1 1 3 1 0 1 0 13
08) 0 0 1 1 1 0 1 0 0 3 0 7
09) 0 0 1 2 3 3 0 0 1 3 0 13
10) 0 1 2 3 1 3 1 0 2 2 0 15
11) 1 0 1 1 0 1 1 1 2 0 0 8
12) 0 2 1 0 2 1 1 5 2 0 0 14
13) 1 1 1 2 3 1 3 1 2 1 0 16
14) 0 1 1 1 1 1 0 1 1 0 0 7
15) 1 1 0 0 1 1 1 3 2 1 0 11
16) 3 2 2 1 1 1 0 1 4 2 0 17
17) 2 0 1 0 1 1 0 2 0 3 1 11
18) 1 1 1 0 1 2 2 3 0 3 0 14
19) 0 2 2 1 1 1 2 2 1 3 0 15
20) 2 0 0 0 2 1 0 2 1 1 0 9
21) 2 0 2 3 1 2 1 0 2 2 0 15
22) 0 1 3 0 1 3 1 1 1 1 0 12
23) 3 0 0 0 1 2 1 3 0 1 0 11
24) 0 1 1 0 0 2 2 2 1 3 0 12
25) 0 2 0 0 2 2 1 1 0 2 0 10
26) 2 1 1 0 2 2 1 0 3 1 0 13
27) 1 0 3 2 0 0 1 2 1 1 0 11
28) 2 0 1 1 2 0 0 2 2 1 0 11
29) 1 1 0 2 0 1 2 1 0 2 0 10
30) 0 0 1 0 3 1 3 4 2 2 0 16
31) 2 2 3 1 0 2 1 1 1 1 0 14
32) 0 1 2 0 2 2 1 1 1 2 0 12
33) 1 0 2 0 1 3 1 1 2 0 0 11
34) 0 0 1 0 1 1 3 4 2 2 0 14
35) 0 1 2 0 1 2 0 0 2 3 1 12
36) 0 1 0 0 0 1 3 1 1 3 0 10
37) 0 1 0 0 2 3 1 1 0 0 0 8
38) 0 1 3 1 2 0 3 4 3 0 0 17
39) 2 1 3 1 0 1 1 2 2 0 1 14
40) 1 3 0 0 1 1 0 2 2 0 0 10
41) 2 1 5 0 0 4 0 3 1 1 0 17
42) 1 0 3 1 2 1 2 1 1 1 0 13
43) 1 1 0 2 3 3 2 0 1 0 1 14
44) 1 0 3 4 1 2 1 1 1 0 1 15
45) 1 1 1 0 0 2 2 1 1 1 1 11
46) 5 2 1 0 2 2 2 3 1 1 0 19
47) 1 1 1 0 3 1 1 0 1 3 1 13
48) 3 0 1 0 0 0 2 0 3 1 0 10
49) 3 1 0 0 2 1 1 2 2 0 0 12
50) 1 0 2 0 1 1 2 4 2 1 0 14
51) 0 0 0 0 4 1 2 1 3 4 0 15
52) 2 0 1 1 2 0 0 0 1 0 0 7
53) 1 1 2 1 2 2 2 3 1 1 0 16
54) 1 0 1 2 2 3 1 0 2 1 0 13
55) 2 1 0 2 3 3 2 3 3 1 0 20
56) 1 2 0 1 1 1 2 1 0 1 0 10
57) 2 1 0 1 3 1 0 1 0 1 0 10
58) 2 0 0 2 1 2 0 0 0 2 0 9
59) 4 0 0 0 2 0 3 1 0 1 0 11
60) 2 0 0 1 1 2 0 0 1 1 1 9
61) 0 2 0 1 0 1 1 0 3 1 1 10
62) 1 0 3 1 4 0 6 0 1 4 0 20
63) 2 0 1 3 2 3 3 2 1 0 0 17
64) 0 2 4 0 1 0 2 0 2 2 0 13
65) 1 1 0 1 2 1 0 1 1 2 0 10
66) 0 0 3 0 0 3 1 1 2 4 0 14
67) 0 0 1 0 3 1 1 0 1 2 1 10
68) 1 0 3 0 2 1 1 0 0 2 1 11
69) 2 0 1 1 3 2 4 1 2 2 0 18
70) 1 2 2 2 0 0 1 3 0 0 0 11
71) 0 0 1 1 1 0 1 3 3 2 0 12
72) 4 3 3 1 0 1 2 1 1 1 0 17
73) 2 1 0 0 0 2 0 1 2 2 0 10
74) 0 0 0 1 2 2 4 0 1 1 0 11
75) 1 0 1 0 0 1 1 1 3 1 0 9
76) 1 1 0 2 1 1 1 2 1 1 0 11
77) 0 0 2 0 0 1 3 2 1 0 0 9
78) 5 0 1 0 3 1 0 1 1 1 0 13
79) 2 0 4 0 1 3 3 2 1 0 0 16
80) 2 1 3 1 2 2 0 0 3 1 0 15
81) 3 0 0 1 1 1 1 1 2 1 0 11
82) 1 1 3 0 2 0 0 2 1 1 0 11
83) 1 2 1 2 0 1 1 2 0 0 0 10
84) 3 0 1 1 0 2 0 0 3 0 1 11
85) 1 1 0 1 1 1 0 1 1 1 0 8
86) 1 0 1 2 0 1 3 3 1 0 0 12
87) 0 0 1 1 0 1 0 0 0 2 0 5
88) 0 1 3 1 1 0 1 1 0 1 0 9
89) 2 1 1 1 0 1 0 1 0 2 0 9
90) 3 0 0 0 3 1 0 0 1 0 0 8

Ritardi
Nu Ba Ca Fi Ge Mi Na Pa Ro To Ve Nz TOT
01) 2 3 0 2 12 4 24 24 20 16 2 109
02) 2 4 21 24 14 10 19 21 6 7 0 128
03) 11 24 7 1 3 24 24

Joe91 · 16 Novembre 2011

Ciao ...

effettivamente lo script ... non lo trovi ...

perchè ci sto ancora lavorando su.

La "base" è comunque ed evidentemente la stessa, di quello che ho già postato e corretto.

Per la nuova versione ci vorrà parecchio tempo,

perchè ne ho poco a disposizione ed il controllo scrupoloso,

al quale, di regola, sottopongo i risultati dei miei script,

in casi come questo, ne richiede parecchio.

Spero di superare velocemente anche un inciampo ...

che mi rallenta ulteriormente, e poi, vi farò sapere.

Buona-Giornata

Ogni estrazione è unica ed irripetibile. (Joe91)

Roby · 16 Novembre 2011

Per gli amanti delle TABELLE ... vedete se cosi vi piace

'Data-Semi-Determinata V.3.0. Scritto da Joe91 per Tiziano, Alba, 11/11/11
'Rev. 3.2 di Gennaro / Rev 3.2 del 16/11/2011 per Bigalbe By Joe .
'http://forum.lottoced.com/topic.asp?TOPIC_ID=139577

Sub Main()
Dim N(90,12),Fgr(9,12),Cdn(10,12),Dcn(10,12)

ReDim atitoli(92) 'Inizializzo titoli di una tabella con 92 titoli. il 1° titolo sarà "num. estraz" il 2°"data di estraz" e succ i num da 1 a 90
ReDim avalori(92) 'Inizializzo riga di valori

xx = 2
For x = 1 To 90
xx = xx + 1
atitoli(xx) = Format2(x) 'Associo il Titolo dei 90 numeri
Next

atitoli(1) = " Ruota "
atitoli(2) = " NUM "

'Pr = 3 'evidenzierà i numeri presenti in quantità maggiore o uguale a questo numero.

Ini = 1
Fin = EstrazioneFin

i = InputBox("Inserisci GIORNO e MESE separati da un punto.","Inserisci...","12.11")
Rif = Split(i,".")

Scrivi "Data Estr. ",1,0

For R = 1 To 11
If R = 11 Then
R = 12
End If
Scrivi FormatSpace(NomeRuota(R),13) & " ",1,0
Next

Scrivi

For Es = Ini To Fin
Dt = DataEstrazione(Es)
Nu = Split(Dt,".")

If(Nu(0) = Rif(0)) And(Nu(1) = Rif(1)) Then
Scrivi StringaNumeri(nu) & " ",1,0
For R = 1 To 11

If R = 11 Then
R = 12
End If

If Estratto(Es,R,3) > 0 Then
Scrivi StringaEstratti(Es,R) & " ",0,0
For P = 1 To 5
N(Estratto(Es,R,P),R) = N(Estratto(Es,R,P),R) + 1
Fgr(Figura(Estratto(Es,R,P)),R) = Fgr(Figura(Estratto(Es,R,P)),R) + 1
Cdn(Cadenza(Estratto(Es,R,P)),R) = Cdn(Cadenza(Estratto(Es,R,P)),R) + 1
Dcn(Decina(Estratto(Es,R,P)),R) = Dcn(Decina(Estratto(Es,R,P)),R) + 1
Next
Else
Scrivi String(14,".") & " ",0,0
End If
Next
Scrivi
End If
Next

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

Scrivi

Call InitTabella(atitoli,1,"center",2,5,"Calibri") 'Inizializzo la tabella

For R = 1 To 12
avalori(1) = NomeRuota(R)
avalori(2) = ""

yz = 2
For y = 1 To 90
yz = yz + 1
avalori(yz) = N(y,R)
Next

Call AddRigaTabella(avalori,Bianco_,"center",1)

Next

Call CreaTabella(Ord)

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

ReDim atitoli(11) 'Inizializzo titoli
ReDim avalori(12) 'Inizializzo riga di valori

xx = 2
For x = 1 To 9
xx = xx + 1
atitoli(xx) = Format2(x) 'Associo il Titolo delle 9 figure
Next

atitoli(1) = " Ruota "
atitoli(2) = " FIG "

Call InitTabella(atitoli,1,"center",2,5,"Calibri") 'Inizializzo la tabella

For R = 1 To 12
avalori(1) = NomeRuota(R)
avalori(2) = ""

yz = 2
For y = 1 To 9
yz = yz + 1
avalori(yz) = Fgr(y,R)
Next

Call AddRigaTabella(avalori,Bianco_,"center",1)

Next

Call CreaTabella(Ord)

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

ReDim atitoli(11) 'Inizializzo titoli
ReDim avalori(12) 'Inizializzo riga di valori

xx = 2
For x = 1 To 9
xx = xx + 1
atitoli(xx) = Format2(x) 'Associo il Titolo delle 10 cadenze
Next

atitoli(1) = " Ruota "
atitoli(2) = " CAD "

Call InitTabella(atitoli,1,"center",2,5,"Calibri") 'Inizializzo la tabella

For R = 1 To 12
avalori(1) = NomeRuota(R)
avalori(2) = ""

yz = 2
For y = 1 To 9
yz = yz + 1
avalori(yz) = Cdn(y,R)
Next

Call AddRigaTabella(avalori,Bianco_,"center",1)

Next

Call CreaTabella(Ord)

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

ReDim atitoli(11) 'Inizializzo titoli
ReDim avalori(12) 'Inizializzo riga di valori

xx = 2
For x = 1 To 9
xx = xx + 1
atitoli(xx) = Format2(x) 'Associo il Titolo delle 10 decine
Next

atitoli(1) = " Ruota "
atitoli(2) = " DEC "

Call InitTabella(atitoli,1,"center",2,5,"Calibri") 'Inizializzo la tabella

For R = 1 To 12
avalori(1) = NomeRuota(R)
avalori(2) = ""

yz = 2
For y = 1 To 9
yz = yz + 1
avalori(yz) = Dcn(y,R)
Next

Call AddRigaTabella(avalori,Bianco_,"center",1)

Next

Call CreaTabella(Ord)

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

End Sub

Script Estrazioni Datate Archivi Completi

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Roby

Guest