CODICE
Sub main()
Dim num1(1),num2(2),num3(6),ruote(2),ruota(1),posta(1),poste(2),post(5)
posta(1)=3:poste(2)=1:post(2)=3:post(2)=1:post(4)=3:post(5)=1
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",7000)) '7852 = 05/02/2008
k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",14))
ini=ce
fin=EstrazioneFin
Scrivi "fi/ge dalla distanza 30 (scritp by maxma62)",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
r1=3
r2=4
pos=4
dis=30
n1=27
n2=2
n3=36
n4=49
n5=5
n6=6
a=Estratto(es,r1,pos)
b=Estratto(es,r2,pos)
If Distanza(a,b)=dis Then
casi=casi+1:Scrivi String(52,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] [ "&format2(a)&" ] in "&(pos)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
" ] [ "&format2(b)&" ] in "&(pos)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
num1(1)=n1
co=co+1
ImpostaGiocata co,num1,ruote,posta,k
num2(1)=n1:num2(2)=n2
co=co+1
ImpostaGiocata co,num2,ruote,poste,k
num2(2)=n3
co=co+1
ImpostaGiocata co,num2,ruote,poste,k
num2(2)=n4
co=co+1
ImpostaGiocata co,num2,ruote,poste,k
num2(2)=n5
co=co+1
ImpostaGiocata co,num2,ruote,poste,k
num2(2)=n6
co=co+1
ImpostaGiocata co,num2,ruote,poste,k
num3(1)=n1:num3(2)=n2:num3(3)=n3
num3(4)=n4:num3(5)=n5:num3(6)=n6
co=co+1
ImpostaGiocata co,num3,ruote,post,k
Gioca es
End If
Next
Scrivi String(52,"=")&" by maxma62",1
ScriviResoconto
Scrivi "fi/ge dalla distanza 30 (scritp by maxma62)",1
End Sub