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
    martedì 01 luglio 2025
    Bari
    71
    66
    48
    42
    76
    Cagliari
    84
    70
    23
    69
    43
    Firenze
    50
    21
    30
    11
    69
    Genova
    89
    41
    50
    80
    67
    Milano
    41
    59
    67
    03
    60
    Napoli
    87
    63
    51
    42
    07
    Palermo
    56
    87
    76
    27
    09
    Roma
    41
    26
    50
    22
    77
    Torino
    36
    83
    80
    65
    05
    Venezia
    45
    77
    76
    81
    71
    Nazionale
    72
    06
    03
    08
    07
    Estrazione Simbolotto
    Nazionale
    34
    27
    08
    12
    17
Indietro
Alto