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.
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]Nu. 14 : Abbinamenti :[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]95,6 % [/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]CA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]70,3 % [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]38 [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]FI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]88,6 % [/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]GE [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]59,8 % [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]82 [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]MI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]52,9 % [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]72 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]57 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]12 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]45 [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]NA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]51,5 % [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]20 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]13 [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]PA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]87,5 % [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]42 [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]RO [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]50,1 % [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]56 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]18 [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]TO [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]89,3 % [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]11 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]18 [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]VE [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]76,9 % [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]46 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]49 [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]NZ [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]44,4 % [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]33 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]34 [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]Med 69,7 % [/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]Aggiornato al 25.10.2016 Script By Joe[/B][/COLOR][/SIZE][/FONT]
joe;n2016070 ha scritto:------------------
ho preparato un piccolo script,
capace di svolgere la ricerca del Lottrone sul Tabellone Anailtico,
calcolarne l' Aspettabilità sia in funzione del Ritardo che del numero degli Isocroni,
elencando allo stesso tempo anche questi Abbinamenti.
------------------
skygirl;n2016129 ha scritto:
Option Explicit
Sub Main
'Classi di Presenza 78. Script per Eugenio V.1.0. By Joe.
Dim Ini,Fin,Q
Dim P,R,K,N,T
Fin = 6812 'Ultima Estrazione Considerata
Q = 78 'Quantità Estrazioni
Ini = Fin + 1 - Q 'Calcolo Inizio Periodo
Scrivi "Dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin) & " (" & Q & " Estrazioni).",True
Scrivi
Scrivi "C.d.P." & Chr(9),True,False
For P = 0 To 11 : Scrivi P & Chr(9),True,False : Next : Scrivi
For R = 1 To 10 : T = 0
Scrivi SiglaRuota(R) & " " & Chr(9),0,0
For P = 0 To 11
K = 0
For N = 1 To 90
If EstrattoFrequenzaTurbo(R,N,Ini,Fin) = P Then K = K + 1
Next
Scrivi FormatSpace(K,4) & Chr(9),0,0 : T = T + P*K
Next
If T/5 = Q Then Scrivi "" Else Scrivi "NO !!!",True 'Verifica Correttezza Limiti.
Next
End Sub