Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Script Terni per tutte
- Creatore Discussione Cinzia27
- Data di inizio
Script terni per tutte
Script per terni estrapolati per tutte e NZ
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 SubScript 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
Ultima modifica:
ciao Cinzia27
importando lo script su Spaziometria mi rilascia questo errore, cosa posso fare, grazie
Allegati
Alberto Anderlini
Super member
BUONGIORNO M DA QUESTO ERROREVedi l'allegato 2282794
Alberto Anderlini
Super member
OK APERTO MA QUALI SONO I TERNI DA GIOCARE?
Ultima modifica:
Zetrix
Advanced Premium Member
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 SubCiao 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..
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.
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.
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 SubUltima estrazione Lotto
-
Estrazione del lotto
martedì 07 gennaio 2025Bari2937095308Cagliari3356086120Firenze5533096028Genova5609785904Milano7351340670Napoli4930648005Palermo8908744830Roma4620138705Torino0585902816Venezia5142170509Nazionale8890722541Estrazione Simbolotto
Bari
0622291131
