R
Roby
Guest
A chi può interessare.
Ciao
metus
Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
Ciao
Codice:
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))
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
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=1 To 90
For y=x+1 To 90
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
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 a Ruot| Ambi a Tutte"
ColoreTesto 2
Scrivi " N° Fr | Ambo Fr | Ambo Fr"
ColoreTesto 0
For x=1 To 10
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 Submetus
Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
