Sub Main()
Dim num(2),nu1(2),nu2(6)
Dim ruote(3),posta(5),poste(5)
posta(1) = 3:poste(2) = 2:poste(3) = 2:poste(4) = 2
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8500)
k = InputBox("per quanti colpi?","colpi di gioco",9)
ini = ce
fin = EstrazioneFin
Scrivi "le incredibili performances della somma 40 di Baldazzi ",1
Scrivi String(76,"="),1
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & _
DataEstrazione(es,1)
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
r2 = r1 + 1
If r1 = 10 Then r2 = 1
For p2 = 1 To 5
b = Estratto(es,r2,p2)
If p2 = p1 Then 'iso
sm = Fuori90(a + b)
If sm = 40 Then
casi = casi + 1:Scrivi String(58,"=") & " ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & _
StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & _
StringaEstratti(es,r2) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."
Scrivi String(62,"-") & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:cg = 0
amb1 = Fuori90(a + 45) '1^ ambata
amb2 = Fuori90(b + 45) '2^ ambata
ab1 = Fuori90(amb1 + 10) '1^abb
ab2 = Fuori90(ambb + 10) '2^abb
ab3 = Fuori90((amb1 + 90) - 10) '1^abb
ab4 = Fuori90((amb2 + 90) - 10) '2^abb
nu1(1) = amb1:nu1(2) = amb2
cg = cg + 1
ImpostaGiocata cg,nu1,ruote,posta,k,1
nu2(1) = amb1:
nu2(2) = amb2:
nu2(3) = ab1:
nu2(4) = ab2:
nu2(5) = ab3:
nu2(6) = ab4:
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,poste,k
Gioca es
End If
End If 'iso
Next:Next:Next:Next
Scrivi String(58,"=") & " script ",1
ScriviResoconto
Scrivi "le incredibili performances della somma 40 di Baldazzi- ",1
End Sub