Novità

metodo ambo ripetuto preso dal web

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.

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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 01 aprile 2025
    Bari
    60
    48
    59
    35
    50
    Cagliari
    42
    63
    88
    44
    90
    Firenze
    33
    65
    76
    01
    25
    Genova
    29
    82
    70
    19
    43
    Milano
    04
    73
    67
    22
    85
    Napoli
    65
    27
    10
    06
    66
    Palermo
    37
    13
    35
    79
    85
    Roma
    51
    14
    63
    71
    89
    Torino
    44
    04
    70
    82
    51
    Venezia
    61
    88
    27
    82
    66
    Nazionale
    15
    82
    14
    18
    32
    Estrazione Simbolotto
    Genova
    45
    13
    32
    14
    37
Indietro
Alto