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.
 

joe

Advanced Member >PLATINUM PLUS<
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
 

cuccadores

Junior Member
Grazie è stato molto gentile anche per aver implementato il gioco su tutte le ruote script perfetto,
Ringrazio infinitamente joe
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto