Richiesta script.

======================================================================
gio 09.12.2010 [ Ba - 08.55.77.76.21 ] [ 55.77 ] in 2^/3^ pos.
sab 11.12.2010 [ Ba - 12.69.47.04.06 ] [ 69.47 ] in 2^/3^ pos.
somma [ 55.69 ] = 124 / [ 47.77 ] = 124
------------------------------------------------------------ caso n° 1
======================================================================
gio 09.12.2010 [ Ve - 53.33.56.72.42 ] [ 53.33 ] in 1^/2^ pos.
sab 11.12.2010 [ Ve - 10.30.86.53.71 ] [ 10.30 ] in 1^/2^ pos.
somma [ 53.10 ] = 63 / [ 30.33 ] = 63
------------------------------------------------------------ caso n° 2
======================================================================
sab 11.12.2010 [ Ca - 74.32.26.71.64 ] [ 26.71 ] in 3^/4^ pos.
mar 14.12.2010 [ Ca - 19.05.71.26.47 ] [ 71.26 ] in 3^/4^ pos.
somma [ 26.71 ] = 97 / [ 26.71 ] = 97
------------------------------------------------------------ caso n° 3
======================================================================
sab 11.12.2010 [ Pa - 15.11.51.31.02 ] [ 15.31 ] in 1^/4^ pos.
mar 14.12.2010 [ Pa - 40.31.33.24.80 ] [ 40.24 ] in 1^/4^ pos.
somma [ 15.40 ] = 55 / [ 24.31 ] = 55
------------------------------------------------------------ caso n° 4
======================================================================
gio 16.12.2010 [ Ve - 59.87.72.49.31 ] [ 49.31 ] in 4^/5^ pos.
sab 18.12.2010 [ Ve - 61.71.65.42.60 ] [ 42.60 ] in 4^/5^ pos.
somma [ 49.42 ] = 91 / [ 60.31 ] = 91
------------------------------------------------------------ caso n° 5
======================================================================

Sub main()
Dim num(2),ruota1(1),ruota2(1)
Dim posta(1),poste(2)
posta(1)=1:poste(2)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8265)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "somma uguale su 2 numeri isotopi su 2 estrazioni successive su 1 ruota",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es-1,r1,p1):b=Estratto(es-1,r1,p2)
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r1,p3):d=Estratto(es,r1,p4)
so1=a+c:so2=b+d
If p1=p3 And p2=p4 Then 'iso
If so1=so2 Then

casi=casi+1:Scrivi String(58,"=")&" script by maxma62",1
Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r1)&" - "&StringaEstratti(es-1,r1)&_
" ] [ "&format2(a)&"."&format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi "somma [ "&format2(a)&"."&format2(c)&" ] = "&format2(so1)&_
" / [ "&format2(b)&"."&format2(d)&" ] = "&format2(so2)
Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r1:ruota2(1)=11:cg=0


num(1)=Diametrale(a)
num(2)=Diametrale(b)
cg=cg+1
ImpostaGiocata cg,num,ruota1,posta,k

cg=cg+1
ImpostaGiocata cg,num,ruota1,poste,k
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k

Gioca es

End If
End If 'iso
Next:Next:Next:Next:Next:Next
Scrivi String(58,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "somma uguale su 2 numeri isotopi su 2 estrazioni successive su 1 ruota",1
End Sub