listato

[rossonero]

SALVE A TUTTI, CHI DL FORUM O OTTOPASSION HA UNO SCRIPT SULLA TRIADE DI FABARRI?
GRAZIE

[zagort]

'ho questo vecchio listato vedi se fa al tuo caso

Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11:If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
so=n1+n2
For r2=1 To 11:If r2=11 Then r2=12
If r2=r1 Then
For p3=1 To 5
If (p1=1 And p2=3 And p3=1 Or p1=1 And p2=2 And p3=3 Or p1=1 And p2=5 And p3=5)_
Or (p1=2 And p2=3 And p3=1 Or p1=2 And p2=4 And p3=2 Or p1=2 And p2=3 And p3=4)_
Or (p1=3 And p2=4 And p3=2 Or p1=3 And p2=4 And p3=5 Or p1=3 And p2=5 And p3=4 Or p1=4 And p2=5 And p3=3) Then
n3=Estratto(es,r2,p3)
If n3=so Then
x=so
a1=Fuori90(x*7)
a2=Fuori90(x*13)
k1=Abs(x-1):a3=Fuori90(78*x-k1)
a4=91-x
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Somma Ambo........... "&Format2(n1)&" . "&Format2(n2)&" .Somma "&Format2(so)&"."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Numero Uguale Somma. "&Format2(n3)&" .. "&Format2(x)&"."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruote(3)=r3: k=14:co=0:ruota(1)=11:co=0
nu2(1)=x
nu2(2)=a1
nu2(3)=a2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=x
nu2(2)=a1
nu2(3)=a3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=x
nu2(2)=a1
nu2(3)=a4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu1(1)=x
nu1(2)=a1
nu1(3)=a2
nu1(4)=a3
nu1(5)=a4
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
End If
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

[rossonero]

Salve a tutti, ti ringrazio Zagort per il listato che lo dovrò adeguare al metodo spero che ci riesca comunque farò sapere.
Grazie