Option
[SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#222222]Option Explicit
Sub Main
Dim Inizio,Fine,idEstr
Dim k,EntroColpi,e,ee,c
Dim nBase,nUscito
Dim nUscite
ReDim aPresenze(90,90)
Dim RetRit,RetRitMax,RetFreq
Call ImpostaArchivio10ELotto(2)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioneIni
Fine = EstrazioneFin
For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
ReDim aTitoli(6)
aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numero Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Ritardo"
aTitoli(5) = "RitardoMax"
aTitoli(6) = "Frequenza"
Call InitTabella(aTitoli)
For nBase = 1 To 90
ReDim aValori(6)
aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) = nUscite
ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
aValori(4) = RetRit
aValori(5) = RetRitMax
aValori(6) = RetFreq
Call AddRigaTabella(aValori)
Next
Call CreaTabella
[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#222222]
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
Dim k
ReDim aOrd(90,2)
For k = 1 To 90
aOrd(k,1) = k
aOrd(k,2) = aPresenze(nBase,k)
Next[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#222222] Call OrdinaMatrice(aOrd,- 1,2)
GetNumeroPiuFreq = aOrd(1,1)
nUscite = aOrd(1,2)
End Function[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#222222][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE]
Gentilmente cari fratelli , avevo chiesto aiuto a keeper per un aiuto a compilare lo script che dopo leggerete quali funzioni deve avere. Dato che il fratello keeper oltre ad essere una persona seria (infatti ha detto che sono capitato male in quanto non e' ancora in grado di fare uno script, credo che questo gli fa onore perche' e' una persona vera, come pochi del resto qui in questo forum si sta bene per un semplice motivo siete tutti delle brave persone , cosa da non credere ma grazie a voi e' vero )Quindi chiedo con cortesia e' gentilezza se potete aiutarmi dato che sono un imbranato oltre che incapace a fare uno script. Credetemi ho tutto il materiale scaricato da megaupload per imparare, faccio prove da mesi ,ma..... lo giuro non ci riesco. Vi chiedo se a tempo perso oppure se mi date indicazioni di comporre uno script con queste funzioni:Vorrei analizzare l'uscita di 2 numeri es. 8-18 ora lo script mi dovrebbe dire quali sono i numeri ad ambo o terno piu' numero singolo piu' frequente dopo l'uscita dei 2 numeri, nel script vorrei anche poter mettere l'opzione di dare sia il periodo es: dal 01/02/2012 al 02/02/2012 piu' inserimento fascia oraria. Ecco questo e' lo script , naturalmente mi riferisco al gioco del 10 e' lotto ogni 5 minuti, quindi deve girare su calcoli al 10e' l8 5min. Frate' io in verita' mi scuso con voi tutti del fastidio dato , ma ...l'aiuto che cerco da voi e' solo per imparare e' ed solo perche' ancora sto a ""piedi"" in fatto di script. Cerco sempre nella mia umilta' di dire e' ammettere il vero, sono amareggiato perche' nonostante io abbia avuto possibbilita' di scambiare idee ed informazioni ancora non ho imparto niente. Spero che in futuro con le vostre lezioni io imparo a fare finalmente uno script e' di potermi rendere utile come voi per tutti i fratelli del forum , in modo da essere un membro di questo forum all'altezza di aiutare come fate voi tutti i novelli fratelli che hanno voglia d'imparare . Colgo l'occasione di ringraziarvi di cuore e' di chiedervi scusa per il fastidio . Antonio!!
