Sub Main
Dim ambata1(5),ambata2(5),ruota(5),ruote(5),posta(2),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
Dim r1,r2
posta(1) = 1
poste(2) = 1
tv = InputBox("Quante estrazioni vuoi controllare?",,0)
For es = EstrazioneFin - tv To EstrazioneFin
For r1 = 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
r2 = RuotaDiametrale(r1)
'---------------------------------
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
'---------------------------------
x = Fuori90(a + b)
y = DiametraleD(x)
'.--------------------------------
If a = DiametraleD(b) Or a = Diametrale(b) Then
If p1 = p2 And r1 > r2 Then
'---------------------
ambata1(1) = x
ambata2(1) = y
ambo1(1) = x
ambo1(2) = Fuori90(100 - a)
ambo2(1) = x
ambo2(2) = Fuori90(100 - b)
'------------------------------
ruota(1) = r1
ruota(2) = r2
'-------------------------------
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
ruote(4) = 12
'------------------------------
'------------------------------
ReDim MatriceCaselleDaEvid(4,1)
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p1
MatriceCaselleDaEvid(2,0) = r2
MatriceCaselleDaEvid(2,1) = p2
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi " ->a = " & a & "",0,1,1,5,3
Scrivi " ->b = " & b & "",0,1,1,5,3
Scrivi
ImpostaGiocata 1,ambata1,ruota,posta,9,1
Gioca es,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,0
ImpostaGiocata 2,ambo2,ruote,poste,0
Gioca es,1,,1
Scrivi
End If
End If
Next
Next
Next
Next
End Sub
