Fare script se possibile

[jure]

Ambo ripetuto entro 21 estrazioni retroattive
Se fra 2 ambi uguali esce uno dei 2 numeri
giocare l'ambata mancante e l'ambo stesso.
es.
Genova
28/09/2019 Ambo 51 23
01/10/2019 numero dell'Ambo 23
10/10/2019 Ambo 51 23
Giocare l'Ambata Mancante 51 + lo stesso Ambo
51 23 che esce insieme all'Ambata il 17/10/2019

Torino
05/09/2019 Ambo 57 72
07/09/2019 numero dell'Ambo 72
19/09/2019 Ambo 57 72
Giocare l'Ambata Mancante 57 + lo stesso Ambo
57 72 che esce insieme all'Ambata il 26/09/2019

 

[jure]

Roma
24/09/2019 Ambo 48 86
01/10/2019 numero dell'Ambo 48
15/10/2019 Ambo 48 86

Oggi 29/10/2019 A Roma
Ambata 86 Ambo 86 48

 

[jure]

Roma
10/09/2019 Ambo 83 22
24/09/2019 numero dell'Ambo 22
05/10/2019 numero dell'Ambo 22
17/10/2019 Ambo 22 83

26/10/2019 Esce a Roma l'Ambata Mancante 83
+ l'Ambo 22 83
Se non esce l'Ambo puo' uscire solo l'Ambata
mancante.

 

[jure]

Previsione di Prova
Roma
05/10/2019 Ambo 23 22
17/10/2019 Numero Dell'Ambo 22
26/10/2019 Ambo 23 22

Previsione x le prossime estrazioni
Roma
Ambata Mancante 23
+ Ambo 23 22

 

[jure]

Un'altra Previsione Prova interessante ravvicinata.
Bari
22/10/2019 Ambo 04 24
24/10/2019 Numero dell'Ambo 04
26/10/2019 Ambo 04 24

Previsione x le Prossime estrazioni
Bari Ambata Mancante 24
+ Ambo 24 04

 

[i legend]

Ciao jure prova a controllare , se il report è corretto ti posto lo script
ho eseguito sul range 9603-9702

 

[i legend]

Ciao Questo invece trova i casi un estratto non è presente nel range ma il restante è sortito anche piu di una volta
posto immagine, se lo script non è corretto non lo posto

 

[jure]

Grazie per esserti interessato, la seconda immagine va bene il range per trovare
i 2 Ambi uguali puoi portarlo anche a 42 estrazioni. Nel range ci deve essere solo
un numero dell'Ambo anche se ripetuto piu' volte dopo il secondo Ambo ripetuto
giocare o solo il numero mancante o anche l'Ambo che spesso si ripete.

 

[i legend]

Ciao jure , ho bisogno che mi confermi i dati dell immagine
se sono esatti posto lo script se sono errati ,continuo a lavorarci
ultime 100 estrazioni su Torino

 

[jure]

Ho Controllato i calcoli sono esatti tra un Ambo e l'altro deve figurare
solo un numero di quell'Ambo tralasciare la previsione se si presenta anche l'altro numero non bisogna neanche trascurare le Ambate oltre che all'Ambo.

 

[i legend]

Ho Controllato i calcoli sono esatti tra un Ambo e l'altro deve figurare
solo un numero di quell'Ambo tralasciare la previsione se si presenta anche l'altro numero non bisogna neanche trascurare le Ambate oltre che all'Ambo.

Ok. Domani posto lo script.
Per oggi basta pc.

 

[jure]

Grazie ILEGEND a Domani.

 

[i legend]

ciao jure, anche se hai detto che i dati ti risultano ,verifica ancora il metodo per scongiurare e correggere eventuali Bugs
ho inserito la Ricerca nelle ultime 100 estrazioni, si puo modificare ovviamente
Ambata da verificare in 9 colpi , e ambo su tutte in 25, si ferma il tutto al primo esito positivo.
ecco lo script

Option Explicit
'Verificare eventuali Bugs
' Non si garantisce la correttezza dei dati rilevati,gli errori sono sempre possibili
Sub Main
   Call SetColorSezione(RGB(207,208,212))
   Dim IdEstr,p1,p2,srP1,srP2,freqE1,freqE2,Esi,nclp,sEstr
   Dim aR(1):aR(1) = ScegliRuota
   If aR(1) = 11 Then Exit Sub
   Dim aCp0(2),aCp1(1),aCp2(1),aP1(1)
   aP1(1) = 1
   Dim RngRic:RngRic = 42' qui mwtti il lasso di ricerca
   Dim aRt(1):aRt(1) = 11
   Dim Fin:Fin = EstrazioneFin
   Dim qEstr:qEstr = 100
   Dim Ini:Ini = Fin -(qEstr - 1)
   Scrivi "    Estensione Range :  " & RngRic
   Dim sTab:sTab = "Inizio Range analisi     |  Fine Range Analisi      | NC |  Ambo_Spia  |  E1 |FreqE1|  E2 |FreqE2|Estratto|     Esito   |Colpo|     Estratti     |     Esito   |Colpo|               Estratti               "
   Scrivi "   ",,0
   Scrivi String(Len(sTab),"_"),,0,,vbWhite
   Scrivi "   "
   Scrivi "   ",,0
   Scrivi FormatSpace("Ruota                    |  " & FormatSpace(NomeRuota(aR(1)),12) & Space(105) & "|                           TUTTE",Len(sTab)),1,0,RGB(237,236,241),RGB(103,101,104)
   Scrivi "   "
   Scrivi "   ",,0
   Scrivi sTab,,,RGB(233,232,237),RGB(103,101,104)
   'analizzo le ultime 100 estrazioni
   For IdEstr = Fin To Ini Step - 1
      ReDim aEstr(0)
      Call GetArrayNumeriRuota(IdEstr,aR(1),aEstr)
      For p1 = 1 To 4
         For p2 = p1 + 1 To 5
            aCp0(1) = aEstr(p1)
            aCp0(2) = aEstr(p2)
            aCp1(1) = aEstr(p1)
            aCp2(1) = aEstr(p2)
            srP1 = SerieUltima(IdEstr -(RngRic),IdEstr - 1,aCp0,aR,2)
            If IdEstr - srP1 <= RngRic Then
               freqE1 = SerieFreqTurbo(srP1,IdEstr,aCp1,aR,1)
               freqE2 = SerieFreqTurbo(srP1,IdEstr,aCp2,aR,1)
               If freqE1 > 2 And freqE2 = 2 Then
                  Scrivi "   ",,0
                  Scrivi GetInfoEstrazione(srP1) & " | " & GetInfoEstrazione(IdEstr) & " | " & FormatSpace(IdEstr - srP1,2,1) & " | " & FormatSpace(StringaNumeri(aCp0,,True),10,1) & _
                  "  |  " & FormatSpace(aCp1(1),2) & " | " & FormatSpace(freqE1,5,1) & "|  " & FormatSpace(aCp2(1),2) & " | " & FormatSpace(freqE2,5,1) & "| ",,0,vbWhite
                  Scrivi FormatSpace(aCp2(1),5,1) & "  ",1,0,vbWhite,RGB(128,0,0)
                  Scrivi " ",,0,vbWhite
                  Call VerificaEsitoTurbo(aCp2,aR,IdEstr + 1,1,9,,Esi,nclp,sEstr)
                  Scrivi FormatSpace(Esi,12,1) & " |    " & nclp & "| " & FormatSpace(sEstr,18),1,0,RGB(176,239,163),RGB(0,85,0)
                  Call VerificaEsitoTurbo(aCp0,aRt,IdEstr + 1,2,25,,Esi,nclp,sEstr)
                  Scrivi FormatSpace(Esi,12,1) & " |   " & FormatSpace(nclp,2,1) & "| " & FormatSpace(sEstr,37),1,,RGB(45,198,125),RGB(234,255,255)
               ElseIf freqE1 = 2 And freqE2 > 2 Then
                  Scrivi "   ",,0
                  Scrivi GetInfoEstrazione(srP1) & " | " & GetInfoEstrazione(IdEstr) & " | " & FormatSpace(IdEstr - srP1,2,1) & " | " & FormatSpace(StringaNumeri(aCp0,,True),10,1) & _
                  "  |  " & FormatSpace(aCp1(1),2) & " | " & FormatSpace(freqE1,5,1) & "|  " & FormatSpace(aCp2(1),2) & " | " & FormatSpace(freqE2,5,1) & "| ",,0,vbWhite
                  Scrivi FormatSpace(aCp1(1),5,1) & "  ",1,0,vbWhite,RGB(128,0,0)
                  Scrivi " ",,0,vbWhite
                  Call VerificaEsitoTurbo(aCp1,aR,IdEstr + 1,1,9,,Esi,nclp,sEstr)
                  Scrivi FormatSpace(Esi,12,1) & " |    " & nclp & "| " & FormatSpace(sEstr,18),1,0,RGB(176,239,163),RGB(0,85,0)
                  Call VerificaEsitoTurbo(aCp0,aRt,IdEstr + 1,2,25,,Esi,nclp,sEstr)
                  Scrivi FormatSpace(Esi,12,1) & " |   " & FormatSpace(nclp,2,1) & "| " & FormatSpace(sEstr,37),1,,RGB(45,198,125),RGB(234,255,255)
               End If
            End If
         Next
      Next
      Call AvanzamentoElab(Ini,Fin,IdEstr)
   Next
   Scrivi Scrivi
End Sub

Mi raccomando Verificare, ci sono funzioni che non utilizzo solitamente
Ciao

 

[jure]

Grazie I legend . Funziona.

 

[jure]

Per valutare meglio i risultati io metto la ricerca retroattiva
di 30 estrazioni e' meno dispersiva.

 

[i legend]

Grazie I legend . Funziona.

Non c'è di che .