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
 
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
 
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.
 
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
 
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
 
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
 
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.
 
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
 
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.
 
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.
 
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 :)
 
Per valutare meglio i risultati io metto la ricerca retroattiva
di 30 estrazioni e' meno dispersiva.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 24 gennaio 2025
    Bari
    67
    35
    46
    60
    43
    Cagliari
    09
    24
    58
    03
    62
    Firenze
    52
    68
    17
    40
    80
    Genova
    58
    85
    12
    49
    52
    Milano
    87
    04
    59
    54
    52
    Napoli
    32
    90
    61
    22
    23
    Palermo
    65
    14
    17
    75
    60
    Roma
    61
    68
    64
    09
    19
    Torino
    57
    19
    08
    01
    78
    Venezia
    90
    16
    66
    18
    50
    Nazionale
    57
    56
    33
    25
    38
    Estrazione Simbolotto
    Bari
    19
    23
    25
    34
    20
Indietro
Alto