Script Terni per tutte

Cinzia27 · 7 Dicembre 2021

Ciao, a tutti.
Di seguito troverete lo script aggiornato coi dati statistici di questi terni per tutte.

Cinzia27 · 9 Dicembre 2021

Stasera terno secco su tutte: 72.67.65

Cinzia27 · 10 Dicembre 2021

Grazie, Tom. Io ho fiducia nei magnifici 7.

Cinzia27 · 10 Marzo 2024

Ciao a tutti.
Come ho già avuto modo di precisare, questi terni restano validi anche se escono (a differnza degli ambi secchi su ruota
che sono ad esaurimento).

Cinzia27 · 5 Aprile 2024

Stasera altro terno ripetuto
200) 29.04.2023) 10231) Tu 27.29.55 fr 14 st 1646 rt pr 1613 rt 186 terno uscito 1 volte sortiti 1

Cinzia27 · 6 Aprile 2024

Script terni per tutte

Codice:

Sub Main()
Dim ru(1),nu(314),rt(314),rt1(314),fr(314),fr1(314),fre(314),st(314)
w=3'sorte
r=11
ru(1)=r

If w=3 Then ini=6657
If w=2 Then ini=10232
If w=1 Then ini=EstrazioneFin-10
For es=ini To EstrazioneFin-1
co=co+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 c=1 To 314
OrdinaMatrice nu(c),1

If SerieFreq(es,es,nu(c),ru,w)>0 Then

If SerieFreq(es+1,EstrazioneFin-1,nu(c),ru,w)=0 Then
cc=cc+1
rt(c)=EstrazioneFin-es
st(c)=SerieStorico(1,EstrazioneFin-1,nu(c),ru,w)
rt1(c)=SerieRitardo(1,EstrazioneFin -rt(c)-1,nu(c),ru,w)
fre(c)=SerieFreq(1,EstrazioneFin -1,nu(c),ru,w)
Scrivi FormatSpace(cc,4,1)&") "& DataEstrazione (es)&") "&FormatSpace(es,5,1)&") "&SiglaRuota(r)&" "&FormatSpace(StringaNumeri(nu(c)),8,1)_
&" fr "&FormatSpace(fre(c),4,1)&"  st  "&FormatSpace(st(c),4,1)&"  rt pr  "&FormatSpace(rt1(c),4,4)_
&" rt  "&FormatSpace(rt(c),4,1)&" cl  "&FormatSpace(co,4,1)&" ",0,0'
co=0
fr(c)=SerieFreq(EstrazioneFin,EstrazioneFin,nu(c),ru,w)

If fr(c)>0 Then fre1=fre1+fr(c): ColoreTesto 2: Scrivi "  sortiti  "&fr(c) Else Scrivi



'For ex=1 To EstrazioneFin-1
'If SerieFreq(ex,ex,nu(c),ru,w)>0 Then
'rtx(c)=SerieRitardo(1,ex-1,nu(c),ru,w)
'OrdinaMatrice rtx(c)
'ColoreTesto   1
'Scrivi "  "&FormatSpace(rtx(c),3,1)&"",0,0
'End If
'Next

ColoreTesto   0
End If
End If
Next
Next
If  fre1>0 Then Scrivi " sortiti "& fre1

If fre1=0 Then Scrivi " sortiti 0"
End Sub

Script per terni estrapolati per tutte e NZ

Codice:

'TERNI ESTRAPOLATI

Sub Main()
Dim nu(80),rt(80),rt1(80),fr(80),fr1(80),fre(80),st(80)
Dim ru(11)
r1=1:r2=2:r3=3:r4=4:r5=5:r6=6:r7=7:r8=8:r9=9:r10=10:r12=12
ru(1)=r1:ru(2)=r2:ru(3)=r3:ru(4)=r4:ru(5)=r5:ru(6)=r6:ru(7)=r7:ru(8)=r8:ru(9)=r9:ru(10)=r10:ru(11)=r12
w=3'sorte

If w=3 Then ini=8771
If w=2 Then ini=10232
If w=1 Then ini=EstrazioneFin-10
For es=ini To EstrazioneFin-1
co=co+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,    06,33,38    )  
nu(    17    )=Array(0,    07,66,68    )  
nu(    18    )=Array(0,    09,38,70    )  
nu(    19    )=Array(0,    09,45,60    )  
nu(    20    )=Array(0,    11,16,38    )  
nu(    21    )=Array(0,    11,34,65    )  
nu(    22    )=Array(0,    11,36,73    )  
nu(    23    )=Array(0,    11,59,63    )  
nu(    24    )=Array(0,    11,59,78    )  
nu(    25    )=Array(0,    12,32,39    )  
nu(    26    )=Array(0,    12,33,62    )  
nu(    27    )=Array(0,    13,23,81    )  
nu(    28    )=Array(0,    13,35,68    )  
nu(    29    )=Array(0,    14,27,45    )  
nu(    30    )=Array(0,    14,63,90    )  
nu(    31    )=Array(0,    17,24,81    )  
nu(    32    )=Array(0,    17,34,46    )  
nu(    33    )=Array(0,    17,47,90    )  
nu(    34    )=Array(0,    17,48,82    )  
nu(    35    )=Array(0,    18,62,78    )  
nu(    36    )=Array(0,    18,64,78    )  
nu(    37    )=Array(0,    18,71,88    )  
nu(    38    )=Array(0,    19,21,50    )  
nu(    39    )=Array(0,    19,22,42    )  
nu(    40    )=Array(0,    19,24,31    )  
nu(    41    )=Array(0,    19,27,73    )  
nu(    42    )=Array(0,    19,67,78    )  
nu(    43    )=Array(0,    20,48,53    )  
nu(    44    )=Array(0,    20,54,90    )  
nu(    45    )=Array(0,    20,60,61    )  
nu(    46    )=Array(0,    21,58,73    )  
nu(    47    )=Array(0,    22,32,40    )  
nu(    48    )=Array(0,    22,52,69    )  
nu(    49    )=Array(0,    22,63,86    )  
nu(    50    )=Array(0,    25,63,75    )  
nu(    51    )=Array(0,    28,53,76    )  
nu(    52    )=Array(0,    30,37,59    )  
nu(    53    )=Array(0,    30,45,69    )  
nu(    54    )=Array(0,    32,34,56    )  
nu(    55    )=Array(0,    32,45,54    )  
nu(    56    )=Array(0,    32,50,80    )  
nu(    57    )=Array(0,    35,58,76    )  
nu(    58    )=Array(0,    36,37,81    )  
nu(    59    )=Array(0,    36,55,65    )  
nu(    60    )=Array(0,    36,75,90    )  
nu(    61    )=Array(0,    37,81,83    )  
nu(    62    )=Array(0,    39,44,56    )  
nu(    63    )=Array(0,    39,74,75    )  
nu(    64    )=Array(0,    40,41,74    )  
nu(    65    )=Array(0,    40,55,81    )  
nu(    66    )=Array(0,    40,62,76    )  
nu(    67    )=Array(0,    42,53,69    )  
nu(    68    )=Array(0,    46,51,84    )  
nu(    69    )=Array(0,    46,70,89    )  
nu(    70    )=Array(0,    47,72,73    )  
nu(    71    )=Array(0,    49,55,61    )  
nu(    72    )=Array(0,    51,52,76    )  
nu(    73    )=Array(0,    51,76,81    )  
nu(    74    )=Array(0,    54,77,81    )  
nu(    75    )=Array(0,    54,77,87    )  
nu(    76    )=Array(0,    57,58,78    )  
nu(    77    )=Array(0,    58,76,83    )  
nu(    78    )=Array(0,    59,69,84    )  
nu(    79    )=Array(0,    63,77,81    )  
nu(    80    )=Array(0,    68,79,87    )  

 

For c=1 To 80
OrdinaMatrice nu(c),1

If SerieFreq(es,es,nu(c),ru,w)>0 Then

If SerieFreq(es+1,EstrazioneFin-1,nu(c),ru,w)=0 Then
cc=cc+1
rt(c)=EstrazioneFin-es
st(c)=SerieStorico(1,EstrazioneFin-1,nu(c),ru,w)
rt1(c)=SerieRitardo(1,EstrazioneFin -rt(c)-1,nu(c),ru,w)
fre(c)=SerieFreq(1,EstrazioneFin -1,nu(c),ru,w)
Scrivi FormatSpace(cc,4,1)&") "& DataEstrazione (es)&") "&FormatSpace(es,5,1)&") "&SiglaRuota(r)&" "&FormatSpace(StringaNumeri(nu(c)),8,1)_
&" fr "&FormatSpace(fre(c),4,1)&"  st  "&FormatSpace(st(c),4,1)&"  rt pr  "&FormatSpace(rt1(c),4,4)_
&" rt  "&FormatSpace(rt(c),4,1)&" cl  "&FormatSpace(co,4,1)&" ",0,0'
co=0
fr(c)=SerieFreq(EstrazioneFin,EstrazioneFin,nu(c),ru,w)

If fr(c)>0 Then fre1=fre1+fr(c): ColoreTesto 2: Scrivi "  sortiti  "&fr(c) Else Scrivi



'For ex=1 To EstrazioneFin-1
'If SerieFreq(ex,ex,nu(c),ru,w)>0 Then
'rtx(c)=SerieRitardo(1,ex-1,nu(c),ru,w)
'OrdinaMatrice rtx(c)
'ColoreTesto   1
'Scrivi "  "&FormatSpace(rtx(c),3,1)&"",0,0
'End If
'Next

ColoreTesto   0
End If
End If
Next
Next
If  fre1>0 Then Scrivi " sortiti "& fre1

If fre1=0 Then Scrivi " sortiti 0"
End Sub

Cinzia27 · 14 Aprile 2024

Grazie, Sax e Scarfacetony.
Invito a riscaricare lo script dato che ho aggiunto un terno.

genios · 14 Aprile 2024

Cinzia27 ha scritto:
Grazie, Sax e Scarfacetony.
Invito a riscaricare lo script dato che ho aggiunto un terno.

Cinzia potresti spiegare che tipo di terni sono . Grazie

Ciao Eugenio

gastaldop · 14 Aprile 2024

Cinzia27 ha scritto:

Script terni per tutte

Codice:

Sub Main()
Dim ru(1),nu(314),rt(314),rt1(314),fr(314),fr1(314),fre(314),st(314)
w=3'sorte
r=11
ru(1)=r

If w=3 Then ini=6657
If w=2 Then ini=10232
If w=1 Then ini=EstrazioneFin-10
For es=ini To EstrazioneFin-1
co=co+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 c=1 To 314
OrdinaMatrice nu(c),1 

If SerieFreq(es,es,nu(c),ru,w)>0 Then

If SerieFreq(es+1,EstrazioneFin-1,nu(c),ru,w)=0 Then
cc=cc+1
rt(c)=EstrazioneFin-es
st(c)=SerieStorico(1,EstrazioneFin-1,nu(c),ru,w)
rt1(c)=SerieRitardo(1,EstrazioneFin -rt(c)-1,nu(c),ru,w)
fre(c)=SerieFreq(1,EstrazioneFin -1,nu(c),ru,w)
Scrivi FormatSpace(cc,4,1)&") "& DataEstrazione (es)&") "&FormatSpace(es,5,1)&") "&SiglaRuota(r)&" "&FormatSpace(StringaNumeri(nu(c)),8,1)_
&" fr "&FormatSpace(fre(c),4,1)&"  st  "&FormatSpace(st(c),4,1)&"  rt pr  "&FormatSpace(rt1(c),4,4)_
&" rt  "&FormatSpace(rt(c),4,1)&" cl  "&FormatSpace(co,4,1)&" ",0,0'
co=0
fr(c)=SerieFreq(EstrazioneFin,EstrazioneFin,nu(c),ru,w)

If fr(c)>0 Then fre1=fre1+fr(c): ColoreTesto 2: Scrivi "  sortiti  "&fr(c) Else Scrivi



'For ex=1 To EstrazioneFin-1
'If SerieFreq(ex,ex,nu(c),ru,w)>0 Then
'rtx(c)=SerieRitardo(1,ex-1,nu(c),ru,w)
'OrdinaMatrice rtx(c)
'ColoreTesto   1
'Scrivi "  "&FormatSpace(rtx(c),3,1)&"",0,0
'End If
'Next

ColoreTesto   0
End If
End If
Next
Next
If  fre1>0 Then Scrivi " sortiti "& fre1

If fre1=0 Then Scrivi " sortiti 0"
End Sub

ciao Cinzia27
importando lo script su Spaziometria mi rilascia questo errore, cosa posso fare, grazie

Cinzia27 · 14 Aprile 2024

Ciao, Gastaldop.
Hai Option Exiplicit in alto?
Se ce l'hai devi toglierla.

Alberto Anderlini · 25 Aprile 2024

BUONGIORNO M DA QUESTO ERROREVedi l'allegato 2282794

Alberto Anderlini · 25 Aprile 2024

OK APERTO MA QUALI SONO I TERNI DA GIOCARE?

Cinzia27 · 25 Aprile 2024

Lo script ti offre la situazione statistica.
Poi sta a te scegliere.

Cinzia27 · 25 Aprile 2024

Ciao, Alberto.
Nel 3D "Unificazione terni"a pag. 5 ho diviso in gruppi questi terni.
Si può scegliere uno di questi gruppi ( ve ne sono anche formati da un solo terno).
Inoltre nel 3D "Terni estrapolati" vi sono i terni stessi drasticamente ridotti nel numero.

Cinzia27 · 25 Aprile 2024

Ho aggiunto a pag. 6 al primo script un secondo script per i terni estrapolati.

Zetrix · 28 Aprile 2024

Codice:

'TERNI ESTRAPOLATI
Sub Main()
   Dim nu(80),rt(80),rt1(80),fr(80),fr1(80),fre(80),st(80)
   Dim ru(11)
   r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r12 = 12
   ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r12
   w = 3'sorte
   If w = 3 Then ini = EstrazioneFin - 2000
   If w = 2 Then ini = EstrazioneFin - 1000
   If w = 1 Then ini = EstrazioneFin - 10
   For es = ini To EstrazioneFin - 1
      co = co + 1
      nu(1) = Array(0,2,74,34)
      For c = 1 To 1
         OrdinaMatrice nu(c),1
         If SerieFreq(es,es,nu(c),ru,w) > 0 Then
            If SerieFreq(es + 1,EstrazioneFin - 1,nu(c),ru,w) = 0 Then
               cc = cc + 1
               rt(c) = EstrazioneFin - es
               st(c) = SerieStorico(1,EstrazioneFin - 1,nu(c),ru,w)
               rt1(c) = SerieRitardo(1,EstrazioneFin - rt(c) - 1,nu(c),ru,w)
               fre(c) = SerieFreq(1,EstrazioneFin - 1,nu(c),ru,w)
               Scrivi FormatSpace(cc,4,1) & ") " & DataEstrazione(es) & ") " & FormatSpace(es,5,1) & ") " & SiglaRuota(r) & " " & FormatSpace(StringaNumeri(nu(c)),8,1)_
               & " fr " & FormatSpace(fre(c),4,1) & "  st  " & FormatSpace(st(c),4,1) & "  rt pr  " & FormatSpace(rt1(c),4,4)_
               & " rt  " & FormatSpace(rt(c),4,1) & " cl  " & FormatSpace(co,4,1) & " ",0,0'
               co = 0
               fr(c) = SerieFreq(EstrazioneFin,EstrazioneFin,nu(c),ru,w)
               If fr(c) > 0 Then fre1 = fre1 + fr(c): ColoreTesto 2: Scrivi "  sortiti  " & fr(c) Else Scrivi
               'For ex=1 To EstrazioneFin-1
               'If SerieFreq(ex,ex,nu(c),ru,w)>0 Then
               'rtx(c)=SerieRitardo(1,ex-1,nu(c),ru,w)
               'OrdinaMatrice rtx(c)
               'ColoreTesto   1
               'Scrivi "  "&FormatSpace(rtx(c),3,1)&"",0,0
               'End If
               'Next
               ColoreTesto 0
            End If
         End If
      Next
   Next
   If fre1 > 0 Then Scrivi " sortiti " & fre1
   If fre1 = 0 Then Scrivi " sortiti 0"
End Sub

Ciao CInzia,
ho visto il tuo script che ai fatto sui terni e ho fatto una prova sul terno 2.74.34 uscito a ba
nell'out della statistica risulta che questo terno era uscito a milano in data 11 lug. 2023
volevo farti una domanda come si fa a splittare i cinque estratti di una ruota e metterli in array in terzine..
ho notato che consideri anche le estr del dopo guerra ma se vuoi un consiglio considera solo la statistica con le venus..

Cinzia27 · 28 Aprile 2024

Ciao, Zetrix.
Per scomporre la cinquina in terno, faccio così.
Poi ognuno può far di meglio.

Sub main()
Dim n(3)
r=1
For es=EstrazioneFin-3 To EstrazioneFin
Scrivi FormatSpace(es,5,1)
Scrivi siglaruota(r)
For p=1 To 3
For p1=p+1 To 4
For p2=p1+1 To 5
n(1)=Estratto(es,r,p)
n(2)=Estratto(es,r,p1)
n(3)=Estratto(es,r,p2)
Scrivi stringanumeri

Next
Next
Next
Scrivi
Next
End Sub

Quanto ai terni, non sono terni a caso, vanno lasciati così.
Il loro unico problema è che sono considerati solo da pochi, che non bastano a fare un risultato reale.

Zetrix · 28 Aprile 2024

ok Cinzia, ma avevo detto come si possono mettere in array le terzine..
oppure bisogna scriverle una terzina per volta nella array..

claudio8 · 29 Aprile 2024

Zetrix ha scritto:
ok Cinzia, ma avevo detto come si possono mettere in array le terzine..
oppure bisogna scriverle una terzina per volta nella array..

Opera ciclando le estrazioni e le classi di sviluppo creando le array
sColonne è la array che cercavi.

Codice:

Sub Main
     Dim Colonne,r,classe
     Dim sColonne
     Dim nr(5)
     'classe = 3 ' 2 = ambi 3= terzine 4= quartine ecc
     r = 1
     For es = EstrazioneFin - 20 To EstrazioneFin
          For classe = 1 To 5 ' in questo modo cicliamo le varie classi
               ReDim sColonne(classe)
               Scrivi FormatSpace(es,5,1) & " " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " classe " & NomeSorte(classe) & " Combinazioni " & Combinazioni(5,classe)
               For p = 1 To 5
                    nr(p) = Estratto(es,r,p)
               Next
              
               Colonne = SviluppoIntegrale(nr,classe)
               For k = 1 To UBound(Colonne)
                    For j = 1 To classe
                         sColonne(j) = Format2(Colonne(k,j))
                    Next
                    Scrivi StringaNumeri(sColonne) ' sColonne è la array che cercavi
               Next
               Scrivi
          Next
         Scrivi " -----------------------------",,,2
     Next
End Sub

saluti

Zetrix · 29 Aprile 2024

Script Terni per tutte

Premium Member

Premium Member

Premium Member

Premium Member

Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM<

Junior Member

Allegati

Premium Member

Super member

Super member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member