Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

Ultimi argomenti
» debutto lotto italia
Mar Gen 07, 2014 5:16 pm Da sir@l

» sETTembre - oTTobre
Dom Set 09, 2012 12:24 am Da lilapat

» NAZIONALE Settembre
Dom Set 09, 2012 12:13 am Da lilapat

» VENEZIA Settembre
Dom Set 09, 2012 12:07 am Da lilapat

» TORINO Settembre
Dom Set 09, 2012 12:01 am Da lilapat

» ROMA Settembre
Sab Set 08, 2012 11:56 pm Da lilapat

» PALERMO Settembre
Sab Set 08, 2012 11:49 pm Da lilapat

» NAPOLI Settembre
Sab Set 08, 2012 11:42 pm Da lilapat

» MILANO Settembre
Sab Set 08, 2012 11:35 pm Da lilapat

Navigazione
 Portale
 Forum
 Lista utenti
 Profilo
 FAQ
 Cerca
shoutbox

ricerca...chi ha voglia di collaborare???

Andare in basso

ricerca...chi ha voglia di collaborare???

Messaggio  lilapat il Sab Ott 29, 2011 7:23 am

ho notato che ogni volta che escono due numeri uguali in diagonale, per il 90% dei casi seguono poi nelle estrazioni due numeri consecutivi di una decina. si tratta di elaborare i numeri della decina giusta....
esempio:
nell'estrazione del 24-27.09.11 su BA era uscito il numero 14; il primo ottobre su BA sortisce l'ambo il 45 46
nell'estrazione del 29.09-01.10 su FI era uscito il numero 18; il 4 ottobre su FI sortiscono il 30 e il 31
ecc. Mad
avatar
lilapat
Admin
Admin

Messaggi : 220
Data d'iscrizione : 23.01.09

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Sab Ott 29, 2011 9:04 pm

Se posso essere utile....!!!!! Mad
avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  lilapat il Sab Ott 29, 2011 10:14 pm

grazie Vito67 :-)
è una ricerca...purtroppo non ho nemmeno più un programma x il lotto e faccio tutto a mano.
se hai voglia di controllare ciò che ho scritto....si tratta di elaborare i numeri giusti delle decine che sortiscono - grazie Smile
avatar
lilapat
Admin
Admin

Messaggi : 220
Data d'iscrizione : 23.01.09

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Lun Ott 31, 2011 10:20 am


Premetto che non sono uno scripter.......la condizione è corretta,per la ricerca?



10.09.2011 Mil 03.69.62.21.45
10.09.2011 Ven 45.25.77.73.08

Estratti Rilevati [ 45 ] [ 45 ]

13.09.2011 Nap 26.60.86.42.48
13.09.2011 Tor 48.53.79.57.42

Estratti Rilevati [ 48 ] [ 48 ]

22.09.2011 Mil 10.31.44.34.14
22.09.2011 Ven 14.62.88.77.32

Estratti Rilevati [ 14 ] [ 14 ]

24.09.2011 Rom 90.63.29.22.21
24.09.2011 Tor 21.41.84.02.34

Estratti Rilevati [ 21 ] [ 21 ]

27.09.2011 Rom 43.24.79.53.55
27.09.2011 Ven 55.58.79.41.24

Estratti Rilevati [ 55 ] [ 55 ]

01.10.2011 Cag 55.23.58.06.71
01.10.2011 Mil 71.02.13.56.49

Estratti Rilevati [ 71 ] [ 71 ]

08.10.2011 Cag 36.63.31.45.32
08.10.2011 Ven 32.80.17.39.07

Estratti Rilevati [ 32 ] [ 32 ]

13.10.2011 Cag 37.70.25.88.90
13.10.2011 Mil 90.80.65.58.22

Estratti Rilevati [ 90 ] [ 90 ]

13.10.2011 Mil 90.80.65.58.22
13.10.2011 Naz 22.38.54.01.27

Estratti Rilevati [ 22 ] [ 22 ]

13.10.2011 Nap 14.09.16.13.44
13.10.2011 Pal 44.27.58.49.42

Estratti Rilevati [ 44 ] [ 44 ]

15.10.2011 Fir 81.27.52.25.01
15.10.2011 Rom 01.86.15.42.20

Estratti Rilevati [ 1 ] [ 1 ]

18.10.2011 Nap 22.86.21.14.73
18.10.2011 Ven 73.10.18.32.09

Estratti Rilevati [ 73 ] [ 73 ]

25.10.2011 Mil 38.83.13.48.47
25.10.2011 Rom 47.24.38.46.25
avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Mar Nov 01, 2011 10:34 am

Questo è lo script....io utilizzo SpazioMetria.
Almeno si ricercano le condizioni in automatico,e non a mano.
Ciao




Sub Main()
Dim nu1(2)
Dim ruote(2)
Dim poste(2)
poste(2)=1
tmp=InputBox("Quante estrazioni controllo?",,100)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
a=Estratto (es,r,5)
For r1=r+1 To 12
If r1=11 Then r1=12
b=Estratto (es,r1,1)
If a=b Then
Scrivi
ColoreTesto 1
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),3)&" "& StringaEstratti (es,r)
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),3)&" "& StringaEstratti (es,r1)
ColoreTesto 0
Scrivi
Scrivi "Estratti Rilevati [ "& a &" ] [ "& b &" ] "


nu1(1)=a
nu1(2)=b

ruote(1)=r
ruote(2)=r1
ImpostaGiocata 1,nu1,ruote,poste,5,2

'Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub












avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Ven Nov 04, 2011 10:13 am

Ho rielaborato lo script,spero sia corretto.
Questi alcuni dei risultati.


26.03.2011 Fir 78.73.72.88.49
26.03.2011 Gen 49.78.43.25.84
Estratti Rilevati [ 49 ] [ 49 ]

29.03.2011 Bar 18.82.83.61.34
Estratti Rilevati [ 82 ] [ 83 ]


26.03.2011 Fir 78.73.72.88.49
26.03.2011 Gen 49.78.43.25.84
Estratti Rilevati [ 49 ] [ 49 ]

29.03.2011 Nap 29.08.62.34.33
Estratti Rilevati [ 34 ] [ 33 ]


26.03.2011 Nap 16.69.39.13.22
26.03.2011 Ven 22.24.72.82.32
Estratti Rilevati [ 22 ] [ 22 ]

29.03.2011 Bar 18.82.83.61.34
Estratti Rilevati [ 82 ] [ 83 ]


26.03.2011 Nap 16.69.39.13.22
26.03.2011 Ven 22.24.72.82.32
Estratti Rilevati [ 22 ] [ 22 ]

29.03.2011 Nap 29.08.62.34.33
Estratti Rilevati [ 34 ] [ 33 ]
avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Ven Nov 04, 2011 10:15 am

Questo è lo script......ciao




Sub Main()
Dim nu1(2)
Dim ruote(2)
Dim poste(2)
poste(2)=1
tmp=InputBox("Quante estrazioni controllo?",,100)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
a=Estratto (es,r,5)
b=Estratto (es,r1,1)
For r2=1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto (es+1,r2,p3)
d=Estratto (es+1,r2,p4)
If a=b Then
If Distanza (c,d)=1 Then
Scrivi
ColoreTesto 1
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),3)&" "& StringaEstratti (es,r)
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),3)&" "& StringaEstratti (es,r1)
Scrivi "Estratti Rilevati [ "& a &" ] [ "& b &" ] "
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi DataEstrazione(es+1)&" "& Left(NomeRuota(r2),3)&" "& StringaEstratti (es+1,r2)
Scrivi "Estratti Rilevati [ "& c &" ] [ "& d &" ] "
ColoreTesto 0
Scrivi


nu1(1)=c
nu1(2)=d

ruote(1)=11
ImpostaGiocata 1,nu1,ruote,poste,5,2

'Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

















avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  lilapat il Dom Nov 06, 2011 7:58 am

grazie Vito, sei gentilissimo! :-)
il fatto è che i numeri dovrebbero essere consecutivi in diagonale
esempio:
x x 43 x x
x 42 x x x
oppure
x x x 19 x
x x 18 x x

comunque GRAZIE :-)
avatar
lilapat
Admin
Admin

Messaggi : 220
Data d'iscrizione : 23.01.09

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Dom Nov 06, 2011 8:43 pm

Si..ora mi è più chiaro.
Provo a modificare lo script. Razz
avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Lun Nov 07, 2011 4:21 pm

Ciao lila.
Controlla se è corretto in questo modo,io l'ho fatto su due ruote contigue,con esito a primo colpo,si può però variare con l'nputbox ,solo che,non mi ci ritrovo con il tuo esempio su Firenze.
Se va bene posto il listato,altrimenti posta un esempio più esplicito,in modo da spiegarlo bene(all'imbecille elettronico),oltre a me.
ciao Wink

27.09.2011 Bar 69.14.59.66.17
27.09.2011 Cag 15.07.05.56.62
Estratti Rilevati [ 14 ] [ 15 ]

29.09.2011 Nap 24.30.70.12.13
Estratti Rilevati [ 12 ] [ 13 ]


27.09.2011 Tor 70.54.60.08.18
27.09.2011 Ven 55.58.79.41.24
Estratti Rilevati [ 54 ] [ 55 ]

29.09.2011 Nap 24.30.70.12.13
Estratti Rilevati [ 12 ] [ 13 ]


29.09.2011 Rom 57.10.38.36.21
29.09.2011 Tor 15.69.49.20.65
Estratti Rilevati [ 21 ] [ 20 ]

01.10.2011 Rom 23.38.30.06.39
Estratti Rilevati [ 38 ] [ 39 ]


29.09.2011 Rom 57.10.38.36.21
29.09.2011 Tor 15.69.49.20.65
Estratti Rilevati [ 21 ] [ 20 ]

01.10.2011 Ven 87.39.44.18.40
Estratti Rilevati [ 39 ] [ 40 ]


01.10.2011 Bar 33.54.67.65.45
01.10.2011 Cag 55.23.58.06.71
Estratti Rilevati [ 54 ] [ 55 ]

04.10.2011 Bar 08.45.88.46.18
Estratti Rilevati [ 45 ] [ 46 ]


01.10.2011 Cag 55.23.58.06.71
01.10.2011 Fir 22.07.48.18.74
Estratti Rilevati [ 23 ] [ 22 ]

04.10.2011 Bar 08.45.88.46.18
Estratti Rilevati [ 45 ] [ 46 ]


01.10.2011 Gen 88.51.57.33.39
01.10.2011 Mil 71.02.13.56.49
Estratti Rilevati [ 57 ] [ 56 ]

04.10.2011 Bar 08.45.88.46.18
Estratti Rilevati [ 45 ] [ 46 ]


01.10.2011 Mil 71.02.13.56.49
01.10.2011 Nap 83.07.19.09.57
Estratti Rilevati [ 56 ] [ 57 ]

04.10.2011 Bar 08.45.88.46.18
Estratti Rilevati [ 45 ] [ 46 ]


avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  lilapat il Mar Nov 08, 2011 8:52 pm

SIII 100
perfetto così vito, funzionano meglio nel senso degli esiti le diagonali dal basso a sinistra all'alto a destra, viceversa ci vuole più tempo per gli esiti.
ora si arriva al problema...oltre alle ambate, estratti determinati e talvolta l'ambo, ho notato che nell'arco di alcune estrazioni con questa condizione escono sempre due numeri consecutivi (p.es. 46 47, 30 31, 23 24 ecc.) della stessa decina. come fare per individuare i numeri e la decina giusta? hai qualche idea? I love you
avatar
lilapat
Admin
Admin

Messaggi : 220
Data d'iscrizione : 23.01.09

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Mer Nov 09, 2011 9:24 am

Intanto posto lo script,per la ricerca.
Il primo inputbox, è il valore da immetere per le estrazioni con le condizioni di ricerca,il secondo inputbox immettere i colpi di esito dopo aver trovato la condizione.
Infatti,adesso viene il bello,da quale condizione scaturisce l'uscita dei numeri in decina consecutivi?
Mi ci metto un pò su,sperando di trovare qualcosa.
ciao 498





Sub Main()
Dim nu1(2)
Dim ruote(2)
Dim poste(2)
poste(2)=1
tmp=InputBox("Quante estrazioni controllo?","METODO LILA",100)
colp=CInt(InputBox("Quante estrazioni successive?","METODO LILA",1))
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
r1=r+1
If r1=11 Then r1=12
For p1 =1 To 5
For p2 =1 To 5
a=Estratto (es,r,p1)
b=Estratto (es,r1,p2)
e =colp
ess = es + e
If ess > fin Then ess = fin End If
For r2=1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto (ess,r2,p3)
d=Estratto (ess,r2,p4)
If (Distanza (a,b)=1) Or (Distanza(b,a)=1) Then
If (p1=p2+1)Or (p2=p1+1) Then
If Distanza (c,d)=1 Then
Scrivi
ColoreTesto 1
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),3)&" "& StringaEstratti (es,r)
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),3)&" "& StringaEstratti (es,r1)
Scrivi "Estratti Rilevati [ "& a &" ] [ "& b &" ] "
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi DataEstrazione(ess)&" "& Left(NomeRuota(r2),3)&" "& StringaEstratti (ess,r2)
Scrivi "Estratti Rilevati [ "& c &" ] [ "& d &" ] "
ColoreTesto 0
Scrivi


nu1(1)=c
nu1(2)=d

ruote(1)=11
ImpostaGiocata 1,nu1,ruote,poste,5,2

'Gioca ess
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub












avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  lilapat il Gio Nov 10, 2011 9:50 am

grazie vito Rolling Eyes
la condizione è che ci siano i numeri consecutivi in diagonale dal basso a sinistra verso l'alto a destra nell'arco di due estrazioni consecutive. p.es.:
il 24 e 27 settembre su PA sortirono
30 75 83 63 41
31 12 64 24 51

6x6=36.63
3x3=09.90
4x4=16.61
3.6=18.81
4x6=24.42

9° colpo: AMBO PA 81 61 - 13° colpo AMBO PA 36 63
i numeri consecutivi erano usciti della decina 70, al 5° colpo AMBO 70 71. la difficoltà sta nell'individuare la decina vito...hai un'idea come poterla individuare?

comunque sia...talvolta l'ambo o gli ambi ci mettono tempo ad uscire...sto cercando soluzioni che diano un esito veloce, mass. entro 4-5 estrazioni....
avatar
lilapat
Admin
Admin

Messaggi : 220
Data d'iscrizione : 23.01.09

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Ven Nov 11, 2011 2:07 pm

lilapat ha scritto:grazie vito Rolling Eyes
la condizione è che ci siano i numeri consecutivi in diagonale dal basso a sinistra verso l'alto a destra nell'arco di due estrazioni consecutive. p.es.:
il 24 e 27 settembre su PA sortirono
30 75 83 63 41
31 12 64 24 51

6x6=36.63
3x3=09.90
4x4=16.61
3.6=18.81
4x6=24.42

9° colpo: AMBO PA 81 61 - 13° colpo AMBO PA 36 63
i numeri consecutivi erano usciti della decina 70, al 5° colpo AMBO 70 71. la difficoltà sta nell'individuare la decina vito...hai un'idea come poterla individuare?

comunque sia...talvolta l'ambo o gli ambi ci mettono tempo ad uscire...sto cercando soluzioni che diano un esito veloce, mass. entro 4-5 estrazioni....

Per il momento,la vedo difficile individuare la decina Suspect nel frattempo ti ho automatizzato il calcolo.
Ho anche modificato lo script di ricerca,in modo che sia più semplice capire quale decina,sia la più probabile, What a Face
avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Ven Nov 11, 2011 2:12 pm

Codice:
24.09.2011 Pal 31.12.64.24.51
24.09.2011 Rom 90.63.29.22.21
Estratti Rilevati [ 64 ] [  63 ]

Estrazione generatrice del pronostico 08435 [115 - 24/09/2011]
G 0001
Numeri in gioco : 09.16.18.24.36.42.61.63.81.90 su PA RM per Ambo
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. 63 ..] C.  1 Estratto  08436 [116 - 27/09/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. 24 .. .. ..] C.  1 Estratto  08436 [116 - 27/09/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. .. ..] C.  2            08437 [117 - 29/09/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. 36 ..] C.  2 Estratto  08437 [117 - 29/09/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. .. ..] C.  3            08438 [118 - 01/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. .. ..] C.  3            08438 [118 - 01/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. .. ..] C.  4            08439 [119 - 04/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. .. ..] C.  4            08439 [119 - 04/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. 63 .. .. ..] C.  5 Estratto  08440 [120 - 06/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. .. ..] C.  5            08440 [120 - 06/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. 09 .. ..] C.  6 Estratto  08441 [121 - 08/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. 63 .. .. ..] C.  6 Estratto  08441 [121 - 08/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. .. ..] C.  7            08442 [122 - 11/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. .. ..] C.  7            08442 [122 - 11/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. .. 42] C.  8 Estratto  08443 [123 - 13/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. .. ..] C.  8            08443 [123 - 13/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. .. ..] C.  9            08444 [124 - 15/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. 42 ..] C.  9 Estratto  08444 [124 - 15/10/2011]
V N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. 81 61 .. ..] C.  10 Ambo      08445 [125 - 18/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. .. 18] C.  10 Estratto  08445 [125 - 18/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. .. ..] C.  11            08446 [126 - 20/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. 63 .. ..] C.  11 Estratto  08446 [126 - 20/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. 24 ..] C.  12 Estratto  08447 [127 - 22/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. .. ..] C.  12            08447 [127 - 22/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. 09 .. .. ..] C.  13 Estratto  08448 [128 - 25/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. 24 .. .. ..] C.  13 Estratto  08448 [128 - 25/10/2011]
V N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. 36 .. 63] C.  14 Ambo      08449 [129 - 27/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [.. .. .. 42 ..] C.  14 Estratto  08449 [129 - 27/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [PA]    [.. .. .. .. ..] C.  15            08450 [130 - 29/10/2011]
  N. [09.16.18.24.36.42.61.63.81.90 ] [RM]    [42 .. .. .. ..] C.  15 Estratto  08450 [130 - 29/10/2011]
Interrotta per raggiunta durata




Questo è lo script


Codice:

Sub Main()
Dim nu1(10)
Dim ruote(2)
Dim poste(2)
poste(2)=1
tmp=InputBox("Quante estrazioni controllo?","METODO LILA",100)
colp=CInt(InputBox("Quanti colpi gioco?","METODO LILA",13))
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
r1=r+1
If r1=11 Then r1=12
For p1 =1 To 5
For p2 =1 To 5
a=Estratto (es,r,p1)
b=Estratto (es,r1,p2)
If (Distanza (a,b)=1) Or (Distanza(b,a)=1)  Then
If (p1=p2+1)Or (p2=p1+1) Then
Scrivi
ColoreTesto 1
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),3)&" "& StringaEstratti (es,r) 
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),3)&" "& StringaEstratti (es,r1)
Scrivi "Estratti Rilevati [ "& a &" ] [  "& b &" ] "
ColoreTesto 0
Scrivi
nu1(1)=Fuori90 (Decina (a)* Decina  (b))
nu1(2)=Vert (nu1(1))
nu1(3)=Fuori90 (Cadenza (a)* Cadenza  (a))
nu1(4)=Vert (nu1(3))
nu1(5)=Fuori90 (Cadenza (b)* Cadenza  (b))
nu1(6)=Vert (nu1(5))
nu1(7)=Fuori90 (Cadenza (a)* Decina  (b))
nu1(8)=Vert (nu1(7))
nu1(9)=Fuori90 (Cadenza (b)* Decina  (a))
nu1(10)=Vert (nu1(9))
EliminaRipetuti (nu1)
ruote(1)=r
ruote(2)=r1
ImpostaGiocata 1,nu1,ruote,poste,colp,5
Gioca es
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub






avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Ven Nov 11, 2011 2:15 pm

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

24.09.2011 Pal 31.12.64.24.51
24.09.2011 Rom 90.63.29.22.21
Estratti Rilevati [ 64 ] [ 63 ]

01.10.2011 Rom 23.38.30.06.39
Estratti Rilevati [ 38 ] [ 39 ]

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

24.09.2011 Pal 31.12.64.24.51
24.09.2011 Rom 90.63.29.22.21
Estratti Rilevati [ 64 ] [ 63 ]

06.10.2011 Rom 27.33.73.32.35
Estratti Rilevati [ 33 ] [ 32 ]

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

24.09.2011 Pal 31.12.64.24.51
24.09.2011 Rom 90.63.29.22.21
Estratti Rilevati [ 64 ] [ 63 ]

08.10.2011 Pal 70.41.09.32.71
Estratti Rilevati [ 70 ] [ 71 ]

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°


Questo è lo script per la ricerca
Codice:

Sub Main()
Dim nu1(2)
Dim ruote(2)
Dim poste(2)
poste(2)=1
tmp=InputBox("Quante estrazioni controllo?","METODO LILA",50)
colp=CInt(InputBox("Quante estrazioni successive?","METODO LILA",6))
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
r1=r+1
If r1=11 Then r1=12
For p1 =1 To 5
For p2 =1 To 5
a=Estratto (es,r,p1)
b=Estratto (es,r1,p2)
For e =1 To colp
ess = es + e
If ess > fin Then ess = fin End If
For r2=r To r1
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto (ess,r2,p3)
d=Estratto (ess,r2,p4)
If (Distanza (a,b)=1) Or (Distanza(b,a)=1)  Then
If (p1=p2+1)Or (p2=p1+1) Then
If Distanza (c,d)=1 Then

Scrivi
ColoreTesto 1
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),3)&" "& StringaEstratti (es,r) 
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),3)&" "& StringaEstratti (es,r1)
Scrivi "Estratti Rilevati [ "& a &" ] [  "& b &" ] "
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi DataEstrazione(ess)&" "& Left(NomeRuota(r2),3)&" "& StringaEstratti (ess,r2)
Scrivi "Estratti Rilevati [ "& c &" ] [  "& d &" ] "
ColoreTesto 0
Scrivi
Scrivi"°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"

nu1(1)=c
nu1(2)=d

ruote(1)=11
ImpostaGiocata 1,nu1,ruote,poste,5,2

'Gioca ess
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub












avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  lilapat il Ven Nov 11, 2011 8:50 pm

Like a Star @ heaven grazie vito, hai fatto un gran lavoro!
purtroppo, non avendo un programma, non posso ancora utilizzare lo script, ma forse per quanto riguarda gli ambi composti da numeri consecutivi della stessa decina... hai qualche idea come poter individuarla? What a Face

...è pazzesco...anni fa, quando con i miei sistemi riuscivo a sapere in anticipo le quaterne, i terni ecc. avevo cercato disperatamente qualcuno che mi potesse fare un programma secondo i metodi che avevo elaborato in mesi di ricerca, e non avevo trovato nessuno malgrado frequentassi anche altri forum, anche molto conosciuti. ora che ho dovuto iniziare da capo, trovo subito te, un angelo :-)
avatar
lilapat
Admin
Admin

Messaggi : 220
Data d'iscrizione : 23.01.09

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  vito67 il Sab Nov 12, 2011 12:11 am

Ciao lila,io quel pò che ho imparato a scriptare,è stato in questo ultimo anno,conoscendo persone OK,e scopiazzando quà e là,e un pò di mio.
Ti posto il link per scaricare un programma,tutto free che utilizzo,se hai problemi come utilizzare lo script,te lo spiego passo passo.

http://forum.lottoced.com/topic.asp?TOPIC_ID=127466

Per quando riguarda le decine da individuare,ci stò studiando Mad non è semplice purtroppo,se individuo qualcosa ti avviso.
Wink
avatar
vito67
New member
New member

Messaggi : 12
Data d'iscrizione : 03.04.10
Località : puglia

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  lilapat il Sab Nov 12, 2011 6:57 am

zon grazie
avatar
lilapat
Admin
Admin

Messaggi : 220
Data d'iscrizione : 23.01.09

Visualizza il profilo

Torna in alto Andare in basso

Re: ricerca...chi ha voglia di collaborare???

Messaggio  Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum