Sub Main()
Dim ru(2)
Dim ru1(10)
Dim n(90,2)
Dim ambi(4005,5)
Dim nn(2)
Dim ambi1(4005,5)
Dim nn1(2)
r = CInt(InputBox("Quale ruota esamino?","Numeri spia",1))
n1 = CInt(InputBox("Quale numero?","Numeri spia",1))
dec = CInt(InputBox("Quale decina?","Numeri spia",1))
id = dec - 1
'p = CInt(InputBox("In che posizione?","Numeri spia",1))
ee = CInt(InputBox("Estrazioni da controllare?","Numeri spia",1000))
c = CInt(InputBox("Per quanti colpi?","Numeri spia",7))
casi = 0
co = 0
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
For p = 1 To 5
a = Estratto(es,r,p)
If a = n1 Then
casi = casi + 1
ess = es + c
If ess > fin Then ess = fin End If
For x = es + 1 To ess
cc = 0
For pp = 1 To 5
d = Estratto(x,r,pp)
n(d,1) = d
n(d,2) = n(d,2) + 1
cc = 1
Next
Next
co = 0
For x = (id*10+1) To (id*10+9)
For y = x + 1 To (id*10+10)
co = co + 1
nn(1) = x
nn(2) = y
ru(1) = r
ambi(co,1) = co
ambi(co,2) = x
ambi(co,3) = y
yy = SerieFreq(es + 1,ess,nn,ru,2)
ambi(co,4) = ambi(co,4) + yy
If yy > 0 Then
ambi(co,5) = ambi(co,5) + 1
Else
ambi(co,5) = ambi(co,5)
End If
nn1(1) = x
nn1(2) = y
ru1(1) = 11
ambi1(co,1) = co
ambi1(co,2) = x
ambi1(co,3) = y
xx = SerieFreq(es + 1,ess,nn1,ru1,2)
ambi1(co,4) = ambi1(co,4) + xx
If xx > 0 Then
ambi1(co,5) = ambi1(co,5) + 1
Else
ambi1(co,5) = ambi1(co,5)
End If
Next
Next
End If
Next
Next
Scrivi
Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
Scrivi "NUMERO SPIA " & CInt(n1) & " su " & NomeRuota(r) & " in " & p & "° posizione",1
Scrivi "N° casi: " & CInt(casi),1
Scrivi
Scrivi " Frequenti nei " & c & " colpi successivi",1
OrdinaMatrice n,- 1,2
OrdinaMatrice ambi,- 1,5
OrdinaMatrice ambi1,- 1,5
ColoreTesto 1
Scrivi
Scrivi "Num.Ruota|Ambi/dec/Ru | Ambi a Tutte"
ColoreTesto 2
Scrivi " N° Fr | Ambo Fr | Ambo Fr"
ColoreTesto 0
For x = 1 To 90
riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & Format2(ambi(x,2)) & "-" & _
Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & _
Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5)
Scrivi riga
riga = ""
Next
Scrivi "******************************************************************"
For cc = 1 To 90
n(cc,1) = 0
n(cc,2) = 0
Next
End Sub