| R E V I S I O N E D E L L A D I S C U S S I O N E |
| piermarco |
Posted - 14 giugno 2015 : 17:01:35
Sub Main()
Dim nu1(10),nu4(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5)
poste(1) = 1
posta(2) = 1
fin = EstrazioneFin
ini = fin - 100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
If n1 = n3 And n2 = n4 Then
c5 = Massimo(n1,n2)
c6 = Minimo(n1,n2)
a1 = Fuori90(c5 + c5)
a2 = Fuori90(c6 + c6)
a3 = Abs(a1 - a2)
a4 = a3/2
b1 = Minimo(a1,a2)
b2 = Massimo(a1,a2)
a5 = Fuori90(b1 + a4)
a6 = Abs(b2 - a4)
a8 = Fuori90(n1 + a6)
a9 = Fuori90(n2 + a6)
c1 = Massimo(a8,a9) ' AMBATA_
c2 = Minimo(a8,a9)
c3 = Fuori90(c1 + c2)
casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo ripetuto . " & Format2(n1) & "." & Format2(n2) & " Pos. " & Format2(p1) & "." & Format2(p2) & " ."
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo ripetuto < " & Format2(n3) & "." & Format2(n4) & " Pos. " & Format2(p3) & "." & Format2(p4) & " ."
Scrivi String(65,"-") & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:k = 9:co = 0:ruota(1) = 11
nu4(1) = c1:nu4(2) = c2
co = co + 1
ImpostaGiocata co,nu4,ruote,poste,k
nu2(1) = c1:nu2(2) = c2:nu2(3) = c3
co = co + 1
ImpostaGiocata co,nu2,ruote,posta,k
co = co + 1
ImpostaGiocata co,nu2,ruota,posta,k
nu1(1) = c1:nu1(2) = c2:nu1(3) = c3
nu1(4) = Fuori90(n1 + n2):nu1(5) = Vert(nu1(3))
co = co + 1
ImpostaGiocata co,nu1,ruote,posta,k
Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub |
|
|
