gemello in 5° chiama l'ambata

[skygirl]

Grazie disaronno ho provato lo script di Mike58 con l'aggiornamento che hai fatto per individuare il ritardo delle ambate funziona perfettamente

 

[lupo bianco]

Buonasera,
mi sono permesso di modificare il listato di Mike58, che saluto e ringrazio per il suoi splendidi ed insuperabili lavori,con l' aggiunta richiesta.

Sub Main()
    '- http://forum.lottoced.com/f8/gemello-5%B0-chiama-lambata-117021/index2.html -
    Dim anum(02),ruota(01),posta(02),anum1(01),anum2(01)
    Dim ambetti,sretnumeri,nvincita
    ini = EstrazioneFin - 25
    fin = EstrazioneFin
    ca = fin - Ini
    Scrivi String(120,"="),1
    Scrivi" Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 ",1,0,3
    Scrivi"   su totali " & ca & " estrazioni  ",1,0,2
    Scrivi "  " & Chr(174) & "  Script by Mike58  " & Chr(169) & "  ",1,- 1,6
    Scrivi
    'Scrivi String(120,"="),1
    ReDim AT(13)
    AT(01) = " Casi "
    AT(02) = " Data "
    AT(03) = " Ruota "
    AT(04) = " Estratti "
    AT(05) = " Gemello "
    AT(06) = " Posiz. "
    AT(07) = " pronostico "
    AT(08) = " Esito  "
    AT(09) = " Colpi "
    AT(10) = " Estratti"
    AT(11) = " Data ID "
    AT(12) = " Estratti ID "
    AT(13) = " Ritardo Pronos. "
    'AT(12) = " nGuadagno "
    'AT(13) = " Qtà "
    'AT(14) = " s_Ambetti "
    'AT(15) = " n_Vincita "
    Call InitTabella(AT,1,,3,5)
    For es = fin To Ini Step - 1
        For r1 = 1 To 12
            If r1 = 11 Then r1 = 12
            ruota(01) = r1
            posta(01) = 4
            posta(02) = 1
            For p1 = 5 To 5
                'For p2 = p1 + 1 To 5
                a = Estratto(es,r1,p1)
                b = Estratto(es,r1,4)
                If Gemello(a)Then
                    c = Radicale(a)
                    d = Vert(c)
                    e =(11*c)
                    f = Vert(e)
                    b1 = b - 1
                    b2 = b + 1
                    casi = casi + 1
                    anum(01) = b1'c
                    anum(02) = b2' d
                    'anum(3) = 84
                    'anum(4) = f
                    anum1(01) = b1
                    anum2(01) = b2
                    sf1 = SerieRitardo(1,fin,anum1,ruota,1)
                    sf2 = SerieRitardo(1,fin,anum2,ruota,1)
                    'For idestr = es + 1 To fin
                    'ambetti = VerificaAmbetto(anum,r1,idestr,sretnumeri,nvincita)
                    'Next
                    'For x = 1 To 4
                    '---------- calcolo x escludere i numeri trovati ------------------
                    'If EstrattoRitardo(r1,anum(x),es,es) = 0 Then anum(x) = 0
                    '-----------------------------------------------------------------
                    Call VerificaEsitoConGuadagno(anum,ruota,es + 1,1,10,,esito,colpi,estratti,id,,nguad)
                    'Next
                    ReDim AV(13)
                    AV(01) = casi
                    AV(02) = DataEstrazione(es)
                    AV(03) = SiglaRuota(r1)
                    AV(04) = StringaEstratti(es,r1)
                    AV(05) = a
                    AV(06) = p1
                    AV(07) = StringaNumeri(anum)
                    AV(08) = esito
                    AV(09) = colpi
                    AV(10) = estratti
                    If esito <> "" Then AV(11) = DataEstrazione(id)
                    If esito = "" Then AV(11) = " -- "
                    'AV(12) = nguad
                    'AV(13) = ambetti
                    'AV(14) = sretnumeri
                    'AV(15) = nvincita
                    If esito <> "" Then AV(12) = StringaEstratti(id,r1)
                    If esito = "" Then AV(12) = "---.---.---.---.---"
                    AV(13) = Format2(sf1) & " - " & Format2(sf2)
                    If esito = "" And colpi < 10 Then Call AddRigaTabella(AV,4,,3,0)
                    If esito <> "" Then Call AddRigaTabella(AV,3,,3,1)
                    If esito = "" And colpi = 10 Then Call AddRigaTabella(AV,,,3)
                    'If esito <> "" And colpi < 4 Then Call SetColoreCella(9,3,1)
                    If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(11,4,2)
                End If
            Next
        Next
    Next
    Call SetTableWidth("100%")
    Call CreaTabella()
End Sub

Perfetto io pero' non voglio invadere il post
ma secondo me parlandone facciamo crescere il post di visite e diventa il piu' visitato ma alla fine quello che conta e' vincere e fare i complimetni a chi inventa il metodo e poi anche chi fa gli script

 

[skygirl]

La penso allo stesso modo lupo bianco, parlare di script all'interno di un metodo può sembrare invadente ma secondo me non lo è in quanto è come abbinare la teoria alla pratica. Il merito di aver inventato il metodo resta dell'autore "bibbolotto", poi ci sono altre figure che si affiancano come chi lo prova nella pratica, chi crea gli script per poterlo applicare e verificare più facilmente, chi lo studia paragonandolo agli altri metodi per vederne l'efficacia...ecc..ecc...
Sostanzialmente io sono convinta che sia l'unione che fa la forza per cui ben vengano tutti gli interventi all'interno di un post a patto ovviamente che non siano proprio off topic

 

[bibbolotto]

pienamente daccordo!

 

[bibbolotto]

e' uscito il 72 a bari proveniva dal numero 33 in 5°posizione lo avete giocato?

 

[skygirl]

Che peccato non l'ho giocato complimenti bibbolotto i tuoi metodi stanno dando ottimi risultati con le ambate. Hai studi in corso anche sulle ambate determinate
Allego immagine uscita del 72 BA come risulta dallo script di Mike58

 

[bibbolotto]

attenzione torino 26 28 sopratutto il 26 che proviene anche dal metodo delle figure

 

[skygirl]

Questo Metodo Bibbolotto da sempre ottimi risultati come si può vedere dalla tabella
Il prox pronostico vede le ambate 23-25 su TO
e 70-72 su BA che non si sono ancora presentate
Io vedo molto bene il 72 su BA ma non saprei cosa abbinarci hai qualche idea?

 

[skygirl]

Non riesco a caricare l'immagine correttamente e non mi fa modificare il post precedente, l'immagine risulta troppo piccola

 

[bibbolotto]

Sono veramente commosso siete andati a riperticare un mio vecchio metodo da me completamente dimenticato
cio' non puo' farmi che piacere e speriamo sia ancora vincente.
Per gli abbinamenti direi il 90 da me atteso sia su torino che su bari.

 

[Abitte]

Così per sfizio (e con metodo cartapen) ho controllato gli ultimi 21 casi con esito positivo e ho notato:

7 casi in 2^ posiz.
7 casi in 5^ posiz.
3 casi in 4^ posiz.
2 casi in 3^ posiz.
1 caso oltre il 20° colpo (naz)
2 negativi

spesso se il 4° numero si ripete nelle due-tre estrazioni successive, l'ambata ritarda un po'.

Sarebbe interessante elaborare una statistica più ampia e vedere come va.....



2 casi negativi dopo svariati colpi

2 casi in 3^ posiz

 

[Abitte]

Così per sfizio (e con metodo cartapen) ho controllato gli ultimi 21 casi con esito positivo e ho notato:

7 casi in 2^ posiz.
7 casi in 5^ posiz.
3 casi in 4^ posiz.
2 casi in 3^ posiz.
1 caso oltre il 20° colpo (naz)
2 negativi

spesso se il 4° numero si ripete nelle due-tre estrazioni successive, l'ambata ritarda un po'.

Sarebbe interessante elaborare una statistica più ampia e vedere come va.....

 

[Abitte]

Non so perché non mi accetta il tasto MODIFICA......comunque nei due casi negativi è compreso il caso della NAZ che ha un numero eccessivo di colpi per le due ambate e l'altro è un caso su MI.

 

[skygirl]

Riprovo ad inserire l'immagine

 

[skygirl]

Ci devono essere problemi sul funzionamento di thread. Non funziona il tasto modifica neppure a me così cerco di inserire immagine in dimensione leggibile viene minuscola e non riesco a toglierla.
Può essere che il mal funzionamento sia dovuto al fatto che l'argomento è stato aperto prima della ristrutturazione del forum.
Per questo chiedo a Bibbolotto che è l'autore del metodo e dato gli ottimi risultati di questo metodo di inserire una nuova discussione dove possiamo seguire il metodo senza avere problemi con i post che inseriamo perché non riusciamo a modificarli.

 

[skygirl]

Ho chiesto assistenza allo staff per risolvere il problema del non funzionamento tasto modifica in questo post vediamo che ci dicono http://forum.lottoced.com/forum/ass...ne-problema-thread-n0n-funzionamento-modifica

 

[skygirl]

Riprovo ad inserire immagine utilizzando url come notate i risultati sono ottimi, questo è l'output del listato

 

[skygirl]

Abitte i casi positivi come tu stesso hai verificato sono veramente tanti e in pochi colpi
Il pronostico ambate per oggi 14/01/2016 è
23-25 su TO
70-72 su BA io opto per BA
Adesso cerco di rinserire l'immagine del listato, che evidenzia i vari casi, usando un altro servizio di hosting immagini, speriamo di poterla visualizzare più grande anche perchè una volta inserito non potrò modificare il post dato mal funzionamento http://

 

[bibbolotto]

Ve ne siete accorti gemello 11 in 5° pos a milano da giocare 39 41
quarantuuuuuunooooo ritardatariooooooooooo

 

[Abitte]

Accorta sì !!!