joe
Advanced Member >PLATINUM PLUS<
Alcune piccole modifiche all script,
ci pemettono di recuparare i numeri,
che saranno molto simili a quelli proposti.
Tranne che per i 2 in più elencati erroneamente.
che produce :
Dunque sarà sufficiente controllare quali siano i risultati di questi nei concorsi successivi.
ci pemettono di recuparare i numeri,
che saranno molto simili a quelli proposti.
Tranne che per i 2 in più elencati erroneamente.
Codice:
Option Explicit
Sub Main
'Classi di Presenza 78. Script per Eugenio V.1.1. 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 = 5 To 5 : Scrivi P & Chr(9),True,False : Next : Scrivi
For R = MI_ To MI_ : T = 0
Scrivi SiglaRuota(R) & " " & Chr(9),0,0
For P = 5 To 5
K = 0
For N = 1 To 90
If EstrattoFrequenzaTurbo(R,N,Ini,Fin) = P Then
K = K + 1
Scrivi Format2(N) & Space(1),0,0 :' T = T + P*K
End If
Next
Scrivi
Next
Scrivi FormatSpace(K,4) & " Numeri",True,False ': T = T + P*K
Next
'If T/5 = Q Then Scrivi "" Else Scrivi "NO !!!",True 'Verifica Correttezza Limiti.
End Sub
che produce :
Codice:
Dal 22.08.1998 al 19.05.1999 (78 Estrazioni).
C.d.P. 5
MI 01 16 17 19 25 33 36 43 44 47 51 53 56 62 64 68 74 75 79 80 81 83 86 87
24 Numeri
Dunque sarà sufficiente controllare quali siano i risultati di questi nei concorsi successivi.
Ultima modifica: