Alien.
Advanced Premium Member
disaronno
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
Allo script puoi aggiungere
[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 960"]
[TR]
[TD="colspan: 7"]ALL'AMBATA SI AGGIUNGE IL NUMERO 5 ED ECCO IL PRIMO AMBO POI FARE IL VERTIBILE ED ECCO IL SECONDO AMBO.[/TD]
[/TR]
[TR]
[TD]ESEMPIO: X GIUGNO AMBATA 20 ....... 20+5=25 VERTIBILE DEL 25 è 52
GRAZIE-
[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]
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
Allo script puoi aggiungere
[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 960"]
[TR]
[TD="colspan: 7"]ALL'AMBATA SI AGGIUNGE IL NUMERO 5 ED ECCO IL PRIMO AMBO POI FARE IL VERTIBILE ED ECCO IL SECONDO AMBO.[/TD]
[/TR]
[TR]
[TD]ESEMPIO: X GIUGNO AMBATA 20 ....... 20+5=25 VERTIBILE DEL 25 è 52
GRAZIE-
[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]