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 26 aprile 2025
    Bari
    23
    30
    43
    69
    25
    Cagliari
    63
    73
    02
    18
    12
    Firenze
    38
    11
    13
    32
    15
    Genova
    09
    27
    84
    16
    11
    Milano
    73
    30
    70
    60
    02
    Napoli
    60
    81
    05
    79
    89
    Palermo
    26
    28
    69
    07
    31
    Roma
    82
    38
    76
    44
    31
    Torino
    05
    62
    73
    46
    84
    Venezia
    42
    14
    45
    35
    52
    Nazionale
    48
    80
    78
    16
    23
    Estrazione Simbolotto
    Genova
    10
    22
    15
    09
    34

Ultimi Messaggi

Indietro
Alto