Novità

Per tutti gli scripter Metodi Terno Mancato

adispo2000

Super Member >PLATINUM<
scusate , quello che avevo in mente e quello di ricercare i terni mancati cercando a ritroso nell'archivio 10elotto5m potendo indicare su quante estrazioni ricercare potendo scegliere tra i range partendo dall'ultima estrazione utile, ad esempio:
13927/06/11.3514141718282932414549505458596571738486
13827/06/11.30910111719252732333546576567717273748385
13727/06/11.252461417222736435572767778808384868890

in questo caso 14-17/11-17/14-17 terno mancato 11-14-17...ecc si puo' fare....penso che puo' essere applicato al lotto...
 
Ciao!

Penso che nessuno risponde perchè non hanno capito cosa vuoi esattamente, dovresti dare più dettagli, con ulteriori esempi, è evidente che l'esempio che fai non basta.
 
Ciao a tutti allora quello che vorrei fare e prendere in considerazione "X" concorsi, e prendere in considerazione i numeri con piu' presenze di solito le prime due frequenze importante che ci siamo minimo 4 numeri, e poi lo script analizza i terni dei numeri messi in gioco prendendo le combinazioni mancate es:
mettiamo caso che io analizzo gli ultimi 5 concorsi e che mi da' 5 numeri con frequenza (potrebbero essere anche di piu') piu' alta, quindi questi 5 numeri sviluppando daranno 10 terni che confrontando con quelli usciti sempre nei concorsi presi in considerazione mi restituisca i terni non usciti....
Non lo so'...spero' che mi sono spiegato...c'e' qualcuno che mi possa aiutare ed eventualmente correggere passo passo se ci sono delle incomprenzioni
CIao
 
Buongiorno,
Salutando tutti gli intervenuti .
Provi questo listato ,

Codice:
Option Explicit
'Per tutti gli scripter Metodi Terno Mancato di adispo2000
'http://forum.lottoced.com/forum/lottoced/area-download/2069029-per-tutti-gli-scripter-metodi-terno-mancato
Sub Main()
Dim Tipoarchivio : Tipoarchivio = ScegliArchivioDL()
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL()
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim EstrCon : EstrCon = CInt(InputBox("ESTRAZIONI RICERCA FRREQUENTI","ricerca Frequenti",5))
Dim nClasse : nClasse = CInt(InputBox("CLASSE SVILUPPO","Sviluppo",3))
Dim Ini,fin : Ini = EstrazioneFinDL - EstrCon : fin = EstrazioneFinDL - 01
Dim Y,nFrq01 : ReDim nFr01(90,01)
For Y = 01 To 90
nFr01(Y,00) = Format2(Y)
nFr01(Y,01) = EstrattoFrequenzaDL(Y,Ini,fin)
nFrq01 = EstrattoFrequenzaDL(Y,Ini,fin)
Next
Call OrdinaMatriceTurbo(nFr01,- 01,01)
ReDim EN(05) : EN(01) = nFr01(01,00) : EN(02) = nFr01(02,00) : EN(03) = nFr01(03,00) : EN(04) = nFr01(04,00) : EN(05) = nFr01(05,00)
Dim aNumeri :aNumeri = Array(EN(01),EN(02),EN(03),EN(04),EN(05))
Call Scrivi("Sviluppo combinazione " & StringaNumeri(aNumeri) & " In " & NomeSorte(nClasse),,01) : Call Scrivi()
Dim k
For k = 01 To UBound(aNumeri)
aNumeri(k) = aNumeri(k)
Next
Dim aTitoli : aTitoli = Array(aTitoli," CONTATORE "," SVILUPPO " & NomeSorte(nClasse)," ESITO "," COLPI "," ESTRATTI "," ID ESTR ")
Call InitTabella(aTitoli,03,,03,01)
Dim aCol
If InitSviluppoIntegrale(aNumeri,nClasse) > 00 Then
Do While GetCombSviluppo(aCol) = True
Dim i : i = i + 01
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Call VerificaEsitoDL(aCol,Ini,nClasse,EstrCon + 01,RetEsito,RetColpi,RetEstratti,RetIdEstr)
Dim aValori : aValori = Array(aValori,FormattaStringa(i,"00"),StringaNumeri(aCol,,True),RetEsito,RetColpi,RetEstratti,RetIdEstr)
If RetEsito <> "" Then
aValori(06) = GetInfoEstrazioneDL(RetIdEstr)
ElseIf RetEsito = "" Then
aValori(03) = " -- " : aValori(06) = " -- "
End If
Call AddRigaTabella(aValori,,,03)
Loop
End If
Call CreaTabella()
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
End Function

Controllare Sempre .
salvo errori ed omissis.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03

Ultimi Messaggi

Indietro
Alto