DOPPIA AMBATA ED AMBO SULLA RUOTA DI VENEZIA, Osvaldo MANARA

'DOPPIA AMBATA ED AMBO SULLA RUOTA DI VENEZIA, Osvaldo MANARA

Sub main()
Dim ru(2),rur(1),ab(10),ambata(2),ambi(2),lun(10),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))

im=InputBox("Pronostico dall'estrazione mensile numero? (1=prima / 0=ultima / 16=penultima )",_
"Numero dell' estrazione ",1)

k= CInt(InputBox(" Colpi di gioco ",,13))

ini=EstrazioneFin-ee

For es=ini To EstrazioneFin
If(((eval(im)=0)And(es=fin))Or((IndiceMensile(es)=eval(im)And _
(eval(im)>0))Or((IndiceMensile(es+1)=1)And(eval(im)=0))Or((IndiceMensile(es+2)=1)And(eval(im)=16))))Then
Messaggio(es)

r=10 'gioco sulla ruota di ve
ru(1)=r


casi=casi+1:Scrivi String(87,"°"),1

If im=0 Then
Scrivi " - ultimo indice mensile"
Else
If im<>16 Then
Scrivi " - "&(im)&"^ indice mensile"
Else
If im=16 Then
Scrivi " - penultimo indice mensile"
End if:end If:end If
Scrivi

a=Estratto(es,10,2)'2°estratto di ve
b=90' codice fisso
c=(a*b)'1° di ve + codice somma
z=c ' inserire il numero da calcolare qui
x= Fuori90(Int(Sqr(z))) '<<<--- radice quadrata senza decimali  

ambata(1)=x
ambata(2)=(x-3)
co=1
ImpostaGiocata co,ambata,ru,ps,k


ab(1)=(Estratto(es,10,1)-11)
ab(2)=Fuori90 (Estratto(es,10,2)+31)
ab(3)=Fuori90 (Estratto(es,10,2)+38)
ab(4)=Fuori90 (Estratto(es,10,3)+42)
ab(5)=Fuori90 (Estratto(es,10,5)+7)
ab(6)=(Estratto(es,10,5)-24)
lun(1)=ambata(1)
lun(2)=ambata(2)
lun(3)=ab(1)
lun(4)=ab(2)
lun(5)=ab(3)
lun(6)=ab(4)
lun(7)=ab(5)
lun(8)=ab(6)
co=co+1
ImpostaGiocata co,lun,ru,ps2,k

Gioca es

End If 'scelta estrazione
Next
ScriviResoconto

End Sub

Sub main ()
Dim num1(2),num2(2),num3(3),num4(8)
Dim ruota(1)
Dim posta(1),poste(2),post(3),pos(5)

posta(1)=5:poste(2)=4
post(2)=5:post(3)=4
pos(2)=5:pos(3)=4:pos(4)=1:pos(5)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8300) '6712 caso metodo
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "doppia ambata e ambo sulla ruota di ve di o_manara (list by maxma62)",1
Scrivi String(71,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
If IndiceMensile(es)=1 Then
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

casi=casi+1:Scrivi String(53,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(10)&" - "&StringaEstratti(es,10)&" ]"
Scrivi String(58,"-")&" caso n° "&(casi)
ruota(1)=10:co=0

n1=Estratto(es,10,2)
n2=n1*90
n3= Fuori90(Int(Sqr(n2)))'ambata 1

'n4=Abs(n3-3)'ambata 2
n4=Fuori90(90+(n3-3)) 'ambata 2

'n5=Abs(Estratto(es,10,1)-11)'abb
n5=Fuori90(90+(Estratto(es,10,1)-11))'abb

n6=Fuori90(Estratto(es,10,2)+31)'abb
n7=Fuori90(Estratto(es,10,2)+38)'abb
n8=Fuori90(Estratto(es,10,3)+42)'abb
n9=Fuori90(Estratto(es,10,5)+7)'abb

'n10=Abs(Estratto(es,10,5)-24)'abb
n10=Fuori90(90+(Estratto(es,10,5)-24))'abb

num1(1)=n3:num1(2)=n4
co=co+1
ImpostaGiocata co,num1,ruota,posta,k,1
num2(1)=n3:num2(2)=n4
co=co+1
ImpostaGiocata co,num2,ruota,poste,k
num3(1)=n3:num3(2)=n4:num3(3)=n5
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n6
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n7
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n8
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n9
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n10
co=co+1
ImpostaGiocata co,num3,ruota,post,k

num4(1)=n3:num4(2)=n4
num4(3)=n5:num4(4)=n6
num4(5)=n7:num4(6)=n8
num4(7)=n9:num4(8)=n10
co=co+1
ImpostaGiocata co,num4,ruota,pos,k

Gioca es

End If
Next
Scrivi String(53,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "doppia ambata e ambo sulla ruota di ve di o_manara (list by maxma62)",1
End Sub