Girin-Girando su internet ho trovato...

stupl · 1 Novembre 2017

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.

stupl · 12 Novembre 2017

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

stupl · 14 Novembre 2017

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

stupl · 23 Novembre 2017

stupl;n2086492 ha scritto:
Si potrebbe fare uno script di questo metodo?
Grazie

Non si può fare?

stupl · 2 Dicembre 2017

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

stupl · 19 Dicembre 2017

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.

stupl · 10 Febbraio 2018

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

Cerca

Cerca

Girin-Girando su internet ho trovato...

stupl

Super member

stupl

Super member

stupl

Super member

stupl

Super member

stupl

Super member

stupl

Super member

stupl

Super member

Ultima estrazione Lotto

Ultimi Messaggi