Ciauz nella speranza che sia giusto......
ColoreTesto 2 :Scrivi String(37,32)&"Ambi isotopi distanza 30 o 60 in Diagonale /Verticale/Orrizzontale by il Toscano",1
'25/11/2011
'https://superlotto.blogfree.net/?t=3803202
Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)
poste(1)=1
poste1(2)=1
poste1(3)=.50
poste2(2)=1
poste2(3)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4)
n5=Abs(n1-n4)'distanza diagonale
n6=Abs(n2-n3)'distanza diagonale
n7=Abs(n1-n2)'distanza orizz
n8=Abs(n4-n3)'distanza orizz
n9=Abs(n1-n3)'distanza vert
n10=Abs(n4-n2)'distanza vert
If (((n5=30 or n5=60)And(n6=30 or n6=60))Or((n7=30 or n7=60)And(n8=30 or n68=60))Or ((n9=30 or n9=60)And(n10=30 or n10=60))) And p1=p3 And p2=p4 Then
If n5=30 Then b1=Fuori90(Massimo(n1,n4)+30)
If n5=60 Then b1=Fuori90(Massimo(n1,n4)-30)
If n6=30 Then b2=Fuori90(Massimo(n2,n3)+30)
If n6=60 Then b2=Fuori90(Massimo(n2,n3)-30)
If n7=30 Then b1=Fuori90(Massimo(n1,n2)+30)
If n7=60 Then b1=Fuori90(Massimo(n1,n2)-30)
If n8=30 Then b2=Fuori90(Massimo(n4,n3)+30)
If n8=60 Then b2=Fuori90(Massimo(n4,n3)-30)
If n9=30 Then b1=Fuori90(Massimo(n1,n3)+30)
If n9=60 Then b1=Fuori90(Massimo(n1,n3)-30)
If n10=30 Then b2=Fuori90(Massimo(n4,n2)+30)
If n10=60 Then b2=Fuori90(Massimo(n4,n2)-30)
b3=Diametrale(Fuori90(b1+b2))' ambata
b4=Diametrale(b1)' 4° abbinamento
b5=Diametrale(b2)' 5° abbinamento
casi=casi+1:Scrivi String(75,"="),1
If ((n5=30 or n5=60)And(n6=30 or n6=60))Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza Diagonale < "&Format2(n5)
If ((n5=30 or n5=60)And(n6=30 or n6=60))Then Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo < "&Format2(n3)&"."&Format2 (n4)&" > Distanza Diagonale < "&Format2(n6)
If ((n7=30 or n7=60)And(n8=30 or n8=60))Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza Orrizzontale < "&Format2(n7)
If ((n7=30 or n7=60)And(n8=30 or n8=60))Then Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo < "&Format2(n3)&"."&Format2 (n4)&" > Distanza Orrizzontale< "&Format2(n8)
If ((n9=30 or n9=60)And(n10=30 or n10=60))Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza Verticale < "&Format2(n9)
If ((n9=30 or n9=60)And(n10=30 or n10=60))Then Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo < "&Format2(n3)&"."&Format2 (n4)&" > Distanza Verticale < "&Format2(n10)
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=9:co=0
nu1(1)=b3' 1°capogioco
ImpostaGiocata 1 ,nu1,ruote,poste,k
nu2(1)=b3' 1°capogioco
nu2(2)=b1' 1 abbinamento
nu2(3)=b4' 1 abbinamento
ImpostaGiocata 2 ,nu2,ruote,poste1,k
nu2(1)=b3' 1°capogioco
nu2(2)=b2 ' 2° abbinamento
nu2(3)=b5' 1 abbinamento
ImpostaGiocata 3 ,nu2,ruote,poste1,k
nu3(1)=b3' 1°capogioco
nu3(2)=b1' 1 abbinamento
nu3(3)=b4' 2°abbinamento
nu3(4)=b2' 3°abbinamento
nu3(5)=b5' 4 abbinamento
ImpostaGiocata 4 ,nu3,ruote,poste2,k
Gioca es
End If
Next:Next:Next
Next:Next:Next:next
ScriviResoconto
End Sub