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

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.

Se posso essere utile....!!!!!

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

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

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

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 ]

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

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 :-)

Si..ora mi è più chiaro.
Provo a modificare lo script.

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

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 ]

SIII
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?

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





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

grazie vito
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....

lilapat ha scritto:grazie vito
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 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,

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








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

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














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?

...è 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 :-)

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 non è semplice purtroppo,se individuo qualcosa ti avviso.

grazie