Novità

Alla cortese attenzione Script X Metodo Lotto

cuccadores

Junior Member
Salve a tutti ci tengo a precisare che l'autore di questo metodo è il Sig. Sergio Mastrapasqua.
Ogni estrazione dove rileviamo la presenza di un ambo ripetuto su due ruote si opera calcolando i complementari a 90 dei due numeri e successivamente facciamo la loro somma. Il numero ottenuto rappresenta l'ambata.
Per il gioco di ambo abbiniamo i laterali dei due numeri formanti l'ambo ripetuto rilevato.
Si gioca solo sulla prima ruota di rilevamento.

Es: Estrazione del 09/01/2020 sulle ruote di Roma e Nazionale si rileva la presenza dell'ambo ripetuto 45-34
per il calcolo si esegue il complementare 90-45=45 90-34=56 45+56=101-90=11(Ambata)
calcoliamo gli abbinamenti per ambo secco:
laterale minore di 45-1=44 (abbinamento per ambo)
laterale maggiore 45+1=46 (abbinamento per ambo)
laterale minore di 34-1=33 (abbinamento per ambo)
laterale maggiore 34+1=35 (abbinamento per ambo)
previsione ambata 11
Ambi secchi 11-44 / 11-46 / 11-33 / 11-35
La previsione sara' valida per la ruota di roma per 13 estrazioni
Grazie.
 
Codice:
Sub Main()
   'https://forum.lottoced.com/threads/alla-cortese-attenzione-script-x-metodo-lotto.2193059/#post-2222025
   'Estrazione del 09/01/2020
   'Sulle ruote di Roma e Nazionale si rileva la presenza dell'ambo ripetuto 45-34
   'per il calcolo si esegue il complementare 90-45=45 90-34=56 45+56=101-90=11(Ambata)
   'calcoliamo gli Abbinamenti per ambo secco:
   'laterale minore di 45-1=44 (abbinamento per ambo)
   'laterale maggiore 45+1=46 (abbinamento per ambo)
   'laterale minore di 34-1=33 (abbinamento per ambo)
   'laterale maggiore 34+1=35 (abbinamento per ambo)
   'previsione ambata 11
   'Ambi secchi 11-44 / 11-46 / 11-33 / 11-35
   'La previsione (sara' valida per la ruota di roma) per 13 estrazioni
   Scrivi:Scrivi String(40," ") & " Script By Blackmore (Rev By Joe)",1
   Scrivi
   Dim Ini,Fin,Es,r1,r2,p1,p2,p3,p4,a,b,c,d
   Dim ruote(10)
   Dim ambata(1)
   Dim ambo1(2)
   Dim ambo2(2)
   Dim ambo3(2)
   Dim ambo4(2)
   Dim posta(1)
   Dim poste(2)
   posta(1) = 1 : poste(2) = 1
   k = 13 'Colpi di gioco
   Ini = 9732
   Fin = EstrazioneFin
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For r1 = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(Es,r1,p1) : b = Estratto(Es,r1,p2)
               For r2 = r1 + 1 To 12
                  If r2 = 11 Then r2 = 12
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(Es,r2,p3) : d = Estratto(Es,r2,p4)
                        If (a = c And b = d) Or (a = d And b = c) Then
                           casi = casi + 1
                           Scrivi String(106,"*") & " Caso N° " & casi,1
                           Scrivi DataEstrazione(Es) & " " & FormatSpace(NomeRuota(r1),10) & " " & StringaEstratti(Es,r1) & " ",0,0
                           Scrivi Format2(a) & "-" & Format2(b) & " in " & p1 & "° e " & p2 & "° Posizione",1
                           Scrivi DataEstrazione(Es) & " " & FormatSpace(NomeRuota(r2),10) & " " & StringaEstratti(Es,r2) & " ",0,0
                           Scrivi Format2(c) & "-" & Format2(d) & " in " & p3 & "° e " & p4 & "° Posizione",1
                           ruote(1) = r1 : ruote(2) = r2 : ruote(3) = 11
                           ambata(1) = Fuori90(180 - a - b)
                           ImpostaGiocata 1,ambata,ruote,posta,k,1
                           '--------------------------------------
                           ambo1(1) = ambata(1)
                           ambo1(2) = Fuori90(a - 1)
                           ImpostaGiocata 2,ambo1,ruote,poste,k,2
                           '-------------------------------------
                           ambo2(1) = ambata(1)
                           ambo2(2) = Fuori90(a + 1)
                           ImpostaGiocata 3,ambo2,ruote,poste,k,2
                           '-------------------------------------
                           ambo3(1) = ambata(1)
                           ambo3(2) = Fuori90(b - 1)
                           ImpostaGiocata 4,ambo3,ruote,poste,k,2
                           '-------------------------------------
                           ambo4(1) = ambata(1)
                           ambo4(2) = Fuori90(b + 1)
                           ImpostaGiocata 5,ambo4,ruote,poste,k,2
                           '-------------------------------------
                           Gioca Es,True
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 28 giugno 2025
    Bari
    41
    76
    54
    04
    17
    Cagliari
    34
    52
    84
    54
    55
    Firenze
    21
    60
    89
    51
    03
    Genova
    36
    40
    46
    03
    73
    Milano
    32
    80
    01
    68
    12
    Napoli
    63
    34
    22
    85
    10
    Palermo
    21
    85
    64
    15
    65
    Roma
    48
    25
    42
    47
    50
    Torino
    51
    25
    14
    20
    28
    Venezia
    82
    48
    73
    53
    29
    Nazionale
    46
    55
    10
    32
    44
    Estrazione Simbolotto
    Napoli
    25
    01
    41
    45
    38
Indietro
Alto