ritardo ambi

[Roby]

buonasera a tutti
volevo sottoporre all attenzione per un ulteriore auito,questo script ideato da me che ad ogni estrazione da ambi.

Sub main()
Dim nu(2),nr(2),ruo(2),n1(1),n2(1)
Dim nomefile
nomefile="C:\documenti\nuovaformula.txt"
ScriviFile"C:\documenti\nuovaformula.txt","",True 'con true si cancella in contenuto del file
'ScriviFile"C:\documenti\nuovaformula.txt","",False 'con false si incolonnano i dati successivi
For x=1 To 90
nr(1)=x
For z=x+1 To 90
nr(2)=z
a=Abs (nr(1)-nr(2))
n1(1)=nr(1)
n2(1)=nr(2)
ruo(1)=11
ruo(2)=12
c=SerieFreq (EstrazioneFin ,EstrazioneFin ,n1,ruo,1)
d=SerieFreq (EstrazioneFin ,EstrazioneFin ,n2,ruo,1)
b=SerieRitardo (EstrazioneFin -200,EstrazioneFin ,nr,ruo,2)
If a>0 And c>0 And d>0 And b>99 And b<201 Then
Scrivi StringaNumeri (nr)&" ritardo "&b
ScriviFile nomefile, StringaNumeri (nr)
End If
Next
Next
End Sub
trattasi di script che estrappola quegli ambi da porre in gioco che hanno un rit tra 100- 200 .le ruote di gioco tutte. sapendo che ad ogni estrazione esce un ambo con il medesimo rit su tutte.
esempio per capire meglio l ambo74-19 di genova aveva al 28/02/09 un rit su tutte di 116 e un rit dei singoli numeri di 0 sempre su tutte
lieto di ricevere ulteriori accorgimenti ed idee vi ringrazio

massimiliano

 

[imported_n/a]

Che sei in cerca di iscrizioni pico2005??
Ciao

zesk

 

[imported_n/a]

perche iscrizioni scusa, la potrei ritenere quasi un offesa o pensare che di numeri e non di lotto forse non tutti se ne intendono


massimiliano

 

[imported_n/a]

Lo so pico che non avete secondi fini, ma non per questo devi infrangere le regole che ced ha, giuste o sbagliate che siano.
Valgono per me, valgono per te valgono per tutti.
Io non faccio pubblicità al mio forum, e non faccio ripicche, anche se ne ho ricevute e molte da voi, altrimenti lo avrei segnalato allo staff nell'area apposita.
Anzi vedi che ti sto facendo anch'io un po di pubblicità, bimbo non se ne era neanche accorto.
Ciao

zesk