Il simmetrico mancante

ColoreTesto 2 :Scrivi String(37,32)&"Il simmetrico mancante - di Miele50",1


Scrivi String(45,32)&"by chilofa",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)
poste(1)=1
poste(1)=1
poste2(2)=1
poste1(2)=1
poste1(3)=1
poste1(4)=1
fin=EstrazioneFin
ini=fin-300
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)
n7=Fuori90(n1+n2)
For r2=r1+1 To 11
If r2=11 Then r2=12

n3=Estratto(es,r2,p1)
n4=Estratto(es,r2,p2)
n8=Fuori90(n3+n4)

n5=Distanza(n7,n8)

If n5=30 Then

If Fuori90(n7+60)=n8 Then nm=Fuori90 (n7+30) Else nm=Fuori90 (n7+60)
sd1=Fuori90(n1+n4):sd2=Fuori90(n2+n3)'<<<<somme diagonali
dd1=abs(n1-n3):dd2=abs(n2-n4) '<<<<differenze verticali
If dd1=0 Then dd1=90
If dd2=0 Then dd2=90
If Distanza(sd1,sd2)=30 And Distanza(dd1,dd2)=30 Then
If Fuori90(sd1+60)=sd2 Then nm1=Fuori90 (sd1+30) Else nm1=Fuori90 (sd1+60)
If (sd2=dd1 And sd1=dd2) Or (sd1=dd1 And sd2=dd2) then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > somma..."&Format2 (n7)
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo < "&Format2(n3)&"."&Format2 (n4)&" > somma..."&Format2 (n8)
Scrivi DataEstrazione(es,1)&" somme diagonali "&sd1& " "& sd2
Scrivi DataEstrazione(es,1)&" differenze vert. "&dd1& " "& dd2

Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2::ruota(1)=11:k=14:co=0


nu1(1)=nm
ImpostaGiocata 1 ,nu1,ruote,poste,k

nu3(1)=nm
nu3(2)=nm1
ImpostaGiocata 2 ,nu3,ruote,poste2,k


nu2(1)=nm
nu2(2)=nm1
nu2(3)=n7
nu2(4)=n8

ImpostaGiocata 3 ,nu2,ruote,poste1,k
ImpostaGiocata 4 ,nu2,ruota,poste1,k
Gioca es
End If
End If
End If

Next:Next:Next
Next:Next:
ScriviResoconto
End Sub

===========================================================================
sab 28.05.2011 < Na 85.50.79.10.51 > ambo < 50.10 > somma...60
sab 28.05.2011 < Pa 53.35.71.55.72 > ambo < 35.55 > somma...90
sab 28.05.2011 somme diagonali 15 45
sab 28.05.2011 differenze vert. 15 45
----------------------------------------------------------------- caso n° 6
sab 28.05.2011  [8383]
 G  1:  M          30            Na Pa    0/14    
    n.i. (14 colpi)
 G  2:  A          30.75         Na Pa    0/14    
    n.i. (14 colpi)
 G  3:  ATQ        30.75.60.90   Na Pa    0/14    
    n.i. (14 colpi)
 G  4:  ATQ        30.75.60.90   Tu       0/14    
    n.i. (14 colpi)