METODINOinoino

danad · 7 Gennaio 2017

danad;n2035082 ha scritto:
UN'ALTRA NUOVA CA-VE : 77-79/ 66-11.

VEDIAMO COME SI COMPORTA...GIOCARLE..SONO UN PO TROPPE, NON SAPREI COME GESTIRE LE GIOCATE. A VOLTE PENSO DI GIOCARE SOLO LE ULTIME ARRIVATE,QUANDO NON SI CREANO TROPPE CONDIZIONI NELLA STESSA ESTRAZIONE ,PER UN COLPO SOLO, MAX.2...NON SAREBBE TANTO SBAGLIATO VISTO CHE ALCUNE HANNO DATO ESITO NEI PRIMI COLPI. NON CONVIENE PORTARE AVANTI UNA QUARTINA COME HO FATTO IO CON 44-49/18-36 MI-PA CHE HA DATO ESITO AL10° COLPO QUANDO L'AVEVO ABBANDONATA DOPO 6 COLPI.NELLO STESSO TEMPO NON HO GIOCATO SU NA-VE CHE HA DATO L'AMBO AL PRIMO COLPO.

IGNORANTI E MALEDUCATI QUESTI NUMERI. DICIAMO CHE ACCADONO DELLE COSE STRANE NELLE ESTRAZIONI...DELLE ANOMALIE CHE NON PENSO SIANO CASUALI.

SECONDO COLPO AMBO SECCO 77-66 VE.

ermis · 7 Gennaio 2017

Bravissima Danad ....

danad · 7 Gennaio 2017

Grazie ermis ! Si vede che le previsioni più rare che si ricavano dai vertibili isotopi hanno più probabilità di uscita.Invece i casi che stranamente si ripetono, no!

suersat · 13 Gennaio 2017

Ciao Danad hai visto ieri sera su roma torino 12-21 che ne pensi??

danad · 13 Gennaio 2017

Buona sera suersat ! Si, ho visto...ma non penso più....ahahahaaa. Si è già avuta questa condizione su Pa-Ro ed è finito l'ambo sulla Nz 17-33. Meglio non considerare le previsioni uguali alle precedenti ed aspettare qualcosa di inedito, come quella di Ca-Ve.

Membro cancellato 16574 · 13 Gennaio 2017

Buongiorno ,
Salutando tutti gli intervenuti .
In riferimento a quanto scritto da skygirl .
Postiamo il listato del metodo del metodo originale .

Codice:

Option Explicit
'METODINOinoino di danad
'http://forum.lottoced.com/forum/lottoced/metodi/2016302-metodinoinoino?page=1
Sub Main()
    Dim caso
    caso = 00
    Dim Ini,fin,es
    Ini = 09215
    fin = EstrazioneFin
    For es = Ini To fin
        Call Messaggio(es)
        Call AvanzamentoElab(Ini,fin,es)
        Dim r01,p01
        For r01 = 01 To 09
            For p01 = 01 To 05
                Dim r02,p02
                r02 = r01 + 01
                Dim e01,e02
                e01 = Estratto(es,r01,p01): e02 = Estratto(es,r02,p01)
                If e01 = Vert(e02)Or e02 = Vert(e01) Then
                    caso = caso + 01
                    Call Scrivi(String(125,"-") & " Caso n° " & Format2(caso))
                    Call Scrivi(GetInfoEstrazione(es) & " - " & SiglaRuota(r01) & " - " & StringaEstratti(es,r01) & " Estratto il " & Format2(e01) & _
                    " in " & Format2(p01) & "° posizione",01)
                    Call Scrivi(GetInfoEstrazione(es) & " - " & SiglaRuota(r02) & " - " & StringaEstratti(es,r02) & " Estratto il " & Format2(e02) & _
                    " in " & Format2(p01) & "° posizione",01)
                    ReDim VetRuote(02)
                    VetRuote(01) = r01:VetRuote(02) = r02
                    ReDim VetPoste01(01)
                    VetPoste01(01) = 1
                    Dim Durata
                    Durata = 06
                    ReDim VetNumeri01(02)
                    VetNumeri01(01) = Fuori90(e01 + e02):VetNumeri01(02) = Vert(Fuori90(e01 + e02))
                    Call ImpostaGiocata(01,VetNumeri01,VetRuote,VetPoste01,Durata,01)
                    Dim RetEsito01,RetEstratti01
                    Call VerificaEsitoTurbo(VetNumeri01,VetRuote,es,AMBATA_,01,00,RetEsito01,00,RetEstratti01)
                    If RetEsito01 <> "" Then
                        Call Scrivi("Nell' estrazione di calcolo e' presente l' " & RetEsito01 & " : " & RetEstratti01,False,True,vbGreen,vbBlack)
                    End If
                    ReDim VetPoste02(02)
                    VetPoste02(02) = 1
                    ReDim VetNumeri02(04)
                    VetNumeri02(01) = Fuori90(e01 + e02):VetNumeri02(02) = Vert(Fuori90(e01 + e02))
                    VetNumeri02(03) = DiametraleD(e01):VetNumeri02(04) = DiametraleD(e02)
                    Call EliminaRipetuti(VetNumeri02)
                    Call ImpostaGiocata(02,VetNumeri02,VetRuote,VetPoste02,Durata,02)
                    Dim RetEsito02,RetEstratti02
                    Call VerificaEsitoTurbo(VetNumeri02,VetRuote,es,AMBO_,01,00,RetEsito02,00,RetEstratti02)
                    If RetEsito02 <> "" Then
                        Call Scrivi("Nell' estrazione di calcolo e' presente l' " & RetEsito02 & " : " & RetEstratti02,False,True,vbGreen,vbBlack)
                    End If
                    Call Gioca(es,True,,01)
                End If
            Next
        Next
    Next
    Call ScriviResoconto()
End Sub

Controllare sempre .
Salvo errori ed omissis .

skygirl · 14 Gennaio 2017

magia grazie ottimo lavoro come sempre, lo script funziona perfettamente su Spaziometria

skygirl · 14 Gennaio 2017

Ho appena terminato il controllo sullo script ho notato che prende in esame solo una condizione per ogni estrazione
Ad es. nell'estrazione del 12/01/2017
si sono verificate tre condizioni ovvero
RO-TO 12.21
CA-MI 05-50
MI-TO 53.35
lo script esamina solo la prima condizione ovvero RO.TO 12.21 e restituisce questo output
-----------------------------------
09264] [ 5 ] 12.01.2017 - RO - 33.12.51.65.52 Estratto il 12 in 02° posizione
[09264] [ 5 ] 12.01.2017 - TO - 16.21.50.77.35 Estratto il 21 in 02° posizione
Nell' estrazione di calcolo e' presente l' Estratto : RO 33 .. .. .. ..
Estrazione generatrice del pronostico 09264 [ 5 - 12/01/2017]
G 0001 Numeri in gioco : 33.39 su RO TO per Estratto
In corso per altre 6 estrazioni
G 0002 Numeri in gioco : 17.26.33.39 su RO TO per Ambo
In corso per altre 6 estrazioni
________________________

vorrei chiedere magia se è possibile modificare lo script in modo che esamini tutte le condizioni che si possono presentare in ogni estrazione
grazie
un saluto

Membro cancellato 16574 · 16 Gennaio 2017

Buonanotte,
Ecco il listato modificato , con le specifiche richieste di skygirl .

Codice:

Option Explicit
'METODINOinoino di danad
'http://forum.lottoced.com/forum/lottoced/metodi/2016302-metodinoinoino?page=1
Sub Main()
    Dim caso
    caso = 00
    Dim Ini,fin,es
    Ini = 09215
    fin = EstrazioneFin
    For es = Ini To fin
        Call Messaggio(es)
        Call AvanzamentoElab(Ini,fin,es)
        Dim r01,p01
        For r01 = 01 To 09
            For p01 = 01 To 05
                Dim r02,p02
                For r02 = r01 + 01 To 11
                    If r02 = 11 Then r02 = 12
                    Dim e01,e02
                    e01 = Estratto(es,r01,p01): e02 = Estratto(es,r02,p01)
                    If e01 = Vert(e02)Or e02 = Vert(e01) Then
                        caso = caso + 01
                        Call Scrivi(String(125,"-") & " Caso n° " & Format2(caso))
                        Call Scrivi(GetInfoEstrazione(es) & " - " & SiglaRuota(r01) & " - " & StringaEstratti(es,r01) & " Estratto il " & Format2(e01) & _
                        " in " & Format2(p01) & "° posizione",01)
                        Call Scrivi(GetInfoEstrazione(es) & " - " & SiglaRuota(r02) & " - " & StringaEstratti(es,r02) & " Estratto il " & Format2(e02) & _
                        " in " & Format2(p01) & "° posizione",01)
                        ReDim VetRuote(02)
                        VetRuote(01) = r01:VetRuote(02) = r02
                        ReDim VetPoste01(01)
                        VetPoste01(01) = 1
                        Dim Durata
                        Durata = 06
                        ReDim VetNumeri01(02)
                        VetNumeri01(01) = Fuori90(e01 + e02):VetNumeri01(02) = Vert(Fuori90(e01 + e02))
                        Call ImpostaGiocata(01,VetNumeri01,VetRuote,VetPoste01,Durata,01)
                        Dim RetEsito01,RetEstratti01
                        Call VerificaEsitoTurbo(VetNumeri01,VetRuote,es,AMBATA_,01,00,RetEsito01,00,RetEstratti01)
                        If RetEsito01 <> "" Then
                            Call Scrivi("Nell' estrazione di calcolo e' presente l' " & RetEsito01 & " : " & RetEstratti01,False,True,vbGreen,vbBlack)
                        End If
                        ReDim VetPoste02(02)
                        VetPoste02(02) = 1
                        ReDim VetNumeri02(04)
                        VetNumeri02(01) = Fuori90(e01 + e02):VetNumeri02(02) = Vert(Fuori90(e01 + e02))
                        VetNumeri02(03) = DiametraleD(e01):VetNumeri02(04) = DiametraleD(e02)
                        Call EliminaRipetuti(VetNumeri02)
                        Call ImpostaGiocata(02,VetNumeri02,VetRuote,VetPoste02,Durata,02)
                        Dim RetEsito02,RetEstratti02
                        Call VerificaEsitoTurbo(VetNumeri02,VetRuote,es,AMBO_,01,00,RetEsito02,00,RetEstratti02)
                        If RetEsito02 <> "" Then
                            Call Scrivi("Nell' estrazione di calcolo e' presente l' " & RetEsito02 & " : " & RetEstratti02,False,True,vbGreen,vbBlack)
                        End If
                        Call Gioca(es,True,,01)
                    End If
                Next
            Next
        Next
    Next
    Call ScriviResoconto()
End Sub

Controllare sempre .
Salvo errori ed omissis .

skygirl · 16 Gennaio 2017

magia ho verificato lo script lavoro assolutamente perfetto grazie

beddamatri · 16 Gennaio 2017

Ge mi 17 - 71 dall'ultima estrazione: 88 - 89 +12 - 76 vero???

Ciao

danad · 16 Gennaio 2017

Si, vero ma altrettano inaffidabile in quanto già presente l'ambata principale 88 a Milano !

carlino · 20 Gennaio 2017

Buongiorno, si è verificata una nuova condizione a fi-ge, giusto.

camy64 · 20 Gennaio 2017

ciao Carlino, io la condizione la vedo su milano e napoli (66-69). Ci sarebbe anche Venezia e Nazionale (27-72) ma uno dei numeri che si ricaverebbero dai calcoli (27+5) che è il 32 è già presente nell'estrazione. Aspettiamo Danad per la valutazione delle due condizioni

carlino · 20 Gennaio 2017

scusa, mi sono sbagliato, ciao.

danad · 20 Gennaio 2017

Ciao Camy e Carlino !

Voglio dire subito che il metodo non funziona con i vertibili gemelli e zerati.

Poi ad ogni caso bisogna verificare se ci sono stati degli esiti sulle ruote di calcolo o su tutte nelle ultime 3 estrazioni.Queste sarebbero le regole che forse ultimamente non valgono più...tutto azzardo !

Passando alla condizione su Ve-Nz la previsione è questa : 9-90 con 77-22. Buono 90-22.

Camy ha sbagliato sommando il 5 al 27. Bisogna sottraendo il 5 per ottenere il diametrale in decina del 27.

camy64 · 20 Gennaio 2017

Grazie Danad!!! Allora buttiamoci a capofitto sulla previsione di Venezia e Nazionale!!!

danad · 20 Gennaio 2017

Camy, di questi tempi io dico di andarci piano....eventualmente giocare la quartina al primo colpo, poi dal secondo andare con gli ambi secchi, ma lo sai..niente garantito...L'ambetto 8-22 invece l'aveva Roby a Ca-Ve in una sua equazione R che ancora non ha dato esito di ambo o ambetto! Io vado direttamente col ambo 9-22.

Giocate poco e solo se avete convergenze!

camy64 · 20 Gennaio 2017

Tranquilla Danad, io più di 3/4 euro ad estrazione non spendo ....

Lottomano · 20 Gennaio 2017

Scopro sto metodinoinoino e mi sa che prendo nota! Chi lo sa... Saluti e baci!

METODINOinoino

Banned

Advanced Member >PLATINUM<

Banned

Super Member >PLATINUM<

Banned

Membro cancellato 16574

Guest

Advanced Member >GOLD<

Advanced Member >GOLD<

Membro cancellato 16574

Guest

Advanced Member >GOLD<

Member

Banned

Super member

Advanced Member >PLATINUM PLUS<

Super member

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned