Sub main()
Dim n(4)
Dim num(1)
Dim nu(6)
Dim ruote(10)
Dim ruot(1)
Dim poste(1)
Dim post(5)
poste(1)=1
post(2)=1
post(3)=1
post(4)=1
post(5)=1
tmp=InputBox("Quante estrazioni controllo?",,100)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 9
For r1=r+1 To 10
For p=1 To 4
For p1=p+1 To 5
n(1)=Estratto(es,r,p)
n(2)=Estratto(es,r,p1)
n(3)=Estratto(es,r1,p)
n(4)=Estratto(es,r1,p1)
a=Distanza(n(1),n(2))
b=Distanza(n(3),n(4))
OrdinaMatrice n
If a=b Then
If a=9 Or a=18 Or a=27 Or a=36 Or a=45 Then
c1=Fuori90(n(1)+n(2))
c2=Fuori90(n(4)+n(3))
c3=Fuori90(n(1)+n(4))
c4=Fuori90(n(2)+n(3))
c5=Fuori90(c3+c4)
If c2=c1 Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" Distanza "&_
Format2(a)&" --> "&Format2(n(1))&"."&Format2(n(2))
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" Distanza "&_
Format2(b)&" --> "&Format2(n(3))&"."&Format2(n(4))
ColoreTesto 1
Scrivi StringaNumeri (n),True
Scrivi "Quadrato",True
Scrivi Format2(n(1))&"+"&Format2(n(2))&" = "&Format2(c1),True
Scrivi"         +"
Scrivi Format2(n(4))&"+"&Format2(n(3))&" = "&Format2(c2),True
Scrivi" ="&"  ="&"    ="
Scrivi Format2(c3)&"+"&Format2(c4)&" = "&Format2(c5),True
c6=90-c5
ColoreTesto 2
Scrivi Format2(c6)&" <----- Ambata",True
d1=n(4)-n(3)
d2=n(4)-n(2)
d3=n(4)-n(1)
d4=n(3)-n(2)
d5=n(2)-n(1)
Scrivi Format2(n(4))&" - "&Format2(n(3))&" = "&Format2(d1)&" <--- Abbinamento",True
Scrivi Format2(n(4))&" - "&Format2(n(2))&" = "&Format2(d2)&" <--- Abbinamento",True
Scrivi Format2(n(4))&" - "&Format2(n(1))&" = "&Format2(d3)&" <--- Abbinamento",True
Scrivi Format2(n(3))&" - "&Format2(n(2))&" = "&Format2(d4)&" <--- Abbinamento",True
Scrivi Format2(n(2))&" - "&Format2(n(1))&" = "&Format2(d5)&" <--- Abbinamento",True
ruote(1)=r
ruote(2)=r1
num(1)=c6
ImpostaGiocata 1,num,ruote,poste,12
nu(1)=c6
nu(2)=d1
nu(3)=d2
nu(4)=d3
nu(5)=d4
nu(6)=d5
ImpostaGiocata 2,nu,ruote,post,12
ruot(1)=11
ImpostaGiocata 3,nu,ruot,post,12
Gioca es
Scrivi"****************************************************************"
End If
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

29.12.2012
Ba 71.37.17.04.49 Distanza 45 --> 04.38
Fi 08.09.21.83.38 Distanza 45 --> 49.83
04.38.49.83
Quadrato
04+38 = 42
         +
83+49 = 42
 =  =    =
87+87 = 84
06 <----- Ambata
83 - 49 = 34 <--- Abbinamento
83 - 38 = 45 <--- Abbinamento
83 - 04 = 79 <--- Abbinamento
49 - 38 = 11 <--- Abbinamento
38 - 04 = 34 <--- Abbinamento
sab 29.12.2012  [8632]
  G  1:  M             06               Ba Fi    3/12    
     in corso (3° su 12)
  G  2:  ATQC          06.34.45.79.11   Ba Fi    3/12    
     in corso (3° su 12)
  G  3:  ATQC          06.34.45.79.11   Tu       3/12    
     in corso (3° su 12)