ciao pesciolina , non conosco il procedimento di questo metodo , ma nel forum di sean69 ho trovato 2 listati , li metto qui .
se puoi se hai tempo mi metti il metodo ?
1° listato fatto da drago29
Sub main()
Dim nu2(10),nu1(10),nu3(10)
Dim ruote(10),ruota(10)
Dim poste(2)
poste(2)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
n1=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,2))
n2=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,3))
n3=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,4))
n4=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,5))
n5=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,3))
n6=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,4))
n7=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,5))
n8=Fuori90(Estratto(es-2,r1,3)+Estratto(es-2,r1,4))
n9=Fuori90(Estratto(es-2,r1,3)+Estratto(es-2,r1,5))
n10=Fuori90(Estratto(es-2,r1,4)+Estratto(es-2,r1,5))
For p1=1 To 5
nn=Estratto(es-3,r1,p1)
If nn=n1 Or nn=n2 Or nn=n3 Or nn=n4 Or nn=n5 Or nn=n6 Or nn=n7 Or nn=n8 Or nn=n9 Or nn=n10 Then
c1=0:c2=0:c3=0
If nn=n1 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,2)
If nn=n2 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,3)
If nn=n3 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,4)
If nn=n4 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,5)
If nn=n5 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,3)
If nn=n6 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,4)
If nn=n7 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,5)
If nn=n8 Then c1=nn :c2=Estratto(es-2,r1,3):c3=Estratto(es-2,r1,4)
If nn=n9 Then c1=nn :c2=Estratto(es-2,r1,3):c3=Estratto(es-2,r1,5)
If nn=n10 Then c1=nn :c2=Estratto(es-2,r1,4):c3=Estratto(es-2,r1,5)
a1=90-c1
a2=90-c2
a3=90-c3
For r2=1 To 2
xs=es-3+r2
For r3=1 To 10
If r3<>r1 Then
For p2=1 To 4
For p3=p2+1 To 5
b1=Estratto(xs,r3,p2)
b2=Estratto(xs,r3,p3)
If (b1=a1 And b2=a2 Or b1=a1 And b2=a3 Or b1=a2 And b2=a3)_
Or (b2=a1 And b1=a2 Or b2=a1 And b1=a3 Or b2=a2 And b1=a3) Then
If b1=a1 And b2=a2 Then w=a3
If b1=a1 And b2=a3 Then w=a2
If b1=a2 And b2=a3 Then w=a1
If b2=a1 And b1=a2 Then w=a3
If b2=a1 And b1=a3 Then w=a2
If b2=a2 And b1=a3 Then w=a1
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es-3,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-3,r1)&_
" > Somma Triade < "&Format2(c2)&" + "&Format2(c3)&" = "&Format2(nn)&" . "
Scrivi "Numeri da cercare nelle estrzzioni Precedenti "&Format2(a1)&" . "&Format2(a2)&" . "&Format2(a3)&" . "
Scrivi DataEstrazione(xs,1)&" < "&siglaRuota(r3)& " "& StringaEstratti(xs,r3)&_
" > Trovati < "&Format2(b1)&" . "&Format2(b2)&"> Manca "&Format2(w)&" . "
Scrivi "Soluzione Trovata + "&Format2(r2)&" Estrazioni "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:k=14:ruote(2)=r3:ruota(1)=11:co=0
If w+c1=90 Then kk=c1
If w+c2=90 Then kk=c2
If w+c3=90 Then kk=c3
nu1(1)=w
nu1(2)=kk
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=w
nu2(2)=c1
nu2(3)=c2
nu2(4)=c3
nu2(5)=kk
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=w
nu2(2)=b1
nu2(3)=b2
nu2(4)=c3
nu2(5)=kk
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=w
nu3(2)=kk
nu3(3)=c1
nu3(4)=c2
nu3(5)=c3
nu3(6)=b1
nu3(7)=b2
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
Gioca xs
End If
Next
Next
End If
Next
Next
End If
Next
Next
Next
ScriviResoconto
End Sub
2° listato fatto da enplein
Sub main()
Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"=")&"** LA TRiADE DI SOMMA - FABARRI E MANARA **",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"-")&"listato by F.F. ",1
ColoreTesto 0
Dim nu1(3),nu(3),nr(3),amb(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),lg1(5)
Dim ruote(2),ru(1)
Dim posta(1),poste1(2),poste(5)
posta(1)=1
poste1(2)=1
poste(2)=3.50 : poste(3)=1 : poste(4)=.40 : poste(5)=.10
rs=InputBox(" Quante estrazioni vuoi controllare?","Florindi",20)
ini=EstrazioneFin-rs : fin=EstrazioneFin
For es=ini To fin
Messaggio(es)
For r1=1 To 10 : For p1=1 To 4 : For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
For p3=1 To 5
If p3<>p1 And p3<>p2 Then
c=Estratto(es,r1,p3)
If Fuori90(a+b)=c And c<>90 Then
nu(1)=90-a : nu(2)=90-b : nu(3)=90-c
'Controlla la presenza dell'ambo in terzina su un'altra ruota.
For r2=1 To 10
If r2<>r1 Then
ru(1)=r2
sf=SerieFreq (es,es,nu,ru,2)
If sf>0 Then
'Trova l'ambo, che deve essere unico.
g=0
For q=1 To 5
nx=Estratto (es,r2,q)
For i=1 To 3
If nx=nu(i) Then g=g+1 : nr(g)=nx
Next
Next
If g=2 Then
'Cerca il numero mancante(cg)della terzina derivata.
ok=0
For y=1 To 3
If nu(y)<>nr(1) And nu(y)<>nr(2) Then cg=nu(y) : ok=1
If ok=1 Then Exit For
Next
amb(1)=cg
ambo1(1)=cg : ambo1(2)=a
ambo2(1)=cg : ambo2(2)=b
ambo3(1)=cg : ambo3(2)=c
ambo4(1)=cg : ambo4(2)=nr(1)
ambo5(1)=cg : ambo5(2)=nr(2)
lg1(1)=a : lg1(2)=b : lg1(3)=c : lg1(4)=nr(1) : lg1(5)=nr(2)
ruote(1)=r1:ruote(2)=r2
casi=casi+1:Scrivi String(70,"="),1
ColoreTesto 2
Scrivi Space (30)& "Caso "&casi
ColoreTesto 0
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "& StringaEstratti(es,r1)&" ]" &_
" Terna di somma: "& Format2(a)&"."& Format2(b)&"."& Format2(c)& Chr (10)&_
Space (37)& "Terno Derivato: "& StringaNumeri (nu),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" "& StringaEstratti(es,r2)&" ]" & Chr (10) &_
"Ambo trovato "& StringaNumeri (nr)&" su "& SiglaRuota (r2)& Chr (10)&_
"Num. mancante - CAPOGIOCO: "& (amb(1)),1
Scrivi String(70,"-")
ImpostaGiocata 1,amb,ruote,posta,14
ImpostaGiocata 2,ambo1,ruote,poste1,14
ImpostaGiocata 3,ambo2,ruote,poste1,14
ImpostaGiocata 4,ambo3,ruote,poste1,14
ImpostaGiocata 5,ambo4,ruote,poste1,14
ImpostaGiocata 6,ambo5,ruote,poste1,14
ImpostaGiocata 7,lg1,ruote,poste,14
Gioca es
End If
End If
End If
Next
End If
End If
Next:Next : Next:Next:Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"-")&"listato by F.Florindi. ",1
ColoreTesto 0
End Sub
aspetto il metodo.
grazie
