Novità

Girin-Girando su internet ho trovato...

Ciao magia e buona giornata anche a te, quindi il 5+1 non è un problema, ok!

magia;n2084598 ha scritto:
Cosa intende per vertibili , diametrali ,?

Per quanto riguarda la domanda sopra è che, dato che nel metodo originale i calcoli erano basati solo sulle Decine e poi successivamente è stato introdotto anche calcoli su Cadenze, Figure e Nessuna Selezione, mi chiedevo se si poteva inserire nel metodo anche calcoli sui vertibili e diametrali, cioè:
Il Metodo era riferito se si trovavano minimo 3 max 6 Decine appartenenti allo stesso gruppo, giusto?
e stessa cosa e stata fatta con l'introduzione delle Cadenze, delle Figure e di Nessuna Selezione, quindi si potrebbe fare anche se nei 20 numeri estratti si trovano min 3 - max 6 numeri vertibili tra loro o numeri diametrali tra loro e addirittura aggiungerei anche numeri Gemelli, non so se mi sono spiegato ben ma è questo quello che intendevo.
 
Ultima modifica:
magia;n2086041 ha scritto:
Buonanotte,
Salutando tutti .
Abbiamo modificato il listato , al messaggio #13 .
con l' aggiunta del resoconto parziale e totale .
Controllare sempre .
Salvo Errori ed Omissis .

Grazie magia,
p.s. hai letto la risposta alla domanda che mi facesti.
Ciao
 
Originariamente inviato da fortunato90
Ultima estrazione mensile
prendere in esame il quinto
estratto di ogni ruota sommarlo
al primo estratto della prima estrazione
mensile effettuando il fuori 90
Per ogni. estratto si farà il vertibile
Verranno fuori due colonne verticali
da 10 numeri .da porre in gioco
eliminare
i numeri ritardatari + il 9.90 qualora dovesse
comparire nelle ambate

Si potrebbe fare uno script di questo metodo?
Grazie
 
Ultima modifica:
Metodo 10eLotto serale:

Dell' ultima estrazione mensile prendere in esame il quinto estratto di ogni ruota e
sommarlo al primo estratto della prima estrazione mensile effettuando il fuori 90.
Per ogni estratto si farà il vertibile e verranno fuori due colonne da 10 numeri da porre in gioco.
Eliminare i numeri ritardatari + il 9 e 90 qualora dovessero comparire nelle ambate

Si può fare uno script?

più che altro mi servirebbe solo la parte di script che analizzi i ritardatari e li elimini dalle 2 colonne di 10 numeri compreso il 9 e 90, e incorporarlo in questo script, postato sotto, che svolge il metodo descritto sopra, ovviamente, sempre che non ci sia qualcosa di più semplice per crearlo a nuovo.
Grazie

Codice:
Option Explicit
'
'Metodo x 10eLotto serale
'
Sub Main
Call ImpostaArchivio10ELotto(1)
Dim casi,nn(10),Costo,mm(10)
casi = 00
Costo = - 1
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) = 1 Then
casi = casi + 01
Call Scrivi(String(142,"="),1,0): Scrivi("Caso n°") & Format2(casi),1,,2,0,3
nn(01) = Fuori90(Estratto(es - 1,BA_,5) + Estratto(es,BA_,5))
nn(02) = Fuori90(Estratto(es - 1,CA_,5) + Estratto(es,CA_,5))
nn(03) = Fuori90(Estratto(es - 1,FI_,5) + Estratto(es,FI_,5))
nn(04) = Fuori90(Estratto(es - 1,GE_,5) + Estratto(es,GE_,5))
nn(05) = Fuori90(Estratto(es - 1,MI_,5) + Estratto(es,MI_,5))
nn(06) = Fuori90(Estratto(es - 1,NA_,5) + Estratto(es,NA_,5))
nn(07) = Fuori90(Estratto(es - 1,PA_,5) + Estratto(es,PA_,5))
nn(08) = Fuori90(Estratto(es - 1,RO_,5) + Estratto(es,RO_,5))
nn(09) = Fuori90(Estratto(es - 1,TO_,5) + Estratto(es,TO_,5))
nn(10) = Fuori90(Estratto(es - 1,VE_,5) + Estratto(es,VE_,5))
mm(01) = Vert(nn(01))
mm(02) = Vert(nn(02))
mm(03) = Vert(nn(03))
mm(04) = Vert(nn(04))
mm(05) = Vert(nn(05))
mm(06) = Vert(nn(06))
mm(07) = Vert(nn(07))
mm(08) = Vert(nn(08))
mm(09) = Vert(nn(09))
mm(10) = Vert(nn(10))
Call EliminaRipetuti(nn)
Call EliminaRipetuti(mm)
Call Scrivi()
Call Scrivi(" Numeri da giocare al 10eLotto Serale per 13 colpi dall' estrazione successiva alla " & _
IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",01,01,04)
Call Scrivi()
Call Scrivi(" NUMERI: " & StringaNumeri(nn,,True),01,01,06)
Call Scrivi(" NUMERI: " & StringaNumeri(mm,,True),01,01,06)
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 + 1
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
Dim EV00,EV01,EV02,EV03,EV04,EV05,EV06,EV07,EV08,EV09,EV10
If RetEsito = "Estratto" Then EV01 = EV01 + 01 Else EV00 = EV00 + 01
If RetEsito = "Ambo" Then EV02 = EV02 + 01 Else EV00 = EV00 + 01
If RetEsito = "Terno" Then EV03 = EV03 + 01 Else EV00 = EV00 + 01
If RetEsito = "Quaterna" Then EV04 = EV04 + 01 Else EV00 = EV00 + 01
If RetEsito = "Cinquina" Then EV05 = EV05 + 01 Else EV00 = EV00 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01 Else EV00 = EV00 + 01
If RetEsito = "Sette" Then EV07 = EV07 + 01 Else EV00 = EV00 + 01
If RetEsito = "Otto" Then EV08 = EV08 + 01 Else EV00 = EV00 + 01
If RetEsito = "Nove" Then EV09 = EV09 + 01 Else EV00 = EV00 + 01
If RetEsito = "Dieci" Then EV10 = EV10 + 01 Else EV00 = EV00 + 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 Else EV00 = EV00 + 01
If RetEsito1 = "Ambo" Then EV02 = EV02 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Terno" Then EV03 = EV03 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Quaterna" Then EV04 = EV04 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Cinquina" Then EV05 = EV05 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Sestina" Then EV06 = EV06 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Sette" Then EV07 = EV07 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Otto" Then EV08 = EV08 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Nove" Then EV09 = EV09 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Dieci" Then EV10 = EV10 + 01 Else EV00 = EV00 + 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(String(154,"-"),1)
Call Scrivi()
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()
Call Scrivi("Costo Giocate  : " & FormattaStringa(Costo,"0") & " € ")
End Sub
 
Ultima modifica:
magia;n2091773 ha scritto:
Buonanotte,
Salutando tutti .
listato modificato in parte ,continui lei


Codice:
Option Explicit
'
'Metodo x 10eLotto serale
'
Sub Main
Call ImpostaArchivio10ELotto(1)
Dim casi,nn(10),Costo,mm(10)
casi = 00
Costo = - 1
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) = 1 Then
casi = casi + 01
Call Scrivi(String(142,"="),1,0): Scrivi("Caso n°") & Format2(casi),1,,2,0,3
nn(01) = Fuori90(Estratto(es - 1,BA_,5) + Estratto(es,BA_,5))
nn(02) = Fuori90(Estratto(es - 1,CA_,5) + Estratto(es,CA_,5))
nn(03) = Fuori90(Estratto(es - 1,FI_,5) + Estratto(es,FI_,5))
nn(04) = Fuori90(Estratto(es - 1,GE_,5) + Estratto(es,GE_,5))
nn(05) = Fuori90(Estratto(es - 1,MI_,5) + Estratto(es,MI_,5))
nn(06) = Fuori90(Estratto(es - 1,NA_,5) + Estratto(es,NA_,5))
nn(07) = Fuori90(Estratto(es - 1,PA_,5) + Estratto(es,PA_,5))
nn(08) = Fuori90(Estratto(es - 1,RO_,5) + Estratto(es,RO_,5))
nn(09) = Fuori90(Estratto(es - 1,TO_,5) + Estratto(es,TO_,5))
nn(10) = Fuori90(Estratto(es - 1,VE_,5) + Estratto(es,VE_,5))
mm(01) = Vert(nn(01))
mm(02) = Vert(nn(02))
mm(03) = Vert(nn(03))
mm(04) = Vert(nn(04))
mm(05) = Vert(nn(05))
mm(06) = Vert(nn(06))
mm(07) = Vert(nn(07))
mm(08) = Vert(nn(08))
mm(09) = Vert(nn(09))
mm(10) = Vert(nn(10))
Call EliminaRipetuti(nn)
Call EliminaRipetuti(mm)
Call Scrivi()
Call Scrivi(" Numeri da giocare al 10eLotto Serale per 13 colpi dall' estrazione successiva alla " & _
IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",01,01,04)
Call Scrivi()
Call Scrivi(" NUMERI: " & StringaNumeri(nn,,True),01,01,06)
Call Scrivi(" NUMERI: " & StringaNumeri(mm,,True),01,01,06)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'presenza numero 9 o 90
Dim x
For x = 01 To 10
If nn(x) = 09 Or nn(x) = 90 Then nn(x) = 00 : Call Scrivi("E' Presente il numero : 09",01,01,06) : _
Call Scrivi("1° Colonna : " & StringaNumeri(nn,,True),01,01,06)
If mm(x) = 09 Or mm(x) = 90 Then mm(x) = 00 : Call Scrivi("E' Presente il numero : 90",01,01,06) : _
Call Scrivi("1° Colonna : " & StringaNumeri(mm,,True),01,01,06)
Next
'elenco ritardi prima colonna
Call Scrivi("Elenco ritardi 1 colonna : ",,False)
For x = 01 To 10
Dim ritnn : ritnn = EstrattoRitardoSE(nn(x),0001,es)

Call Scrivi("" & ritnn & " - ",True,False)

Next
Call Scrivi("",,True)
'elenco ritardi seconda colonna
Call Scrivi("Elenco ritardi 2 colonna : ",,False)
For x = 01 To 10
Dim ritmm : ritmm = EstrattoRitardoSE(mm(x),0001,es)
Call Scrivi("" & ritmm & " - ",True,False)
Next
Call Scrivi()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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 + 1
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
Dim EV00,EV01,EV02,EV03,EV04,EV05,EV06,EV07,EV08,EV09,EV10
If RetEsito = "Estratto" Then EV01 = EV01 + 01 Else EV00 = EV00 + 01
If RetEsito = "Ambo" Then EV02 = EV02 + 01 Else EV00 = EV00 + 01
If RetEsito = "Terno" Then EV03 = EV03 + 01 Else EV00 = EV00 + 01
If RetEsito = "Quaterna" Then EV04 = EV04 + 01 Else EV00 = EV00 + 01
If RetEsito = "Cinquina" Then EV05 = EV05 + 01 Else EV00 = EV00 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01 Else EV00 = EV00 + 01
If RetEsito = "Sette" Then EV07 = EV07 + 01 Else EV00 = EV00 + 01
If RetEsito = "Otto" Then EV08 = EV08 + 01 Else EV00 = EV00 + 01
If RetEsito = "Nove" Then EV09 = EV09 + 01 Else EV00 = EV00 + 01
If RetEsito = "Dieci" Then EV10 = EV10 + 01 Else EV00 = EV00 + 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 Else EV00 = EV00 + 01
If RetEsito1 = "Ambo" Then EV02 = EV02 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Terno" Then EV03 = EV03 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Quaterna" Then EV04 = EV04 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Cinquina" Then EV05 = EV05 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Sestina" Then EV06 = EV06 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Sette" Then EV07 = EV07 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Otto" Then EV08 = EV08 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Nove" Then EV09 = EV09 + 01 Else EV00 = EV00 + 01
If RetEsito1 = "Dieci" Then EV10 = EV10 + 01 Else EV00 = EV00 + 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(String(154,"-"),1)
Call Scrivi()
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()
Call Scrivi("Costo Giocate : " & FormattaStringa(Costo,"0") & " € ")
End Sub

Controllare sempre .
Salvo Errori ed Omissis .


Grazie magia, ci proverò ma solo quando ritorno a Gennaio, sono dai miei per le feste, a tal proposito ti auguro buone feste natalizie, ovviamente le auguro anche a tutti i presenti del forum e non.

12376228_898387636883867_294694836978464826_n.jpg
 
Ultima modifica:
Salve a tutti, sono risalito da una settimana ed ho provato a modificare questo script che avevo rimandato da prima delle feste, ed ecco il risaltato:

Codice:
Option Explicit
'
'Metodo x 10eLotto serale
'Si somma il 5° estratto dell'ultima estrazione del mese precedente
'con il 5° estratto della prima estrazione del mese successivo
'delle ruote del Lotto tranne la Nazionale, si ricavano così 10 numeri
'per formare la prima colonna e con il loro vertibile ricaviamo altri 10 numeri
'per formare la seconda colonna. Da queste 2 colonne si devono escludere,
'se sono presenti, i numeri ripetuti - il 9 e il 90 e i numeri più ritardatari
'e mettere in gioco per 13 colpi le due colonne risultanti.
'
Sub Main
Call ImpostaArchivio10ELotto(1)
Dim casi,nn(10),Costo,mm(10)
casi = 00 : Costo = - 2
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
nn(01) = Fuori90(Estratto(es - 1,BA_,5) + Estratto(es,BA_,5))
nn(02) = Fuori90(Estratto(es - 1,CA_,5) + Estratto(es,CA_,5))
nn(03) = Fuori90(Estratto(es - 1,FI_,5) + Estratto(es,FI_,5))
nn(04) = Fuori90(Estratto(es - 1,GE_,5) + Estratto(es,GE_,5))
nn(05) = Fuori90(Estratto(es - 1,MI_,5) + Estratto(es,MI_,5))
nn(06) = Fuori90(Estratto(es - 1,NA_,5) + Estratto(es,NA_,5))
nn(07) = Fuori90(Estratto(es - 1,PA_,5) + Estratto(es,PA_,5))
nn(08) = Fuori90(Estratto(es - 1,RO_,5) + Estratto(es,RO_,5))
nn(09) = Fuori90(Estratto(es - 1,TO_,5) + Estratto(es,TO_,5))
nn(10) = Fuori90(Estratto(es - 1,VE_,5) + Estratto(es,VE_,5))
mm(01) = Vert(nn(01))
mm(02) = Vert(nn(02))
mm(03) = Vert(nn(03))
mm(04) = Vert(nn(04))
mm(05) = Vert(nn(05))
mm(06) = Vert(nn(06))
mm(07) = Vert(nn(07))
mm(08) = Vert(nn(08))
mm(09) = Vert(nn(09))
mm(10) = Vert(nn(10))

'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(nn,,True),01,01)
Call Scrivi(" Numeri ricavati per la 2ª colonna: " & StringaNumeri(mm,,True),01,01)
Call Scrivi()

'eliminazione numeri ripetuti
Call EliminaRipetuti(nn)
Call EliminaRipetuti(mm)

'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(nn,,True),01,01,06)
Call Scrivi(" NUMERI 2ª Colonna: " & StringaNumeri(mm,,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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 aprile 2025
    Bari
    10
    58
    03
    61
    14
    Cagliari
    04
    67
    36
    85
    87
    Firenze
    70
    45
    80
    62
    06
    Genova
    05
    66
    32
    59
    89
    Milano
    20
    56
    02
    87
    47
    Napoli
    60
    63
    75
    72
    06
    Palermo
    14
    80
    30
    76
    70
    Roma
    73
    42
    36
    79
    08
    Torino
    26
    74
    83
    78
    31
    Venezia
    06
    60
    85
    76
    40
    Nazionale
    44
    11
    71
    06
    37
    Estrazione Simbolotto
    Genova
    26
    14
    36
    31
    44
Indietro
Alto