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...
 

salvo50

Advanced Member >PLATINUM PLUS<
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.
 

adispo2000

Super Member >PLATINUM<
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
 
M

Membro cancellato 16574

Guest
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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto