la previsione e' trascritta in lunghetta altrimenti avevamo una lista lunga come l'ora pronobis!!
CODICE
Sub main()
Dim ruote(10),ruota(1),num1(2),num2(10),num3(10) ,num4(10)
Dim posta(1),poste(5)
posta(1)=5:poste(2)=3:poste(3)=1.3:poste(4)=0.6:poste(5)=0.1
Scrivi "distanza 45 by occhidigiada58 (script by maxma62)",1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8386)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=ce
fin=EstrazioneFin
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "sto elab. l'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 End If
For p2=1 To 5
If p2=p1 Then
b=Estratto (es,r2,p2)
ds=Distanza (a,b)
If ds=2 And Decina (a)= Decina(b) Then
sm=Fuori90(a+1)
a1=Vert(sm)
a2=(91-sm)
s1=Vert(a2)
s2=Fuori90(a1*2)
s3=(sm-10)
s4=Fuori90(sm+10)
s5=Fuori90(Diametrale(a2)+10)
s6=Fuori90(Diametrale(a2)+30)
s7=Fuori90(Diametrale(a2)+60)
s8=Fuori90(s6+1)
s9=(s6-1)
s10=(Diametrale(a2)-1)
casi=casi+1:Scrivi String(70,"="),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(58,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
num1(1)=sm:num1(2)=a1
co=co+1
ImpostaGiocata co,num1,ruote,posta,k,1
num2(1)=sm :num2(2)=a2
num2(3)=s1:num2(4)=s2:num2(5)=s3 :num2(6)=s4
num2(7)=Vert (s1):num2(8)=Vert (s2):num2(9)=Vert (s3) :num2(10)=Vert (s4)
co=co+1
ImpostaGiocata co,num2,ruote,poste,k
num3(1)=a1:num3(2)=a2
num3(3)=s1:num3(4)=s2:num3(5)=s3 :num3(6)=s4
num3(7)=Vert (s1):num3(8)=Vert (s2):num3(9)=Vert (s3) :num3(10)=Vert (s4)
co=co+1
ImpostaGiocata co,num3,ruote,poste,k
num4(1)=sm:num4(2)=a1
num4(3)=(s5):num4(4)=(s6):num4(5)=(s7) :num4(6)= (s8)
num4(7)=(s9) :num4(8)= (s10)
co=co+1
ImpostaGiocata co,num4,ruote,poste,k
Gioca es
End If
End If
Next:Next:Next:Next
ScriviResoconto
Scrivi "dist.2 Vasapolla Cosma (script by maxma62)",1
End Sub