Novità

metodo ambo ripetuto preso dal web

Clad885;n2085997 ha scritto:
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
 
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...
 
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
 
bibbolotto;n2086044 ha scritto:
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

Codice:
 '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
 
Ultima modifica:
(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.
 
Rolly53;n2086265 ha scritto:
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
 
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
 
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 settembre 2025
    Bari
    85
    57
    40
    76
    14
    Cagliari
    90
    15
    68
    63
    76
    Firenze
    81
    74
    71
    25
    06
    Genova
    21
    47
    44
    02
    06
    Milano
    83
    39
    31
    84
    55
    Napoli
    74
    41
    24
    47
    38
    Palermo
    54
    25
    61
    22
    68
    Roma
    60
    72
    38
    55
    03
    Torino
    10
    45
    56
    54
    63
    Venezia
    14
    38
    66
    36
    28
    Nazionale
    85
    48
    38
    22
    81
    Estrazione Simbolotto
    Palermo
    08
    42
    27
    30
    20
Indietro
Alto