AMBATA A VENEZIA

[soledad]

Nuova ambata per VE mi sembra 24 tutto Agosto

SI GIUSTO

[video]http://forum.lottoced.com/forum/lottoced/lottoced-forum/1905738-venezia-da-sogno[/video]

 

[salvo14]

Buongiorno,
Salutando tutti,spero di fare cosa gradita,allego listato del metodo.
Controllare sempre, salvo errori ed omissis.

Option Explicit
Sub Main()
Scrivi " AMBATA A VENEZIA di soledad ",1 ' - http://forum.lottoced.com/f8/ambata-venezia-118744/ -
Dim colpi,casi,ini,fin,es
Dim n1(01),ruote(01),posta(01)
posta(01) = 1
ruote(01) = VE_
colpi = 12
casi = 00
ini = 08802
fin = EstrazioneFin
For es = ini To fin
Messaggio es
AvanzamentoElab ini,fin,es
If IndiceMensile(es) = 01 Then
casi = casi + 01
Scrivi String(105,"-") & " Caso n° " & Format2(casi),1
n1(01) = Fuori90(Estratto(es,NZ_,5) + 81)
ImpostaGiocata 1,n1,ruote,posta,colpi,1
Gioca es,True,,2
End If
Next
ScriviResoconto
End Sub

Ciao Disaronno saresti così gentile da apportare al suddetto script la modifica anche per ambo e vertibile così come ha postato soledad? Grazie

 

[salvo14]

Ciao Disaronno saresti così gentile da apportare al suddetto script la modifica anche per ambo e vertibile così come ha postato soledad? Grazie

Scusa Disaronno non tenere conto del suddetto messaggio, ho provato a farlo io e con mia grande sorpresa ci sono riuscito!! Grazie comunque.