| script del metodo di Osvaldo Manara " La coppia d'oro" Buone vincite
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 ",,50))
im=InputBox("Pronostico dall'estrazione mensile numero? (1=prima / 0=ultima / 16=penultima )",_
"Numero dell' estrazione ",1)
k= CInt(InputBox(" Colpi di gioco ",,9))
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=1 'gioco sulla ruota di ba
rr=10 'gioco sulla ruota ve
ru(1)=r
ru(2)=rr
rur(1)=11'tutte
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,1,1)'1°estratto di ba
b=Estratto(es,10,5)
ambata(1)=Fuori90(a+b+86)'1° di ba + 5 di ve +5
co=1
ImpostaGiocata co,ambata,ru,ps,k
ab(1)=ambata(1)
ab(2)=Fuori90((a+b)+23)
ab(3)=Fuori90((a+b)+50)
lun(1)=ab(1)
lun(2)=ab(2)
lun(3)=ab(3)
co=co+1
ImpostaGiocata co,lun,ru,ps2,k
co=co+1
ImpostaGiocata co,lun,rur,ps2,k '<--- tutte
Gioca es
End If 'scelta estrazione
Next
ScriviResoconto
End Sub
|
