10 eLotto con ORO

[Marcorun]

Salve...con questo script si riesce a calcolare anche la vincita con numero oro ,ma dalla sorte del 5 in poi....visto che ci sono premi anche x il 3..il 2 (con ORO)è possibile modificare lo script inserendo anche le varie interruzioni?

Sub Main
Call ImpostaArchivio10ELotto(1)
Dim es
ini = EstrazioneFin - 51
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
Messaggio DataEstrazioneDL(es)

ReDim aN(10)

aN(1) = EstrattoDL(es,1)
aN(2) = EstrattoDL(es,3)
aN(3) = EstrattoDL(es,5)
aN(4) = EstrattoDL(es,7)
aN(5) = EstrattoDL(es,9)
aN(6) = EstrattoDL(es,11)
aN(7) = EstrattoDL(es,13)
aN(8) = EstrattoDL(es,15)
aN(9) = EstrattoDL(es,17)
aN(10) = EstrattoDL(es,19)


Call ImpostaGiocataDL(1,aN,1,1,10,,,1)

ReDim aN(10)

aN(1) = EstrattoDL(es,2)
aN(2) = EstrattoDL(es,4)
aN(3) = EstrattoDL(es,6)
aN(4) = EstrattoDL(es,8)
aN(5) = EstrattoDL(es,10)
aN(6) = EstrattoDL(es,12)
aN(7) = EstrattoDL(es,14)
aN(8) = EstrattoDL(es,16)
aN(9) = EstrattoDL(es,18)
aN(10) = EstrattoDL(es,20)

Call ImpostaGiocataDL(2,aN,1,10,10,,,1)

Scrivi "----------------------------------------------------------------------------------------",,,3,8



Call GiocaDL(es)

Next
Call ScriviResocontoDL
End Sub

 

[Marcorun]

Piccola correzione



Sub Main
Call ImpostaArchivio10ELotto(1)
Dim es
ini = EstrazioneFin - 51
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
Messaggio DataEstrazioneDL(es)

ReDim aN(10)

aN(1) = EstrattoDL(es,1)
aN(2) = EstrattoDL(es,3)
aN(3) = EstrattoDL(es,5)
aN(4) = EstrattoDL(es,7)
aN(5) = EstrattoDL(es,9)
aN(6) = EstrattoDL(es,11)
aN(7) = EstrattoDL(es,13)
aN(8) = EstrattoDL(es,15)
aN(9) = EstrattoDL(es,17)
aN(10) = EstrattoDL(es,19)
Call ImpostaGiocataDL(1,aN,1,10,10,,,1)

ReDim aN(10)

aN(1) = EstrattoDL(es,2)
aN(2) = EstrattoDL(es,4)
aN(3) = EstrattoDL(es,6)
aN(4) = EstrattoDL(es,8)
aN(5) = EstrattoDL(es,10)
aN(6) = EstrattoDL(es,12)
aN(7) = EstrattoDL(es,14)
aN(8) = EstrattoDL(es,16)
aN(9) = EstrattoDL(es,18)
aN(10) = EstrattoDL(es,20)
Call ImpostaGiocataDL(2,aN,1,10,10,,,1)

Scrivi "----------------------------------------------------------------------------------------",,,3,8

Call GiocaDL(es)

Next
Call ScriviResocontoDL
End Sub

 

[Marcorun]

Mmmmmmm.....è una bella gatta da pelare!..non solo nel resoconto non si può vedere le vincite di 1,2,3,4 più ORO,(con 10 numeri giocati),ma non c'è la possibilità di impostare le interruzioni alla vincita di 1,2,3,4,più ORO!Ahi ahi!

 

[Alien.]

E' dal 03 luglio nessuna vincita che hanno copiato lo script alla lottoatica e quelli non li fanno uscire. ?

 

[Marcorun]

ciao..ALIEN,se non interessa a nessuno del forum quello script...penso che lottomatica possa ignorarlo

 

[Marcorun]

Nessuno mi ha corretto,quindi penso di avere ragione quando dico che il programma spaziometria non contempla tutte le sorti con oro da me elencate....considera anche che nella tabella premi non sono inserite le varie vincite (ed è x questo che qualcuno potrebbe dire che non si vedono nei resoconti delli script x questo motivo) ma anche compilando i vari premi ,con 10 numeri giocati e 1/2/3/4 presi con oro ,non risultano vincite.......

 

[Alien.]

Marcorun il problema è che ad ogni estrazione ci sono 10 numeri da mettere in gioco per 10 colpi diventa impossibile metterli in gioco anche perchè non si va oltre il 6 se non erro, quindi bisognerebbe controllare in quale estrazioni ci sono più vincite es: 1° estrazione del mese oppure ultima ecc.