Script 10elotto...chi può?

[Marcorun]

Se qualche scripter può farmi questo scriptino x il 10elotto serale/5min.,che rintracci le N° terzine +frequenti x ambo o terno e di queste ne metta in gioco le N° più frequenti/ritardate per ambo o terno? Più il resoconto economico? GRAZIE!!

 

[Marcorun]

Caro Marco….visto che chiedi cose impossibili,anche x il più bravo programmatore della NASA….ti allego uno script scopiazzato e modificato da me ,che altro non è il succo...la filosofia...L'E=mc^2 del lotto,enalotto,10eeeecc.....
mi saluto e mi ringrazio...CIAO??
Sub Main
Dim Nu(3),clp(3),T,V
ImpostaArchivio10ELotto(2)'------------------------------------------1

Ini = EstrazioniArchivioDL - 100
fin = EstrazioniArchivioDL
T = Array(T,"Casi","Info Data","TERZINA1","Verifica1","Colpo1","Colpo1","Estratti")
Call InitTabella(T)
For es = Ini To fin

k = k + 1
a = NumeroCasuale(1,30)
b = NumeroCasuale(31,60)
c = NumeroCasuale(61,90)
'.............................................................................
Nu(1) = a
Nu(2) = b
Nu(3) = c
'............................................................................
'----------------------------------------------------------------

Call VerificaEsitoDL(Nu,es + 1,2,cl,esito1,clp1,es1,id1)

V = Array(V,k,GetInfoEstrazioneDL(es),StringaNumeri(Nu),esito1,id1,clp1,es1)

Call AddRigaTabella(V)
Call ImpostaGiocataDL(1,Nu,1,100,10)


If id1 = 0 Then Call SetColoreCella(3,4,8)
If id1 = 0 Then Call SetColoreCella(6,4,8)



Next
CreaTabella
ScriviResocontoDL
End Sub

 

[Marcorun]

Grazie Magia….è molto bello ed utile,sarebbe bello considerarlo come un buon inizio se della lista che esce si potesse inserire i più N° ritardati e metterli in gioco per ambo terno con resoconto….buon week end a TE e a tutti...GRAZIE!