metodo ambo ripetuto preso dal web

[Clad885]

Ciao grazie per i tuoi studi.... per questa sera quali sarebbero le combinazioni? Grazie

 

[salvo50]

Ciao grazie per i tuoi studi.... per questa sera quali sarebbero le combinazioni? Grazie

Ciao

Non sò se ti stai rivolgendo a me o a Bibbolotto, nel dubbio ti rispondo io, se lanci lo script, e controlli l'ultima estrazione, vedi che ci sono due previsioni per i prossimi colpi, comunque ti posto l'ultimo pezzo del output

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s1.postimg.org\/6azcetum1b\/bibbolotto.png"}[/IMG2]

come potrai notare sono

07-26-78
08-27-79

06-24-78
07-25-79

 

[Clad885]

Ciao bibilotto per l'estrazione di stasera cosa consigli con i doppi anni che sono usciti?

 

[Clad885]

Ciao bibilotto per l'estrazione di stasera cosa consigli con i doppi anni che sono usciti?

 

[Clad885]

Ciao bibilotto per l'estrazione di stasera cosa consigli con i doppi anni che sono usciti?

 

[Clad885]

Ti ringrazio salvo 50, per la risposta.... la domanda era anche per bibilotto per i suoi calcoli per il doppio ambo ripetuto... se aveva un consiglio di gioco per stasera...

 

[bibbolotto]

SE permettete io non mi azzarderei con queste previsione poiche' non contengono numeri uguali isotopi.
vi consiglio invece di continuare quella su pa ro che deve dare ambo a ruota.
Quindi pa ro 38 20 - 38 56 - 39 21 - 39 57

 

[salvo50]

SE permettete io non mi azzarderei con queste previsione poiche' non contengono numeri uguali isotopi.
vi consiglio invece di continuare quella su pa ro che deve dare ambo a ruota.
Quindi pa ro 38 20 - 38 56 - 39 21 - 39 57

Chiedo scusa, non avevo capito che i numeri isotopi dovevano essere anche uguali, ecco lo script con i numeri isotopi uguali

 'Progetto preso dal web da Bibbolotto
'seconda versione con numero isotopo uguale
'script by Salvo50
'Si ricerca un ambo ripetuto su due ruote In cui almeno un numero sia In Posizione isotopa
'sommare i due numeri che compongono l'ambo per gli abbinamenti moltiplicare per 2 i numeri
'del ambo in modo da avere una terzina da giocare per ambo e terno
'la seconda terzina sara' formata dagli stessi numeri aumentati di una unita.
'esempio In gioco
'ambo 02 79 genova venezia
'1°numero 2+79=81
'2°numero 2x2 = 4
'3°numero 79x2= 68
'quindi In gioco 81 04 68
'82 05 69
Option Explicit
Sub Main()
    Dim A,B,C,D,Ini,FIn,Es,P1,P2,P3,P4,R1,R2
    Dim N1(3),N2(3),Posta(3),Tutte(1)
    Dim Caso,Casi,Clp
    Posta(2) = 1.8
    Posta(3) = 0.2
    Tutte(1) = TU_
    Ini = EstrazioneFin - 200
    FIn = EstrazioneFin
    Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca ?",,7))
    For Es = Ini To FIn
        Call AvanzamentoElab(Ini,FIn,Es)
        Messaggio Es
        Caso = 0
        For R1 = 1 To 9
            For P1 = 1 To 4
                A = Estratto(Es,R1,P1)
                For P2 = P1 + 1 To 5
                    B = Estratto(Es,R1,P2)
                    For R2 = R1 + 1 To 10
                        For P3 = 1 To 4
                            C = Estratto(Es,R2,P3)
                            For    P4 = P3 + 1 To 5
                            D = Estratto(Es,R2,P4)
                            If A = C And B = D Or A = D And B = C Then
                                If(P1 = P3 And A = C) Or(P1 = P4 And A = D) Or(P2 = P3 And B = C) Or(P2 = P4 And B = D) Then
                                    N1(1) = Fuori90(A + B)
                                    N1(2) = Fuori90(A + A)
                                    N1(3) = Fuori90(B + B)
                                    N2(1) = Fuori90(N1(1) + 1)
                                    N2(2) = Fuori90(N1(2) + 1)
                                    N2(3) = Fuori90(N1(3) + 1)
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 2
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                    ColoreTesto 0
                                    Scrivi
                                    Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " - ",0,0
                                    Scrivi SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B)
                                    Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " - ",0,0
                                    Scrivi SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D)
                                    Scrivi
                                    EliminaRipetuti N1
                                    ImpostaGiocata 1,N1,Tutte,Posta,Clp
                                    EliminaRipetuti N2
                                    ImpostaGiocata 2,N2,Tutte,Posta,Clp
                                    Gioca Es
                                End If
                            End If
                        Next
                    Next
                Next
            Next
        Next
    Next
Next
ScriviResoconto
End Sub

 

[bibbolotto]

Stasera nuova condizione con l'ambo ripetuto 61 22 ge to
la previsione e' 83 44 - 83 32 - 84 45 - 84 33

 

[Rolly53]

(Untitled)

xSalvo50 : potresti pubblicare i 2 script delle Call (avanzamentoelab & fuori90)?
Io sono un modestissimo programmatore di Visual Excel e vorrei provare a usare il tuo script. Grazie molte.

 

[salvo50]

xSalvo50 : potresti pubblicare i 2 script delle Call (avanzamentoelab & fuori90)?
Io sono un modestissimo programmatore di Visual Excel e vorrei provare a usare il tuo script. Grazie molte.

Ciao

Scusami Rolly53, ma non ho capito quello che mi chiedi

 

[Rolly53]

(Untitled)

che applicazione usi ? Spaziometria?

 

[Clad885]

Ciao bibilotto la nuova previsione su che ruote la consigli?

 

[salvo50]

che applicazione usi ? Spaziometria?

Si

 

[Rolly53]

(Untitled)

Ok grazie

 

[Clad885]

Ciao bibilotto si continua con le due previsioni?

 

[bibbolotto]

Ti consiglio di lasciare pa ro e continuare ge to 83 44 -83 32 - 84 45 - 84 33
poi c'e' la nuova su fi na 09 02 - 09 16 - 10 03 - 10 17

 

[Rolly53]

(Untitled)

Ciao bibbolotto, consideriamo anche la NZ ? É uscito 62-65 su MI è NZ.

 

[bibbolotto]

La nuova previsione del ambo 62 65 mi naz e' la seguente 37 34 - 37 40 - 38 35 - 38 41
le altre le lascio perdere poiche' si stanno prolungando nel attesa.
Su questa nuova ho anche altre convergenze.

 

[Clad885]

Ciao bibilotto con il nuovo ambo ripetuto tra Milano e nazionale, cosa consigli di giocare?