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.
Sub Main
'test per nuovo 10 e lotto'
ImpostaArchivio10ELotto(1)
Dim aNumeri(1)
aNumeri(1) = 76
'
For k = EstrazioniArchivioDL - 2 To EstrazioniArchivioDL
Oro = NumeroOroDL(k+1)
Call ImpostaGiocataDL(1,aNumeri,1,,,,,True)
'Call ImpostaProgressioneDL(1,aProgressione)
Call GiocaDL(k)
Scrivi " **** Numero Oro : " & Oro ,1,1,2,4,3
Scrivi" spesa : " & GetSpesa(True),1
Scrivi" Vincita : " & GetVincita(True),1
Scrivi" Guadagno : " & GetGuadagno(True),1
Next
Call ScriviResocontoDL
End Sub
Estrazione generatrice del pronostico 08954 [ 9 - 20/01/2015]
G 0001 Numeri in gioco : 76
N. [76 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ] C. 1 Zero punti 08955 [ 10 - 22/01/2015]
Interrotta per raggiunta durata
**** Numero Oro : 71
spesa : 2
Vincita : 0
Guadagno : -2
Estrazione generatrice del pronostico 08955 [ 10 - 22/01/2015]
G 0001 Numeri in gioco : 76
V N. [76 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 76 .. ] C. 1 08956 [ 11 - 24/01/2015] Oro
Interrotta per raggiunta durata
**** Numero Oro : 76
spesa : 2
Vincita : 0
Guadagno : -2
Estrazione generatrice del pronostico 08956 [ 11 - 24/01/2015]
G 0001 Numeri in gioco : 76
In corso per altre 1 estrazioni
**** Numero Oro : 0
spesa : 0
Vincita : 0
Guadagno : 0
+---------------------------------------+
| Prima Giocata : 8954 |
| Ultima Giocata : 8956 |
| Range : 3 |
| Casi giocab perc. : 100% |
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 3 |
| Casi vincenti : 1 |
| Percentuale pos. : 33,33 % |
| Pronostici totali : 3 |
| Pronostici vinc. : 1 |
| Percentuale pos. : 33,33 % |
| Giocate in corso : 1 |
| Giocate terminate : 2 |
| Bollette giocate : 2 |
| Bollette vincenti : 1 |
| Attesa media : 1 |
| Spesa : 4,00 € |
| Vincita : 0,00 € |
| Guadagno : -4,00 € |
| Perc. Rendimento : -100 % |
| Mass. Esposizione : 4,00 € |
| Estratto : 1 |
+---------------------------------------+
ho fatto le modifiche per gestire il nmero oro del 10 e lotto.
E' necessario aggiornare gli archivi sia del 10 e lotto tradizionale sia quello 5 minuti.
Per farlo eseguire questo script dopo aver installato almeno la versione 1.5.6
Option Explicit
Sub Main
Dim sFileBd
Dim sMsg
sMsg = "Questo script elimina gli archivi del 10 e lotto" & vbCrLf
sMsg = sMsg & "sia tradizionale che 5M poi li aggiorna nuovamente" & vbCrLf
sMsg = sMsg & "per consentire la modifica Numero Oro. Proseguire ?" & vbCrLf
If MsgBox( sMsg , vbQuestion + vbYesNo ) = vbYes Then
sFileBd = GetDirectoryAppData & "BaseDati10Elotto.Dat"
Call EliminaFile(sFileBd)
sFileBd = GetDirectoryAppData & "BaseDati10Elotto5M.Dat"
Call EliminaFile(sFileBd)
Call AggiornaArchivio
Call AggiornaArchivioDL
ImpostaArchivio10ELotto(1)
Call ScriviEstrazioneDL(EstrazioniArchivioDL,True)
ImpostaArchivio10ELotto(2)
Call ScriviEstrazioneDL(EstrazioniArchivioDL,True)
End If
End Sub
Ciao Carmine , tempestivo e generoso , mille grazie. Solo un altra cosa , quando andrò a riaggiornare nuovamente basta usare solo il tuo plug-in o si deve ripassare tramite lo script ? Buona giornata.