CODICE
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:poste(5)=2
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8200)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "le incredibili performances della somma 45 di c_baldazzi (script by maxma62)",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=45 Then
casi=casi+1:Scrivi String(58,"=")&" script by maxma62",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+1) 'abb
ab2=Fuori90(90+(amb1-1)) 'abb
ab3=Fuori90(amb2+1) 'abb
ab4=Fuori90(90+(amb2-1)) '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 by maxma62",1
ScriviResoconto
Scrivi "le incredibili performances della somma 45 di c_baldazzi (script by maxma62)",1
End Sub
