Ciao, grazie del chiarimento, ecco le integrazioni e miglioramenti al listato,
ho messo anche l'evidenziazione delle condizioni così si individuano meglio i casi,
ciao danilo
Sub main()
Dim n(4), nn(10), nnn(5), aa(10)
Dim ruote(10)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(1)=1
poste(2)=1
fin=EstrazioneFin
ini=fin-300
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9
For p=1 To 4
For q=p+1 To 5
n(1)=Estratto (es,r,p)
n(2)=Estratto (es,r,q)
For r1=r+1 To 10
n(3)=Estratto (es,r1,p)
n(4)=Estratto (es,r1,q)
dor1=Distanza(n(1),n(2))
dor2=Distanza(n(3),n(4))
dv1=Distanza(n(1),n(3))
dv2=Distanza(n(2),n(4))
dd1=Distanza(n(1),n(4))
dd2=Distanza(n(2),n(3))
caso=0
If dor1=18 And dor2=18 Then
a=Diametrale(n(4))
nn(1)=(91-a)
nnn(1)=n(1)
nnn(2)=Fuori90(n(1)+8)
nnn(3)=Fuori90(n(1)+16)
nnn(4)=Fuori90(n(1)+36)
caso=1
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione(es) & " Condizione Orizzontale"
Scrivi FormatSpace(NomeRuota(r), 10)&format2(n(1))&"."&format2(n(2))&" <--- 18"
Scrivi FormatSpace(NomeRuota(r1),10)&format2(n(3))&"."&format2(n(4))&" <--- 18"
Scrivi
End If
If dv1=18 And dv2=18 Then
a=Diametrale(n(4))
nn(1)=(90-a)
nnn(1)=Fuori90(n(1)+n(2)+n(3)+n(4))
nnn(2)=Fuori90(90-nnn(1))
If nnn(2)=0 Then nnn(2)=90 End If
nnn(3)=Fuori90(nnn(2)+89)
nnn(4)=Fuori90(nnn(2)+80)
caso=1
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione(es) & " Condizione Verticale"
Scrivi FormatSpace(NomeRuota(r), 10)&format2(n(1))&"."&format2(n(2))
Scrivi FormatSpace(NomeRuota(r1),10)&format2(n(3))&"."&format2(n(4))
Scrivi : Scrivi " 18 18" : Scrivi
End If
If dd1=18 And dd2=18 Then
a=Fuori90(n(1)+n(2)+n(3)+n(4))
b=Fuori90(a+2)
c=Fuori90(a+88)
d=Fuori90(a+4)
e=Fuori90(a+86)
nn(1)=(91-a)
nnn(1)=(90-b)
nnn(2)=(90-c)
nnn(3)=(90-d)
nnn(4)=(90-e)
caso=1
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione(es) & " Condizione Diagonale"
Scrivi FormatSpace(NomeRuota(r), 10)&format2(n(1))&"."&format2(n(2))
Scrivi FormatSpace(NomeRuota(r1),10)&format2(n(3))&"."&format2(n(4))
Scrivi " X" : Scrivi " 18 18" : Scrivi
End If
If caso=1 Then
ruote(1)=r
ruote(2)=r1
ImpostaGiocata 1,nn,ruote,posta,10
aa(1)=nn(1)
aa(2)=nnn(1)
ImpostaGiocata 2,aa,ruote,poste,10
aa(2)=nnn(2)
ImpostaGiocata 3,aa,ruote,poste,10
aa(2)=nnn(3)
ImpostaGiocata 4,aa,ruote,poste,10
aa(2)=nnn(4)
ImpostaGiocata 5,aa,ruote,poste,10
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Danilo by cs1
quindi io non me ne intendo di come giocare gli ambi ma certamente non posso giocarli tutti separatamente anche se mettessi 1 euro ciascuno se ne andrebbero 8 euro per entrambe le ruote e per tutte le estrazioni sono un dispendio di soldi visto che non si sa se e quando uscirà l'ambo secco..quindi come dovrei giocarli in quartina?? dite che ne vale la pena? -.- [8)]
.. con me che non capisco nulla di listati ci vuole pazienza 
.... mi aveva assicurato che l'ambo secco sarebbe uscito a ogni previsione e io mi sono fatto prendere in giro !!!! 
