BARI_VENEZIA

[i legend]

Il metodo :
quando nella stessa estrazione su Bari e Venezia escono i numeri 20.80 uno su una ruota uno su un altra
nelle 15 estrazioni successive potrebbe sortire il
numero : 39.
Colpi restanti verifica =12

La data inizio ricerca parte dal 13/01/2001
Casi rintracciati 19

verificare sempre l'errore è umano
l'ultimo caso il 26/03/2015
Bari :23.53.46.20.85
Venezia :43.13.25.80.56
Due terzine ipotizzate per ambo:
39.87.89
39.78.81

Ciao a tutti

spero che qualcuno possa fare uno script

 

[Master]

Ciao
Ecco lo script, spero tutto sia ok!
Auguro Buona Pasqua a Tutti!!

Sub Main() 
Scrivi "Metodo ilegend BARI VENEZIA  - http://forum.lottoced.com/f8/bari_venezia-119622/ -",1:Scrivi
Dim ruote(10) 
Dim n1(1) 
Dim n2(3)
Dim n3(3)
Dim posta(1)
Dim poste(2) 
posta(1) = 1 
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",2000) 
k = InputBox("per quanti colpi?","colpi di gioco",15) 
ini = EstrazioneFin - ce 
fin = EstrazioneFin 
casi = 0 
ok = 0 
For es = ini To fin 
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1) 
Call AvanzamentoElab(Ini,fin,es) 
 For r1 = 1 To 1 
 For r2 = 10 To 10 
 For p1 = 1 To 5 
 For p2 = 1 To 5 
 a = Estratto(es,1,p1) 
 b = Estratto(es,10,p2) 
 If a = 20 And b = 80 Or a = 80 And b = 20 Then 
 ok = 1 
 If ok = 1 Then 
 n1(1) = 39 
'--------------
 n2(1) = 39 
 n2(2) = 87 
 n2(3) = 89
'--------------
 n3(1) = 39 
 n3(2) = 78 
 n3(3) = 81
casi = casi + 1 
 Scrivi String(100,"°") & " Caso n°" & casi,1 
 ColoreTesto 1 
Scrivi
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _ 
" ]   [ " & Format2(a) & " ]" & "  Posizione : " & " [ " & Format2(p1) & " ] " 
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _ 
" ]   [ " & Format2(b) & " ]" & "  Posizione : " & " [ " & Format2(p2) & " ] "
Scrivi
ruote(1) = 1 
ruote(2) = 10 
ColoreTesto 0 
ImpostaGiocata 1,n1,ruote,posta,k 
ImpostaGiocata 2,n2,ruote,poste,k,2 
ImpostaGiocata 3,n3,ruote,poste,k,2 
Gioca es,1 
End If 
End If 
Next 
Next 
Next 
Next 
Next 
Scrivi 
Scrivi String(100,"*") 
ColoreTesto 2 
Scrivi" casi trovati : " & casi,1 
ColoreTesto 0 
Scrivi String(100," * ") 
ColoreTesto 0 
ScriviResoconto 
 End Sub

 

[i legend]

grazie master,tanti auguri anche a te ,ho provato lo script e conferma le mie ricerche .
ho sostituito aRuote(2)=10
CON aRuote(2)=1 cosi ho fatto solo il gioco su Bari.
Ruota principale Bari, recupero Venezia

Felice Pasqua a tutti

 

[i legend]

2° Colpo di gioco
Ambata 39
+ambo in terzina
Venezia:39.78

ciao a tutti

 

[i legend]

Ciao a tutti , in 2 post nella sezione metodi, sono state totalizzate piu di 1800 visualizzazioni, due post andate a segno nei colpi di gioco previsti,e sulle ruote previste....Risultato quanto meno sufficente. Un semplice "Dai continua cosi nelle tue ricerche" .Farebbe piacere....Solo chi grida o promette l'impossibile viene apprezzato...Ringrazio tutto coloro che hanno partecipato ai post. Grazie mille di cuore.

 

[patrizia-ve]

ciao! il tuo è veramente un super risultato! complimenti!!!
Patrizia

 

[rudivall]

Ciao Ilegend, io ti seguo come previsionista e come persona

 

[i legend]

Ciao rodolfo,ciao patrizia, Grazie per i complimenti.

 

[Aline]

Complimenti bravo