-
lones.
User deleted
nell'augurarti un buon NAtale,ne approfitto per farti un regalo SPOILER (click to view)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",3000))
r = CInt(InputBox("RUOTA DELL 'AMBO SPIA","RUOTA",6))
a= CInt(InputBox("1° NUMERO AMBO SPIA","1° SPIA",21))
b= CInt(InputBox("2° NUMERO AMBO SPIA","2° SPIA",90))
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",4)))
rutt(1)=eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","2° RUOTA",8)))
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 And Posizione(es,r,b)>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 "AMBO SPIA "& Format2(a)&"-"& Format2(b)&" 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
Edited by lones - 4/1/2011, 20:31.