Sub Main
Dim ambata1(4),ambata2(4),ambo1(4),ambo2(4),ambo3(4),calc(10),ruota(5),ruote(5),posta(1),poste(2)
Dim rs,rk,rx,rw
Dim ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2)
Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,w,y,j,k,x
Dim b1,b2,b3,b4,b5,b6,b7,b8,b9
Dim r1,r2
Dim n1,n2,n3,n4,n5,n6,n7,n8,n9
Dim sAmbo
posta(1) = 1
poste(2) = 2
'rk = InputBox("Quale numero vuoi controllare?",,0)
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
cl = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For r2 = 1 To 10
For p3 = 1 To 5
For rx = rk To rk
For k = 1 To 44
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
'y= Massimo(a,b)
'---------------------
n1 = Distanza(a,b)
n2 = Distanza(a,c)
n3 = Distanza(b,c)
'---------------------------
'
y = 90 - k*2
w = Differenza(45,y)
If n1 = k And n2 = k Or n1 = k And n3 = k Or n2 = k And n3 = k Then
'
If n1 = k And n2 = k Then
x = Diametrale(a)
End If
calc(1) = a
calc(2) = b
calc(3) = c
calc(4) = x
'-------------------------
If n1 = k And n3 = k Then
x = Diametrale(b)
End If
calc(1) = a
calc(2) = b
calc(3) = c
calc(4) = x
'-------------------------
If n2 = k And n3 = k Then
x = Diametrale(c)
End If
calc(1) = a
calc(2) = b
calc(3) = c
calc(4) = x
'
j = Fuori90(a + b + c + x)
'z = 45 - k
z = Fuori90(x*2)
v = Diametrale(z)
ambata1(1) = x
'
If r1 <> r2 Then
If a <> c And b <> c Then
'
'If rx = x Then
'
sAmbo = sAmbo & SiglaRuota(r1) & " " & SiglaRuota(r2) & " " & Format2(x) & " " & vbCrLf
'
ambo1(1) = x ' ambata
ambo1(2) = j ' triplo sommativo
'
ambo2(1) = x ' ambata
ambo2(2) = w ' triplo differenza
'
ambo3(1) = x ' ambata
ambo3(2) = z ' 1 ambo
'-------------------------------
ambo4(1) = x ' ambata
ambo4(2) = v ' 2 ambo
'
'-----------------------------
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
ruote(3) = TT_
ruote(4) = NZ_
'
' identifica ad esempio 4 caselle
ReDim MatriceCaselleDaEvid(4,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(3,1) = p3 ' terzo estratto
' quarto elemento
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi("" & Left(NomeRuota(r1),2) & "____" & Format2(a) & "_" & Format2(b) & "______"),0,0,1,5,5
Scrivi
Scrivi("" & Left(NomeRuota(r2),2) & "____" & Format2(c) & "_________"),0,0,1,5,5
Scrivi
Scrivi
Scrivi("" & x & "") & " ",0,1,6,7,8
Scrivi
Scrivi
'EliminaRipetuti (nu)
Call DisegnaCerchioCiclometrico(calc,True,False,,,True,True)
Scrivi" Ambata ",0,1,1,5
ImpostaGiocata 1,ambata1,ruota,posta,cl,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi" triplo sommativo ",0,1,1,5
ImpostaGiocata 1,ambo1,ruote,poste,cl,0
Gioca es,1,,1
Scrivi" triplo differenza ",0,1,1,5
ImpostaGiocata 2,ambo2,ruote,poste,cl,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi" 1 ambo ",0,1,1,5
ImpostaGiocata 1,ambo3,ruote,poste,cl,0
Gioca es,1,,1
Scrivi" 2 ambo ",0,1,1,5
ImpostaGiocata 2,ambo4,ruote,poste,cl,0
Gioca es,1,,1
Scrivi
Scrivi
'End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Scrivi " script scritto da zetrix ",0,1,1,5
Scrivi
'ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True
'ScriviDistribuzioneCasiInCorso(True) ' come sopra
'ScriviResoconto
Scrivi(sAmbo),0,1,1,5,5
End Sub
