Novità

metodo ambo ripetuto preso dal web

B

bibbolotto

Advanced Member >PLATINUM<
Si ricerco 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
​​​​​​​questa previisone e' in corso siamo al 1°colpo.
 
NUOVA CONDIZIONE su Palermo Roma con l'ambo ripetuto 10 28
quindi 10 +28 =38
10+10 =20
28+28 =56
38 20 56 1°terzina con capogioco 38
39 21 57 2°terzina con capogioco 39

Adesso un consiglio diciamo cabalistico nel 38 nacque mio padre il giorno 21 il giorno 20 sono nato io ed ho 56 annni; mio padre si chiamava Fabio ed io sono Fabrizio quindi F come firenze non si sa mai!!
 
Ciao a Tutti!

Ho fatto lo script, ho messo 200 estrazioni indietro fino all'ultima estrazione in archivio, da inputbox si decidono solo i colpi di gioco di ogni previsione, l'ho provato e sembra tutto a posto, se c'è qualche anomalia segnalatela.

Codice: 
  'Progetto preso dal web da Bibbolotto
'Prima versione, con numeri isotopi anche diversi
'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
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
    Posta(3) = 1
    Tutte(1) = TU_
    Ini = EstrazioneFin - 200
    FIn = EstrazioneFin
    Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca ?",,3))
    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 P1 = P3 Or P1 = P4 Or P2 = P3 Or P2 = P4 Then
                                If A = C And B = D Or A = D And B = C 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
 
Ultima modifica:
bibbolotto;n2085968 ha scritto:
Per me e'arabo ma ti ringrazio a nome di tutti gli altri.
Clicca per espandere...

Ciao a Tutti!

Di niente Bibbolotto, se dicessi che non ci tengo, sarei un ipocrita, ma per me il ringraziamento sono le molte visite dopo il mio intervento.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 giugno 2026
    Bari
    25
    62
    86
    19
    37
    Cagliari
    03
    65
    84
    69
    63
    Firenze
    84
    34
    83
    08
    26
    Genova
    19
    29
    90
    53
    32
    Milano
    75
    70
    86
    51
    35
    Napoli
    46
    48
    68
    37
    19
    Palermo
    16
    39
    87
    84
    74
    Roma
    29
    42
    65
    54
    80
    Torino
    77
    67
    68
    57
    45
    Venezia
    05
    82
    85
    42
    19
    Nazionale
    75
    27
    45
    33
    39
    Estrazione Simbolotto
    Napoli
    42
    15
    27
    08
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto