la tecnica apollo, di f_mongillo

Sub main()
Dim ruote(10),ruota(10)
Dim num1(10),num2(10)
Dim nu1(1),nu2(6)
Dim posta(2),poste(3)

posta(1)=3:poste(2)=2:poste(3)=2

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8200) '6903 caso metodo
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "la tecnica apollo di f_mongillo (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)
If IndiceMensile(es)=1 Then

r1=4
p1=5
a=Estratto(es,r1,p1)
r2=5
p2=5
b=Estratto(es,r2,p2)
n1=Diametrale(a)
n2=Diametrale(b)

'amb=Fuori90(90+(n1-n2))
amb=Abs(n1-n2)
ab1=Fuori90(n1*2)
ab2=Fuori90(n2*2)

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

nu1(1)=amb
cg=cg+1
ImpostaGiocata cg,nu1,ruote,posta,k,1
nu2(1)=amb:nu2(2)=ab1:nu2(3)=ab2
cg=cg+1
ImpostaGiocata cg,nu2,ruote,poste,k
Gioca es

End If
Next
Scrivi String(58,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "la tecnica apollo di f_mongillo (script by maxma62)",1
End Sub

Sub main()
Dim ru(2),rur(2),ab(7),ambata(2),ambi(3),lun(3),lun1(6),ps(2),ps1(2),ps2(5)
ps(1)=1:ps1(2)=1:ps2(2)=1:ps2(3)=0.80:ps2(4)=0.15:ps2(5)=0.05
ee= CInt(InputBox(" Estrazioni da esaminare ",,500))
If ee="" Then Exit Sub
im=CInt(InputBox("Indice mensile ",,1))
If im="" Then Exit Sub
fin=EstrazioneFin
ini=fin-ee
rur(1)=6
rur(2)=7
r=4
rr=5
ru(1)=r
ru(2)=rr
For es=ini To fin
If IndiceMensile(es)=im Then
Messaggio(es)
a=Estratto(es,4,1)
b= Estratto(es,5,1)
c=Estratto(es,4,5)
d= Estratto(es,5,5)
ambata(1)=Fuori90(a+b)



ab(1)=Fuori90(ambata(1)+20)
ab(2)=Fuori90((90+(ambata(1))- 20))
ab(3)=Fuori90(c+45)
ab(4)=Fuori90(d+45)
ab(5)=Fuori90(ab(3)*2)
ab(6)=Fuori90(ab(4)*2)

ambata(2)=Abs(ab(3)-ab(4))
ambi(1)=ambata(1)
ambi(2)=ab(1)
ambi(3)=ab(2)
lun(1)=ambata(2)
lun(2)=ab(5)
lun(3)=ab(6)
lun1(1)=ambata(1)
lun1(2)=ambata(2)
lun1(3)=ab(1)
lun1(4)=ab(2)
lun1(5)=ab(5)
lun1(6)=ab(6)
co=1
Scrivi String(87,"°")
ImpostaGiocata co,ambata,ru,ps,16  
co=co+1
ImpostaGiocata co,ambi,ru,ps2,16
co=co+1
ImpostaGiocata co,lun,ru,ps2,16
co=co+1
ImpostaGiocata co,lun1,ru,ps2,16
co=co+1
ImpostaGiocata co,lun1,rur,ps2,16
Gioca es
End If
Next
ScriviResoconto
End Sub