Quando esce Ambata Spia su Ruota!

Sub main()
Dim mt(4005,4),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,3), mt2(4005,4),nn2(2),mt3(90,3)
Dim rut(10),nn3(2),mt4(90,3),rutt(10)
ESRT=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
r = CInt(InputBox("RUOTA DELL 'AMBATA SPIA","RUOTA",2))
a= CInt(InputBox(" NUMERO AMBATA SPIA","1° SPIA",9))
ru(1)=CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",1))
ru(2)=CInt(InputBox("RUOTE DEI FREQ. ","2° RUOTA",2))
rut(1)=eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",1)))
rutt(1)=eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","2° RUOTA",2)))
cl= CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
rru(1)=11 'freq a tutte

ini=EstrazioneFin-ESRT 'estrazione di partenza
fin=EstrazioneFin 'estrazione finale
cc=0
For es=ini To fin
If Posizione(es,r,a)>0 Then
cc=cc+1
co=0
For i=1 To 89
n(1)=i
For j=i+1 To 90
n(2)=j
co=co+1
mt(co,1)=co
mt(co,2)=n(1)
mt(co,3)=n(2)
fr=SerieFreq(es+1,es+cl,n,ru,2)
mt(co,4)=mt(co,4)+fr
Next
Next






co=0
For ii=1 To 90
nn(1)=ii
co=co+1
mt1(co,1)=co
mt1(co,2)=nn(1)

fr1=SerieFreq(es+1,es+cl,nn,ru,1)
mt1(co,3)=mt1(co,3)+fr1
Next


co=0
For i1=1 To 89
n1(1)=i1
For j1=i1+1 To 90
n1(2)=j1
co=co+1
mt2(co,1)=co
mt2(co,2)=n1(1)
mt2(co,3)=n1(2)
fr2=SerieFreq(es+1,es+cl,n1,rru,2)
mt2(co,4)=mt2(co,4)+fr2
Next
Next


co=0
For ii1=1 To 90
nn2(1)=ii1
co=co+1
mt3(co,1)=co
mt3(co,2)=nn2(1)

fr3=SerieFreq(es+1,es+cl,nn2,rut,1)
mt3(co,3)=mt3(co,3)+fr3
Next


co=0
For ii2=1 To 90
nn3(1)=ii2
co=co+1
mt4(co,1)=co
mt4(co,2)=nn3(1)

fr4=SerieFreq(es+1,es+cl,nn3,rutt,1)
mt4(co,3)=mt4(co,3)+fr4
Next

'----------------------------------------------------
ColoreTesto 2
Scrivi es&" "&NomeRuota(r)&" "& StringaEstratti (es,r)
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,-1,4
OrdinaMatrice mt1,-1,3
OrdinaMatrice mt2,-1,4
OrdinaMatrice mt3,-1,3
OrdinaMatrice mt4,-1,3

Scrivi "AMBATA SPIA "& Format2(a)&" sulla ruota di "& NomeRuota(r)
Scrivi "Uscito "& Format2(cc)&" volte da "& DataEstrazione(ini)&" a "& DataEstrazione (fin)
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi "Ambi+frequenti/ Estratti+frequenti/ Ambi+presenti nei cicli / Estratti"&_
"+frequenti 1° RUOTA / Estratti+frequenti 2° RUOTA"
Scrivi "le 2R sono le ruota di: "&NomeRuota(ru(1))&" "&NomeRuota(ru(2))&""
ColoreTesto 2
Scrivi Space(0)&"Ambo+FRE su 2R| Estratto+PRE su 2R | | Ambo+FRE A TUTTE R | Estratto+PRE "&NomeRuota(rut(1))&" | Estratto+FRE "&NomeRuota(rutt(1))&""

ColoreTesto 0

For xx=1 To 25

Scrivi Format2(mt(xx,2))&" "& Format2(mt(xx,3))& Space (4) &mt(xx,4)& Space (8)&(mt1(xx,2))& Space (4)& Format2(mt1(xx,3))& Space (16)&_
Format2(mt2(xx,2))& Space (2)& Format2(mt2(xx,3))& Space (6)&mt2(xx,4)& Space (10)&(mt3(xx,2))& Space (4)& Format2(mt3(xx,3))& Space (10)&_
Format2(mt4(xx,2))& Space (4)& Format2(mt4(xx,3))

Next
End Sub

Sub main()
Dim mt(4005,6),n(2),ru(2)
r=1'ruota della spia
a=90'spia
cl=9'colpi
rr=4'1° ruota
rr1=6'2° ruota
ru(1)=rr
ru(2)=rr1
scrivi
For es=8000 To EstrazioneFin-cl' 8000 è l' estrazione di partenza
If Posizione(es,r,a)>0 Then
co=0
For i=1 To 89
n(1)=i
For j=i+1 To 90
n(2)=j
co=co+1
mt(co,1)=co
mt(co,2)=n(1)
mt(co,3)=n(2)
mt(co,4)=SiglaRuota(rr)
mt(co,5)=SiglaRuota(rr1)
fr=SerieFreq(es+1,es+cl,n,ru,2)
mt(co,6)=mt(co,6)+fr
Next
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&SiglaRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&SiglaRuota(rr)&" "& StringaEstratti (z,rr)&" "&SiglaRuota(rr1)&" "& StringaEstratti (z,rr1)
'next
'----------------------------------------------------
ColoreTesto 0
End if
Next
OrdinaMatrice mt,-1,6
Scrivi "SPIA "&format2(a)&" sulla ruota di "&siglaruota(r)
For xx=1 To 5
Scrivi Format2(mt(xx,2))&" "&Format2(mt(xx,3))&" "&mt(xx,4)&" "&mt(xx,5)&" "&Formatspace(mt(xx,6),4,1)
next
End Sub

Sub main()
Dim mt(4005,5),n(2),ru(1)
r=1'ruota della spia
a=90'spia
cl=9'colpi
rr=2 ''ruota di rilevamento o altra ruota, basta sostituire r con un numero diverso,io qui' al posto di r ho messo 2 cioe' Cagliari
ru(1)=rr
scrivi
For es=8000 To EstrazioneFin-cl' 8000 è l' estrazione di partenza
If Posizione(es,r,a)>0 Then
co=0
For i=1 To 89
n(1)=i
For j=i+1 To 90
n(2)=j
co=co+1
mt(co,1)=co
mt(co,2)=n(1)
mt(co,3)=n(2)
mt(co,4)=SiglaRuota(rr)
fr=SerieFreq(es+1,es+cl,n,ru,2)
mt(co,5)=mt(co,5)+fr
Next
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&SiglaRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&SiglaRuota(rr)&" "& StringaEstratti (z,rr)
'next
'----------------------------------------------------
ColoreTesto 0
End if
Next
OrdinaMatrice mt,-1,5
Scrivi "SPIA "&format2(a)&" sulla ruota di "&siglaruota(r)
For xx=1 To 5
Scrivi Format2(mt(xx,2))&" "&Format2(mt(xx,3))&" "&mt(xx,4)&" "&mt(xx,5)
next
End Sub

Sub main()
Dim ru(2) : Dim ru1(10), num(1), rr(1)
Dim n(90,2) : Dim ambi(4005,5) : Dim nn(2):Dim ambi1(4005,5) : Dim nn1(2)
r=CInt(InputBox("SU CHE RUOTA?",,10))
n1=CInt(InputBox("QUALE NUMERO?",,1))
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,100))
c=CInt(InputBox("QUANTI COLPI?",,10))
casi=0
co=0
fin=EstrazioneFin
ini=EstrazioneFin-ee
For es=ini To fin
num(1)=n1
rr(1)=2 ' qui' cambiare la ruota dove trovare gli ambi
a=0
a=SerieFreq(es,es,num,rr,1)
If a=1 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),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 Ruota | Ambi a Tutte"
ColoreTesto 2
Scrivi " N° Fr | Ambo Fr | Ambo Fr"
ColoreTesto 0
For x=1 To 20
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