CODICE
Sub main()
Dim num1(1),num2(2),num3(5),ruote(3),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
dis=CInt(InputBox("distanza?","distanza",45))
r1=CInt(InputBox("1^ ruota?","1^ ruota",7))
r2=CInt(InputBox("2^ ruota?","2^ ruota",10))
pos=CInt(InputBox("posizioni?","posizioni",2))
r3=CInt(InputBox("altra ruota di gioco?","altra ruota di gioco",4))
n1=CInt(InputBox("capogioco?","capogioco?",9))
n2=CInt(InputBox("1° abbinamento?","1° abbinamento?",8))
n3=CInt(InputBox("2° abbinamento?","2° abbinamento?",24))
n4=CInt(InputBox("3° abbinamento?","3° abbinamento?",48))
n5=CInt(InputBox("4° abbinamento?","4° abbinamento?",4))
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",8200))
k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",14))
ini=ce
fin=EstrazioneFin
Scrivi "metodo distanza "&(dis)&" (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)
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)&_
" ] spia [ "&format2(a)&" ] in "&(pos)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
" ] spia [ "&format2(b)&" ] in "&(pos)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruote(3)=r3: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
num3(1)=n1:num3(2)=n2:num3(3)=n3
num3(4)=n4:num3(5)=n5
co=co+1
ImpostaGiocata co,num3,ruote,post,k
Gioca es
End If
Next
Scrivi String(52,"=")&" by maxma62",1
ScriviResoconto
Scrivi "metodo distanza "&(dis)&" (scritp by maxma62)",1
End Sub
