STATISTICA MILANO OTTOBRE

[codicebinario]

Questa statistica fornisce dati inerenti a tutti i mesi di Ottobre del periodo che và
dal 02.02.1946 al 12.10.2013  sulla ruota di Milano

===========================================================

Archivio degli ultimi 5 anni di estrazioni in Ottobre

Nmr.     Data              estratti                             


8281  02.10.2010  59.90.47.14.58                    
8282  05.10.2010  32.79.22.34.29                    
8283  07.10.2010  01.47.34.69.74                    
8284  09.10.2010  85.76.75.88.59                    
8285  12.10.2010  85.89.10.80.83                    
8286  14.10.2010  05.57.50.88.39                    
8287  16.10.2010  84.52.87.02.73                    
8288  19.10.2010  51.10.64.76.08                    
8289  21.10.2010  47.37.85.44.16                    
8290  23.10.2010  36.41.54.17.11                    
8291  26.10.2010  27.22.51.41.49                    
8292  28.10.2010  37.36.73.82.72                    
8293  30.10.2010  06.28.75.38.03                    
8437  01.10.2011  71.02.13.56.49                    
8438  04.10.2011  03.77.10.86.61                    
8439  06.10.2011  66.76.50.32.43                    
8440  08.10.2011  82.22.34.76.33                    
8441  11.10.2011  36.51.20.31.34                    
8442  13.10.2011  90.80.65.58.22                    
8443  15.10.2011  67.62.15.82.40                    
8444  18.10.2011  43.04.89.34.40                    
8445  20.10.2011  18.10.04.82.19                    
8446  22.10.2011  77.52.36.81.09                    
8447  25.10.2011  38.83.13.48.47                    
8448  27.10.2011  57.79.16.10.44                    
8449  29.10.2011  87.64.39.46.10                    
8594  02.10.2012  08.80.56.43.77                    
8595  04.10.2012  58.74.67.55.13                    
8596  06.10.2012  46.17.86.27.70                    
8597  09.10.2012  60.34.05.49.61                    
8598  11.10.2012  37.01.28.14.40                    
8599  13.10.2012  84.20.67.18.86                    
8600  16.10.2012  12.24.47.73.61                    
8601  18.10.2012  54.76.81.90.31                    
8602  20.10.2012  31.17.20.07.06                    
8603  23.10.2012  44.17.56.87.08                    
8604  25.10.2012  40.50.90.54.12                    
8605  27.10.2012  04.14.56.37.34                    
8606  30.10.2012  04.02.58.55.67                    
8750  01.10.2013  63.82.58.57.85                    
8751  03.10.2013  33.81.09.86.66                    
8752  05.10.2013  46.10.43.86.33                    
8753  08.10.2013  89.13.35.65.66                    
8754  10.10.2013  50.47.85.32.64                    
8755  12.10.2013  36.73.11.23.33                    

===========================================================

          Estratti            FREQUENZA                 RITARDO
           Pos.             N.     Fre.   R.Att.             N.     Fre.   R.Att.
           01°              46      32      03               30      19     124
           02°              53      31      47               45      14      72
           03°              18      31      13               78      15      63
           04°              48      31      21               42      25      61
           05°              22      30      26               26      25      51
           06°              76      30      11               21      25      50
           07°              82      29      05               68      19      47
           08°              85      29      01               53      31      47
           09°              44      29      09               25      25      46
           10°              69      28      42               29      26      43

18.10.1947  24.02.30.13.43
30.10.1954  03.71.30.89.46
03.10.1959  30.80.75.07.54
29.10.1960  23.12.30.82.90
14.10.1961  11.04.12.30.86
05.10.1963  30.48.56.01.74
16.10.1965  48.87.06.66.30
04.10.1969  14.12.56.30.74
08.10.1977  38.30.33.60.26
10.10.1981  30.59.76.02.31
24.10.1981  63.25.30.18.26
02.10.1982  89.84.30.66.78
30.10.1982  76.46.60.30.18
06.10.1984  28.67.48.22.30
20.10.1990  63.27.85.37.30
05.10.1991  39.08.86.62.30
17.10.1992  54.30.86.06.76
23.10.2002  46.43.70.30.84
15.10.2003  30.49.67.39.66

Il numero 30 si è presentato 19 volta/e in 409 estrazioni
Questi gli abbinameti: (max. 20)


Numeri   :   46  12  48  86  76  66  84  39  06  18  43  26  02  74  67  60  89  63  56
Frequenza:   03  03  03  03  03  03  02  02  02  02  02  02  02  02  02  02  02  02  02

===========================================================

Decine cabalistiche x ambo                 Fre.       R.Att.      R.Sto.     Ciclo Eff.
90.01.02.03.04.05.06.07.08.09          41          06          60          9,97
10.11.12.13.14.15.16.17.18.19          45          20          44          9,08
20.21.22.23.24.25.26.27.28.29          44          34          38          9,29
30.31.32.33.34.35.36.37.38.39          49          00          50          8,34
40.41.42.43.44.45.46.47.48.49          49          03          29          8,34
50.51.52.53.54.55.56.57.58.59          48          05          32          8,52
60.61.62.63.64.65.66.67.68.69          56          02          36          7,30
70.71.72.73.74.75.76.77.78.79          25          33          42          16,3
80.81.82.83.84.85.86.87.88.89          45          04          32          9,08

===========================================================

Cadenze x ambo                              Fre.       R.Att.      R.Sto.     Ciclo Eff.
01.11.21.31.41.51.61.71.81             36          11          43          11,3
02.12.22.32.42.52.62.72.82             41          25          45          9,97
03.13.23.33.43.53.63.73.83             43          00          40          9,51
04.14.24.34.44.54.64.74.84             26          07          54          15,7
05.15.25.35.45.55.65.75.85             31          02          54          13,1
06.16.26.36.46.56.66.76.86             43          03          41          9,51
07.17.27.37.47.57.67.77.87             31          09          40          13,1
08.18.28.38.48.58.68.78.88             28          21          76          14,6
09.19.29.39.49.59.69.79.89             33          43          49          12,3
10.20.30.40.50.60.70.80.90             30          08          60          13,6

===========================================================

Figure x ambo                                   Fre.       R.Att.      R.Sto.     Ciclo Eff.
01.10.19.28.37.46.55.64.73.82          60          03          35          6,81
02.11.20.29.38.47.56.65.74.83          41          21          34          9,97
03.12.21.30.39.48.57.66.75.84          69          32          34          5,92
04.13.22.31.40.49.58.67.76.85          62          05          52          6,59
05.14.23.32.41.50.59.68.77.86          41          01          38          9,97
06.15.24.33.42.51.60.69.78.87          44          45          58          9,29
07.16.25.34.43.52.61.70.79.88          39          15          38          10,4
08.17.26.35.44.53.62.71.80.89          56          02          32          7,30
09.18.27.36.45.54.63.72.81.90          55          04          40          7,43

===========================================================

Terzine simmetriche x ambo
                    Fre.   R.A.   R.S.                                      Fre.   R.A.   R.S.   
01.31.61         2    204    204                 16.46.76          2    204    204
02.32.62         2     69    216                  17.47.77          2     69    216
03.33.63         2     78    307                  18.48.78          2     78    307
04.34.64         2      7    384                   19.49.79          2      7    384
05.35.65         5      2    282                   20.50.80          5      2    282
06.36.66         2    198    198                 21.51.81          2    198    198
07.37.67         1    323    323                 22.52.82          1    323    323
08.38.68         3     64    191                  23.53.83          3     64    191
09.39.69         1    109    299                 24.54.84          1    109    299
10.40.70         2    300    300                 25.55.85          2    300    300
11.41.71         2     35    336                  26.56.86          2     35    336
12.42.72         2    212    212                 27.57.87          2    212    212
13.43.73         3    336    336                 28.58.88          3    336    336
14.44.74         3    185    185                 29.59.89          3    185    185
15.45.75         1     95    313                  30.60.90          1     95    313

===========================================================

                  Radicali x ambo      Fre.     R.A.     R.S.
                  1.10.11.19               6       23      206
                  2.20.22.29               3       43      275
                  3.30.33.39               8       79       99
                  4.40.44.49               4       24      183
                  5.50.55.59               4       39      128
                  6.60.66.69              10       96      102
                  7.70.77.79               7      152      152
                  8.80.88.89               5       18      142

===========================================================

          Gemelli x ambo                       Fre.     R.A.     R.S.
          11.22.33.44.55.66.77.88          34        0       38

===========================================================

Vertibili x ambo
            Fre.  R.A.  R.S.                   Fre.   R.A.    R.S.                   Fre.  R.A.  R.S.
46-64    3    19   216           86-68     2    82   190           18-81     1   134   274
36-63    3   110   119           84-48    2   146   180           22-29    1    43   365
35-53    3   130   203           23-32    2    50   248           13-31     1    97   311
64-46    3    19   216           76-67     2   126   196           15-51    1   407   407
63-36    3   110   119           57-75    1   216   216           44-49    1    55   353
53-35    3   130   203           85-58    1     5   403           07-70      1   177   231
34-43    2    24   207           71-17     1   141   267           49-44    1    55   353
33-39    2    79   167           58-85     1     5   403           47-74      1    42   366
66-69    2   199   199           03-30    1   369   369           04-40    1    24   384
67-76    2   126   196           89-88    1   183   225           38-83    1    21   387
32-23    2    50   248           88-89     1   183   225           10-01    1   261   261
27-72    2    76   294           73-37     1    33   375           51-15     1   407   407
72-27    2    76   294           81-18     1   134   274           50-05    1    39   369
68-86    2    82   190           82-28     1   384   384           40-04    1    24   384
69-66    2   199   199           75-57    1   216   216           90-09    0   409   409
48-84    2   146   180           74-47    1    42   366           09-90     0   409   409
56-65    2    59   274           01-10     1   261   261           87-78    0   409   409
52-25    2    93   284           83-38     1    21   387           12-21     0   409   409
54-45    2    72   325           60-06     1   224   224           11-19    0   409   409
45-54    2    72   325           70-07     1   177   231           62-26    0   409   409
39-33    2    79   167           61-16     1   236   236           02-20    0   409   409
65-56    2    59   274           31-13     1    97   311           42-24     0   409   409
43-34    2    24   207           30-03     1   369   369           55-59    0   409   409
41-14    2    64   260           29-22     1    43   365           59-55     0   409   409
25-52    2    93   284           37-73     1    33   375           26-62     0   409   409
80-08    2    18   252           05-50     1    39   369           19-11     0   409   409
79-77    2   222   222           06-60    1   224   224           78-87    0   409   409
77-79    2   222   222           28-82    1   384   384           20-02    0   409   409
14-41    2    64   260           16-61     1   236   236           24-42    0   409   409
08-80    2    18   252           17-71     1   141   267           21-12    0   409   409

===========================================================

 

[desperaux]

Ciao codicebinario

per caso avresti questo script che da' tutte queste informazioni?

grazie

 

[codicebinario]

Ciao DESPERAUX,si devo cercarlo,come rientro lo posto.ciao.

 

[codicebinario]

Eccolo. C'e' anche una sezione per il superenalotto,ma io non lo uso(mai aggiornato niente)....Guardaci e VEDICI e poi.....POSTACIIIIIIIIIIIIIIII !!!!!!!!!! Un grazie all'ideatore e stesore dello script:il grandissimo ROBYCA che saluto se legge.

Scrivi Space(36) & "STATISTICHE LOTTO",1: ColoreTesto 1
Scrivi String(78,"=") & "listedrobyca",1 :ColoreTesto 0
Sub Main()
Dim mtr(90,4),mrc(10,6),nu(1),ru(1),nm(10),nms(90,10)
Dim dn(9,13),totfrdn(9),totradn(9),totrsdn(9)
Dim cd(10,12),totfrcd(10),totracd(10),totrscd(10)
Dim fg(9,13),totfrfg(9),totrafg(9),totrsfg(9)
Dim trz(3),datitrz(30,3),rdl(4),datirdl(8,3)
Dim gem(8),datigem(3),dativrt(90,5),nr(2),ena(6)
Erase dativrt: Erase nms

ms = InputBox("INSERIRE IL NUMERO DEL MESE",,8):ms = CInt(ms)
r = InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r = CInt(r):ru(1) = r

fin = EstrazioneFin: ini = 3918
Scrivi "Questa statistica fornisce dati inerenti a tutti i mesi di " & _
MeseNome(ms) & " del periodo che và" & Chr(13) & "dal " & DataEstrazione(ini) & _
" al " & DataEstrazione(fin) & " sulla ruota di " & NomeRuota(r),1 : Call righeu
Scrivi Chr(13) & "Archivio degli ultimi 5 anni di estrazioni in " & MeseNome(ms) & Chr(13) & _
Chr(13) & "Nmr. Data Lotto" & Space(29) & "Superenalotto" & Chr(13) & Chr(13),1

c1 = 0: For x = 1 To 9: For y = 0 To 9:c1 = c1 + 1:dn(x,y + 1) = c1 - 1: Next : Next :dn(1,1) = 90

For x = 1 To 10: For y = 0 To 8:cd(x,y + 1) = x +(10*y): Next : Next
For x = 1 To 9: For y = 0 To 9:fg(x,y + 1) = x +(9*y): Next : Next
gem(1) = 11:gem(2) = 22:gem(3) = 33:gem(4) = 44:gem(5) = 55:gem(6) = 66:gem(7) = 77:gem(8) = 88
For x = 1 To 90:mtr(x,1) = x:nms(x,1) = x: Next

For es = ini To fin: Messaggio NomeRuota(r) & " " & MeseNome(ms) & " " & Anno(es)
If Mese(es) = ms Then
c0 = c0 + 1

For x = 1 To 90:nms(x,9) = nms(x,9) + 1:fn = Posizione(es,r,x)
If fn = 0 Then mtr(x,3) = mtr(x,3) + 1
If fn > 0 Then mtr(x,2) = mtr(x,2) + 1:mtr(x,3) = 0
If mtr(x,4) < mtr(x,3) Then mtr(x,4) = mtr(x,3)
Next

For p = 1 To 6:ns = Estratto(es,,p,1):ena(p) = ns
nms(ns,8) = nms(ns,8) + 1:nms(ns,p + 1) = nms(ns,p + 1) + 1
If nms(ns,10) < nms(ns,9) Then nms(ns,10) = nms(ns,9)
nms(ns,9) = 0: Next
OrdinaMatrice ena,+ 1
If es >(fin - 520) Then : ColoreTesto 1: Scrivi es & " " & DataEstrazione(es) & _
" " & StringaEstratti(es,r) & Space(20) & StringaNumeri(ena),1: ColoreTesto 0

nm(0) = 0: For x = 1 To 9: For y = 1 To 10:nm = dn(x,y): Next
fdn = 0:fdn = SerieFreq(es,es,nm,ru,2)
If fdn = 0 Then totradn(x) = totradn(x) + 1
If fdn > 0 Then totfrdn(x) = totfrdn(x) + fdn:totradn(x) = 0
If totrsdn(x) < totradn(x) Then totrsdn(x) = totradn(x)
Erase nm : Next

nm(0) = 0: For x = 1 To 10: For y = 1 To 9:nm = cd(x,y): Next
frcd = 0:frcd = SerieFreq(es,es,nm,ru,2)
If frcd = 0 Then totracd(x) = totracd(x) + 1
If frcd > 0 Then totfrcd(x) = totfrcd(x) + frcd:totracd(x) = 0
If totrscd(x) < totracd(x) Then totrscd(x) = totracd(x)
Erase nm: Next

nm(0) = 0: For x = 1 To 9: For y = 1 To 10:nm = fg(x,y): Next
frfg = 0:frfg = SerieFreq(es,es,nm,ru,2)
If frfg = 0 Then totrafg(x) = totrafg(x) + 1
If frfg > 0 Then totfrfg(x) = totfrfg(x) + frfg:totrafg(x) = 0
If totrsfg(x) < totrafg(x) Then totrsfg(x) = totrafg(x)
Erase nm: Next

For x = 1 To 30:trz(1) = x:trz(2) = x + 30:trz(3) = x + 60
ftrz = 0:ftrz = SerieFreq(es,es,trz,ru,2)
If ftrz = 0 Then datitrz(x,2) = datitrz(x,2) + 1
If ftrz > 0 Then datitrz(x,1) = datitrz(x,1) + ftrz:datitrz(x,2) = 0
If datitrz(x,3) < datitrz(x,2) Then datitrz(x,3) = datitrz(x,2)
Next

For x = 1 To 8:rdl(1) = x:rdl(2) = x*10:rdl(3) = rdl(2) + x:rdl(4) = rdl(2) + 9
frdl = 0:frdl = SerieFreq(es,es,rdl,ru,2)
If frdl = 0 Then datirdl(x,2) = datirdl(x,2) + 1
If frdl > 0 Then datirdl(x,1) = datirdl(x,1) + frdl:datirdl(x,2) = 0
If datirdl(x,3) < datirdl(x,2) Then datirdl(x,3) = datirdl(x,2)
Next

fgem = 0:fgem = SerieFreq(es,es,gem,ru,2)
If fgem = 0 Then datigem(2) = datigem(2) + 1
If fgem > 0 Then datigem(1) = datigem(1) + fgem:datigem(2) = 0
If datigem(3) < datigem(2) Then datigem(3) = datigem(2)

For x = 1 To 90:dativrt(x,1) = x:nr(1) = x:dativrt(x,2) = Vert(x):nr(2) = Vert(x)
fvrt = 0:fvrt = SerieFreq(es,es,nr,ru,2)
If fvrt = 0 Then dativrt(x,4) = dativrt(x,4) + 1
If fvrt > 0 Then dativrt(x,3) = dativrt(x,3) + fvrt:dativrt(x,4) = 0
If dativrt(x,5) < dativrt(x,4) Then dativrt(x,5) = dativrt(x,4)
Next
End If : Next

Call righeu: Scrivi Chr(13) & "Estratti ordinati per" & Space(11) & "FREQUENZA" & Space(25) & _
"RITARDO" & Chr(13) & Space(11) & "Pos." & Space(13) & "N." & Space(5) & "Fre." & Space(3) & "R.Att." & _
Space(13) & "N." & Space(5) & "Fre." & Space(3) & "R.Att.",1

For y = 2 To 3: OrdinaMatrice mtr,- 1,y: For x = 1 To 10
If y = 2 Then mrc(x,1) = mtr(x,1):mrc(x,2) = mtr(x,2):mrc(x,3) = mtr(x,3) Else _
mrc(x,4) = mtr(x,1):mrc(x,5) = mtr(x,2):mrc(x,6) = mtr(x,3)
Next : Next

For x = 1 To 10:riga = riga & _
FormatSpace(Format2(x),13,1) & "°" & FormatSpace(Format2(mrc(x,1)),16,1) & _
FormatSpace(Format2(mrc(x,2)),8,1) & FormatSpace(Format2(mrc(x,3)),8,1) & _
FormatSpace(Format2(mrc(x,4)),17,1) & FormatSpace(Format2(mrc(x,5)),8,1) & _
FormatSpace(Format2(mrc(x,6)),8,1): Scrivi riga:riga = "": Next : Scrivi

Call abbina(ini,fin,ms,mtr(1,1),r,c0)

For x = 1 To 10
If x < 10 Then dn(x,11) = totfrdn(x):dn(x,12) = totradn(x):dn(x,13) = totrsdn(x): _
fg(x,11) = totfrfg(x):fg(x,12) = totrafg(x):fg(x,13) = totrsfg(x)
cd(x,10) = totfrcd(x):cd(x,11) = totracd(x):cd(x,12) = totrscd(x): Next

Call righeu: Scrivi Chr(13) & "Decine cabalistiche x ambo" & Space(12) & "Fre." & Space(7) & _
"R.Att." & Space(6) & "R.Sto." & Space(5) & "Ciclo Eff.",1
For x = 1 To 9: For y = 1 To 10
If y < 10 Then riga = riga & Format2(dn(x,y)) & "." Else riga = riga & Format2(dn(x,y))
Next : Scrivi riga & Space(10) & Format2(dn(x,11)) & Space(10) & Format2(dn(x,12)) & _
Space(10) & Format2(dn(x,13)) & Space(10) & Left((c0/dn(x,11)),4)
riga = "": Next

Call righeu: Scrivi Chr(13) & "Cadenze x ambo" & Space(24) & "Fre." & Space(7) & _
"R.Att." & Space(6) & "R.Sto." & Space(5) & "Ciclo Eff.",1:
For x = 1 To 10: For y = 1 To 9
If y < 9 Then riga = riga & Format2(cd(x,y)) & "." Else riga = riga & Format2(cd(x,y))
Next : Scrivi riga & Space(13) & Format2(cd(x,10)) & Space(10) & Format2(cd(x,11)) & _
Space(10) & Format2(cd(x,12)) & Space(10) & Left((c0/cd(x,10)),4):
riga = "": Next

Call righeu: Scrivi Chr(13) & "Figure x ambo" & Space(25) & "Fre." & Space(7) & _
"R.Att." & Space(6) & "R.Sto." & Space(5) & "Ciclo Eff.",1: For x = 1 To 9: For y = 1 To 10
If y < 10 Then riga = riga & Format2(fg(x,y)) & "." Else riga = riga & Format2(fg(x,y))
Next : Scrivi riga & Space(10) & Format2(fg(x,11)) & Space(10) & Format2(fg(x,12)) & _
Space(10) & Format2(fg(x,13)) & Space(10) & Left((c0/fg(x,11)),4):
riga = "": Next

Call righeu: Scrivi Chr(13) & "Terzine simmetriche x ambo" & Chr(13) & Space(15) & "Fre." & _
Space(3) & "R.A." & Space(3) & "R.S." & Space(32) & "Fre." & Space(3) & "R.A." & Space(3) & "R.S." & Space(3),1
For x = 1 To 15: Scrivi Format2(x) & "." & Format2(x + 30) & "." & Format2(x + 60) & _
FormatSpace(CInt(datitrz(x,1)),10,1) & FormatSpace(CInt(datitrz(x,2)),7,1) & _
FormatSpace(CInt(datitrz(x,3)),7,1) & Space(18) & _
Format2(15 + x) & "." & Format2(15 + x + 30) & "." & Format2(15 + x + 60) & _
FormatSpace(CInt(datitrz(x,1)),10,1) & FormatSpace(CInt(datitrz(x,2)),7,1) & _
FormatSpace(CInt(datitrz(x,3)),7,1): Next

Call righeu: Scrivi Chr(13) & Space(18) & "Radicali x ambo" & Space(9) & "Fre." & Space(5) & _
"R.A." & Space(5) & "R.S.",1
For x = 1 To 8: rdl(1) = x:rdl(2) = x*10:rdl(3) = rdl(2) + x:rdl(4) = rdl(2) + 9
Scrivi String(18," ") & StringaNumeri(rdl) & FormatSpace(CInt(datirdl(x,1)),16,1) & _
FormatSpace(CInt(datirdl(x,2)),9,1) & FormatSpace(CInt(datirdl(x,3)),9,1): Next

Call righeu: Scrivi Chr(13) & Space(10) & "Gemelli x ambo" & Space(18) & "Fre." & Space(5) & _
"R.A." & Space(5) & "R.S.",1
Scrivi Space(10) & StringaNumeri(gem) & FormatSpace(CInt(datigem(1)),12,1) & _
FormatSpace(CInt(datigem(2)),9,1) & FormatSpace(CInt(datigem(3)),9,1)

Call righeu: Scrivi Chr(13) & "Vertibili x ambo" & Chr(13) & " Fre. R.A. R.S." & _
Space(17) & "Fre. R.A. R.S." & Space(17) & "Fre. R.A. R.S.",1: OrdinaMatrice dativrt,- 1,3
For x = 1 To 30: riga = riga & Format2(dativrt(x,1)) & "-" & Format2(dativrt(x,2))
If dativrt(x,3) > 0 Then riga = riga & FormatSpace(dativrt(x,3),5,1) Else riga = riga & " 0"
riga = riga & FormatSpace(dativrt(x,4),6,1) & FormatSpace(dativrt(x,5),6,1):riga = riga & Space(11)
riga = riga & Format2(dativrt(30 + x,1)) & "-" & Format2(dativrt(30 + x,2))
If dativrt(30 + x,3) > 0 Then riga = riga & FormatSpace(dativrt(30 + x,3),5,1) Else riga = riga & " 0"
riga = riga & FormatSpace(dativrt(30 + x,4),6,1) & FormatSpace(dativrt(30 + x,5),6,1)
riga = riga & Space(11):riga = riga & Format2(dativrt(60 + x,1)) & "-" & Format2(dativrt(60 + x,2))
If dativrt(60 + x,3) > 0 Then riga = riga & FormatSpace(dativrt(60 + x,3),5,1) Else riga = riga & " 0"
riga = riga & FormatSpace(dativrt(60 + x,4),6,1) & FormatSpace(dativrt(60 + x,5),6,1)
Scrivi riga:riga = "": Next

Call righeu: Scrivi Chr(13) & Space(33) & "STATISTICHE SUPERENALOTTO" & Chr(13) & Chr(13) & _
"Per un totale di " & c0 & " estrazioni in data " & "gg/" & MeseNome(ms) & "/aa sulla ruota di " & _
NomeRuota(r) & "." & Chr(13) & "Le presenze" & " ed i ritardi vengono rilevati all'ultima" & _
" estrazione del mese di " & MeseNome(ms) & Chr(13) & "presente in archivio" & Chr(13) & Chr(13) & _
"Frequenze per posizione",1

For y = 2 To 7:OrdinaMatrice nms,- 1,y
For x = 1 To 10:riga = riga & FormatSpace(Format2(nms(x,1)),5,1)
rige = rige & FormatSpace(Format2(nms(x,y)),5,1): Next
Scrivi y - 1 & "° " & "Pos: " & riga,1: ColoreTesto 1: Scrivi "Fre. : " & rige
ColoreTesto 0:riga = "":rige = "": Next

Scrivi Chr(13) & "Frequenze totali",1: OrdinaMatrice nms,- 1,8
For x = 1 To 15:riga = riga & FormatSpace(Format2(nms(x,1)),5,1)
rige = rige & FormatSpace(Format2(nms(x,8)),5,1): Next
Scrivi "Num. : " & riga,1: ColoreTesto 2: Scrivi "Pre. : " & rige
ColoreTesto 0: riga = "":rige = ""

Scrivi Chr(13) & "Ritardi Attuali totali",1: OrdinaMatrice nms,- 1,9
For x = 1 To 15:riga = riga & FormatSpace(Format2(nms(x,1)),5,1)
rige = rige & FormatSpace(Format2(nms(x,9)),5,1): Next
Scrivi "Num. : " & riga,1: ColoreTesto 2: Scrivi "Rit. : " & rige
ColoreTesto 0:riga = "":rige = ""

Scrivi Chr(13) & "Ritardi Storici totali",1: OrdinaMatrice nms,- 1,10
For x = 1 To 15:riga = riga & FormatSpace(Format2(nms(x,1)),5,1)
rige = rige & FormatSpace(Format2(nms(x,10)),5,1): Next
Scrivi "Num. : " & riga,1: ColoreTesto 2: Scrivi "Rit. : " & rige
ColoreTesto 0: riga = "":rige = ""
ColoreTesto 2: Scrivi Chr(13) & Space(78) & "listedrobyca",1: End Sub

Function abbina(ini,fin,ms,n,r,c0): Dim nu(90,2)
For x = 1 To 90:nu(x,1) = x:nu(x,2) = 0: Next
c1 = 0:
For es = ini To fin
If Mese(es) = ms And Posizione(es,r,n) > 0 Then
c1 = c1 + 1: ColoreTesto 2: Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r)
For p = 1 To 5:nm = Estratto(es,r,p):nu(nm,2) = nu(nm,2) + 1: Next
End If : Next
OrdinaMatrice nu,- 1,2: For x = 1 To 20
If nu(x,2) > 0 And nu(x,1) <> n Then rig1 = rig1 & FormatSpace(Format2(nu(x,1)),4,1): _
rig2 = rig2 & FormatSpace(Format2(nu(x,2)),4,1)
Next : ColoreTesto 0: Scrivi Chr(13) & "Il numero " & n & " si è presentato " & c1 & " volta/e" & _
" in " & c0 & " estrazioni con data gg/" & MeseNome(ms) & "/aa," & Chr(13) & _
"Questi gli abbinameti: (max. 20)" & Chr(13) & Chr(13),1: ColoreTesto 1
If c1 = 0 Then rig1 = "":rig2 = ""
Scrivi "Numeri : " & rig1 & Chr(13) & "Frequenza: " & rig2,1:rig1 = "":rig2 = "": End Function

Sub righeu: ColoreTesto 1: Scrivi Chr(13) & String(90,"="),1: ColoreTesto 0: End Sub

 

[desperaux]

grazie mille codicebinario