Chiarimenti a Rubino

[fillotto]

Ciao Rubino , ho questo tuo vecchio script fatto x Giulio LG

Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota,rt,dal
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rt = InputBox("Ruota  ",,12)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
Scrivi "__________________________________Adattatori Giulio LG____",1
ColoreTesto(0)
For nRuota = rt To rt
Messaggio NomeRuota(nRuota)
Scrivi
Scrivi"=========================================== ==" & NomeRuota(nRuota),1
Scrivi


'''preimposta inizio estrazioni per ruote nate recentemente
dal = 3950 ' inizio tutte le altre ruote
If rt = 12 Then dal = 7440 'inizio nazionale
If rt = 1 Then dal = 174 'inizio bari
If rt = 2 Then dal = 3649 'inizio cagliari
If rt = 4 Then dal = 3577 'inizio genova


Inizio = dal
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(5)
ReDim aRuote(1)
aRuote(1) = nRuota
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
If VerificaEsito(aN,aRuote,idEst + 1,sorte,vcolpi) Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
casi = casi + 1
Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & Ritardo
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Scrivi
Scrivi "casi... " & casi
casi = 0
Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
Ritardo = 0
Scrivi
Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
Erase rmax
Next
End Sub

alle seguenti richieste dello script:
rt = InputBox("Ruota ",,12) ' scelgo 1 (BA)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo ",,2)) ' scelgo 2 (ambo)
nAdatt = CInt(InputBox("Adattatore ",,1)) ' come adattatore 1
Rcons = CInt(InputBox("Richiesta Consecutività ",,1)) ' come consecutività 1
vcolpi = CInt(InputBox("Verifica colpi n.",,1)) ' Verifica colpi scelgo 2
Per cui ho questo output:

Elaborazione Adattatori sulle 10 ruote 
 Adattatore scelto ( 1 )
 Sorte scelta 1=Estratto  2=Ambo  ( 2 )
 Consecutività scelta ( 1 )
 Verifica colpi n. (2 )
__________________________________Adattatori Giulio LG____

=========================================== ==Bari

1    ... 12.07.1874 ... 9
2    ... 28.03.1875 ... 36
3    ... 16.05.1875 ... 6
4    ... 02.01.1876 ... 32
5    ... 16.01.1876 ... 1
6    ... 30.04.1876 ... 14
7    ... 18.06.1876 ... 6
8    ... 24.09.1876 ... 13
9    ... 24.12.1876 ... 12
10   ... 04.03.1877 ... 9
11   ... 18.03.1877 ... 1
12   ... 03.06.1877 ... 10
13   ... 24.06.1877 ... 2
14   ... 01.07.1877 ... 0
15   ... 09.09.1877 ... 9
16   ... 17.02.1878 ... 22
17   ... 21.07.1878 ... 21
18   ... 27.10.1878 ... 13
19   ... 08.12.1878 ... 5
20   ... 30.03.1879 ... 15
21   ... 22.06.1879 ... 11
22   ... 29.06.1879 ... 0
23   ... 03.08.1879 ... 4
24   ... 05.10.1879 ... 8
25   ... 15.02.1880 ... 18
26   ... 17.10.1880 ... 34
27   ... 03.04.1881 ... 23
28   ... 26.06.1881 ... 11
29   ... 13.11.1881 ... 19
30   ... 05.02.1882 ... 11
31   ... 25.06.1882 ... 19
32   ... 17.09.1882 ... 11
33   ... 13.05.1883 ... 33
34   ... 28.10.1883 ... 23
35   ... 11.11.1883 ... 1
36   ... 02.12.1883 ... 2
37   ... 27.04.1884 ... 20
38   ... 02.11.1884 ... 26
39   ... 08.03.1885 ... 17
40   ... 19.04.1885 ... 5
41   ... 26.04.1885 ... 0
42   ... 31.05.1885 ... 4
43   ... 08.11.1885 ... 22
44   ... 20.06.1886 ... 31
45   ... 26.09.1886 ... 13
46   ... 26.12.1886 ... 12
47   ... 12.06.1887 ... 23
48   ... 03.07.1887 ... 2
49   ... 19.02.1888 ... 32
50   ... 01.04.1888 ... 5
51   ... 22.04.1888 ... 2
52   ... 22.07.1888 ... 12
53   ... 19.08.1888 ... 3
54   ... 28.07.1889 ... 48
55   ... 09.03.1890 ... 31
56   ... 18.10.1891 ... 83
57   ... 03.01.1892 ... 10
58   ... 14.02.1892 ... 5
59   ... 02.10.1892 ... 32
60   ... 16.10.1892 ... 1
61   ... 13.11.1892 ... 3
62   ... 17.06.1894 ... 82
63   ... 29.07.1894 ... 5
64   ... 10.03.1895 ... 31
65   ... 07.04.1895 ... 3
66   ... 15.03.1896 ... 48
67   ... 19.07.1896 ... 17
68   ... 24.01.1897 ... 26
69   ... 02.05.1897 ... 13
70   ... 23.05.1897 ... 2
71   ... 29.08.1897 ... 13
72   ... 24.10.1897 ... 7
73   ... 02.10.1898 ... 48
74   ... 20.11.1898 ... 6
75   ... 18.12.1898 ... 3
76   ... 12.02.1899 ... 7
77   ... 11.06.1899 ... 16
78   ... 17.09.1899 ... 13
79   ... 29.10.1899 ... 5
80   ... 17.02.1900 ... 15
81   ... 31.03.1900 ... 5
82   ... 28.04.1900 ... 3
83   ... 28.07.1900 ... 12
84   ... 18.08.1900 ... 2
85   ... 27.10.1900 ... 9
86   ... 21.09.1901 ... 46
87   ... 15.03.1902 ... 24
88   ... 19.07.1902 ... 17
89   ... 18.04.1903 ... 38
90   ... 16.05.1903 ... 3
91   ... 09.01.1904 ... 33
92   ... 15.10.1904 ... 39
93   ... 04.02.1905 ... 15
94   ... 06.01.1906 ... 47
95   ... 02.06.1906 ... 20
96   ... 27.10.1906 ... 20
97   ... 15.12.1906 ... 6
98   ... 13.04.1907 ... 16
99   ... 27.04.1907 ... 1
100  ... 13.07.1907 ... 10
101  ... 14.12.1907 ... 21
102  ... 09.05.1908 ... 20
103  ... 27.06.1908 ... 6
104  ... 08.08.1908 ... 5
105  ... 21.05.1910 ... 92
106  ... 06.08.1910 ... 10
107  ... 17.06.1911 ... 44
108  ... 29.07.1911 ... 5
109  ... 16.12.1911 ... 19
110  ... 23.12.1911 ... 0
111  ... 17.02.1912 ... 7
112  ... 08.06.1912 ... 15
113  ... 07.09.1912 ... 12
114  ... 25.07.1914 ... 97
115  ... 05.06.1915 ... 44
116  ... 11.09.1915 ... 13
117  ... 09.10.1915 ... 3
118  ... 20.11.1915 ... 5
119  ... 01.01.1916 ... 5
120  ... 18.03.1916 ... 10
121  ... 02.06.1917 ... 62
122  ... 28.07.1917 ... 7
123  ... 04.05.1918 ... 39
124  ... 28.12.1918 ... 33
125  ... 24.01.1920 ... 55
126  ... 29.05.1920 ... 17
127  ... 05.06.1920 ... 0
128  ... 03.07.1920 ... 3
129  ... 06.11.1920 ... 17
130  ... 14.05.1921 ... 26
131  ... 18.03.1922 ... 43
132  ... 29.04.1922 ... 5
133  ... 11.11.1922 ... 27
134  ... 23.12.1922 ... 5
135  ... 30.12.1922 ... 0
136  ... 13.01.1923 ... 1
137  ... 08.12.1923 ... 46
138  ... 13.12.1924 ... 52
139  ... 28.02.1925 ... 10
140  ... 17.10.1925 ... 32
141  ... 24.07.1926 ... 39
142  ... 09.10.1926 ... 10
143  ... 07.05.1927 ... 29
144  ... 20.08.1927 ... 14
145  ... 10.12.1927 ... 15
146  ... 10.03.1928 ... 12
147  ... 19.05.1928 ... 9
148  ... 04.08.1928 ... 10
149  ... 08.12.1928 ... 17
150  ... 06.04.1929 ... 16
151  ... 05.04.1930 ... 51
152  ... 12.07.1930 ... 13
153  ... 19.07.1930 ... 0
154  ... 08.11.1930 ... 15
155  ... 21.03.1931 ... 18
156  ... 11.04.1931 ... 2
157  ... 31.10.1931 ... 28
158  ... 16.01.1932 ... 10
159  ... 30.07.1932 ... 27
160  ... 07.01.1933 ... 22
161  ... 12.08.1933 ... 30
162  ... 14.04.1934 ... 34
163  ... 21.04.1934 ... 0
164  ... 25.08.1934 ... 17
165  ... 20.10.1934 ... 7
166  ... 10.11.1934 ... 2
167  ... 02.02.1935 ... 11
168  ... 23.05.1936 ... 67
169  ... 10.04.1937 ... 45
170  ... 12.06.1937 ... 8
171  ... 01.01.1938 ... 28
172  ... 10.09.1938 ... 35
173  ... 20.05.1939 ... 35
174  ... 05.08.1939 ... 10
175  ... 09.03.1940 ... 30
176  ... 28.12.1940 ... 41
177  ... 01.03.1941 ... 8
178  ... 19.09.1942 ... 80
179  ... 31.05.1943 ... 35
180  ... 21.06.1943 ... 2
181  ... 28.08.1943 ... 9
182  ... 31.12.1943 ... 17
183  ... 01.07.1944 ... 25
184  ... 16.12.1944 ... 23
185  ... 10.02.1945 ... 7
186  ... 03.03.1945 ... 2
187  ... 24.03.1945 ... 2
188  ... 21.07.1945 ... 16
189  ... 01.09.1945 ... 5
190  ... 08.09.1945 ... 0
191  ... 19.01.1946 ... 18
192  ... 03.08.1946 ... 27
193  ... 28.09.1946 ... 7
194  ... 14.12.1946 ... 10
195  ... 22.03.1947 ... 13
196  ... 05.07.1947 ... 14
197  ... 12.07.1947 ... 0
198  ... 31.01.1948 ... 28
199  ... 28.02.1948 ... 3
200  ... 31.07.1948 ... 21
201  ... 14.08.1948 ... 1
202  ... 20.11.1948 ... 13
203  ... 22.01.1949 ... 8
204  ... 04.06.1949 ... 18
205  ... 30.07.1949 ... 7
206  ... 24.12.1949 ... 20
207  ... 04.02.1950 ... 5
208  ... 17.06.1950 ... 18
209  ... 22.07.1950 ... 4
210  ... 02.09.1950 ... 5
211  ... 03.03.1951 ... 25
212  ... 17.03.1951 ... 1
213  ... 05.04.1952 ... 54
214  ... 03.01.1953 ... 38
215  ... 31.12.1954 ... 103
216  ... 08.01.1955 ... 0
217  ... 16.04.1955 ... 13
218  ... 18.06.1955 ... 8
219  ... 17.12.1955 ... 25
220  ... 21.07.1956 ... 30
221  ... 11.08.1956 ... 2
222  ... 06.10.1956 ... 7
223  ... 27.10.1956 ... 2
224  ... 30.03.1957 ... 21
225  ... 24.08.1957 ... 20
226  ... 19.10.1957 ... 7
227  ... 14.06.1958 ... 33
228  ... 19.07.1958 ... 4
229  ... 30.05.1959 ... 44
230  ... 03.09.1960 ... 65
231  ... 15.10.1960 ... 5
232  ... 12.11.1960 ... 3
233  ... 25.02.1961 ... 14
234  ... 19.08.1961 ... 23
235  ... 26.08.1961 ... 0
236  ... 23.06.1962 ... 42
237  ... 16.02.1963 ... 33
238  ... 13.06.1964 ... 68
239  ... 27.06.1964 ... 1
240  ... 14.11.1964 ... 19
241  ... 24.07.1965 ... 35
242  ... 16.04.1966 ... 37
243  ... 17.09.1966 ... 21
244  ... 29.04.1967 ... 31
245  ... 20.05.1967 ... 2
246  ... 05.08.1967 ... 10
247  ... 05.01.1968 ... 21
248  ... 13.09.1969 ... 87
249  ... 27.09.1969 ... 1
250  ... 18.07.1970 ... 41
251  ... 01.05.1971 ... 40
252  ... 03.07.1971 ... 8
253  ... 02.10.1971 ... 12
254  ... 04.03.1972 ... 21
255  ... 25.03.1972 ... 2
256  ... 20.05.1972 ... 7
257  ... 21.04.1973 ... 47
258  ... 23.03.1974 ... 47
259  ... 07.09.1974 ... 23
260  ... 16.11.1974 ... 9
261  ... 07.06.1975 ... 28
262  ... 11.10.1975 ... 17
263  ... 08.11.1975 ... 3
264  ... 31.01.1976 ... 11
265  ... 24.04.1976 ... 11
266  ... 01.05.1976 ... 0
267  ... 16.10.1976 ... 23
268  ... 12.02.1977 ... 16
269  ... 19.03.1977 ... 4
270  ... 26.03.1977 ... 0
271  ... 30.04.1977 ... 4
272  ... 06.08.1977 ... 13
273  ... 17.12.1977 ... 18
274  ... 08.07.1978 ... 28
275  ... 30.09.1978 ... 11
276  ... 17.02.1979 ... 19
277  ... 06.10.1979 ... 32
278  ... 19.01.1980 ... 14
279  ... 21.06.1980 ... 21
280  ... 10.10.1981 ... 67
281  ... 31.10.1981 ... 2
282  ... 08.05.1982 ... 26
283  ... 24.07.1982 ... 10
284  ... 18.09.1982 ... 7
285  ... 18.12.1982 ... 12
286  ... 29.01.1983 ... 5
287  ... 05.03.1983 ... 4
288  ... 17.12.1983 ... 40
289  ... 18.08.1984 ... 34
290  ... 02.11.1985 ... 62
291  ... 01.02.1986 ... 12
292  ... 10.05.1986 ... 13
293  ... 16.08.1986 ... 13
294  ... 18.04.1987 ... 34
295  ... 16.05.1987 ... 3
296  ... 10.10.1987 ... 20
297  ... 09.01.1988 ... 12
298  ... 09.04.1988 ... 12
299  ... 01.10.1988 ... 24
300  ... 07.01.1989 ... 13
301  ... 18.02.1989 ... 5
302  ... 25.02.1989 ... 0
303  ... 21.04.1990 ... 59
304  ... 27.04.1991 ... 52
305  ... 04.05.1991 ... 0
306  ... 25.05.1991 ... 2
307  ... 31.08.1991 ... 13
308  ... 23.11.1991 ... 11
309  ... 21.12.1991 ... 3
310  ... 30.05.1992 ... 22
311  ... 26.12.1992 ... 29
312  ... 03.04.1993 ... 13
313  ... 24.04.1993 ... 2
314  ... 15.05.1993 ... 2
315  ... 25.09.1993 ... 18
316  ... 05.11.1994 ... 57
317  ... 15.07.1995 ... 35
318  ... 12.08.1995 ... 3
319  ... 23.12.1995 ... 18
320  ... 01.03.1997 ... 61
321  ... 27.08.1997 ... 49
322  ... 30.08.1997 ... 0
323  ... 06.12.1997 ... 27
324  ... 25.03.1998 ... 30
325  ... 27.05.1998 ... 17
326  ... 02.12.1998 ... 53
327  ... 13.01.1999 ... 11
328  ... 08.05.1999 ... 32
329  ... 02.06.1999 ... 6
330  ... 26.06.1999 ... 6
331  ... 31.07.1999 ... 9
332  ... 15.09.1999 ... 12
333  ... 06.10.1999 ... 5
334  ... 10.11.1999 ... 9
335  ... 25.03.2000 ... 38
336  ... 10.06.2000 ... 21
337  ... 29.07.2000 ... 13
338  ... 12.08.2000 ... 3
339  ... 08.11.2000 ... 24
340  ... 03.01.2001 ... 15
341  ... 07.02.2001 ... 9
342  ... 14.02.2001 ... 1
343  ... 21.03.2001 ... 9
344  ... 30.05.2001 ... 19
345  ... 13.06.2001 ... 3
346  ... 11.07.2001 ... 7
347  ... 20.10.2001 ... 28
348  ... 28.11.2001 ... 10
349  ... 15.05.2002 ... 48
350  ... 20.07.2002 ... 18
351  ... 02.10.2002 ... 20
352  ... 23.10.2002 ... 5
353  ... 27.11.2002 ... 9
354  ... 22.02.2003 ... 29
355  ... 26.07.2003 ... 43
356  ... 04.02.2004 ... 54
357  ... 21.04.2004 ... 21
358  ... 29.05.2004 ... 10
359  ... 23.02.2005 ... 76
360  ... 21.05.2005 ... 24
361  ... 21.06.2005 ... 8
362  ... 18.08.2005 ... 24
363  ... 03.11.2005 ... 32
364  ... 29.12.2005 ... 23
365  ... 31.12.2005 ... 0
366  ... 17.01.2006 ... 6
367  ... 02.05.2006 ... 44
368  ... 01.06.2006 ... 12
369  ... 25.07.2006 ... 22
370  ... 01.08.2006 ... 2
371  ... 16.09.2006 ... 19
372  ... 12.12.2006 ... 36
373  ... 19.12.2006 ... 2
374  ... 28.12.2006 ... 3
375  ... 01.02.2007 ... 14
376  ... 12.04.2007 ... 29
377  ... 26.05.2007 ... 18
378  ... 31.05.2007 ... 1
379  ... 02.08.2007 ... 26
380  ... 04.08.2007 ... 0
381  ... 09.08.2007 ... 1
382  ... 04.09.2007 ... 10
383  ... 22.09.2007 ... 7
384  ... 20.11.2007 ... 24
385  ... 08.01.2008 ... 20
386  ... 07.02.2008 ... 12
387  ... 09.02.2008 ... 0
388  ... 06.03.2008 ... 10
389  ... 03.04.2008 ... 11
390  ... 10.04.2008 ... 2
391  ... 29.05.2008 ... 20
392  ... 22.07.2008 ... 22
393  ... 26.08.2008 ... 14
394  ... 21.02.2009 ... 76
395  ... 04.04.2009 ... 17
396  ... 23.05.2009 ... 20
397  ... 28.05.2009 ... 1
398  ... 01.09.2009 ... 40
399  ... 13.10.2009 ... 17
400  ... 17.11.2009 ... 14
401  ... 03.12.2009 ... 6
402  ... 13.11.2010 ... 147
403  ... 27.12.2010 ... 17
404  ... 08.02.2011 ... 18
405  ... 29.03.2011 ... 20
406  ... 12.04.2011 ... 5
407  ... 02.08.2011 ... 47
408  ... 15.10.2011 ... 31
409  ... 25.10.2011 ... 3
410  ... 02.11.2011 ... 2
411  ... 05.11.2011 ... 1
412  ... 28.02.2012 ... 48
413  ... 20.03.2012 ... 8
414  ... 17.11.2012 ... 103
415  ... 24.11.2012 ... 2
416  ... 06.12.2012 ... 4
417  ... 09.03.2013 ... 39
418  ... 11.04.2013 ... 13
419  ... 02.05.2013 ... 8
420  ... 16.05.2013 ... 5
421  ... 25.07.2013 ... 29
422  ... 17.08.2013 ... 9
423  ... 27.08.2013 ... 3
424  ... 29.08.2013 ... 0
425  ... 09.01.2014 ... 56
426  ... 11.01.2014 ... 0
427  ... 22.03.2014 ... 29
428  ... 29.03.2014 ... 2
429  ... 08.05.2014 ... 16
430  ... 10.05.2014 ... 0
431  ... 26.06.2014 ... 19
432  ... 17.07.2014 ... 8
433  ... 26.07.2014 ... 3
434  ... 04.09.2014 ... 16

casi... 434
rit. ATTUALE al 04.10.2014 ... 14

max storico dal 03.05.1874 ... 147

DOMANDA immagino , nel caso specifico , che abbiamo l'ultimo caso il 04.09.2014 con i n 56-59-10-69-61 ... per cui avrei dovuto trovare nelle 2 estrazioni precedenti? o successive? un ambo formato da 2 dei 5 nu 55-58-09-68-60 ebbene non lo trovo da che dipende ciò non ho capito il sistema? è un vecchio script per cui si dovrebbe aggiornare? Verifica colpi deve essere sempre 1 (Così mi pare che funzioni)? chiedo lumi.....

 

[Roby]

premesso che lo script era di GiulioLG, fatto da qualcuno che non so chi sia, io
ho provveduto a farlo funzionare con qualche modifica, forse per la nazionale.
comunque sia, per facilitare i controlli, che siano stati fatti da allora ad oggi, non so.

Sub Main
	Dim Inizio,Fine
	Dim casi
	Dim nRuota,rt,dal
	Dim idEst,e
	Dim nAdatt,vcolpi,sorte
	Dim nConsec,Rcons
	Dim Ritardo,RetEsito,RetEstratti,RetIdEstr
	Dim rmax(1)
	rt = InputBox("Ruota  ",,12)
	sorte = CInt(InputBox(" 1=Estratto   2=Ambo ",,2))
	nAdatt = CInt(InputBox("Adattatore ",,1))
	Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
	vcolpi = CInt(InputBox("Verifica colpi n.",,1))
	ColoreTesto(1)
	Scrivi " Elaborazione Adattatori sulle 10 ruote ",1
	Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
	Scrivi " Sorte scelta 1=Estratto  2=Ambo  " & "( " & sorte & " )",1
	Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
	Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
	Scrivi "__________________________________Adattatori Giulio LG____",1
	ColoreTesto(0)
	For nRuota = rt To rt
		Messaggio NomeRuota(nRuota)
		Scrivi
		Scrivi"=========================================== ==" & NomeRuota(nRuota),1
		Scrivi
		'''preimposta inizio estrazioni per ruote nate recentemente
		dal = 3950 ' inizio tutte le altre ruote
		If rt = 12 Then dal = 7440 'inizio nazionale
		If rt = 1 Then dal = 174 'inizio bari
		If rt = 2 Then dal = 3649 'inizio cagliari
		If rt = 4 Then dal = 3577 'inizio genova
		Inizio = dal
		Fine = EstrazioneFin
		For idEst = Inizio To Fine
			ReDim aN(5)
			ReDim aRuote(1)
			aRuote(1) = nRuota
			For e = 1 To 5
				aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
			Next
			Scrivi StringaEstratti(idEst,nRuota,".") & "......" & StringaNumeri(aN," ")
			If VerificaEsito(aN,aRuote,idEst + 1,sorte,vcolpi,,RetEsito,,RetEstratti,RetIdEstr) Then
				nConsec = nConsec + 1
				ColoreTesto(2)
				Scrivi "                                  " & RetIdEstr & " " & RetEstratti & "  " & RetEsito
				ColoreTesto(0)
			Else
				nConsec = 0
			End If
			If nConsec >= Rcons Then
				casi = casi + 1
				Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & Ritardo
				Ritardo = 0
			Else
				Ritardo = Ritardo + 1
			End If
			If Ritardo > rmax(1) Then rmax(1) = Ritardo
		Next
		Scrivi
		Scrivi "casi... " & casi
		casi = 0
		Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
		Ritardo = 0
		Scrivi
		Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
		Erase rmax
	Next
End Sub

ho inserito il dettaglio del verificaesito, così si può controllare cosa trova come ambo nei concorsi successivi
all'elaborazione dell'adattatore.

04.09.2014 con i n 56-59-10-69-61 ... per cui avrei dovuto trovare nelle 2 estrazioni precedenti? o successive? un ambo formato da 2 dei 5 nu 55-58-09-68-60 ebbene non lo trovo da che dipende ciò non ho capito il sistema?

se guardi l'output trovi
estrazione del 04.09.2014 con questi estratti e maggiorati dell'adattatore 1
56.59.10.69.61......57 60 11 70 62

dove non c'è nessun riscontro positivo nei 2 colpi successivi.



dovrei anch'io farti una domanda, relativa alle rilevazione spaziometriche a specchio nella prime 5 ruote
specchio delle seconde 5 ruote (Vedi funzione Fillotto,preparata da Luigi)

dalla tua esperienza, quali sono le distanze migliori (a quadrato o rettangolo o altre ,con più riscontri più positivi?
siccome vorrei provare e trovare delle convergenze con delle mie statistiche (visto che funzionano discretamente), mi servirebbe una tua dritta per andare subito al sodo e al miglior esito.


ciao , fammi sapere se controlli lo script se vi è qualcosa che non ho capito bene o se vi è qualche errore.

 

[fillotto]

Grazie Rubino, controllo...
A , scusa non ti ho risposto per le figure fillotto , non saprei quali siano le distanze migliori, ma così empiricamente senza nessuna pretesa avevo notato che gli ambi che avevano più possibilità (ripeto ad occhio) erano quelli che erano composti dai numeri di chiusura (quindi 4 numeri invece di 6) e le ruote da preferire quelle della sezione opposta dei numeri della chiusura (quindi 5 invece di 10)

 

[fillotto]

Ciao Rubino , per le figure fillotto ti ho risposto al N 3 invece per quanto riguarda il tuo script andrebbe bene perché funziona la verifica dei colpi solo che porrei diciamo il focus sull'estrazione generatrice
Esempio: Chiedo la ruota di BA = 1
la sorte ambo =2
il nun adatt metto =1
Consecutività metto =1
Verifica colpi metto = 7
Adesso l'output è questo (l'ultimo pezzo)

1401 ... 04.09.2014 ... 15
56.59.10.69.61......57 60 11 70 62
73.07.36.35.22......74 8 37 36 23
29.86.21.28.05......30 87 22 29 6
88.48.69.32.58......89 49 70 33 59
26.34.05.40.08......27 35 6 41 9
76.28.13.81.48......77 29 14 82 49
01.17.67.68.61......2 18 68 69 62
62.71.25.78.59......63 72 26 79 60
24.26.54.17.69......25 27 55 18 70
                8906 BA 27 .. 70 .. ..  Ambo 
    1402 ... 25.09.2014 ... 8
22.77.12.78.55......23 78 13 79 56
85.33.76.21.10......86 34 77 22 11
27.84.70.67.38......28 85 71 68 39
33.83.37.65.09......34 84 38 66 10
53.75.11.64.39......54 76 12 65 40

casi... 1402
rit. ATTUALE al 04.10.2014 ... 5

max storico dal 03.05.1874 ... 52

SI POTREBBE fare così

1401 ... 04.09.2014 ... 15
56.59.10.69.61......57 60 11 70 62
73.07.36.35.22......74 8 37 36 23
29.86.21.28.05......30 87 22 29 6
88.48.69.32.58......89 49 70 33 59
26.34.05.40.08......27 35 6 41 9
76.28.13.81.48......77 29 14 82 49
01.17.67.68.61......2 18 68 69 62
62.71.25.78.59......63 72 26 79 60
24.26.54.17.69......25 27 55 18 70
              Generazione 8903 BA 24 .. .. .. 69      Esito   8906 BA 27 .. 70 .. ..  Ambo
1402 ... 25.09.2014 ... 8
22.77.12.78.55......23 78 13 79 56
85.33.76.21.10......86 34 77 22 11
27.84.70.67.38......28 85 71 68 39
33.83.37.65.09......34 84 38 66 10
53.75.11.64.39......54 76 12 65 40

casi... 1402
rit. ATTUALE al 04.10.2014 ... 5

max storico dal 03.05.1874 ... 52

il mio scopo ultimo però e quello di adattare questo file ad un lotto estero lo avevo fatto adattando il file del n°1 così mettendo anche la scelta del terno ma funzionava solo con la verifica copi co 1 in questa maniera

Sub Main()
	Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
	
	Dim Inizio,Fine
Dim casi
Dim nRuota,rt,dal
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rt = InputBox("Ruota  ",,12)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno" & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
Scrivi "__________________________________Adattatori Pensilvenia____",1
ColoreTesto(0)


Inizio = dal
Fine = EstrazioniArchivioFT
For idEst = Inizio To Fine
dal = 500
ReDim aN(5)

For e = 1 To 5
aN(e) = FuoriX(EstrattoFT(idEst,e) + nAdatt)
Next
If VerificaEsitoFT(aN,idEst + 1,sorte,vcolpi) Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
casi = casi + 1
Scrivi FormatSpace(casi,4) & " ... " & DataEstrazioneFT(idEst + 1) & " ... " & Ritardo
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Scrivi
Scrivi "casi... " & casi
casi = 0
Scrivi "rit. ATTUALE dell'Adattatore  " & nAdatt & "  al  " & DataEstrazioneFT(Fine) & " ... " & Ritardo,1
Ritardo = 0
Scrivi
Scrivi "max storico dal " & DataEstrazioneFT(dal) & " ... " & rmax(1),1
Erase rmax
End Sub

NON mi fido a modificare quest'ultimo tuo per giunta con le correzioni suggerite ..... CHIEDO TROPPO??

 

[Roby]

Osservazione
Nota Bene:

24.26.54.17.69......25 27 55 18 70
Generazione 8903 BA 24 .. .. .. 69 Esito 8906 BA 27 .. 70 .. .. Ambo

vi è un errore nella scrittura dei numeri dell'estrazione 24 69 . in verità quelli giusti sono 26 69 che sommati all'adattatore 1 diventano
l'ambo 27 70.


non avendo l'archivio della lotteria pensilvenia, per controllare, comunque lo script è questo
con la segnalazione dell'estrazione generatrice ed i numeri che generano gli ambi o terni con l'adattatore.

adesso lo correggo.

 

[fillotto]

Si, in effetti ho fatto un errore è 26 non 24 per l'archivio non c'è problema io uso quello di Magia su la sezione Download e lo aggiorno ad ogni buon fine allego uno stralcio che puoi nominare come ti pare

1,08/05/2007,02,04,11,12,19
2,09/05/2007,04,13,15,17,29
3,10/05/2007,04,05,14,20,26
4,11/05/2007,17,18,20,22,29
5,12/05/2007,07,10,18,23,26
6,13/05/2007,01,10,11,12,23
7,14/05/2007,07,10,28,29,30
8,15/05/2007,01,05,10,17,22
9,16/05/2007,17,21,26,29,30
10,17/05/2007,04,06,16,23,28
11,18/05/2007,02,06,08,18,27
12,19/05/2007,17,21,23,24,29
13,20/05/2007,02,19,20,23,29
14,21/05/2007,08,16,24,26,28
15,22/05/2007,02,05,12,13,25
16,23/05/2007,10,16,23,25,29
17,24/05/2007,01,08,15,25,30
18,25/05/2007,06,08,10,15,30
19,26/05/2007,03,04,12,24,26
20,27/05/2007,10,11,12,21,23
21,28/05/2007,03,06,08,12,21
22,29/05/2007,06,10,18,21,25
23,30/05/2007,03,05,13,21,25
24,31/05/2007,06,10,13,22,23
25,01/06/2007,07,08,12,16,21
26,02/06/2007,08,10,12,16,25
27,03/06/2007,10,11,21,23,24
28,04/06/2007,10,15,22,29,30
29,05/06/2007,19,21,22,24,27
30,06/06/2007,03,04,14,16,18
31,07/06/2007,01,13,15,19,24
32,08/06/2007,10,17,21,28,29
33,09/06/2007,06,08,15,26,27
34,10/06/2007,03,14,21,28,30
35,11/06/2007,09,17,19,21,27
36,12/06/2007,10,17,20,24,28
37,13/06/2007,01,07,11,13,22
38,14/06/2007,05,08,17,27,28
39,15/06/2007,17,23,25,27,29
40,16/06/2007,03,06,12,19,21
41,17/06/2007,08,11,17,19,22
42,18/06/2007,05,17,20,27,29
43,19/06/2007,06,07,13,22,25
44,20/06/2007,02,06,08,10,29
45,21/06/2007,01,12,18,22,27
46,22/06/2007,07,09,11,16,28
47,23/06/2007,01,02,04,16,29
48,24/06/2007,03,08,11,28,30
49,25/06/2007,02,11,14,23,26
50,26/06/2007,06,09,11,28,29
51,27/06/2007,04,11,20,22,25
52,28/06/2007,01,11,23,26,27
53,29/06/2007,06,21,24,28,29
54,30/06/2007,12,13,14,19,23
55,01/07/2007,05,08,10,24,29
56,02/07/2007,04,09,12,27,29
57,03/07/2007,11,16,19,20,29
58,04/07/2007,04,17,23,24,28
59,05/07/2007,01,16,17,21,25
60,06/07/2007,09,12,14,21,30
61,07/07/2007,09,12,19,22,30
62,08/07/2007,08,09,13,14,26
63,09/07/2007,04,08,15,21,26
64,10/07/2007,06,16,25,26,29
65,11/07/2007,01,03,18,20,30
66,12/07/2007,01,12,17,25,28
67,13/07/2007,01,02,12,18,26
68,14/07/2007,04,14,17,25,29
69,15/07/2007,10,12,23,29,30
70,16/07/2007,04,08,18,19,25
71,17/07/2007,04,06,08,21,27
72,18/07/2007,01,05,08,10,26
73,19/07/2007,04,08,17,19,30
74,20/07/2007,04,05,11,12,25
75,21/07/2007,03,04,10,21,29
76,22/07/2007,12,13,19,24,30
77,23/07/2007,01,18,20,24,29
78,24/07/2007,02,17,18,23,24
79,25/07/2007,02,04,08,15,29
80,26/07/2007,04,06,09,25,26
81,27/07/2007,11,13,24,27,29
82,28/07/2007,04,07,09,22,26
83,29/07/2007,01,16,17,18,22
84,30/07/2007,16,20,23,24,25
85,31/07/2007,11,20,24,26,27
86,01/08/2007,11,23,27,28,30
87,02/08/2007,04,05,12,16,30
88,03/08/2007,12,17,18,22,27
89,04/08/2007,04,13,18,23,30
90,05/08/2007,04,18,19,21,22
91,06/08/2007,07,11,16,19,27
92,07/08/2007,03,04,09,15,19
93,08/08/2007,02,09,11,21,23
94,09/08/2007,09,12,19,22,24
95,10/08/2007,03,07,11,16,17
96,11/08/2007,04,15,18,22,23
97,12/08/2007,09,11,21,26,27
98,13/08/2007,04,13,16,28,30
99,14/08/2007,14,16,24,26,30
100,15/08/2007,04,07,08,15,16
101,16/08/2007,07,12,17,24,27
102,17/08/2007,12,17,20,21,24
103,18/08/2007,09,12,23,27,29
104,19/08/2007,03,12,13,15,19
105,20/08/2007,07,10,27,28,30
106,21/08/2007,03,05,06,09,19
107,22/08/2007,02,11,12,22,24
108,23/08/2007,05,09,18,19,30
109,24/08/2007,02,08,12,18,24
110,25/08/2007,06,08,19,25,26
111,26/08/2007,03,05,14,19,26
112,27/08/2007,08,12,13,18,19
113,28/08/2007,11,15,18,21,22
114,29/08/2007,01,02,06,18,28
115,30/08/2007,07,09,13,14,25
116,31/08/2007,01,11,12,20,29
117,01/09/2007,09,10,19,23,28
118,02/09/2007,02,10,11,26,30
119,03/09/2007,03,04,10,26,29
120,04/09/2007,06,21,25,27,30
121,05/09/2007,03,05,19,21,29
122,06/09/2007,07,08,11,18,25
123,07/09/2007,01,14,19,21,25
124,08/09/2007,01,04,12,15,22
125,09/09/2007,08,15,18,24,29
126,10/09/2007,02,07,16,22,26
127,11/09/2007,07,10,12,17,23
128,12/09/2007,07,08,20,23,29
129,13/09/2007,04,08,16,25,29
130,14/09/2007,02,03,23,24,29
131,15/09/2007,03,04,08,14,22
132,16/09/2007,09,11,17,25,30
133,17/09/2007,02,15,17,19,21
134,18/09/2007,04,07,13,16,25
135,19/09/2007,02,04,10,22,25
136,20/09/2007,15,24,27,29,30
137,21/09/2007,18,21,28,29,30
138,22/09/2007,01,10,19,26,30
139,23/09/2007,11,18,24,25,29
140,24/09/2007,09,12,21,23,28
141,25/09/2007,01,09,12,20,27
142,26/09/2007,05,12,13,21,24
143,27/09/2007,05,06,11,22,25
144,28/09/2007,09,11,12,13,21
145,29/09/2007,08,09,11,24,25
146,30/09/2007,01,11,28,29,30
147,01/10/2007,01,10,17,19,30
148,02/10/2007,04,08,21,29,30
149,03/10/2007,03,09,11,17,29
150,04/10/2007,01,03,17,20,25
151,05/10/2007,03,18,19,23,27
152,06/10/2007,01,03,05,12,17
153,07/10/2007,16,17,18,25,26
154,08/10/2007,02,20,23,28,29
155,09/10/2007,08,12,14,23,25
156,10/10/2007,06,10,11,18,19
157,11/10/2007,05,08,24,28,29
158,12/10/2007,05,06,18,20,28
159,13/10/2007,07,12,21,25,29
160,14/10/2007,06,07,13,17,19
161,15/10/2007,13,16,17,22,30
162,16/10/2007,03,08,11,18,24
163,17/10/2007,01,15,16,19,30
164,18/10/2007,02,04,05,17,21
165,19/10/2007,10,14,16,19,21
166,20/10/2007,22,26,28,29,30
167,21/10/2007,02,15,25,26,27
168,22/10/2007,03,14,20,22,23
169,23/10/2007,04,12,13,14,30
170,24/10/2007,01,05,06,19,23
171,25/10/2007,07,10,16,29,30
172,26/10/2007,03,13,15,17,20
173,27/10/2007,01,07,11,23,30
174,28/10/2007,10,14,20,25,27
175,29/10/2007,02,07,21,24,27
176,30/10/2007,04,06,18,24,28
177,31/10/2007,04,09,12,27,30
178,01/11/2007,11,13,18,28,29
179,02/11/2007,01,06,16,23,25
180,03/11/2007,06,08,13,15,16
181,04/11/2007,04,14,18,23,27
182,05/11/2007,01,06,12,16,23
183,06/11/2007,02,03,12,13,25
184,07/11/2007,06,11,12,13,27
185,08/11/2007,03,07,16,24,29
186,09/11/2007,01,12,22,23,24
187,10/11/2007,03,06,09,17,22
188,11/11/2007,01,02,14,18,22
189,12/11/2007,01,03,12,14,30
190,13/11/2007,08,16,20,24,27
191,14/11/2007,01,13,18,23,30
192,15/11/2007,08,10,11,17,20
193,16/11/2007,04,07,09,13,24
194,17/11/2007,12,13,14,17,26
195,18/11/2007,03,07,08,23,29
196,19/11/2007,15,19,23,24,28
197,20/11/2007,05,14,15,16,28
198,21/11/2007,01,02,05,17,26
199,22/11/2007,04,09,11,23,25
200,23/11/2007,04,08,17,21,29
201,24/11/2007,10,14,22,23,29
202,25/11/2007,07,11,14,22,25
203,26/11/2007,04,06,07,11,18
204,27/11/2007,05,11,12,19,20
205,28/11/2007,03,06,09,19,28
206,29/11/2007,03,05,14,17,19
207,30/11/2007,06,07,08,09,28
208,01/12/2007,02,08,09,16,22
209,02/12/2007,01,05,07,08,26
210,03/12/2007,09,14,20,25,30
211,04/12/2007,02,04,20,21,26
212,05/12/2007,01,09,13,21,23
213,06/12/2007,06,18,21,25,30
214,07/12/2007,07,10,11,16,25
215,08/12/2007,05,06,08,16,23
216,09/12/2007,03,04,09,10,23
217,10/12/2007,10,16,25,26,28
218,11/12/2007,04,10,14,25,29
219,12/12/2007,04,06,21,22,29
220,13/12/2007,03,16,25,29,30
221,14/12/2007,07,09,16,17,29
222,15/12/2007,02,14,21,23,26
223,16/12/2007,04,09,15,20,21
224,17/12/2007,04,05,06,25,27
225,18/12/2007,11,23,24,26,27
226,19/12/2007,08,13,16,22,25
227,20/12/2007,06,13,24,25,29
228,21/12/2007,13,16,24,25,27
229,22/12/2007,03,05,07,10,22
230,23/12/2007,09,19,21,24,26
231,24/12/2007,07,10,17,21,30
232,25/12/2007,03,05,13,24,28
233,26/12/2007,08,13,25,26,29
234,27/12/2007,06,07,22,26,29
235,28/12/2007,15,21,24,26,28
236,29/12/2007,07,12,19,25,29
237,30/12/2007,02,04,10,12,14
238,31/12/2007,04,09,10,11,26
239,01/01/2008,05,10,14,16,29
240,02/01/2008,08,14,19,21,22
241,03/01/2008,01,06,16,24,25
242,04/01/2008,04,13,15,16,21
243,05/01/2008,04,05,15,20,28
244,06/01/2008,13,22,24,25,27
245,07/01/2008,07,16,22,27,28
246,08/01/2008,05,06,07,21,24
247,09/01/2008,11,15,17,21,24
248,10/01/2008,06,10,15,21,30
249,11/01/2008,07,08,11,15,26
250,12/01/2008,02,08,16,22,24
251,13/01/2008,11,12,19,22,30
252,14/01/2008,06,14,21,23,26
253,15/01/2008,02,04,09,27,29
254,16/01/2008,14,17,18,21,24
255,17/01/2008,02,03,04,15,30
256,18/01/2008,03,04,05,15,25
257,19/01/2008,03,04,13,25,27
258,20/01/2008,02,05,06,18,19
259,21/01/2008,02,11,13,18,24
260,22/01/2008,14,16,18,26,30
261,23/01/2008,12,17,20,24,29
262,24/01/2008,05,06,07,14,16
263,25/01/2008,04,05,18,28,30
264,26/01/2008,05,10,16,21,29
265,27/01/2008,03,04,06,13,24
266,28/01/2008,01,09,19,21,26
267,29/01/2008,05,13,23,26,30
268,30/01/2008,02,09,25,29,30
269,31/01/2008,02,04,09,20,26
270,01/02/2008,01,04,08,11,19
271,02/02/2008,01,08,11,22,30
272,03/02/2008,02,06,13,23,28
273,04/02/2008,01,12,20,25,26
274,05/02/2008,07,08,19,23,26
275,06/02/2008,03,06,22,28,29
276,07/02/2008,01,18,23,24,27
277,08/02/2008,11,16,21,22,23
278,09/02/2008,03,09,22,27,30
279,10/02/2008,05,17,20,23,24
280,11/02/2008,09,17,19,22,30
281,12/02/2008,01,13,14,16,25
282,13/02/2008,01,19,21,23,26
283,14/02/2008,04,06,12,16,26
284,15/02/2008,04,10,21,22,30
285,16/02/2008,01,04,07,23,29
286,17/02/2008,04,09,11,13,26
287,18/02/2008,03,13,14,17,25
288,19/02/2008,05,07,08,12,19
289,20/02/2008,05,13,22,23,29
290,21/02/2008,07,09,15,16,18
291,22/02/2008,05,06,10,11,23
292,23/02/2008,02,10,14,17,24
293,24/02/2008,02,11,15,19,25
294,25/02/2008,04,05,10,14,26
295,26/02/2008,07,08,10,13,23
296,27/02/2008,06,17,19,22,28
297,28/02/2008,12,13,21,25,29
298,29/02/2008,11,15,19,25,27
299,01/03/2008,11,15,20,21,23
300,02/03/2008,01,11,16,17,28
301,03/03/2008,10,13,21,23,25
302,04/03/2008,12,13,16,17,23
303,05/03/2008,07,13,18,22,25
304,06/03/2008,01,18,22,25,30
305,07/03/2008,04,05,06,22,25
306,08/03/2008,04,14,15,24,30
307,09/03/2008,04,07,15,18,23
308,10/03/2008,06,12,13,22,30
309,11/03/2008,04,12,20,22,23
310,12/03/2008,10,11,22,26,29
311,13/03/2008,08,11,17,20,26
312,14/03/2008,08,14,21,22,24
313,15/03/2008,03,05,08,09,14
314,16/03/2008,12,18,21,27,30
315,17/03/2008,06,13,19,27,30
316,18/03/2008,01,09,13,16,20
317,19/03/2008,06,12,13,21,23
318,20/03/2008,15,16,21,29,30
319,21/03/2008,07,16,22,27,30
320,22/03/2008,03,08,13,15,22
321,23/03/2008,02,13,21,25,30
322,24/03/2008,04,07,11,20,25
323,25/03/2008,14,19,21,24,26
324,26/03/2008,12,16,20,24,25
325,27/03/2008,01,05,17,21,27
326,28/03/2008,06,07,16,26,29
327,29/03/2008,04,12,14,27,30
328,30/03/2008,06,09,11,13,16
329,31/03/2008,09,11,23,28,30
330,01/04/2008,20,21,22,23,29
331,02/04/2008,09,13,18,20,23
332,03/04/2008,07,08,09,10,21
333,04/04/2008,02,13,14,23,26
334,05/04/2008,03,19,21,27,30
335,06/04/2008,12,20,24,28,30
336,07/04/2008,04,05,08,18,26
337,08/04/2008,04,11,20,26,30
338,09/04/2008,08,13,18,20,23
339,10/04/2008,04,06,07,19,29
340,11/04/2008,05,09,10,12,27
341,12/04/2008,01,04,07,22,25
342,13/04/2008,02,06,14,23,28
343,14/04/2008,06,07,09,26,29
344,15/04/2008,04,14,16,21,23
345,16/04/2008,01,12,21,22,28
346,17/04/2008,12,18,21,22,23
347,18/04/2008,11,13,20,27,29
348,19/04/2008,04,06,16,19,25
349,20/04/2008,05,18,25,29,30
350,21/04/2008,08,13,15,26,30
351,22/04/2008,05,10,16,24,28
352,23/04/2008,01,03,07,14,19
353,24/04/2008,02,11,15,20,26
354,25/04/2008,02,13,14,15,19
355,26/04/2008,04,05,10,19,23
356,27/04/2008,14,15,21,25,27
357,28/04/2008,06,08,16,25,27
358,29/04/2008,02,14,17,18,20
359,30/04/2008,05,11,22,23,30
360,01/05/2008,02,05,09,15,27
361,02/05/2008,03,08,09,14,18
362,03/05/2008,11,12,16,27,29
363,04/05/2008,08,12,13,17,28
364,05/05/2008,04,05,12,23,26
365,06/05/2008,04,10,22,25,28
366,07/05/2008,06,24,26,28,29
367,08/05/2008,17,18,21,28,29
368,09/05/2008,04,07,14,21,28
369,10/05/2008,01,03,09,11,21
370,11/05/2008,04,14,15,18,21
371,12/05/2008,02,08,12,21,30
372,13/05/2008,01,08,09,11,18
373,14/05/2008,02,10,13,24,26
374,15/05/2008,01,02,22,27,29
375,16/05/2008,01,11,20,23,24
376,17/05/2008,05,14,19,27,28
377,18/05/2008,09,10,21,25,30
378,19/05/2008,01,04,07,16,18
379,20/05/2008,11,19,20,22,30
380,21/05/2008,04,05,17,27,29
381,22/05/2008,01,05,11,13,14
382,23/05/2008,02,20,22,27,28
383,24/05/2008,16,17,19,25,26
384,25/05/2008,02,08,13,14,18
385,26/05/2008,02,08,09,17,25
386,27/05/2008,07,08,21,25,26
387,28/05/2008,02,12,13,15,20
388,29/05/2008,01,02,09,19,23
389,30/05/2008,04,14,17,23,28
390,31/05/2008,05,06,08,10,21
391,01/06/2008,04,10,13,22,23
392,02/06/2008,02,08,22,25,29
393,03/06/2008,02,12,19,22,30
394,04/06/2008,10,15,20,24,28
395,05/06/2008,02,06,11,19,21
396,06/06/2008,06,11,21,23,29
397,07/06/2008,14,17,18,23,26
398,08/06/2008,01,10,13,17,19
399,09/06/2008,08,16,18,22,29
400,10/06/2008,02,03,07,10,28
401,11/06/2008,04,12,13,19,23
402,12/06/2008,01,02,06,26,30
403,13/06/2008,07,11,17,24,28
404,14/06/2008,12,13,22,27,30
405,15/06/2008,05,09,16,19,26
406,16/06/2008,08,11,12,21,24
407,17/06/2008,04,06,09,14,20
408,18/06/2008,04,05,06,26,29
409,19/06/2008,01,15,22,23,27
410,20/06/2008,06,16,22,26,30
411,21/06/2008,04,06,15,21,26
412,22/06/2008,05,13,23,26,28
413,23/06/2008,04,14,15,19,26
414,24/06/2008,06,16,24,27,30
415,25/06/2008,02,09,15,19,22
416,26/06/2008,02,07,14,19,22
417,27/06/2008,05,21,25,26,30
418,28/06/2008,02,04,11,21,29
419,29/06/2008,03,14,18,21,25
420,30/06/2008,16,20,23,24,26
421,01/07/2008,08,16,22,23,25
422,02/07/2008,06,10,12,26,28
423,03/07/2008,04,12,15,27,29
424,04/07/2008,03,11,13,16,29
425,05/07/2008,02,04,12,22,23
426,06/07/2008,02,11,22,24,30
427,07/07/2008,06,12,13,19,22
428,08/07/2008,02,06,14,17,30
429,09/07/2008,04,06,25,26,30
430,10/07/2008,09,11,15,21,24
431,11/07/2008,07,08,26,29,30
432,12/07/2008,01,02,07,14,23
433,13/07/2008,01,04,12,26,27
434,14/07/2008,03,06,07,21,25
435,15/07/2008,07,14,21,27,29
436,16/07/2008,03,07,14,16,18
437,17/07/2008,08,12,14,18,27
438,18/07/2008,05,13,21,23,24
439,19/07/2008,05,15,19,25,30
440,20/07/2008,09,12,15,24,27
441,21/07/2008,14,21,25,29,30
442,22/07/2008,09,16,18,27,28
443,23/07/2008,03,11,16,18,26
444,24/07/2008,11,13,22,26,29
445,25/07/2008,02,08,13,18,30
446,26/07/2008,07,16,27,29,30
447,27/07/2008,02,08,19,22,30
448,28/07/2008,05,08,09,22,26
449,29/07/2008,09,14,21,22,24
450,30/07/2008,01,02,16,22,28
451,31/07/2008,04,07,14,26,29
452,01/08/2008,02,03,18,25,28
453,02/08/2008,07,08,15,16,30
454,03/08/2008,12,14,16,21,25
455,04/08/2008,01,02,06,08,20
456,05/08/2008,03,07,11,12,25
457,06/08/2008,07,12,21,26,30
458,07/08/2008,01,04,13,18,28
459,08/08/2008,07,11,14,27,28
460,09/08/2008,06,15,19,20,24
461,10/08/2008,03,06,07,13,23
462,11/08/2008,01,09,12,15,24
463,12/08/2008,10,11,20,29,30
464,13/08/2008,02,04,10,14,30
465,14/08/2008,04,05,07,22,24
466,15/08/2008,02,08,18,21,26
467,16/08/2008,02,06,16,23,27
468,17/08/2008,07,11,17,20,23
469,18/08/2008,07,18,20,21,29
470,19/08/2008,03,21,24,25,30
471,20/08/2008,01,09,22,27,30
472,21/08/2008,14,16,17,22,26
473,22/08/2008,01,12,17,18,25
474,23/08/2008,01,08,10,17,28
475,24/08/2008,02,15,24,28,30
476,25/08/2008,01,03,11,22,30
477,26/08/2008,10,15,21,22,26
478,27/08/2008,06,12,20,24,30
479,28/08/2008,07,12,20,28,30
480,29/08/2008,03,05,12,15,17
481,30/08/2008,01,07,13,17,27
482,31/08/2008,01,06,17,18,25
483,01/09/2008,07,09,11,15,29
484,02/09/2008,01,07,08,28,30
485,03/09/2008,07,11,15,29,30
486,04/09/2008,04,11,15,22,29
487,05/09/2008,01,03,09,25,30
488,06/09/2008,02,09,15,23,30
489,07/09/2008,03,06,18,22,28
490,08/09/2008,07,13,15,16,18
491,09/09/2008,10,15,23,25,30
492,10/09/2008,03,07,08,09,26
493,11/09/2008,03,06,23,25,30
494,12/09/2008,05,20,21,25,26
495,13/09/2008,01,02,10,15,22
496,14/09/2008,05,08,15,17,18
497,15/09/2008,02,18,24,25,27
498,16/09/2008,04,05,12,17,23
499,17/09/2008,04,06,18,22,28
500,18/09/2008,16,18,24,27,30
501,19/09/2008,09,17,18,27,29
502,20/09/2008,02,18,19,20,26
503,21/09/2008,02,12,14,15,20
504,22/09/2008,10,13,16,18,19
505,23/09/2008,07,22,25,27,28
506,24/09/2008,03,10,13,18,27
507,25/09/2008,08,16,17,22,23
508,26/09/2008,07,13,15,20,24
509,27/09/2008,01,15,21,28,29
510,28/09/2008,04,07,10,19,20
511,29/09/2008,01,02,06,12,16
512,30/09/2008,02,11,21,27,30
513,01/10/2008,05,17,23,24,25
514,02/10/2008,08,09,10,12,25
515,03/10/2008,01,04,08,09,11
516,04/10/2008,09,10,14,16,28
517,05/10/2008,07,15,21,23,28
518,06/10/2008,06,08,09,20,29
519,07/10/2008,09,11,14,21,27
520,08/10/2008,06,07,09,14,25
521,09/10/2008,09,15,25,29,30
522,10/10/2008,14,21,24,25,30
523,11/10/2008,06,10,14,18,23
524,12/10/2008,01,06,08,23,24
525,13/10/2008,02,04,06,11,17
526,14/10/2008,01,04,05,13,26
527,15/10/2008,01,03,04,23,25
528,16/10/2008,07,12,15,17,22
529,17/10/2008,03,08,09,13,24
530,18/10/2008,03,04,14,15,30
531,19/10/2008,01,03,06,14,23
532,20/10/2008,04,12,17,18,21
533,21/10/2008,11,17,19,22,26
534,22/10/2008,15,22,24,25,29
535,23/10/2008,01,04,16,20,28
536,24/10/2008,04,05,12,22,28
537,25/10/2008,01,03,25,27,30
538,26/10/2008,08,09,12,18,20
539,27/10/2008,06,14,16,23,25
540,28/10/2008,01,10,11,25,29
541,29/10/2008,01,10,17,22,24
542,30/10/2008,07,09,20,28,29
543,31/10/2008,11,16,18,24,25
544,01/11/2008,05,08,12,14,24
545,02/11/2008,03,10,13,15,16
546,03/11/2008,10,11,23,26,30
547,04/11/2008,06,14,16,23,27
548,05/11/2008,10,19,20,22,25
549,06/11/2008,01,14,18,28,29
550,07/11/2008,09,11,12,20,29
551,08/11/2008,18,19,21,23,24
552,09/11/2008,02,15,17,27,28
553,10/11/2008,02,06,18,19,22
554,11/11/2008,09,15,18,19,30
555,12/11/2008,08,10,18,23,28
556,13/11/2008,01,07,09,13,21
557,14/11/2008,10,16,21,22,27
558,15/11/2008,03,04,07,11,13
559,16/11/2008,04,14,17,23,24
560,17/11/2008,04,09,10,14,28
561,18/11/2008,03,18,19,24,29
562,19/11/2008,05,07,09,14,25
563,20/11/2008,07,09,21,25,26
564,21/11/2008,06,17,20,21,24
565,22/11/2008,02,11,13,18,26
566,23/11/2008,06,07,13,17,27
567,24/11/2008,04,15,18,26,27
568,25/11/2008,01,02,12,28,30
569,26/11/2008,02,09,11,12,19
570,27/11/2008,03,04,12,22,24
571,28/11/2008,02,05,21,28,29
572,29/11/2008,01,04,10,21,23
573,30/11/2008,02,08,16,19,26
574,01/12/2008,07,19,20,22,24
575,02/12/2008,09,26,27,28,29
576,03/12/2008,18,25,26,28,29
577,04/12/2008,07,15,17,21,25
578,05/12/2008,02,14,19,22,24
579,06/12/2008,06,19,22,23,29
580,07/12/2008,10,11,15,16,25
581,08/12/2008,10,18,24,25,30
582,09/12/2008,06,08,18,26,28
583,10/12/2008,05,07,11,19,22
584,11/12/2008,05,10,15,16,27
585,12/12/2008,07,12,13,20,24
586,13/12/2008,15,17,22,26,28
587,14/12/2008,05,08,11,14,27
588,15/12/2008,15,17,19,24,29
589,16/12/2008,02,04,05,17,24
590,17/12/2008,02,03,07,11,16
591,18/12/2008,06,08,16,18,25
592,19/12/2008,03,06,14,15,20
593,20/12/2008,02,03,08,21,28
594,21/12/2008,04,14,17,20,24
595,22/12/2008,04,08,16,20,24
596,23/12/2008,08,12,19,22,27
597,24/12/2008,03,09,11,21,24
598,25/12/2008,01,02,08,16,23
599,26/12/2008,02,04,18,25,28
600,27/12/2008,06,10,15,21,24

 

[Roby]

questo è lo script per il lotto italiano, un po sistemato con alcuni campi ed informazioni.
se ti vanno bene ok, altrimenti dimmi cosa devo togliere se ti disturbano.

Option Explicit
Sub Main
	Dim Inizio,Fine
	Dim casi
	Dim nRuota,rt,dal,gen,w,ww,novanta
	Dim idEst,e
	Dim nAdatt,vcolpi,sorte
	Dim nConsec,Rcons
	Dim Ritardo,RetEsito,RetEstratti,RetIdEstr
	Dim rmax(1)
	rt = InputBox("Ruota  ",,1)
	sorte = CInt(InputBox(" 1=Estratto   2=Ambo   3=Terno  ",,3))
	nAdatt = CInt(InputBox("Adattatore ",,1))
	Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
	vcolpi = CInt(InputBox("Verifica colpi n.",,3))
	ColoreTesto(1)
	Scrivi " Elaborazione Adattatori sulle 10 ruote ",1
	Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
	Scrivi " Sorte scelta 1=Estratto  2=Ambo  " & "( " & sorte & " )",1
	Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
	Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
	Scrivi "__________________________________Adattatori Giulio LG____",1
	ColoreTesto(0)
	For nRuota = rt To rt
		Messaggio NomeRuota(nRuota)
		Scrivi
		Scrivi"=========================================== ==" & NomeRuota(nRuota),1
		Scrivi
		'''preimposta inizio estrazioni per ruote nate recentemente
		dal = 3950 ' inizio tutte le altre ruote
		If rt = 12 Then dal = 7440 'inizio nazionale
		If rt = 1 Then dal = 174 'inizio bari
		If rt = 2 Then dal = 3649 'inizio cagliari
		If rt = 4 Then dal = 3577 'inizio genova
		Inizio = dal
		Fine = EstrazioneFin
		For idEst = Inizio To Fine
			ReDim aN(5)
			ReDim aRuote(1)
			aRuote(1) = nRuota
			For e = 1 To 5
				aN(e) = Format2(Fuori90(Estratto(idEst,nRuota,e) + nAdatt))
			Next
			Scrivi idEst & "-" & DataEstrazione(idEst) & "   " & StringaEstratti(idEst,nRuota,".") & "......" & StringaNumeri(aN," ")
			If VerificaEsito(aN,aRuote,idEst + 1,sorte,vcolpi,,RetEsito,,RetEstratti,RetIdEstr) Then
				nConsec = nConsec + 1
				gen = "" : ww = 4
				For w = 1 To 5
					If Mid(RetEstratti,ww,2) <> ".." Then
						If Format2(Int(Mid(RetEstratti,ww,2)) - 1) = 0 Then
							novanta = "90"
							gen = gen & novanta & " "
						Else
							gen = gen & Format2(Int(Mid(RetEstratti,ww,2)) - 1) & " "
						End If
					End If
					ww = ww + 3
				Next
				ColoreTesto(2)
				Scrivi "--------- Generazione estr.n. " & idEst & "/" & DataEstrazione(idEst) & "  " & gen & "      " & RetIdEstr & " " & RetEstratti & "  " & RetEsito
				ColoreTesto(0)
			Else
				nConsec = 0
			End If
			If nConsec >= Rcons Then
				casi = casi + 1
				Scrivi FormatSpace(casi,4) & " ..dal. " & DataEstrazione(idEst + 1) & " ... " & Ritardo
				Ritardo = 0
			Else
				Ritardo = Ritardo + 1
			End If
			If Ritardo > rmax(1) Then rmax(1) = Ritardo
		Next
		Scrivi
		ColoreTesto(1)
		Scrivi "casi esiti positivi... " & casi
		casi = 0
		ColoreTesto(0)
		Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
		Ritardo = 0
		Scrivi
		Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
		Erase rmax
	Next
End Sub

dopo cena metterò a posto lo script per Pensilvania Lottoria.

 

[fillotto]

Perfetto, grazie!!!

 

[Roby]

questo è il Pensilvenia, provalo, mi sembra corretto.


in alto c'è un percorso come descrizione diverso per il file archivio, ma è perché sul mio computer io l'ho messo in un'altra parte.
se vuoi puoi cancellarlo ' Call ApriBaseDatiFT("C:\temp\PENSY.txt",5,",",30)



in vigore c'è la riga percorso del file archivio, è il tuo o quello che avevi messo tu.

Option Explicit
Sub Main()
	Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
	'    Call ApriBaseDatiFT("C:\temp\PENSY.txt",5,",",30)
	Dim Inizio,Fine
	Dim casi
	Dim nRuota,rt,dal,gen,w,ww,novanta
	Dim idEst,e
	Dim nAdatt,vcolpi,sorte,RetEsito,RetEstratti,RetIdEstr
	Dim nConsec,Rcons
	Dim Ritardo
	Dim rmax(1),nm(5)
	sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
	nAdatt = CInt(InputBox("Adattatore ",,1))
	Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
	vcolpi = CInt(InputBox("Verifica colpi n.",,1))
	ColoreTesto(1)
	Scrivi " Elaborazione Adattatori ",1
	Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
	Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno" & "( " & sorte & " )",1
	Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
	Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
	Scrivi "__________________________________Adattatori Pensilvenia____",1
	ColoreTesto(0)
	Inizio = 1
	Fine = EstrazioniArchivioFT
	For idEst = Inizio To Fine
		dal = 500
		ReDim aN(5)
		For e = 1 To 5
			aN(e) = Format2(FuoriX(EstrattoFT(idEst,e) + nAdatt)) '''estratti + adattatore
			nm(e) = Format2(EstrattoFT(idEst,e)) '''solo  estratti
		Next
		Scrivi idEst & "-" & DataEstrazione(idEst) & "   " & StringaNumeri(nm,".") & "......" & StringaNumeri(aN," ")
		If VerificaEsitoFT(aN,idEst + 1,sorte,vcolpi,RetEsito,,RetEstratti,RetIdEstr) Then
			nConsec = nConsec + 1
			ColoreTesto(2)
			Scrivi "--------- Generazione estr.n. " & idEst & "/" & DataEstrazione(idEst) & "  esito EStr.n.  " & RetIdEstr & "              " & RetEstratti & "  " & RetEsito
			ColoreTesto(0)
		Else
			nConsec = 0
		End If
		If nConsec >= Rcons Then
			casi = casi + 1
			Scrivi FormatSpace(casi,4) & " ..dal. " & DataEstrazioneFT(idEst + 1) & " ... " & Ritardo
			Ritardo = 0
		Else
			Ritardo = Ritardo + 1
		End If
		If Ritardo > rmax(1) Then rmax(1) = Ritardo
	Next
	Scrivi
	Scrivi "casi.e successi positivi.. " & casi
	casi = 0
	Scrivi "rit. ATTUALE dell'Adattatore  " & nAdatt & "  al  " & DataEstrazioneFT(Fine) & " ... " & Ritardo,1
	Ritardo = 0
	Scrivi
	Scrivi "max storico dal " & DataEstrazioneFT(dal) & " ... " & rmax(1),1
	Erase rmax
End Sub

 

[fillotto]

questo è il Pensilvenia, provalo, mi sembra corretto.


in alto c'è un percorso come descrizione diverso per il file archivio, ma è perché sul mio computer io l'ho messo in un'altra parte.
se vuoi puoi cancellarlo ' Call ApriBaseDatiFT("C:\temp\PENSY.txt",5,",",30)



in vigore c'è la riga percorso del file archivio, è il tuo o quello che avevi messo tu.

Option Explicit
Sub Main()
	Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
	'    Call ApriBaseDatiFT("C:\temp\PENSY.txt",5,",",30)
	Dim Inizio,Fine
	Dim casi
	Dim nRuota,rt,dal,gen,w,ww,novanta
	Dim idEst,e
	Dim nAdatt,vcolpi,sorte,RetEsito,RetEstratti,RetIdEstr
	Dim nConsec,Rcons
	Dim Ritardo
	Dim rmax(1),nm(5)
	sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
	nAdatt = CInt(InputBox("Adattatore ",,1))
	Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
	vcolpi = CInt(InputBox("Verifica colpi n.",,1))
	ColoreTesto(1)
	Scrivi " Elaborazione Adattatori ",1
	Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
	Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno" & "( " & sorte & " )",1
	Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
	Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
	Scrivi "__________________________________Adattatori Pensilvenia____",1
	ColoreTesto(0)
	Inizio = 1
	Fine = EstrazioniArchivioFT
	For idEst = Inizio To Fine
		dal = 500
		ReDim aN(5)
		For e = 1 To 5
			aN(e) = Format2(FuoriX(EstrattoFT(idEst,e) + nAdatt)) '''estratti + adattatore
			nm(e) = Format2(EstrattoFT(idEst,e)) '''solo  estratti
		Next
		Scrivi idEst & "-" & DataEstrazione(idEst) & "   " & StringaNumeri(nm,".") & "......" & StringaNumeri(aN," ")
		If VerificaEsitoFT(aN,idEst + 1,sorte,vcolpi,RetEsito,,RetEstratti,RetIdEstr) Then
			nConsec = nConsec + 1
			ColoreTesto(2)
			Scrivi "--------- Generazione estr.n. " & idEst & "/" & DataEstrazione(idEst) & "  esito EStr.n.  " & RetIdEstr & "              " & RetEstratti & "  " & RetEsito
			ColoreTesto(0)
		Else
			nConsec = 0
		End If
		If nConsec >= Rcons Then
			casi = casi + 1
			Scrivi FormatSpace(casi,4) & " ..dal. " & DataEstrazioneFT(idEst + 1) & " ... " & Ritardo
			Ritardo = 0
		Else
			Ritardo = Ritardo + 1
		End If
		If Ritardo > rmax(1) Then rmax(1) = Ritardo
	Next
	Scrivi
	Scrivi "casi.e successi positivi.. " & casi
	casi = 0
	Scrivi "rit. ATTUALE dell'Adattatore  " & nAdatt & "  al  " & DataEstrazioneFT(Fine) & " ... " & Ritardo,1
	Ritardo = 0
	Scrivi
	Scrivi "max storico dal " & DataEstrazioneFT(dal) & " ... " & rmax(1),1
	Erase rmax
End Sub

TUTTO OK !!! Grazie Rubino mi sbagliava solo le date perché mancavano a due parti "FT" (he he ..fino a li ci arrivavo pure io)
Ancora GRAZIE!!

 

[Membro cancellato 16574]

Buongiorno,
Scusandoci per l' intrusione e salutando Fillotto ed il grande Rubino,da cui c'è sempre da imparare.
Volevamo far notare che mancava il valore del FuoriX, piccola dimenticanza.

aN(e) = Format2(FuoriX(EstrattoFT(idEst,e) + nAdatt,30)) '''estratti + adattatore

Alleghiamo il listato corretto.

Option Explicit
Sub Main()
	Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
	'    Call ApriBaseDatiFT("C:\temp\PENSY.txt",5,",",30)
	Dim Inizio,Fine
	Dim casi,dal
	Dim idEst,e
	Dim nAdatt,vcolpi,sorte,RetEsito,RetEstratti,RetIdEstr
	Dim nConsec,Rcons
	Dim Ritardo
	Dim rmax(1),nm(5)
	sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
	nAdatt = CInt(InputBox("Adattatore ",,1))
	Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
	vcolpi = CInt(InputBox("Verifica colpi n.",,1))
	ColoreTesto(1)
	Scrivi " Elaborazione Adattatori ",1
	Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
	Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno" & "( " & sorte & " )",1
	Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
	Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
	Scrivi "__________________________________Adattatori Pensilvenia____",1
	ColoreTesto(0)
	Inizio = 1
	Fine = EstrazioniArchivioFT
	For idEst = Inizio To Fine
		Messaggio idEst
		AvanzamentoElab Inizio,Fine,idEst
		dal = 1
	        ReDim aN(5)
		For e = 1 To 5
			aN(e) = Format2(FuoriX(EstrattoFT(idEst,e) + nAdatt,30)) '''estratti + adattatore
			nm(e) = Format2(EstrattoFT(idEst,e)) '''solo  estratti
		Next
		Scrivi idEst & "-" & DataEstrazioneFT(idEst) & "   " & StringaNumeri(nm,".") & "......" & StringaNumeri(aN," ")
		If VerificaEsitoFT(aN,idEst + 1,sorte,vcolpi,RetEsito,,RetEstratti,RetIdEstr) Then
			nConsec = nConsec + 1
			ColoreTesto(2)
			Scrivi "--------- Generazione estr.n. " & idEst & "/" & DataEstrazioneFT(idEst) & "  esito EStr.n.  " & RetIdEstr & "              " & RetEstratti & "  " & RetEsito
			ColoreTesto(0)
		Else
			nConsec = 0
		End If
		If nConsec >= Rcons Then
			casi = casi + 1
			Scrivi FormatSpace(casi,4) & " ..dal. " & DataEstrazioneFT(idEst + 1) & " ... " & Ritardo
			Ritardo = 0
		Else
			Ritardo = Ritardo + 1
		End If
		If Ritardo > rmax(1) Then rmax(1) = Ritardo
	Next
	Scrivi
	Scrivi "casi.e successi positivi.. " & casi
	casi = 0
	Scrivi "rit. ATTUALE dell'Adattatore  " & nAdatt & "  al  " & DataEstrazioneFT(Fine) & " ... " & Ritardo,1
	Ritardo = 0
	Scrivi
	Scrivi "max storico dal " & DataEstrazioneFT(dal) & " ... " & rmax(1),1
	Erase rmax
End Sub

 

[Roby]

grazie, provvedo a correggere anche il mio.