Sub Main
'est = InputBox("QUANTE ESTRAZIONI ANALIZZO",,54)
Dim Nu(90,12),kk(3)
Ini = EstrazioneFin - 54 : Fin = EstrazioneFin
Tot = fin - Ini
Scrivi"Analisi dei Numeri Estratti su un range di " & Tot & " **** Script By Mike58 **** forum LottoCed **** Legge del Terzo(Simulazione) **** ",True,True,2,4,2
Scrivi
For Es = Ini To fin
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P) : Nu(E,R) = True
Next
Next
Next
Scrivi "Numeri Presenti Totali.....................",1
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & " ",1,0,,2
For E = 1 To 90
If EstrattoFrequenza(r,e,Ini,fin) > 0 Then
k = k + 1
Scrivi Format2(E) & " ",0,0
Else
Scrivi ".. ",0,0
End If
Next
Scrivi " conta " & k,0,0
Scrivi " " & SiglaRuota(R) & " ",1,0,,2
k = 0
Scrivi
Next
Scrivi
Scrivi "Numeri Assenti Totali....................",1
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & " ",1,0,,1
For E = 1 To 90
If EstrattoFrequenza(r,e,Ini,fin) = 0 Then
k = k + 1
Scrivi Format2(E) & " ",True,False,,2,3
End If
Next
Scrivi "(" & k & ")",1,0,,1,3
k = 0
Scrivi
Next
Scrivi
Scrivi "Numeri Assenti ciclo 01-18....................",1
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & " ",1,0,,1
For E = 1 To 90
If EstrattoFrequenza(r,e,fin - 18,fin) = 0 Then
k1 = k1 + 1
Scrivi Format2(E) & " ",1,0
End If
Next
Scrivi "(" & k1 & ")",1,0,,1,3
kk(1) = k1
k1 = 0
Scrivi
Next
Scrivi
Scrivi "Numeri Assenti ciclo 01-36....................",1
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & " ",1,0,,1
For E = 1 To 90
If EstrattoFrequenza(r,e,fin - 36,fin) = 0 Then
k2 = k2 + 1
Scrivi Format2(E) & " ",1,0
End If
Next
Scrivi "(" & k2 & ")",1,0,,1,3
kk(2) = k2
k2 = 0
Scrivi
Next
Scrivi
Scrivi
Scrivi "Numeri Assenti ciclo 01-54....................",1
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & " ",1,0,,1
For E = 1 To 90
If EstrattoFrequenza(r,e,fin - 54,fin) = 0 Then
k3 = k3 + 1
Scrivi Format2(E) & " ",1,0
End If
Next
Scrivi "(" & k3 & ")",1,0,,1,3
kk(3) = k3
k3 = 0
Scrivi
Next
Scrivi
Scrivi"--------------------------------"
Scrivi "Assenze per ciclo di 18 estrazioni"
Scrivi
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & " ",1,0,,1,3
For E = 1 To 90
If EstrattoFrequenza(r,e,fin - 54,fin) = 0 Then
k4 = k4 + 1
End If
If EstrattoFrequenza(r,e,fin - 36,fin) = 0 Then
k5 = k5 + 1
End If
If EstrattoFrequenza(r,e,fin - 18,fin) = 0 Then
k6 = k6 + 1
End If
Next
Scrivi Format2(k6) & "." & Format2(k5) & "." & Format2(k4),1,0,,7,3
k4 = 0
k5 = 0
k6 = 0
Scrivi
Next
End Sub