3 Numeri Spia (2 su 1 Ruota e 1 su un'altra) 2

'TRE SPIE SU 2RT (a scelta o tutte)Modificato x Laken
'Ramco x Forum LottoPatrik 05/11/2009
Sub main()

Dim n(3),x(3),a1(3),xc(3),ru(2),nu1(4005,4),nn(2)
Dim nu2(4005,4),nn1(6),nu3(90,3),nn2(2),nu4(90,3),nx(90)

ab="Digita Tre numeri distanziati dal punto(.)"
aa=InputBox(ab,"Numeri di Ricerca","22.33.55")
aa="0."&aa
s=Split(aa,".")

n(1)=CInt(s(1))
n(2)=CInt(s(2))
n(3)=CInt(s(3))

Erase nu1
Erase nu2
Erase nu3
Erase nu4

fin=EstrazioneFin
ini=CInt (InputBox ("Da che Estrazione Iniziamo?(3575 dal 1939 ; 6584 doppia estr.; 7454 3^Estr.)","ESTRAZIONE",7454))
'3575 estrazione 1939<----->> 6584 <<inizio doppia estrazione <<< 3° estrazione 7454
ww=CInt (InputBox ("Quante Estrazioni successive utilizziamo per il controllo?","SUCCESSIVE",12))
cnt=CInt (InputBox ("Nella Visualizzazione quante Formazioni vuoi vedere ?","FORMAZIONI",20))
sru=CInt (InputBox ("VUOI CONTROLLARE TUTTE LE RUOTE ? (1=SI ; 2=NO)","SCELTA RUOTE",1))
If sru=1 Then
casi=0
For es=ini To fin
Messaggio " Numeri Spia "& StringaNumeri(n)&" Data "& DataEstrazione(es)
For r=1 To 10 'Qui si cambia per controllare una ruota particolare 10 to 10 VE, o TUTTE 1 to 10
x(1)=n(1)
x(2)=n(2)
x(3)=n(3)
For p=1 To 4
a=Estratto (es,r,p)
If a=x(1) Or a=x(2) Or a=x(3) Then
For q=p+1 To 5
b=Estratto (es,r,q)
If b=x(1) Or b=x(2) Or b=x(3) Then
If a=x(1) Or b=x(1) Then x(1)=0
If a=x(2) Or b=x(2) Then x(2)=0
If a=x(3) Or b=x(3) Then x(3)=0
OrdinaMatrice x,-1
If x(1)=0 Then ColoreTesto 2 : Call informa(es,r,a,b,0,0)
For r1=1 To 10 'Qui si cambia per controllare una ruota particolare 10 to 10 VE, o TUTTE 1 to 10
If r1<>r Then
pq=Posizione(es,r1,x(1))
If pq>0 Then
casi=casi+1
ColoreTesto 0 : Scrivi casi&")",0 : Call informa(es,r,a,b,r1,x(1))
ess=es+ww
If ess>fin Then ess=fin End If
co=0
For x1=1 To 89
For y1=x1+1 To 90
co=co+1
nu1(co,1)=co : nu1(co,2)=x1 : nu1(co,3)=y1
nn(1)=x1 : nn(2)=y1 : ru(1)=r : ru(2)=r1
k1=SerieFreq (es+1,ess,nn,ru,2)
nu1(co,4)=nu1(co,4)+ k1
nu2(co,1)=co : nu2(co,2)=x1 : nu2(co,3)=y1
nn1(1)=x1 : nn1(2)=y1 : ru(1)=r : ru(2)=r1
k2=SerieFreq (es+1,ess,nn1,ru,2)
If k2>1 Then k2=1
nu2(co,4)=nu2(co,4)+ k2
Next
Next
co=0
For xx=1 To 90
co=co+1
nu3(co,1)=co : nu3(co,2)=xx
nn2(1)=xx : ru(1)=r : ru(2)=r1
k3=SerieFreq (es+1,ess,nn2,ru,1)
If k3>1 Then k3=1
nu3(co,3)=nu3(co,3)+ k3
nu4(co,1)=co : nu4(co,2)=xx
nn2(1)=xx : ru(1)=r : ru(2)=r1
k4=SerieFreq (es+1,ess,nn2,ru,1)
nu4(co,3)=nu4(co,3)+ k4
Next
End If
End If
Next
End If
Next
End If
Next
Next
Next
Else
If sru=2 Then
nrt=InputBox("DIGITA LE DUE RUOTE DI RICERCA [1=BA ; 2=CA...](separate dal (.))","RUOTE RICERCA","4.9")
nrt="0."&nrt
rts=Split(nrt,".")
rq1=CInt(rts(1))
rq2=CInt(rts(2))
For es=ini To fin
Messaggio " Numeri Spia "& StringaNumeri(n)&" Data "& DataEstrazione(es)
For r=1 To 10
If r=rq1 Or r=rq2 Then
x(1)=n(1)
x(2)=n(2)
x(3)=n(3)
For p=1 To 4
a=Estratto (es,r,p)
If a=x(1) Or a=x(2) Or a=x(3) Then
For q=p+1 To 5
b=Estratto (es,r,q)
If b=x(1) Or b=x(2) Or b=x(3) Then
If a=x(1) Or b=x(1) Then x(1)=0
If a=x(2) Or b=x(2) Then x(2)=0
If a=x(3) Or b=x(3) Then x(3)=0
OrdinaMatrice x,-1
If x(1)=0 Then ColoreTesto 2 : Call informa(es,r,a,b,0,0)
For r1=1 To 10
If r1<>r Then
If r1=rq1 Or r1=rq2 Then
pq=Posizione(es,r1,x(1))
If pq>0 Then
casi=casi+1
ColoreTesto 0 : Scrivi casi&")",0 : Call informa(es,r,a,b,r1,x(1))
ess=es+ww
If ess>fin Then ess=fin End If
co=0
For x1=1 To 89
For y1=x1+1 To 90
co=co+1
nu1(co,1)=co : nu1(co,2)=x1 : nu1(co,3)=y1
nn(1)=x1 : nn(2)=y1 : ru(1)=r : ru(2)=r1
k1=SerieFreq (es+1,ess,nn,ru,2)
nu1(co,4)=nu1(co,4)+ k1
nu2(co,1)=co : nu2(co,2)=x1 : nu2(co,3)=y1
nn1(1)=x1 : nn1(2)=y1 : ru(1)=r : ru(2)=r1
k2=SerieFreq (es+1,ess,nn1,ru,2)
If k2>1 Then k2=1
nu2(co,4)=nu2(co,4)+ k2
Next
Next
co=0
For xx=1 To 90
co=co+1
nu3(co,1)=co : nu3(co,2)=xx
nn2(1)=xx : ru(1)=r : ru(2)=r1
k3=SerieFreq (es+1,ess,nn2,ru,1)
If k3>1 Then k3=1
nu3(co,3)=nu3(co,3)+ k3
nu4(co,1)=co : nu4(co,2)=xx
nn2(1)=xx : ru(1)=r : ru(2)=r1
k4=SerieFreq (es+1,ess,nn2,ru,1)
nu4(co,3)=nu4(co,3)+ k4
Next
End If
End If
End If
Next
End If
Next
End If
Next
End If
Next
Next
End If
End If
OrdinaMatrice nu1,-1,4
OrdinaMatrice nu2,-1,4
OrdinaMatrice nu3,-1,3
OrdinaMatrice nu4,-1,3

Scrivi : ColoreTesto 2
Scrivi "Formazione Spia Cercata su due ruote "& StringaNumeri(n)&" dal "& DataEstrazione(ini)&" al "& DataEstrazione(fin),1
ColoreTesto 1
Scrivi "Casi riscontrati "& CInt(casi) &" - Analisi effettuata sulle "&ww& " estrazioni sucessive "
ColoreTesto 2
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI ",1
ColoreTesto 1
Scrivi "Ambi+presenti / Ambi+frequenti nei cicli / Estratti+frequenti nei c. / Estratti+presenti "
Scrivi
ColoreTesto 2
Scrivi Space(10)&"Ambi+P. Tot.| Ambo+FxC Tot.| Est.+FxC Tot.| Est.+Pr Tot."
ColoreTesto 0
For wx=1 To cnt
riga= Format2(nu1(wx,2))&"-"& Format2(nu1(wx,3))& Space(4)& Format2(nu1(wx,4))& Space(4)&_
Format2 (nu2(wx,2))&"-"& Format2(nu2(wx,3))& Space(4)& Format2 (nu2(wx,4))& Space(5)&_
Format2(nu3(wx,2))& Space(5)& Format2 (nu3(wx,3))& Space(6)& Format2(nu4(wx,2))& Space(4)&_
Format2 (nu4(wx,3))
Scrivi Space(10)& riga,1
riga=""
Next
Scrivi String(90,"*")
End Sub

Function informa (es,r,a,b,r1,c)
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),2)&" "&_
Format2(a)&"-"& Format2(b)&" "&Left(NomeRuota(r1),2)&" "&Format2(c),1
End Function