occhidigiada58. |
|
| CODICE 'LOTTO FACILE 4 , di Osvaldo Manara
'by Ramco
Sub main()
Dim nr(2),d(6)
Dim nr1(4)
Dim ruote(2),rt(3)
Dim poste(2),post(5)
poste(1)=1
post(2)=1
post(3)=0.5
cn=CInt (InputBox ("Quante estrazioni controlliamo ?",,14))
ini=EstrazioneFin -cn
fin=EstrazioneFin
For es = ini To fin
Messaggio es
For r1=1 To 9
For r2=r1+1 To 10
ruote(1)=r1
ruote(2)=r2
For p1=1 To 5
For p2=p1+1 To 5
For p3=1 To 5
For p4=p3+1 To 5
n1=Estratto (es,r1,p1)
n2=Estratto (es,r1,p2)
n3=Estratto (es,r2,p3)
n4=Estratto (es,r2,p4)
d1=Distanza (n1,n2)
d2=Distanza (n1,n3)
d3=Distanza (n1,n4)
d4=Distanza (n2,n3)
d5=Distanza (n2,n4)
d6=Distanza (n3,n4)
If (d1=30 And d6=30)Or (d2=30 And d5=30)Or (d3=30 And d4=30) Then
sn1=Fuori90 ((n1+n2+n3+n4)*2)
Scrivi "____________________________________________________________________________________________"
ColoreTesto 1
Scrivi DataEstrazione (es) &" "& NomeRuota (r1) &" Ambo "& Format2 (n1) &"-"& Format2(n2)&".....Dist. Or1 = "& d1 &" ...Vert_1 = "& d2 &" ...Diag_1 = "& d3,1
Scrivi DataEstrazione (es) &" "& NomeRuota (r2) &" Ambo "& Format2 (n3) &"-"& Format2(n4)&".....Dist. Or2 = "& d6 &" ...Vert_2 = "& d5 &" ...Diag_2 = "& d4,1
nr(1)=Diametrale (sn1)
ImpostaGiocata 1,nr,ruote,poste,14,1
rt(1)=r1
rt(2)=r2
rt(3)=11
nr1(1)=Diametrale (sn1)
nr1(2)=sn1
nr1(3)=Fuori90 (nr(1)+30)
nr1(4)=Fuori90 (nr(1)+60)
ImpostaGiocata 2,nr1,rt,post,14 ,2
Gioca es
End If
Next : Next : Next
Next : Next : Next
Next
ScriviResoconto
End Sub |
| | |
