listato

[rossonero]

ciao Lottopassion, ho un metodo di Jupiter che è molto interessante per l'intuizione e nuovo modo di vedere le soluzioni per battere il banco. Ecco il metodo
1°CA-1°BA = 1°MI

Messaggioda JUPITER25 il 17/05/2013, 21:49

Con questa tecnica ci ricaveremo 2 ambate + 2 abbinamenti x ambo x le ruote di Bari, Milano e Venezia al presentarsi , nell'estrazione in esame, della condizione:
1°CA-1°BA = 1°MI. La tecnica è particolarmente innovativa poichè ,per il calcolo dei numeri di abbinamento alle ambate, si dovrà tener conto di alcune condizioni. Il primo abbinamento sarà messo in gioco solo con la 1^ ambata ed il secondo solo con la 2^. Quindi in totale saranno messe in gioco le due ambate e solo due ambi.


Estrazioni Del Mese In Cui Si Applica Il Metodo : Tutte

Condizione x L'Applicazine Del Metodo : 1°CA-1°BA = 1°MI

Calcolo Previsione x 2 Ambate + 2 Abbinamenti x Ambo x Le Ruote di BA, MI , VE x 10 Estrazioni.

1^ Ambata : 1°CA- 1°MI (Est. Prec.)

2^ Ambata : Vertibile 1^ Ambata.

1° Abbinamento x Ambo (Solo x la 1^Ambata) : Se 2°CA-2°BA= 1°CA+1 Allora Sarà Uguale A : 2°BA Altrimenti Sarà Uguale A :

(2°BA-2)* 2°GE

2°Abbinamento x Ambo( Solo x la 2^Ambata) : Se 1°BA+2 = 3°MI(Est. Prec.) Allora Sarà Uguale A : 3° MI(Est. Prec.) +4

Altrimenti Sarà Uguale A : 3°MI(Est. Prec.) * 12

[Blackmore]

Ciao, non ho molto tempo x il lotto ultimamente, per cui
se nello script c'è qualche errore spero che qualcuno lo modifichi
Saluti a tutti

Codice: Seleziona tutto

Sub Main()
   Scrivi:Scrivi " 1°CA - 1°BA = 1°MI: Metodo di Jupiter25 : Script By Blackmore",1
   Scrivi
   Dim ruote(10)
   Dim ambata(2)
   Dim ambo1(2)
   Dim ambo2(2)
   Dim posta(1)
   Dim poste(2)
   posta(1) = 1
   poste(2) = 1
   k = InputBox("COLPI DI GIOCO",,10)
   ini = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA",,3539)
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      a = Estratto(es,BA_,1)
      b = Estratto(es,CA_,1)
      c = Estratto(es,MI_,1)
      If Fuori90(90 +(b - a)) = c Then
         If b = 0 Then b = 90 'se il 1°CA è 0 si sostituisce con il 90
         If Fuori90(Estratto(es,CA_,2) - Estratto(es,BA_,2)) = Fuori90(b + 1)Then ambo1(2) = Estratto(es,BA_,2)
         If Fuori90(Estratto(es,BA_,1) + 2) = Estratto(es - 1,MI_,3) Then ambo2(2) = Fuori90(Estratto(es - 1,MI_,3) + 4)
         ruote(1) = BA_ : ruote(2) = MI_ : ruote(3) = VE_
         co = co + 1
         Scrivi String(99,"-") & " Caso n°" & Format2(co),1
         Scrivi DataEstrazione(es) & "  " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_) & "  " & Format2(Estratto(es,BA_,1))
         Scrivi DataEstrazione(es) & "  " & SiglaRuota(CA_) & " " & StringaEstratti(es,CA_) & "  " & Format2(Estratto(es,CA_,1))
         Scrivi DataEstrazione(es) & "  " & SiglaRuota(MI_) & " " & StringaEstratti(es,MI_) & "  " & Format2(Estratto(es,MI_,1))
         ColoreTesto 2:Scrivi b & "-" & a & " = " & Fuori90(90 +(b - a)) & " [ 1° di Milano ]",1 : ColoreTesto 0
         ambata(1) = Fuori90(90 +(b - Estratto(es - 1,MI_,1)))
         ambata(2) = Vert(ambata(1))
         ImpostaGiocata 1,ambata,ruote,posta,k
         ambo1(1) = ambata(1)
         ambo1(2) = Fuori90(90 +(Estratto(es,BA_,2) - 2) * Estratto(es,GE_,2))
         EliminaRipetuti ambo1
         ImpostaGiocata 2,ambo1,ruote,poste,k
         ambo2(1) = ambata(2)
         ambo2(2) = Fuori90(Estratto(es - 1,MI_,3)* 12)
         EliminaRipetuti ambo2
         ImpostaGiocata 3,ambo2,ruote,poste,k,2
         Gioca es
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi:Scrivi:ScriviResoconto
End Sub

[lottopassion]

Grazie Blackmore comunque sembra che lo script sia ok.
Saluti.

[rossonero]

GRAZIE x IL LISTATO, davvero molto gentile per la risposta immediata.
I risultati sono positivi ed ho aggiunto la quartina da giocare a tutte per ATQ con buoni risultati.
Complimenti

[JUPITER25]

Bravo Blackmore per il listato ricavato dal mio metodo anche se io non impiego i listati x i miei studi ti ringrazio lo stesso .
Spero che il nostro grande Lottopassion aggiunga presto un modulo a Lottogeos II con cui poter ottenere previsioni con questo tipo di metodi così sarà molto più facile.
Ciao