Novità

Fare script se possibile

jure

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

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

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

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

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

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

i legend

Premium Member
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
ProvaJureSuBariConiperFreqDinUnestratto.png
 

jure

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

Premium Member
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
perJuresuTorino.png
 

jure

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

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

i legend

Premium Member
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
Codice:
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

Advanced Member >PLATINUM PLUS<
Per valutare meglio i risultati io metto la ricerca retroattiva
di 30 estrazioni e' meno dispersiva.
 

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
Alto