Ho fatto delle modiche inserendo anche il 5° e 6° abbinamento(i diametrali piccoli) ma non riesco a far uscire gli ambi da mettere in gioco quando tra le ruote in gioco c'è la Nazionale, mi sai dire dovè l'inghippo?
Ti posto lo script con le modifiche da me effettuate:
Sub main()
Dim rt(2),pte(1),pta(2),am(2),nr(2)
ex=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
ini=EstrazioneFin-ex
fin=EstrazioneFin
For es=ini To fin
Messaggio es
For r1=1 To 10
For r2=r1+1 To 12
If r2=11 Then r2=12
For p1=1 To 4 : For p2=p1+1 To 5
a=Estratto(es-1,r1,p1) : b=Estratto(es-1,r1,p2)
c=Estratto(es,r2,p1) : d=Estratto(es,r2,p2)
ds1=Distanza(a,b) : ds2=Distanza(c,d)
If ds1=ds2 And ds2=30 Then
If Fuori90(a+30)=b Then n1=Fuori90(a+60) Else n1=Fuori90(a+30)
If Fuori90(c+30)=d Then n2=Fuori90(c+60) Else n2=Fuori90(c+30)
n3=Fuori90(a+b+n1) : n4=Fuori90(c+d+n2)
som1=Fuori90(n3+n1) : som2=Fuori90(n4+n2)
som3=Diametrale(som1) : som4=Diametrale(som2)
cap=Abs(n1-n2)
abb1=Massimo(som1,som3)
abb2=Massimo(som2,som4)
abb3=Minimo(som1,som3)
abb4=Minimo(som2,som4)
abb5=Abs(abb1-abb2)
If abb5=0 Then abb5=90
abb6=45
rt(1)=r1
rt(2)=r2
pte(1)=1
pta(2)=1
k=30
ng=0
am(1)=cap
am(2)=Abs(90-cap)
ng=ng+1
ImpostaGiocata ng,am,rt,pte,k
nr(1)=cap
nr(2)=abb1
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=cap
nr(2)=abb2
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=cap
nr(2)=abb3
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=cap
nr(2)=abb4
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=cap
nr(2)=abb5
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=cap
nr(2)=abb6
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=Abs(90-cap)
nr(2)=abb1
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=Abs(90-cap)
nr(2)=abb2
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=Abs(90-cap)
nr(2)=abb3
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=Abs(90-cap)
nr(2)=abb4
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=Abs(90-cap)
nr(2)=abb5
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
nr(1)=Abs(90-cap)
nr(2)=abb6
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,k
casi=casi+1
Scrivi String(70,"-")&" Caso n° "&(casi),1
Scrivi DataEstrazione(es-1)&" "& SiglaRuota(r1)&" - "& Format2(a)&"."& Format2(b)&" ("&p1&"°-"&p2&"° estr.) Nr. mancante "& Format2(n1),1
Scrivi DataEstrazione(es)&" "& SiglaRuota(r2)&" - "& Format2(c)&"."& Format2(d)&" ("&p1&"°-"&p2&"° estr.) Nr. mancante "& Format2(n2),1
Scrivi String(70,"="),1
ColoreTesto 2 : Scrivi "La differenza tra i 2 numeri mancanti darà l'ambata/capogioco.",1
ColoreTesto 2 : Scrivi "La chiusura a 90 dell'ambata darà la seconda ambata.",1
ColoreTesto 0
Scrivi "1° nr. manc.: "& Format2(n1),1
Scrivi "2° nr. manc.: "& Format2(n2),1
ColoreTesto 1 : Scrivi "1^ Ambata: "& Format2(cap),1
ColoreTesto 1 : Scrivi "2^ Ambata : "& Format2(Abs(90-cap)),1
ColoreTesto 0 : Scrivi String(70,"-"),1
ColoreTesto 2 : Scrivi "Dei seguenti 4 numeri, i 2 maggiori saranno il 1° e 2° abbinamento.",1
Scrivi "I 2 minori saranno il 3° e 4° abbinamento.",1
Scrivi "La loro differenza sara il 5° abbinamento.",1
ColoreTesto 2 : Scrivi "Il numero 45 sarà il 6° abbinamento.",1
ColoreTesto 0
Scrivi "1a somma (1a terzina + 1° nr. manc.): "& Format2(som1),1
Scrivi "2a somma (2a terzina + 2° nr. manc.): "& Format2(som2),1
Scrivi "Diametrale 1a somma: "& Format2(som3),1
Scrivi "Diametrale 2a somma: "& Format2(som4),1
Scrivi String(70,"-"),1
Scrivi "Differenza abbinamenti: "& Format2(abb3),1
Scrivi String(70,"-"),1
Scrivi "1^ Ambata: "& Format2(cap),1
Scrivi "2^ Ambata: "& Format2(Abs(90-cap)),1
Scrivi "1° abbin.: "& Format2(abb1),1
Scrivi "2° abbin.: "& Format2(abb2),1
Scrivi "3° abbin.: "& Format2(abb3),1
Scrivi "4° abbin.: "& Format2(abb4),1
Scrivi "5° abbin.: "& Format2(abb5),1
Scrivi "6° abbin.: "& Format2(abb6),1
ColoreTesto 0 : Scrivi String(70,"-"),1
Scrivi
Gioca es
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi "Casi totali ("&casi&")",1
ScriviResoconto
End Sub