Non mi vedo i numeri fissi del metodo, questo è (almeno penso) come il metodo di bartalini, il tuo com'è?:
CODICE
Sub main
Dim ru(2),num1(1),num2(2),num3(3),num4(8)
Dim posta(1),poste(2),post(3),pos(5)
posta(1)=1:poste(2)=1
post(2)=1:post(3)=1
pos(2)=1:pos(3)=1:pos(4)=1:pos(5)=1
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",8164))
k=CInt(InputBox ("per quanti colpi?","colpi di gioco",14))
Scrivi "ambata, ambi e terni si riparte da firenze di m_bartalini (script by maxma62)",1
Scrivi String(78,"="),1
ini=ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
If IndiceMensile(es)=6 Then '6 = sesta estrazione
r1=3 'ruota ricerca
p1=4 'posizione
r2=4 'ruota gioco
r3=5 'ruota gioco
a=Estratto(es,r1,p1)
n1=Fuori90(a+48)
casi=casi+1:Scrivi String(60,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&" ] in "&(p1)&"^ pos."
Scrivi String(65,"-")&" caso n° "&(casi)
ru(1)=r2:ru(2)=r3:co=0
num1(1)=n1
co=co+1
ImpostaGiocata co,num1,ru,posta,k
num2(1)=n1:num2(2)=19
co=co+1
ImpostaGiocata co,num2,ru,poste,k
num2(2)=33
co=co+1
ImpostaGiocata co,num2,ru,poste,k
num2(2)=49
co=co+1
ImpostaGiocata co,num2,ru,poste,k
num3(1)=n1:num3(2)=19:num3(3)=55
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=80
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=6
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=22
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(1)=n1:num3(2)=33:num3(3)=55
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=80
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=6
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=22
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(1)=n1:num3(2)=49:num3(3)=55
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=80
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=6
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=22
co=co+1
ImpostaGiocata co,num3,ru,post,k
num4(1)=n1:num4(2)=19:num4(3)=33
num4(4)=49:num4(5)=55:num4(6)=80
num4(7)=6:num4(8)=22
co=co+1
ImpostaGiocata co,num4,ru,pos,k
Gioca es
End If
Next
Scrivi String(60,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "ambata, ambi e terni si riparte da firenze di m_bartalini (script by maxma62)",1
End Sub
