Sub Main
Dim abb,Nu(90),Ru(1),Quanti_Abb,T
Dim kkk(90),aN(5)
n = 90
r = 1
Ru(1) = r
Ini = EstrazioneFin -(156*5)
fin = EstrazioneFin
ef = EstrattoFrequenza(r,n,Ini,fin)
Tot = fin - Ini + 1
Quanti_Abb = CInt(InputBox("Quanti Abbinamenti",,9))
Scrivi "Frequenza Numero in esame.... " & n & " Uscito " & ef & " In Estrazioni...Tot : " & fin - Ini + 1
'
Call Abbinamenti(n,abb,Ini,fin,r)
For kk = 1 To Quanti_Abb
Scrivi Format2(abb(kk,1)) & " [ " & FormatSpace(abb(kk,2),2) & " ]"
Next
'
Scrivi
T = Array(T,"Info Data","Estratti","Fin-es","Elenco Rit","VerificaEsito","TipoEsito")
Call InitTabella(T,0,,,5,"Arial Black")
'
For es = Ini To fin
If Posizione(es,r,n) > 0 Then
k = k + 1
ess = es - Ini
Ini = es
Nu(1) = n
'
For x = 2 To Quanti_Abb + 1
Nu(x) = abb(x,1)
Next
'
For p = 1 To 5
aN(p) = Estratto(es,r,p)
For nn = 1 To 90
If nn = aN(P) Then kkk(nn) = kkk(nn) + 1
Next
Next
'--------------------------------
Call VerificaEsito(Nu,Ru,es,2,1,,esito,,esa,Id)
If esito <> "" Then k1 = k1 + 1
If esito = "Ambo" Then k2 = k2 + 1
If esito = "Terno" Then k3 = k3 + 1
If esito = "Quaterna" Then k4 = k4 + 1
If esito = "Cinquina" Then k5 = k5 + 1
T = Array(T,GetInfoEstrazione(es),StringaEstratti(es,r),fin - es,ess,esa,esito)
Call AddRigaTabella(T)
'Scrivi es & vbTab & StringaEstratti(es,r) & vbTab & esa & vbTab & id
End If
Next
'
CreaTabella
Scrivi StringaNumeri(Nu) & " ( " & Quanti_Abb + 1 & " Numeri )"
Scrivi
Scrivi "Spia trovata.... " & k,1
Scrivi "Esiti Coperti... " & k1,1
Scrivi "Ambi............ " & FormatSpace(k2,3) & " [ " & "Rapporto Vincita " & FormatSpace(Vincita(2,Quanti_Abb + 1),10) & " ]" & _
Space(2) & "Vincita x Ambo.... " & k2 * Vincita(2,Quanti_Abb + 1)
Scrivi "Terni........... " & FormatSpace(k3,3) & " [ " & "Rapporto Vincita " & FormatSpace(Vincita(3,Quanti_Abb + 1),10) & " ]" & _
Space(2) & "Vincita x Ambi.... " &(k3 * 3) * Vincita(2,Quanti_Abb + 1) & " | " & " Vincita Terno... " & k3 * Vincita(3,Quanti_Abb + 1)
Scrivi "Quaterna........ " & FormatSpace(k4,3) & " [ " & "Rapporto Vincita " & FormatSpace(Vincita(4,Quanti_Abb + 1),10) & " ]" & _
Space(2) & "Vincita x Ambi.... " &(k4 * 6) * Vincita(2,Quanti_Abb + 1) & " | " & " Vincita Terno... " &(k4*4) * Vincita(3,Quanti_Abb + 1) & _
" | " & "Vincita Quaterna... " & k4 * Vincita(4,Quanti_Abb + 1)
Scrivi "Cinquina........ " & FormatSpace(k5,3) & " [ " & "Rapporto Vincita " & FormatSpace(Vincita(5,Quanti_Abb + 1),10) & " ]"
Scrivi "Percentuale Coperta...... " & Round(k1/k*100,2),1,,,2
Scrivi
Scrivi "Totale Giocato... " & 5*Tot
vv = k2 * Vincita(2,Quanti_Abb + 1) +(k3 * 3) * Vincita(2,Quanti_Abb + 1) + k3 * Vincita(3,Quanti_Abb + 1) + _
(k4 * 6) * Vincita(2,Quanti_Abb + 1) +(k4*4) * Vincita(3,Quanti_Abb + 1) + k4 * Vincita(4,Quanti_Abb + 1)
Scrivi "Totali Vincite... " & vv
Scrivi "Utile............ " & vv -(5*Tot),1
'
Scrivi
Scrivi "Controverifica Presenti in Estrazione Numero Spia",1
For c1 = 0 To 90
For c2 = 1 To 90
If kkk(c2) = c1 Then
k1 = k1 + 1
ReDim Preserve afreq(k1)
afreq(k1) = c2
End If
Next
If k1 > 0 Then
Call Scrivi(FormatSpace(k1,2) & " Numeri Con Presenza " & c1 & vbTab,1,0,,2,3)
Call Scrivi(StringaNumeri(afreq),1,1,,1,3)
End If
k1 = 0
Next
End Sub