Per tutti gli scripter Metodi Terno Mancato

[adispo2000]

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:

139	27/06/	11.35	1	4	14	17	18	28	29	32	41	45	49	50	54	58	59	65	71	73	84	86
138	27/06/	11.30	9	10	11	17	19	25	27	32	33	35	46	57	65	67	71	72	73	74	83	85
137	27/06/	11.25	2	4	6	14	17	22	27	36	43	55	72	76	77	78	80	83	84	86	88	90

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

 

[adispo2000]

Raga ci siete?

 

[salvo50]

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]

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

 

[Membro cancellato 16574]

Buongiorno,
Salutando tutti gli intervenuti .
Provi questo listato ,

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.