Novità

Script Terni per tutte

Ciao a tutti.

Quello che vedete è uno script che dovrebbe rilevare tutte le estrazioni in cui è presente almeno uno dei 314
terni indicati nel 3D "Terni unificati" e il n. dei colpi tra un'estrazioni e l'altra.

Qualche verifica a campione mi dà risultati esatti.

Codice: 
'314 TERNI - estrazioni di presenza e colpi in cui sono stati assenti (Cinzia27)

Sub Main()
Dim nu(314)
Dim ru(1)
r=11
ru(1)=r
w=3'sorte
q=10
q1=15
q2=19
ini=1


nu(    1    )    =    Array(0,    01,02,35    )
nu(    2    )    =    Array(0,    01,04,19    )
nu(    3    )    =    Array(0,    01,06,48    )
nu(    4    )    =    Array(0,    01,09,22    )
nu(    5    )    =    Array(0,    01,10,32    )
nu(    6    )    =    Array(0,    01,13,44    )
nu(    7    )    =    Array(0,    01,15,81    )
nu(    8    )    =    Array(0,    01,17,41    )
nu(    9    )    =    Array(0,    01,19,42    )
nu(    10    )    =    Array(0,    01,33,47    )
nu(    11    )    =    Array(0,    01,36,37    )
nu(    12    )    =    Array(0,    01,42,61    )
nu(    13    )    =    Array(0,    01,59,79    )
nu(    14    )    =    Array(0,    02,08,10    )
nu(    15    )    =    Array(0,    02,09,24    )
nu(    16    )    =    Array(0,    02,11,67    )
nu(    17    )    =    Array(0,    02,16,46    )
nu(    18    )    =    Array(0,    02,18,27    )
nu(    19    )    =    Array(0,    02,46,84    )
nu(    20    )    =    Array(0,    02,52,66    )
nu(    21    )    =    Array(0,    02,54,77    )
nu(    22    )    =    Array(0,    03,06,47    )
nu(    23    )    =    Array(0,    03,08,42    )
nu(    24    )    =    Array(0,    03,16,54    )
nu(    25    )    =    Array(0,    03,20,57    )
nu(    26    )    =    Array(0,    03,26,34    )
nu(    27    )    =    Array(0,    03,26,55    )
nu(    28    )    =    Array(0,    03,28,58    )
nu(    29    )    =    Array(0,    03,42,58    )
nu(    30    )    =    Array(0,    03,46,78    )
nu(    31    )    =    Array(0,    03,52,68    )
nu(    32    )    =    Array(0,    03,61,88    )
nu(    33    )    =    Array(0,    03,64,86    )
nu(    34    )    =    Array(0,    04,29,66    )
nu(    35    )    =    Array(0,    04,54,65    )
nu(    36    )    =    Array(0,    05,06,71    )
nu(    37    )    =    Array(0,    05,07,12    )
nu(    38    )    =    Array(0,    05,09,37    )
nu(    39    )    =    Array(0,    05,09,84    )
nu(    40    )    =    Array(0,    05,12,41    )
nu(    41    )    =    Array(0,    05,13,60    )
nu(    42    )    =    Array(0,    05,19,26    )
nu(    43    )    =    Array(0,    05,21,32    )
nu(    44    )    =    Array(0,    05,24,54    )
nu(    45    )    =    Array(0,    05,26,85    )
nu(    46    )    =    Array(0,    05,37,71    )
nu(    47    )    =    Array(0,    05,38,64    )
nu(    48    )    =    Array(0,    05,39,57    )
nu(    49    )    =    Array(0,    05,42,49    )
nu(    50    )    =    Array(0,    05,53,54    )
nu(    51    )    =    Array(0,    06,09,70    )
nu(    52    )    =    Array(0,    06,12,89    )
nu(    53    )    =    Array(0,    06,13,52    )
nu(    54    )    =    Array(0,    06,31,62    )
nu(    55    )    =    Array(0,    06,33,35    )
nu(    56    )    =    Array(0,    06,33,38    )
nu(    57    )    =    Array(0,    06,47,57    )
nu(    58    )    =    Array(0,    06,60,80    )
nu(    59    )    =    Array(0,    06,74,88    )
nu(    60    )    =    Array(0,    07,09,66    )
nu(    61    )    =    Array(0,    07,10,43    )
nu(    62    )    =    Array(0,    07,15,21    )
nu(    63    )    =    Array(0,    07,25,90    )
nu(    64    )    =    Array(0,    07,32,44    )
nu(    65    )    =    Array(0,    07,66,68    )
nu(    66    )    =    Array(0,    08,09,10    )
nu(    67    )    =    Array(0,    08,13,53    )
nu(    68    )    =    Array(0,    08,15,48    )
nu(    69    )    =    Array(0,    08,43,63    )
nu(    70    )    =    Array(0,    08,46,53    )
nu(    71    )    =    Array(0,    08,52,81    )
nu(    72    )    =    Array(0,    09,12,84    )
nu(    73    )    =    Array(0,    09,24,81    )
nu(    74    )    =    Array(0,    09,26,65    )
nu(    75    )    =    Array(0,    09,30,88    )
nu(    76    )    =    Array(0,    09,38,70    )
nu(    77    )    =    Array(0,    09,45,60    )
nu(    78    )    =    Array(0,    10,14,77    )
nu(    79    )    =    Array(0,    10,25,68    )
nu(    80    )    =    Array(0,    10,37,88    )
nu(    81    )    =    Array(0,    10,59,65    )
nu(    82    )    =    Array(0,    10,80,82    )
nu(    83    )    =    Array(0,    11,16,38    )
nu(    84    )    =    Array(0,    11,18,88    )
nu(    85    )    =    Array(0,    11,22,40    )
nu(    86    )    =    Array(0,    11,28,63    )
nu(    87    )    =    Array(0,    11,30,72    )
nu(    88    )    =    Array(0,    11,34,65    )
nu(    89    )    =    Array(0,    11,36,73    )
nu(    90    )    =    Array(0,    11,59,63    )
nu(    91    )    =    Array(0,    11,59,78    )
nu(    92    )    =    Array(0,    11,61,86    )
nu(    93    )    =    Array(0,    12,14,45    )
nu(    94    )    =    Array(0,    12,32,39    )
nu(    95    )    =    Array(0,    12,33,62    )
nu(    96    )    =    Array(0,    12,40,47    )
nu(    97    )    =    Array(0,    12,54,65    )
nu(    98    )    =    Array(0,    12,60,85    )
nu(    99    )    =    Array(0,    13,20,81    )
nu(    100    )    =    Array(0,    13,23,81    )
nu(    101    )    =    Array(0,    13,35,68    )
nu(    102    )    =    Array(0,    13,48,82    )
nu(    103    )    =    Array(0,    13,49,75    )
nu(    104    )    =    Array(0,    14,21,48    )
nu(    105    )    =    Array(0,    14,23,86    )
nu(    106    )    =    Array(0,    14,24,45    )
nu(    107    )    =    Array(0,    14,27,45    )
nu(    108    )    =    Array(0,    14,31,55    )
nu(    109    )    =    Array(0,    14,37,73    )
nu(    110    )    =    Array(0,    14,37,75    )
nu(    111    )    =    Array(0,    14,59,62    )
nu(    112    )    =    Array(0,    14,63,90    )
nu(    113    )    =    Array(0,    15,21,62    )
nu(    114    )    =    Array(0,    15,29,81    )
nu(    115    )    =    Array(0,    15,48,65    )
nu(    116    )    =    Array(0,    15,49,63    )
nu(    117    )    =    Array(0,    15,52,56    )
nu(    118    )    =    Array(0,    15,68,78    )
nu(    119    )    =    Array(0,    16,18,24    )
nu(    120    )    =    Array(0,    16,21,81    )
nu(    121    )    =    Array(0,    16,36,69    )
nu(    122    )    =    Array(0,    16,39,50    )
nu(    123    )    =    Array(0,    16,40,55    )
nu(    124    )    =    Array(0,    16,40,82    )
nu(    125    )    =    Array(0,    16,41,55    )
nu(    126    )    =    Array(0,    16,47,89    )
nu(    127    )    =    Array(0,    16,76,83    )
nu(    128    )    =    Array(0,    17,21,34    )
nu(    129    )    =    Array(0,    17,24,80    )
nu(    130    )    =    Array(0,    17,24,81    )
nu(    131    )    =    Array(0,    17,33,46    )
nu(    132    )    =    Array(0,    17,34,46    )
nu(    133    )    =    Array(0,    17,47,90    )
nu(    134    )    =    Array(0,    17,48,82    )
nu(    135    )    =    Array(0,    17,51,62    )
nu(    136    )    =    Array(0,    17,65,89    )
nu(    137    )    =    Array(0,    17,78,83    )
nu(    138    )    =    Array(0,    18,24,90    )
nu(    139    )    =    Array(0,    18,62,78    )
nu(    140    )    =    Array(0,    18,63,80    )
nu(    141    )    =    Array(0,    18,64,78    )
nu(    142    )    =    Array(0,    18,71,88    )
nu(    143    )    =    Array(0,    19,21,30    )
nu(    144    )    =    Array(0,    19,21,50    )
nu(    145    )    =    Array(0,    19,22,42    )
nu(    146    )    =    Array(0,    19,24,31    )
nu(    147    )    =    Array(0,    19,27,73    )
nu(    148    )    =    Array(0,    19,28,76    )
nu(    149    )    =    Array(0,    19,33,49    )
nu(    150    )    =    Array(0,    19,36,56    )
nu(    151    )    =    Array(0,    19,46,70    )
nu(    152    )    =    Array(0,    19,47,89    )
nu(    153    )    =    Array(0,    19,56,61    )
nu(    154    )    =    Array(0,    19,63,72    )
nu(    155    )    =    Array(0,    19,67,78    )
nu(    156    )    =    Array(0,    19,76,79    )
nu(    157    )    =    Array(0,    19,77,85    )
nu(    158    )    =    Array(0,    20,26,43    )
nu(    159    )    =    Array(0,    20,26,64    )
nu(    160    )    =    Array(0,    20,40,66    )
nu(    161    )    =    Array(0,    20,41,65    )
nu(    162    )    =    Array(0,    20,43,69    )
nu(    163    )    =    Array(0,    20,44,88    )
nu(    164    )    =    Array(0,    20,48,53    )
nu(    165    )    =    Array(0,    20,54,90    )
nu(    166    )    =    Array(0,    20,60,61    )
nu(    167    )    =    Array(0,    20,61,73    )
nu(    168    )    =    Array(0,    20,83,89    )
nu(    169    )    =    Array(0,    21,34,84    )
nu(    170    )    =    Array(0,    21,50,67    )
nu(    171    )    =    Array(0,    21,57,64    )
nu(    172    )    =    Array(0,    21,58,73    )
nu(    173    )    =    Array(0,    21,70,90    )
nu(    174    )    =    Array(0,    22,25,26    )
nu(    175    )    =    Array(0,    22,32,40    )
nu(    176    )    =    Array(0,    22,43,58    )
nu(    177    )    =    Array(0,    22,52,69    )
nu(    178    )    =    Array(0,    22,63,86    )
nu(    179    )    =    Array(0,    22,77,80    )
nu(    180    )    =    Array(0,    23,35,55    )
nu(    181    )    =    Array(0,    23,48,90    )
nu(    182    )    =    Array(0,    23,57,70    )
nu(    183    )    =    Array(0,    23,65,88    )
nu(    184    )    =    Array(0,    24,33,44    )
nu(    185    )    =    Array(0,    24,55,64    )
nu(    186    )    =    Array(0,    24,59,83    )
nu(    187    )    =    Array(0,    25,26,60    )
nu(    188    )    =    Array(0,    25,29,45    )
nu(    189    )    =    Array(0,    25,30,57    )
nu(    190    )    =    Array(0,    25,30,88    )
nu(    191    )    =    Array(0,    25,31,86    )
nu(    192    )    =    Array(0,    25,32,89    )
nu(    193    )    =    Array(0,    25,63,75    )
nu(    194    )    =    Array(0,    25,65,81    )
nu(    195    )    =    Array(0,    25,74,78    )
nu(    196    )    =    Array(0,    26,28,50    )
nu(    197    )    =    Array(0,    26,61,80    )
nu(    198    )    =    Array(0,    26,65,82    )
nu(    199    )    =    Array(0,    27,29,55    )
nu(    200    )    =    Array(0,    27,30,42    )
nu(    201    )    =    Array(0,    27,31,33    )
nu(    202    )    =    Array(0,    28,32,85    )
nu(    203    )    =    Array(0,    28,38,66    )
nu(    204    )    =    Array(0,    28,40,50    )
nu(    205    )    =    Array(0,    28,53,76    )
nu(    206    )    =    Array(0,    28,76,83    )
nu(    207    )    =    Array(0,    29,40,48    )
nu(    208    )    =    Array(0,    29,42,74    )
nu(    209    )    =    Array(0,    29,60,84    )
nu(    210    )    =    Array(0,    29,75,90    )
nu(    211    )    =    Array(0,    29,80,85    )
nu(    212    )    =    Array(0,    30,37,59    )
nu(    213    )    =    Array(0,    30,45,69    )
nu(    214    )    =    Array(0,    30,48,89    )
nu(    215    )    =    Array(0,    30,50,72    )
nu(    216    )    =    Array(0,    30,53,84    )
nu(    217    )    =    Array(0,    30,59,83    )
nu(    218    )    =    Array(0,    31,32,36    )
nu(    219    )    =    Array(0,    31,34,55    )
nu(    220    )    =    Array(0,    31,52,75    )
nu(    221    )    =    Array(0,    31,57,90    )
nu(    222    )    =    Array(0,    32,34,56    )
nu(    223    )    =    Array(0,    32,34,81    )
nu(    224    )    =    Array(0,    32,42,84    )
nu(    225    )    =    Array(0,    32,45,54    )
nu(    226    )    =    Array(0,    32,45,62    )
nu(    227    )    =    Array(0,    32,50,80    )
nu(    228    )    =    Array(0,    32,78,87    )
nu(    229    )    =    Array(0,    33,38,69    )
nu(    230    )    =    Array(0,    34,49,70    )
nu(    231    )    =    Array(0,    35,53,83    )
nu(    232    )    =    Array(0,    35,54,75    )
nu(    233    )    =    Array(0,    35,58,76    )
nu(    234    )    =    Array(0,    36,37,81    )
nu(    235    )    =    Array(0,    36,44,76    )
nu(    236    )    =    Array(0,    36,55,65    )
nu(    237    )    =    Array(0,    36,75,90    )
nu(    238    )    =    Array(0,    36,79,88    )
nu(    239    )    =    Array(0,    37,50,53    )
nu(    240    )    =    Array(0,    37,52,85    )
nu(    241    )    =    Array(0,    37,81,83    )
nu(    242    )    =    Array(0,    38,48,84    )
nu(    243    )    =    Array(0,    38,55,70    )
nu(    244    )    =    Array(0,    39,44,56    )
nu(    245    )    =    Array(0,    39,63,67    )
nu(    246    )    =    Array(0,    39,74,75    )
nu(    247    )    =    Array(0,    40,41,74    )
nu(    248    )    =    Array(0,    40,46,65    )
nu(    249    )    =    Array(0,    40,55,81    )
nu(    250    )    =    Array(0,    40,62,76    )
nu(    251    )    =    Array(0,    40,84,87    )
nu(    252    )    =    Array(0,    41,52,89    )
nu(    253    )    =    Array(0,    41,80,81    )
nu(    254    )    =    Array(0,    42,53,69    )
nu(    255    )    =    Array(0,    42,55,72    )
nu(    256    )    =    Array(0,    42,72,84    )
nu(    257    )    =    Array(0,    43,58,60    )
nu(    258    )    =    Array(0,    43,58,70    )
nu(    259    )    =    Array(0,    43,83,84    )
nu(    260    )    =    Array(0,    44,45,76    )
nu(    261    )    =    Array(0,    44,46,55    )
nu(    262    )    =    Array(0,    44,56,61    )
nu(    263    )    =    Array(0,    44,67,81    )
nu(    264    )    =    Array(0,    44,71,73    )
nu(    265    )    =    Array(0,    44,72,80    )
nu(    266    )    =    Array(0,    45,88,90    )
nu(    267    )    =    Array(0,    46,47,48    )
nu(    268    )    =    Array(0,    46,49,53    )
nu(    269    )    =    Array(0,    46,50,82    )
nu(    270    )    =    Array(0,    46,51,84    )
nu(    271    )    =    Array(0,    46,55,56    )
nu(    272    )    =    Array(0,    46,70,89    )
nu(    273    )    =    Array(0,    47,65,73    )
nu(    274    )    =    Array(0,    47,67,79    )
nu(    275    )    =    Array(0,    47,68,77    )
nu(    276    )    =    Array(0,    47,72,73    )
nu(    277    )    =    Array(0,    47,72,79    )
nu(    278    )    =    Array(0,    47,75,87    )
nu(    279    )    =    Array(0,    48,64,90    )
nu(    280    )    =    Array(0,    49,55,61    )
nu(    281    )    =    Array(0,    49,77,87    )
nu(    282    )    =    Array(0,    51,52,76    )
nu(    283    )    =    Array(0,    51,53,80    )
nu(    284    )    =    Array(0,    51,72,73    )
nu(    285    )    =    Array(0,    51,75,82    )
nu(    286    )    =    Array(0,    51,76,81    )
nu(    287    )    =    Array(0,    53,73,74    )
nu(    288    )    =    Array(0,    54,77,81    )
nu(    289    )    =    Array(0,    54,77,87    )
nu(    290    )    =    Array(0,    55,78,87    )
nu(    291    )    =    Array(0,    56,66,88    )
nu(    292    )    =    Array(0,    56,71,75    )
nu(    293    )    =    Array(0,    56,79,85    )
nu(    294    )    =    Array(0,    57,58,78    )
nu(    295    )    =    Array(0,    58,76,83    )
nu(    296    )    =    Array(0,    58,79,83    )
nu(    297    )    =    Array(0,    58,80,90    )
nu(    298    )    =    Array(0,    59,60,89    )
nu(    299    )    =    Array(0,    59,63,75    )
nu(    300    )    =    Array(0,    59,65,79    )
nu(    301    )    =    Array(0,    59,69,84    )
nu(    302    )    =    Array(0,    60,68,88    )
nu(    303    )    =    Array(0,    63,77,81    )
nu(    304    )    =    Array(0,    63,85,88    )
nu(    305    )    =    Array(0,    64,78,88    )
nu(    306    )    =    Array(0,    65,67,72    )
nu(    307    )    =    Array(0,    65,68,89    )
nu(    308    )    =    Array(0,    66,78,89    )
nu(    309    )    =    Array(0,    68,79,87    )
nu(    310    )    =    Array(0,    71,83,85    )
nu(    311    )    =    Array(0,    74,82,89    )
nu(    312    )    =    Array(0,    76,78,88    )
nu(    313    )    =    Array(0,    79,80,81    )
nu(    314    )    =    Array(0,    47,59,69    )
 



For es=ini To EstrazioneFin-1
co=0
For c=1 To 314

If SerieFreq(es,es,nu(c),ru,w)>0 Then co=co+1
Next
If co>0 Then
cl=es-ex
Scrivi  FormatSpace(es,5,1)&" quantità  "&FormatSpace(co,5,1)&" cl  "&FormatSpace(cl,5,1)
ex=es
If cl>mx Then mx=cl
If cl>q Then con=con+1
If cl>q1 Then con1=con1+1
If cl>q2 Then con2=con2+1
End if
Next
Scrivi "Max st "&mx
Scrivi "st> "&q&" "&con
Scrivi "st> "&q1&" "&con1
Scrivi "st> "&q2&" "&con2
End Sub
 
Questo script è personalizzato: contiene la statistica relativa ai 67 terni scelti
così riassunta

Max st 75
st> 50 7
st> 40 21
st> 30 58

Codice: 
'67 TERNI scelti- estrazioni di presenza e colpi in cui sono stati assenti (Cinzia27)

Sub Main()
Dim nu(67)
Dim ru(1)
r=11
ru(1)=r
w=3'sorte
q=50
q1=40
q2=30
ini=1
 
nu(1)=Array(0,01,10,32) 
nu(2)=Array(0,01,15,81)  
nu(3)=Array(0,02,08,10)  
nu(4)=Array(0,02,16,46)  
nu(5)=Array(0,03,26,34)  
nu(6)=Array(0,03,26,55)  
nu(7)=Array(0,03,52,68)  
nu(8)=Array(0,04,54,65)
nu(9)=Array(0,05,07,12)  
nu(10)=Array(0,05,12,41)  
nu(11)=Array(0,05,13,60)  
nu(12)=Array(0,05,24,54)  
nu(13)=Array(0,05,39,57)  
nu(14)=Array(0,05,42,49)  
nu(15)=Array(0,05,53,54)  
nu(16)=Array(0,07,09,66)  
nu(17)=Array(0,09,45,60)  
nu(18)=Array(0,11,16,38)  
nu(19)=Array(0,11,34,65)  
nu(20)=Array(0,11,36,73)  
nu(21)=Array(0,11,59,63)  
nu(22)=Array(0,11,59,78)  
nu(23)=Array(0,12,32,39)  
nu(24)=Array(0,12,33,62)  
nu(25)=Array(0,13,23,81)  
nu(26)=Array(0,13,35,68)  
nu(27)=Array(0,14,27,45)  
nu(28)=Array(0,14,63,90)  
nu(29)=Array(0,17,24,81)  
nu(30)=Array(0,17,34,46)  
nu(31)=Array(0,17,47,90)  
nu(32)=Array(0,17,48,82)  
nu(33)=Array(0,18,62,78)  
nu(34)=Array(0,18,64,78)  
nu(35)=Array(0,18,71,88)  
nu(36)=Array(0,19,21,30)  
nu(37)=Array(0,19,21,50)  
nu(38)=Array(0,19,22,42)  
nu(39)=Array(0,19,24,31)  
nu(40)=Array(0,19,27,73)  
nu(41)=Array(0,19,67,78)  
nu(42)=Array(0,20,48,53)  
nu(43)=Array(0,20,54,90)  
nu(44)=Array(0,20,60,61)  
nu(45)=Array(0,21,58,73)  
nu(46)=Array(0,22,32,40)  
nu(47)=Array(0,22,52,69)  
nu(48)=Array(0,22,63,86)  
nu(49)=Array(0,25,63,75)  
nu(50)=Array(0,28,53,76)  
nu(51)=Array(0,30,37,59)  
nu(52)=Array(0,30,45,69)  
nu(53)=Array(0,32,34,56)  
nu(54)=Array(0,32,45,54)  
nu(55)=Array(0,32,50,80)  
nu(56)=Array(0,35,58,76)  
nu(57)=Array(0,36,37,81)  
nu(58)=Array(0,36,55,65)  
nu(59)=Array(0,36,75,90)  
nu(60)=Array(0,37,81,83)  
nu(61)=Array(0,39,44,56)  
nu(62)=Array(0,46,70,89)  
nu(63)=Array(0,54,77,81)  
nu(64)=Array(0,54,77,87)  
nu(65)=Array(0,55,78,87)  
nu(66)=Array(0,57,58,78)  
nu(67)=Array(0,59,69,84)  

   



For es=ini To EstrazioneFin-1
co=0
For c=1 To 67

If SerieFreq(es,es,nu(c),ru,w)>0 Then co=co+1
Next
If co>0 Then 
cl=es-ex
Scrivi  FormatSpace(es,5,1)&" quantità  "&FormatSpace(co,5,1)&" cl  "&FormatSpace(cl,5,1)
ex=es
If cl>mx Then mx=cl
If cl>q Then con=con+1
If cl>q1 Then con1=con1+1
If cl>q2 Then con2=con2+1
End If
Next 
Scrivi "Max st "&mx
Scrivi "st> "&q&" "&con
Scrivi "st> "&q1&" "&con1
Scrivi "st> "&q2&" "&con2
End Sub
 
Ultima modifica:
Codice: 
'84 TERNI SCELTI - estrazioni di presenza e colpi in cui sono stati assenti (Cinzia27)

Sub Main()
Dim nu(84)
Dim ru(1)
r=11
ru(1)=r
w=3'sorte
q=35
q1=30
q2=26
ini=1'7454'3 estrazioni

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

For es=ini To EstrazioneFin
co=0
For c=1 To 84

If SerieFreq(es,es,nu(c),ru,w)>0 Then co=co+1
Next
If co>0 Then 
cl=es-ex
'Scrivi  FormatSpace(es,5,1)&" quantità  "&FormatSpace(co,5,1)&" cl  "&FormatSpace(cl,5,1)
cc=cc+1
Scrivi  DataEstrazione(es)&" "&formatspace(es,5,1)&" "&left(MeseNome(Mese(es)),3)&" quantità  "& _
FormatSpace(co,5,1),0,0
If cc=1 Then cl=es-ini-1 Else cl=es-ex-1
Scrivi " "&formatspace(cl,5,1)

If cl>mx Then mx=cl
If es>mxx Then mxx=es


If cl>q Then con=con+1
If cl>q1 Then con1=con1+1
If cl>q2 Then con2=con2+1
ex=es
End If
Next
Scrivi "Ritardo attuale dei 314 terni "& EstrazioneFin-mxx
Scrivi "Max st "&mx
Scrivi "st> "&q&" "&con
Scrivi "st> "&q1&" "&con1
Scrivi "st> "&q2&" "&con2
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 gennaio 2025
    Bari
    29
    37
    09
    53
    08
    Cagliari
    33
    56
    08
    61
    20
    Firenze
    55
    33
    09
    60
    28
    Genova
    56
    09
    78
    59
    04
    Milano
    73
    51
    34
    06
    70
    Napoli
    49
    30
    64
    80
    05
    Palermo
    89
    08
    74
    48
    30
    Roma
    46
    20
    13
    87
    05
    Torino
    05
    85
    90
    28
    16
    Venezia
    51
    42
    17
    05
    09
    Nazionale
    88
    90
    72
    25
    41
    Estrazione Simbolotto
    Bari
    06
    22
    29
    11
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto