L
LuigiB
Guest
ciao Gino , in quella funzione non è ancora possibile bloccare sull'estratto determinato ma solo sull'estratto , infatti nella lista che dice blocca ad esito l'estratto determinato non compare.
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
quote:Originally posted by LuigiB
ATTENZIONE VERSIONE 1.1.37
http://www.megaupload.com/?d=QINKI3EI
ho fatto una modifica sulle agende giocate sul problema segnalato da Gino
Un saluto
Sub Main
' gioca i numeri da 1 a 20 per 10 colpi se la somma del primo e secondo numero dell'estrazione fa 30
' i 10 colpi si interrompono si ferma se fa 4 punti
ReDim aNumeri(20) ' array nueri in giocoo
Dim k ' contrllo cicli
For k = 1 To 20 ' preimposto i numeir in gioco da 1 a 20
aNumeri(k) = k
Next
For k = 1 To EstrazioniArchivioSE ' gioco su tutto l'archivio
If EstrattoSE(k,1) + EstrattoSE(k,2) = 30 Then ì se la somma del Primo e secondo numero fa 30 gioco
Call ImpostaGiocataSE(1,aNumeri,,10,4)
Call GiocaSE(k)
End If
Next
Call ScriviResocontoSE ' scrivo resoconto superenalotto
End Sub
Luigi confermo il numero corretto e 45 ho fatto la verifica su diversi archivi e su quello lottomatica, inoltre sono andato al botteghino e mi sono fatto dare il bollettino ufficiale di quel giorno per cui piu di cosi !!!!quote:Originally posted by Groove
ciao e grazie, ho notato un errore nell'archivio lotto nell'estrazione del 3/10/09 a cagliari il 3 estratto esatto e' 45 e non 44
spero sia solo un caso isolato
Groove
Groove
quote:Originally posted by LuigiB
ATTENZIONE VERSIONE 1.1.40
http://www.megaupload.com/?d=RW3GE9U5
in questa versione ho inserito alcune funzioni utilizzabili in script
per operare sull'archivio superenalotto
ecco un esempio di script per il superenalotto per farvi capire
Codice:Sub Main ' gioca i numeri da 1 a 20 per 10 colpi se la somma del primo e secondo numero dell'estrazione fa 30 ' i 10 colpi si interrompono si ferma se fa 4 punti ReDim aNumeri(20) ' array nueri in giocoo Dim k ' contrllo cicli For k = 1 To 20 ' preimposto i numeir in gioco da 1 a 20 aNumeri(k) = k Next For k = 1 To EstrazioniArchivioSE ' gioco su tutto l'archivio If EstrattoSE(k,1) + EstrattoSE(k,2) = 30 Then ì se la somma del Primo e secondo numero fa 30 gioco Call ImpostaGiocataSE(1,aNumeri,,10,4) Call GiocaSE(k) End If Next Call ScriviResocontoSE ' scrivo resoconto superenalotto End Sub
Un saluto
quote:Originally posted by LuigiB
Si ti confermo che in alcuni casi colorala parte esterna piuttosto che quella interna.
Riguardo all'archivio ci sar un errore nei file che scarico ...
Riguardo a come usare gli script superenalotto semplicissimo per chi sa scrivere gli script ovviamente.
ciao
quote:Originally posted by LuigiB
Certo che possibile correggere l'archivio.
Per Cebino :
Lo hai letto lo script di esempio che si riferisce al superenalotto ?