Novità

Alla cortese attenzione Script X Metodo Lotto

cuccadores

Junior Member
Messaggi
22
Punti reazione
0
Punti
1
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<
Messaggi
1.096
Punti reazione
72
Punti
48
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
Messaggi
22
Punti reazione
0
Punti
1
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
    sabato 21 marzo 2020
    Bari
    21
    31
    89
    15
    41
    Cagliari
    62
    25
    09
    35
    11
    Firenze
    73
    26
    61
    83
    87
    Genova
    63
    16
    21
    15
    81
    Milano
    85
    36
    06
    45
    89
    Napoli
    25
    09
    52
    79
    43
    Palermo
    12
    52
    78
    81
    65
    Roma
    90
    34
    86
    14
    41
    Torino
    53
    81
    05
    33
    30
    Venezia
    24
    41
    76
    10
    37
    Nazionale
    61
    41
    89
    50
    16
Alto