ciao giorgio , mi ha aiutato Enplein
Sub main()
Dim ru(2),lg(8),ruote(3),poste(3),posteD(3)
poste(2)=1 : poste(3)=1
posteD(3)=1
cl=14 'Colpi di gioco
fin=EstrazioneFin
ini=fin-25
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)
so1=Fuori90 (a+b)
For r2=r1+1 To 11
If r2=11 Then r2=12
c=Estratto (es,r2,p1)
d=Estratto (es,r2,p2)
so2=Fuori90 (c+d)
If so1=so2 Then
do1=Distanza(a,b)
do2=Distanza(d,c)
dv1=Distanza(a,c)
dv2=Distanza(b,d)
dd1=Distanza(a,d)
dd2=Distanza(b,c)
If do1=do2 And dv1=dv2 And dd1=dd2 Then
If do1=0 Then do1=90
If dv1=0 Then dv1=90
If dd1=0 Then dd1=90
lg(1)=so1 : lg(2)=Diametrale (so1) : lg(3)=do1 : lg(4)=Diametrale (do1) : lg(5)=dv1 : lg(6)=Diametrale (dv1) : lg(7)=dd1 : lg(8)=Diametrale (dd1)
ruote(1)=r1 : ruote(2)=r2 : ruote(3)=12
ru(1)=11 : ru(2)=12
casi=casi+1:Scrivi String(70,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&Stringaestratti(es,r1)&_
" ] "&format2(a)&"."&format2(b)&" "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&Stringaestratti(es,r2)&_
" ] "&format2(c)&"."&format2(d)&" "&(p1)&"^/"&(p2)&"^ pos."
Scrivi "somma "&format2(a)&"."&format2(b)&" = "&format2(so1)&" somma "&_
Format2(c)&"."&format2(d)&" = "&format2(so2)
Scrivi "dist oriz. "&format2(a)&"."&format2(b)&" = "&format2(do1)&" dist oriz. "&_
Format2(c)&"."&format2(d)&" = "&format2(do2)
Scrivi "dist vert. "&format2(a)&"."&format2(c)&" = "&format2(dv1)&" dist vert. "&_
Format2(b)&"."&format2(d)&" = "&format2(dv2)
Scrivi "dist diag. "&format2(a)&"."&format2(d)&" = "&format2(dd1)&" dist diag. "&_
Format2(b)&"."&format2(c)&" = "&format2(dd2)
Scrivi String(58,"-")&" caso n° "&(casi)
ImpostaGiocata 1,lg,ruote,poste,cl
ImpostaGiocata 2,lg,ru,posteD,cl
Gioca es
End If
End If
Next:Next:Next:Next:Next
ScriviResoconto
End Sub
spero vada bene