lottofacile 3 di osvaldo manara

'Ramco it162 Lotto facile 3(O.Manara)(x Anto68)
'Forum Ramcolotto.it 02/12/2009
Sub main()
Dim nu(1),nn(7),rt(2),rtt(2),pt(1),ptt(3),pst(5)
pt(1)=1
ptt(2)=1 : ptt(3)=1
pst(3)=1 : pst(4)=0.5 : pst(5)=0.5
rtt(1)=11 : rtt(2)=12
clp=14
fin=EstrazioneFin
ini=fin-50
co=0
For es=ini To fin
Messaggio es
For r=1 To 10
rt(1)=r
For p=1 To 4
For p1=p+1 To 5
a=Estratto(es,r,p) : b=Estratto(es,r,p1)
If a=Diametrale (b) Then
For r1=r+1 To 11
If r1=11 Then r1=12
rt(2)=r1
For q=1 To 4
For q1=q+1 To 5
c=Estratto(es,r1,q) : d=Estratto(es,r1,q1)
If c=Diametrale(d) Then
co=co+1
Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" Ambo "& a&"-"&b
Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1)&" Ambo "& c&"-"&d
If Pari(a) Then x1p=a : x1d=b Else x1p=b : x1d=a
If Pari(c) Then x2p=c : x2d=d Else x2p=d : x2d=c
s1=Fuori90(x1p+x2d) : s2=Fuori90(x1d+x2p)
ab1=(x1p+x2p)/2 : ab2=Diametrale (ab1)
Scrivi "Pari 1^Ambo ["&x1p&"]+["&x2d&"] Dispari 2^Ambo.. "&s1
Scrivi "Dispari 1^Ambo ["&x1d&"]+["&x2p&"] Pari 2^Ambo.. "&s2
Scrivi "Creazione Ambo con punti-medi (P+P)/2..(D+D)/2.. "&ab1&" e "&ab2
If s1=s2 Then
nu(1)=s1
ImpostaGiocata 1,nu,rt,pt,clp
nn(1)=nu(1) : nn(2)=ab1 : nn(3)=ab2
nn(4)=Fuori90(ab1+30) : nn(5)=Fuori90(ab1+60)
nn(6)=Fuori90(ab2+30) : nn(7)=Fuori90(ab2+60)
ImpostaGiocata 2,nn,rt,ptt,clp
ImpostaGiocata 3,nn,rtt,pst,clp
Gioca es
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub