Ciao a tutti.
Leggendo in altra sezione questo interessante metodo
proposto da Cupido, ho pensato di fare questo script molto semplice da dilettante o autodidatta.
Di solito non seguo i metodi, ma questo mi piace molto perché comportando una spesa veramente
irrisoria ognuno può gestirlo come vuole.
Cinzia
Leggendo in altra sezione questo interessante metodo
proposto da Cupido, ho pensato di fare questo script molto semplice da dilettante o autodidatta.
Di solito non seguo i metodi, ma questo mi piace molto perché comportando una spesa veramente
irrisoria ognuno può gestirlo come vuole.
Cinzia
Codice:
' Metodo proposto da Cupido
' 2nn x Ambo 1A Estr. Mese
'Ruote : TT
'Colpi : 13
'2° Estratto di CA +47 +85
'Script Cinzia
Sub Main
Dim n(2),ru(1),ps(2)
ps(2)=1
r=11
ru(1)=r
For es= 1 To EstrazioneFin
If Estratto(es,2,1)>0 Then
If Indicemensile(es)=1 Then
n(1)=Fuori90(Estratto(es,2,2)+47)
n(2)=Fuori90(Estratto(es,2,2)+85)
ImpostaGiocata 1, n,ru,ps,13,2
Gioca es
End If
End If
Next
ScriviResoconto
End Sub