Algoritmo script per 10 e lotto ed extra 10 e lotto

[fabri.m]

Sarebbe molto utile che LuigiB, ci donasse il codice del plugin ,
che aveva fatto per spazio , in modo da modificarlo .
visto che non funziona , per via anche del cambio indirizzo ed altro ,
Si potrebe modificare per aagiungere gli extra .
senza faticare tanto , a farne un listato nuovo .
lavoro , saltami adosso , quando mi sono spostato .

 

[Mike58]

Certo il plugin era comodo se poi sei anche in grado da modificarlo sarebbe un bel risultato.
Sicuramente come direbbe luigi a chi interessa la cosa si deve ingegnare e mettentolo nel file di testo è allacciabile e gestibile da spaziometria.

Come ti dicevo nell'altro post in spaziolight con i codici FT rilevo qualche anomalia, sicuramente per una mio errato modo di operare, e per ora rinuncio tanto faccio le stesse cose e con più codici in vbscript.

La necessità di spaziolight nasceva per la velocità superiore e quindi in script con eleborazioni elevate poteva essere più utile, ma come detto ho delle difficotà e discordanze di dati, quindi ci rinuncio.

 

[Mike58]

Ah dimenticavo di dirti che l'archivio trasformato poi lo legge, ma come ti dicevo ho delle difficoltà coi codici
tipo SerieFrequenzaFT etc..SerieRitardoFT, non producono risultati, mentre SerieStatFT produce risultati ma discordanti con uno stesso script vbscript.

Ciao

 

[stef]

Fabri, visto che sei bravo a prelevare le estrazioni non è che riusciresti a prelevare i 10 estratti del MillionDay.
primi 1- 5 estratti millionday + 6-10 extra Millionday.
a me interesserebbe la colonna da 10 numeri però non ordinata primi 5 + secondi 5 (extra).
con le 2 scritture txt e csv.
Se riesci sarebbe una altra bella chicca.

Ciao Mike, sei poi riuscito a creare uno script per scaricare l'archivio millionday + extra?

 

[Mike58]

Ciao,Stef.

il progetto è stato abbandonato completamente.
Si era riuscito a creare un archivio manualmente, ed anche a creare uno script che potesse scaricare l'archivio nelle 2 versioni, poi causa crash PC tutti gli script e archivi sono andati persi e con loro parecchie informazioni utili ai vari scopi ed esgamotage.

Così il progetto è stato completamente abbandonato e non ho più energie e risorse per ricostruirlo.

A volte nascono le cose, sulle ali dell'entusiasmo del momento, ma se non si arriva subito, vuol dire che sono poco percorribili e poco efficaci.

Mi spiace.

P.s. poi questo forum è diventato un mormorio e brontolio del nulla...... e quindi poco motivante.

Ciao

 

[volf]

Buongiorno e buon ferragosto

Io sto impazzendo con questo script che continua a dare errori

Sub Main()

Dim Fin, Es, R1, R2

Dim nOro

Dim aOttina1(8), aOttina2(8), aOttina3(8)

Dim Ruote(1), Poste(5)



' Definizione Ruote di calcolo e di gioco (Bari e Cagliari)

R1 = BA_

R2 = CA_

Ruote(1) = R1



' Posta per sorte (Ambo, Terno, Quaterna, Cinquina)

Poste(2) = 1.00 ' Ambo

Poste(3) = 1.00 ' Terno

Poste(4) = 0.50 ' Quaterna

Poste(5) = 0.50 ' Cinquina



Fin = EstrazioneFinale



' Ciclo sulle ultime 50 estrazioni

For Es = Fin - 50 To Fin

' Condizione di attivazione: 1° estrazione del mese

If IndiceMensile(Es) = 1 Then



' --- 1. CALCOLO NUMERO ORO ---

nOro = Fuori90(Estratto(Es, R1, 1) + Estratto(Es, R2, 5) + 12)



' --- 2. PRIMA OTTINA ---

aOttina1(1) = nOro

aOttina1(2) = Fuori90(nOro + 5)

aOttina1(3) = Fuori90(nOro + 18)

aOttina1(4) = Fuori90(nOro + 27)

aOttina1(5) = Fuori90(nOro + 42)

aOttina1(6) = Fuori90(nOro + 56)

aOttina1(7) = Fuori90(nOro + 69)

aOttina1(8) = Fuori90(nOro + 81)



' --- 3. SECONDA OTTINA ---

aOttina2(1) = nOro

aOttina2(2) = Fuori90(nOro + 9)

aOttina2(3) = Fuori90(nOro + 21)

aOttina2(4) = Fuori90(nOro + 34)

aOttina2(5) = Fuori90(nOro + 48)

aOttina2(6) = Fuori90(nOro + 62)

aOttina2(7) = Fuori90(nOro + 73)

aOttina2(8) = Fuori90(nOro + 88)



' --- 4. TERZA OTTINA ---

aOttina3(1) = nOro

aOttina3(2) = Fuori90(nOro + 14)

aOttina3(3) = Fuori90(nOro + 29)

aOttina3(4) = Fuori90(nOro + 39)

aOttina3(5) = Fuori90(nOro + 51)

aOttina3(6) = Fuori90(nOro + 65)

aOttina3(7) = Fuori90(nOro + 77)

aOttina3(8) = Fuori90(nOro + 85)



' --- OUTPUT GRAFICO ---

Scrivi String(85, "=")

Scrivi "Estrazione del " & DataEstrazione(Es) & " [ Mensile N. " & IndiceMensile(Es) & " ]", True

Scrivi "NUMERO ORO CALCOLATO: " & Format2(nOro), True, , vbYellow, vbBlack

Scrivi "Ottina 1: " & StringaNumeri(aOttina1)

Scrivi "Ottina 2: " & StringaNumeri(aOttina2)

Scrivi "Ottina 3: " & StringaNumeri(aOttina3)

Scrivi String(85, "-")



' Impostazione delle 3 giocate per 9 colpi di verifica

ImpostaGiocata 1, aOttina1, Ruote, Poste, 9

ImpostaGiocata 2, aOttina2, Ruote, Poste, 9

ImpostaGiocata 3, aOttina3, Ruote, Poste, 9



Gioca Es, True

End If

Next



' Stampa resoconto statistico vincite

ScriviResoconto

End Sub

 

[DjNomade]

Cambia
Fin = EstrazioneFinale
in
Fin = EstrazioneFin

ma non mi sembra x il 10elotto

 

[volf]

Proverò grazie 1000

 

[volf]

Cambia
Fin = EstrazioneFinale
in
Fin = EstrazioneFin

ma non mi sembra x il 10elotto

Option Explicit
'
'
'
Sub Main
Call ImpostaArchivio10ELotto(1)
Dim nOro
Dim casi,nn(10),Costo,mm(10)
Dim Fin, Es, R1, R2


casi = 00 : Costo = - 2
Dim aOttina1(8), aOttina2(8), aOttina3(8)
R1 = BA_

R2 = CA_


Dim EV00,EV01,EV02,EV03,EV04,EV05,EV06,EV07,EV08,EV09,EV10
EV00 = 00 : EV01 = 00 : EV02 = 00 : EV03 = 00 : EV04 = 00 : EV05 = 00
EV06 = 00 : EV07 = 00 : EV08 = 00 : EV09 = 00 : EV10 = 00
Dim Ini,Fin,Es
Ini = EstrazioneFinDL - 200
Fin = EstrazioneFinDL
For Es = Ini To Fin
If ScriptInterrotto Then Exit For
Call Messaggio(Es)
Call AvanzamentoElab(Ini,Fin,Es)
If IndiceMensile(Es) = 01 Then
casi = casi + 01
Call Scrivi(String(154,"="),01)
Call Scrivi(String(142,"="),01,00): Scrivi("Caso n°") & Format2(casi),01,,02,,03
nOro = Fuori90(Estratto(Es, R1, 1) + Estratto(Es, R2, 5) + 12)

' --- 2. PRIMA OTTINA ---

aOttina1(1) = nOro

aOttina1(2) = Fuori90(nOro + 5)

aOttina1(3) = Fuori90(nOro + 18)

aOttina1(4) = Fuori90(nOro + 27)

aOttina1(5) = Fuori90(nOro + 42)

aOttina1(6) = Fuori90(nOro + 56)

aOttina1(7) = Fuori90(nOro + 69)

aOttina1(8) = Fuori90(nOro + 81)



' --- 3. SECONDA OTTINA ---

aOttina2(1) = nOro

aOttina2(2) = Fuori90(nOro + 9)

aOttina2(3) = Fuori90(nOro + 21)

aOttina2(4) = Fuori90(nOro + 34)

aOttina2(5) = Fuori90(nOro + 48)

aOttina2(6) = Fuori90(nOro + 62)

aOttina2(7) = Fuori90(nOro + 73)

aOttina2(8) = Fuori90(nOro + 88)



' --- 4. TERZA OTTINA ---

aOttina3(1) = nOro

aOttina3(2) = Fuori90(nOro + 14)

aOttina3(3) = Fuori90(nOro + 29)

aOttina3(4) = Fuori90(nOro + 39)

aOttina3(5) = Fuori90(nOro + 51)

aOttina3(6) = Fuori90(nOro + 65)

aOttina3(7) = Fuori90(nOro + 77)

aOttina3(8) = Fuori90(nOro + 85)



' --- OUTPUT GRAFICO ---

'elenco numeri ricavati dalla somma per la prima colonna e il loro vertibile per la seconda colonna
Call Scrivi(" Numeri ricavati per la 1ª colonna: " & StringaNumeri(aOttina1,,True),01,01)
Call Scrivi(" Numeri ricavati per la 2ª colonna: " & StringaNumeri(aOttina2,,True),01,01)
Call Scrivi(" Numeri ricavati per la 2ª colonna: " & StringaNumeri(aOttina3,,True),01,01)

Call Scrivi()

'eliminazione numeri ripetuti
Call EliminaRipetuti(aOttina1)
Call EliminaRipetuti(aOttina2)
Call EliminaRipetuti(aOttina3)
'eliminazione presenza numero 9 e 90
Dim x
For x = 01 To 10
If nn(x) = 09 Then nn(x) = 00 : Call Scrivi(" È presente il numero 9 nella 1ª colonna",01,01)
If nn(x) = 90 Then nn(x) = 00 : Call Scrivi(" È presente il numero 90 nella 1ª colonna",01,01)
If mm(x) = 09 Then mm(x) = 00 : Call Scrivi(" È presente il numero 9 nella 2ª colonna",01,01)
If mm(x) = 90 Then mm(x) = 00 : Call Scrivi(" È presente il numero 90 nella 2ª colonna",01,01)
Next

'elenco numeri della prima colonna con ritardi superiori a 13 estrazioni
Call Scrivi(" Elenco ritardi presenti nella 1ª colonna : ",01,False)
For x = 01 To 10
Dim ritnn : ritnn = EstrattoRitardoDL(nn(x),0001,Es)
If ritnn >= 13 Then Call Scrivi(nn(x) & " = " & ritnn & "; ",True,False) : nn(x) = 00
Next
Call Scrivi()

'elenco numeri della seconda colonna con ritardi superiori a 13 estrazioni
Call Scrivi(" Elenco ritardi presenti nella 2ª colonna : ",01,False)
For x = 01 To 10
Dim ritmm : ritmm = EstrattoRitardoDL(mm(x),0001,Es)
If ritmm >= 13 Then Call Scrivi(mm(x) & " = " & ritmm & "; ",True,False) : mm(x) = 00
Next
Call Scrivi()

'elenco numeri da mettere in gioco
Call Scrivi(String(115,"-"),01)
Call Scrivi(" Numeri da giocare al 10eLotto serale per 13 colpi dall' estrazione successiva alla " & _
IndiceMensile(Es) & "ª estrazione del " & DataEstrazione(Es) & " : ",01,01,04)
Call Scrivi(" NUMERI 1ª Colonna: " & StringaNumeri(aOttina1,,True),01,01,06)
Call Scrivi(" NUMERI 2ª Colonna: " & StringaNumeri(aOttina2,,True),01,01,06)
Call Scrivi(" NUMERI 3ª Colonna: " & StringaNumeri(aOttina3,,True),01,01,06)

'verifica presenza numeri in gioco
Dim ESSE
ESSE = Es
Dim xlp,xColpi
xColpi = 13
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr,a
Dim RetEsito1,RetColpi1,RetEstratti1,RetIdEstr1,b
For xlp = 01 To xColpi
Costo = Costo + 2
a = VerificaEsitoDL(nn,ESSE + xlp,AMBATA_,01,RetEsito,RetColpi,RetEstratti,RetIdEstr)
b = VerificaEsitoDL(mm,ESSE + xlp,AMBATA_,01,RetEsito1,RetColpi1,RetEstratti1,RetIdEstr1)
If a = True Then
If RetEsito = "Estratto" Then EV01 = EV01 + 01
If RetEsito = "Ambo" Then EV02 = EV02 + 01
If RetEsito = "Terno" Then EV03 = EV03 + 01
If RetEsito = "Quaterna" Then EV04 = EV04 + 01
If RetEsito = "Cinquina" Then EV05 = EV05 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01
If RetEsito = "Sette" Then EV07 = EV07 + 01
If RetEsito = "Otto" Then EV08 = EV08 + 01
If RetEsito = "Nove" Then EV09 = EV09 + 01
If RetEsito = "Dieci" Then EV10 = EV10 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneDL(ESSE + xlp) & " . " & StringaEstrattiDL(ESSE + xlp) & _
" - " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
ElseIf(RetEsito = "" Or RetEsito1 = "") And RetColpi < 01 Then
Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
Else
EV00 = EV00 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneDL(ESSE + xlp) & " . " & StringaEstrattiDL(ESSE + xlp) & " - " & "Zero")
End If
If b = True Then
If RetEsito1 = "Estratto" Then EV01 = EV01 + 01
If RetEsito1 = "Ambo" Then EV02 = EV02 + 01
If RetEsito1 = "Terno" Then EV03 = EV03 + 01
If RetEsito1 = "Quaterna" Then EV04 = EV04 + 01
If RetEsito1 = "Cinquina" Then EV05 = EV05 + 01
If RetEsito1 = "Sestina" Then EV06 = EV06 + 01
If RetEsito1 = "Sette" Then EV07 = EV07 + 01
If RetEsito1 = "Otto" Then EV08 = EV08 + 01
If RetEsito1 = "Nove" Then EV09 = EV09 + 01
If RetEsito1 = "Dieci" Then EV10 = EV10 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneDL(ESSE + xlp) & " . " & StringaEstrattiDL(ESSE + xlp) & _
" - " & FormatSpace(RetEsito1,08,- 01) & " " & RetEstratti1)
ElseIf(RetEsito = "" Or RetEsito1 = "") And RetColpi < 01 Then
Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
Else
EV00 = EV00 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneDL(ESSE + xlp) & " . " & StringaEstrattiDL(ESSE + xlp) & " - " & "Zero")
End If
If Es + xlp > Fin Then Exit For
Next
End If
Next
Call Scrivi()
Call Scrivi(String(154,"-"),1)
Call Scrivi("RIEPILOGO ESITI COMPLESSIVO :",1,,,,2,,1)
Call Scrivi(" 0 : " & FormattaStringa(EV00,"0"))
Call Scrivi(" 1 : " & FormattaStringa(EV01,"0"))
Call Scrivi(" 2 : " & FormattaStringa(EV02,"0"))
Call Scrivi(" 3 : " & FormattaStringa(EV03,"0"))
Call Scrivi(" 4 : " & FormattaStringa(EV04,"0"))
Call Scrivi(" 5 : " & FormattaStringa(EV05,"0"))
Call Scrivi(" 6 : " & FormattaStringa(EV06,"0"))
Call Scrivi(" 7 : " & FormattaStringa(EV07,"0"))
Call Scrivi(" 8 : " & FormattaStringa(EV08,"0"))
Call Scrivi(" 9 : " & FormattaStringa(EV09,"0"))
Call Scrivi("10 : " & FormattaStringa(EV10,"0"))
Call Scrivi(String(154,"-"),1)
Call Scrivi("Costo Giocate : " & FormattaStringa(Costo,"0") & " €")
Call Scrivi(String(154,"-"),1)
End Sub


Ci sto lavorando
Con molta difficoltà

 

[volf]

Option Explicit

Sub Main()
Call ImpostaArchivio10ELotto(1) ' Imposta archivio 10eLotto serale collegato al lotto

Dim Fin, Es, Ini
Dim R1, R2, nOro
Dim casi, Costo
Dim aOttina1(8), aOttina2(8), aOttina3(8)
Dim x, xlp, xColpi, ESSE
Dim EV00, EV01, EV02, EV03, EV04, EV05, EV06, EV07, EV08, EV09, EV10

casi = 0
Costo = 0
EV00 = 0 : EV01 = 0 : EV02 = 0 : EV03 = 0 : EV04 = 0 : EV05 = 0
EV06 = 0 : EV07 = 0 : EV08 = 0 : EV09 = 0 : EV10 = 0

R1 = BA_
R2 = CA_

Ini = EstrazioneFinDL - 200
Fin = EstrazioneFinDL

For Es = Ini To Fin
If ScriptInterrotto Then Exit For
Call Messaggio("Elaborazione estrazione: " & Es)
Call AvanzamentoElab(Ini, Fin, Es)

' Condizione: 1° estrazione del mese
If IndiceMensile(Es) = 1 Then
casi = casi + 1
Call Scrivi(String(100,"="), 1)
Call Scrivi("Caso n° " & Format2(casi) & " - Estrazione del " & DataEstrazioneDL(Es), 1, 0, 2, 4, 3)
Call Scrivi()

' --- 1. CALCOLO NUMERO ORO ---
' Nota: Estratto legge dal Lotto tradizionale anche se l'archivio base è 10eLotto
nOro = Fuori90(Estratto(Es, R1, 1) + Estratto(Es, R2, 5) + 12)

' --- 2. POPOLAMENTO OTTINE ---
ReDim aOttina1(8)
aOttina1(1) = nOro
aOttina1(2) = Fuori90(nOro + 5)
aOttina1(3) = Fuori90(nOro + 18)
aOttina1(4) = Fuori90(nOro + 27)
aOttina1(5) = Fuori90(nOro + 42)
aOttina1(6) = Fuori90(nOro + 56)
aOttina1(7) = Fuori90(nOro + 69)
aOttina1(8) = Fuori90(nOro + 81)

ReDim aOttina2(8)
aOttina2(1) = nOro
aOttina2(2) = Fuori90(nOro + 9)
aOttina2(3) = Fuori90(nOro + 21)
aOttina2(4) = Fuori90(nOro + 34)
aOttina2(5) = Fuori90(nOro + 48)
aOttina2(6) = Fuori90(nOro + 62)
aOttina2(7) = Fuori90(nOro + 73)
aOttina2(8) = Fuori90(nOro + 88)

ReDim aOttina3(8)
aOttina3(1) = nOro
aOttina3(2) = Fuori90(nOro + 14)
aOttina3(3) = Fuori90(nOro + 29)
aOttina3(4) = Fuori90(nOro + 39)
aOttina3(5) = Fuori90(nOro + 51)
aOttina3(6) = Fuori90(nOro + 65)
aOttina3(7) = Fuori90(nOro + 77)
aOttina3(8) = Fuori90(nOro + 85)

' Eliminazione ripetuti (Stringe gli array se ci sono doppioni)
Call EliminaRipetuti(aOttina1)
Call EliminaRipetuti(aOttina2)
Call EliminaRipetuti(aOttina3)

Call Scrivi(" Numeri ricavati 1ª colonna: " & StringaNumeri(aOttina1,,True), 1)
Call Scrivi(" Numeri ricavati 2ª colonna: " & StringaNumeri(aOttina2,,True), 1)
Call Scrivi(" Numeri ricavati 3ª colonna: " & StringaNumeri(aOttina3,,True), 1)
Call Scrivi()

' --- 3. CONTROLLO E ANNULLAMENTO 9 E 90 ---
For x = 1 To UBound(aOttina1)
If aOttina1(x) = 9 Then aOttina1(x) = 0 : Call Scrivi(" Presente il 9 nella 1ª colonna (Annullato)",1,1)
If aOttina1(x) = 90 Then aOttina1(x) = 0 : Call Scrivi(" Presente il 90 nella 1ª colonna (Annullato)",1,1)
Next
For x = 1 To UBound(aOttina2)
If aOttina2(x) = 9 Then aOttina2(x) = 0 : Call Scrivi(" Presente il 9 nella 2ª colonna (Annullato)",1,1)
If aOttina2(x) = 90 Then aOttina2(x) = 0 : Call Scrivi(" Presente il 90 nella 2ª colonna (Annullato)",1,1)
Next
For x = 1 To UBound(aOttina3)
If aOttina3(x) = 9 Then aOttina3(x) = 0 : Call Scrivi(" Presente il 9 nella 3ª colonna (Annullato)",1,1)
If aOttina3(x) = 90 Then aOttina3(x) = 0 : Call Scrivi(" Presente il 90 nella 3ª colonna (Annullato)",1,1)
Next

' --- 4. CONTROLLO RITARDI >= 13 ---
Call ControllaRitardi(aOttina1, "1ª", Es)
Call ControllaRitardi(aOttina2, "2ª", Es)
Call ControllaRitardi(aOttina3, "3ª", Es)

Call Scrivi(String(100,"-"),1)
Call Scrivi(" Numeri finali da giocare per 13 colpi: ", 1, 1, 4)
Call Scrivi(" 1ª Colonna: " & StringaNumeri(aOttina1,,True), 1, 1, 6)
Call Scrivi(" 2ª Colonna: " & StringaNumeri(aOttina2,,True), 1, 1, 6)
Call Scrivi(" 3ª Colonna: " & StringaNumeri(aOttina3,,True), 1, 1, 6)
Call Scrivi(String(100,"-"),1)

' --- 5. VERIFICA ESITI SUI COLPI ---
ESSE = Es
xColpi = 13
Dim RetEsito1, RetColpi1, RetEstratti1, RetIdEstr1
Dim RetEsito2, RetColpi2, RetEstratti2, RetIdEstr2
Dim RetEsito3, RetColpi3, RetEstratti3, RetIdEstr3
Dim esito1, esito2, esito3

For xlp = 1 To xColpi
Costo = Costo + 3 ' 1 Euro a colonna per 3 colonne giocate

' Verifica le 3 ottine
esito1 = VerificaEsitoDL(aOttina1, ESSE + xlp, 1, 1, RetEsito1, RetColpi1, RetEstratti1, RetIdEstr1)
esito2 = VerificaEsitoDL(aOttina2, ESSE + xlp, 1, 1, RetEsito2, RetColpi2, RetEstratti2, RetIdEstr2)
esito3 = VerificaEsitoDL(aOttina3, ESSE + xlp, 1, 1, RetEsito3, RetColpi3, RetEstratti3, RetIdEstr3)

' Registrazione statistiche globali
Call AggiornaStat(esito1, RetEsito1, EV00, EV01, EV02, EV03, EV04, EV05, EV06, EV07, EV08, EV09, EV10)
Call AggiornaStat(esito2, RetEsito2, EV00, EV01, EV02, EV03, EV04, EV05, EV06, EV07, EV08, EV09, EV10)
Call AggiornaStat(esito3, RetEsito3, EV00, EV01, EV02, EV03, EV04, EV05, EV06, EV07, EV08, EV09, EV10)

' Output a schermo per il colpo
If (ESSE + xlp) > Fin Then
Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ", 1)
Else
If esito1 Or esito2 Or esito3 Then
Call Scrivi(FormatSpace(xlp, 2, -1) & "° colpo " & DataEstrazioneDL(ESSE + xlp) & " . " & StringaEstrattiDL(ESSE + xlp))
If esito1 Then Call Scrivi(" -> 1ª Col: " & FormatSpace(RetEsito1, 8, -1) & " " & RetEstratti1)
If esito2 Then Call Scrivi(" -> 2ª Col: " & FormatSpace(RetEsito2, 8, -1) & " " & RetEstratti2)
If esito3 Then Call Scrivi(" -> 3ª Col: " & FormatSpace(RetEsito3, 8, -1) & " " & RetEstratti3)
Else
Call Scrivi(FormatSpace(xlp, 2, -1) & "° colpo " & DataEstrazioneDL(ESSE + xlp) & " . " & StringaEstrattiDL(ESSE + xlp) & " - Zero")
End If
End If

' Ferma il ciclo se siamo all'ultima estrazione in archivio
If ESSE + xlp >= Fin Then Exit For
Next
End If
Next

Call Scrivi()
Call Scrivi(String(100,"="), 1)
Call Scrivi("RIEPILOGO ESITI COMPLESSIVO :", 1, 0, 2, 4, 3)
Call Scrivi(" Nessun Punto : " & EV00)
Call Scrivi(" Punti 1 : " & EV01)
Call Scrivi(" Punti 2 : " & EV02)
Call Scrivi(" Punti 3 : " & EV03)
Call Scrivi(" Punti 4 : " & EV04)
Call Scrivi(" Punti 5 : " & EV05)
Call Scrivi(" Punti 6 : " & EV06)
Call Scrivi(" Punti 7 : " & EV07)
Call Scrivi(" Punti 8 : " & EV08)
Call Scrivi(" Punti 9 : " & EV09)
Call Scrivi(" Punti 10 : " & EV10)
Call Scrivi(String(100,"-"), 1)
Call Scrivi("Costo Giocate : " & Costo & " €")
Call Scrivi(String(100,"="), 1)
End Sub

' =========================================================
' SUB DI SUPPORTO
' =========================================================

Sub ControllaRitardi(byRef aOttina, nomeColonna, estrazione)
Dim x, rit, Trovati
Trovati = ""
For x = 1 To UBound(aOttina)
If aOttina(x) > 0 Then ' Salta i numeri già annullati (es. 9 e 90)
rit = EstrattoRitardoDL(aOttina(x), 1, estrazione)
If rit >= 13 Then
Trovati = Trovati & aOttina(x) & "=" & rit & "; "
aOttina(x) = 0 ' Annulla il numero sostituendolo con 0
End If
End If
Next
If Trovati <> "" Then
Call Scrivi(" Ritardi >= 13 nella " & nomeColonna & " col: " & Trovati & "(Numeri annullati)", 1)
End If
End Sub

Sub AggiornaStat(esitoPositivo, StringaEsito, ByRef E0, ByRef E1, ByRef E2, ByRef E3, ByRef E4, ByRef E5, ByRef E6, ByRef E7, ByRef E8, ByRef E9, ByRef E10)
If Not esitoPositivo Then
E0 = E0 + 1
Exit Sub
End If
Select Case StringaEsito
Case "Estratto" : E1 = E1 + 1
Case "Ambo" : E2 = E2 + 1
Case "Terno" : E3 = E3 + 1
Case "Quaterna" : E4 = E4 + 1
Case "Cinquina" : E5 = E5 + 1
Case "Sestina" : E6 = E6 + 1
Case "Sette" : E7 = E7 + 1
Case "Otto" : E8 = E8 + 1
Case "Nove" : E9 = E9 + 1
Case "Dieci" : E10 = E10 + 1
Case Else : E0 = E0 + 1
End Select
End Sub

Stasera proverò così