SE Standard Image Banner 728 x 90

FORUM LOTTODESK.IT

modifica listato

Offline genios

  • **
  • 329
modifica listato
« il: 11 ſettembre 2013 ore 19:18:35 »
Lo script  in basso cerca un numero della decina naturale 81-90 e nell’ estrazione successiva trova un terno sempre della decina 81-90 . Vorrei che mi aiutaste a modificare tale script in modo che una volta trovata la condizione esposta precedentemente mi dica dopo quante estrazioni le decina in questione ha dato l’ ambo .

Ciao Eugenio   



Sub main()
       

Dim dec(10)
Dim sette(5)
Dim ruota(1)
Dim poste(2)
ru=8
ruota(1)=ru
poste(2)=2
kk=8

For x=81 To 90
co=co+1
dec(co)=x
Next
fin=EstrazioneFin
For es=7000 To fin
AvanzamentoElab 5000,fin,es
Messaggio DataEstrazione (es)
Rem ***********************************************************
For p1=1 To 5
d=Estratto(es,ru,p1)
If DecinaNaturale(d)=kk Then
ex=es+1



Rem ***********************************************************
For p=1 To 3
For q=p+1 To 4
For z=q+1 To 5
b=Estratto(ex,ru,p)
c=Estratto(ex,ru,q)
e=Estratto(ex,ru,z)
If DecinaNaturale(b)=kk And DecinaNaturale(c)=kk And DecinaNaturale(e)=kk Then
If b=d Or c=d Or e=d Then
Rem ************************************************************

Scrivi DataEstrazione (es)&"   "& StringaEstratti (es,ru) &"   "& d
Scrivi DataEstrazione (ex)&"   "& StringaEstratti (ex,ru) &"   "& b&" "&c&" "&e
Scrivi
 
End If
End If
Next
Next
Next
End If
Next

Erase sette
Next
 
End Sub

04.09.2002   52.61.60.89.85   89
07.09.2002   90.89.70.16.88   90 89 88

02.08.2008   68.31.90.12.53   90
05.08.2008   88.65.90.75.83   88 90 83

06.02.2010   72.82.04.53.67   82
09.02.2010   72.58.82.81.88   82 81 88

25.02.2012   84.38.45.61.46   84
28.02.2012   11.84.88.73.81   84 88 81

26.04.2013   07.84.53.10.77   84
27.04.2013   84.88.83.15.90   84 88 83

26.04.2013   07.84.53.10.77   84
27.04.2013   84.88.83.15.90   84 88 90

26.04.2013   07.84.53.10.77   84
27.04.2013   84.88.83.15.90   84 83 90

 


lottomatica