Sub Main()
Scrivi "Ambata, ambo secco, ambo terno secco , di Donatella "
Dim n1(1),nn1(2),nn2(3),ruota(2),ruot(1)
Dim posta(1),poste(3),postee(3)
posta(1) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 0.5
ruota(1) = 1
ruota(2) = 2
k = 13
qe = InputBox("Quante estrazioni di controllo","estrazioni controllo",100)
Ini = EstrazioneFin - qe
fin = EstrazioneFin
For es = ini To Fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 1 Then
a = Estratto(es,1,1)
b = Estratto(es,1,2)
c = Estratto(es,1,3)
d = Estratto(es,2,1)
e = Estratto(es,2,2)
f = Estratto(es,2,3)
g = Differenza(a,b)
h = Differenza(d,e)
i = Differenza(a,c)
l = Differenza(d,f)
casi = casi + 1
Scrivi String(100,"-")
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " "
Scrivi DataEstrazione(es,2) & " < " & SiglaRuota(2) & " " & StringaEstratti(es,2) & " "
Scrivi Format2(g) & " + " & Format2(h) & " = " & Format2(Fuori90(g + h))
Scrivi Format2(i) & " + " & Format2(l) & " = " & Format2(Fuori90(i + l))
n1(1) = Fuori90(g + h)
ImpostaGiocata 1,n1,ruota,posta,k,1
nn1(1) = Fuori90(g + h)
nn1(2) = Fuori90(i + l)
ImpostaGiocata 2,nn1,ruota,poste,k,2
nn2(1) = Vert(n1(1))
nn2(2) = Fuori90(i + l)
nn2(3) = Vert(nn1(2))
ImpostaGiocata 3,nn2,ruota,postee,k,2
ruot(1)=11
ImpostaGiocata 4,nn2,ruot,postee,k,2
Scrivi String(100,"-") & " caso n° " &(casi)
Gioca es,True,,1
End If
Next
Scrivi String(100,"-")
Scrivi " Ambata, ambo secco, ambo terno secco , di Donatella "
Scrivi String(100,"-")
ScriviResoconto
