Alla cortese attenzione Script X Metodo Lotto

[cuccadores]

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]

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]

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