Richiesta di uno script per il 10 e lotto 5minuti

[siriano]

xabio non è quello che mi serve, leggi meglio il mio post precedente, poi può essere anche che io non riesco a spiegare al meglio quello che vorrei.

 

[xabio]

Mike ti ringrazio ma non è quello che mi serve.
In pratica scelta la terzina e su quante estrazioni si vuole fare la verifica
lo script deve dire quella terzina quante volte è uscita nell'estrazione n.1
quante volte nell'estrazione n.2 e cosi via fino alla 288.
Buona giornata

Ciao Siriano volevo dirti che non capisco dato che una terzina X se esce in un estrazione puo' essere solo quella solo una presenza.
Se imposti l'archivio sulle ultime 288 estrazioni hai le sortite di quella terzina in quella giornata e cosi' via .
Se non e' cosi prova a chiarire meglio il concetto .
Ciao

 

[Moro_80]

Ciao Siriano volevo dirti che non capisco dato che una terzina X se esce in un estrazione puo' essere solo quella solo una presenza.
Se imposti l'archivio sulle ultime 288 estrazioni hai le sortite di quella terzina in quella giornata e cosi' via .
Se non e' cosi prova a chiarire meglio il concetto .
Ciao

Infatti, come dice anche xabio la terzina puo essere solo una e basta nella sortita dei 20 numeri per estrazione.
Lo script di Mike poi da me modificato fa proprio quello, cioe fa vedere un `uno` se la terzina e sortita...poi se deve fare altro allora mi unisco a xabio e chiedo anche io di spiegarti meglio.

Ciao

 

[siriano]

Vediamo se riesco a farmi capire, premesso che quello che dite è giusto ma non è il mio obiettivo anche perchè lo trovo già su spaziometria o in altri script.

Chiedo allo script di verificare una terzina per es. nelle ultime 100 estrazioni
Ora nelle ultime 100 estrazioni ci sono state:
100 estrazioni N° 1
100 estrazioni N° 2
100 estrazioni N° 3
...
...
e cosi fino all'ultima della giornata
100 estrazioni N° 288

ora quello che voglio sapere dallo scritp è:
nelle 100 estrazioni N° 1 o N° 2 o N° 3 e cosi fino all'ultima della giornata, quella terzina da me indicata è uscita?



Saluti.

 

[Mike58]

prova questo.

ciao

Sub Main()
	arch = CInt(InputBox("QUALE ARCHIVIO" & Chr(13) & Chr(13) & "1 - 10 e lotto Serale" & Chr(13) & "2 - 10 e lotto 5Min",,1))
	ImpostaArchivio10ELotto(arch)
	Dim num(10),sorte(10)
	qt = CInt(InputBox("QUAlE ESITO VUOI EVIDENZIARE ? ",,3))
	so = CInt(InputBox("Quale sorte verificare...",,1))
	cl = CInt(InputBox("Quanti colpi verificare...",,1))
	ScegliNumeri(num)
	For k = 1 To UBound(num)
		num(k) = num(k)
	Next
	If arch = 1 Then Scrivi" ***** 10 e lotto Serale ***** ",1
	If arch = 2 Then Scrivi" ***** 10 e lotto 5Min ***** ",1
	Scrivi "Verifica esito dei Numeri..." & StringaNumeri(num),1
	Scrivi
	fin = EstrazioniArchivioDL
	ini = fin - 288
	ReDim atitoli(5)
	atitoli(1) = " DATA ESTR. "
	atitoli(2) = " ESTRATTI "
	atitoli(3) = " ESITO "
	atitoli(4) = " STRINGA ESITO"
	atitoli(5) = "Q.Tà"
	Call InitTabella(atitoli,1,,3,5)
	For es = ini To fin
	kn = kn + 1
		Messaggio es
		AvanzamentoElab Ini,fin,es
		Call VerificaEsitoDL(num,es,so,cl,retesito,retcolpi,retestratti,retidestr)
		sf = SerieFreqDL(es,es,num,1)
		For p = 1 To 20
			e = EstrattoDL(es,p)
			riga = riga & Format2(e) & "."
		Next
		ReDim avalori(5)
		avalori(1) = kn & "     " & GetInfoEstrazioneDL(es)
		avalori(2) = riga
		avalori(3) = retesito
		avalori(4) = retestratti
		avalori(5) = SF
		
		Call AddRigaTabella(avalori,,,3)
		If sf = qt Then Call SetColoreCella(5,3,1)
		If SF = QT Then kk = kk + 1
		riga = ""
	Next
	Call SetTableWidth("100%")
	CreaTabella
	Scrivi "Esiti evidenziati.... " & kk,1,1,,1,3
End Sub

 

[siriano]

Mike e tutti gli altri vi ringrazio ma non è quello che vorrei.
Non riesco a spiegare quello che mi serve quindi è inutile che continuo ad approfittare della vostra cortesia e disponibilità.
Salutoni.

 

[Mike58]

Ciao Siriano, per quanto mi riguarda non c'è problema, e mi spiace non riuscire a capire quello che ti serve. anche se sono convinto che è una banalità e che la soluzione e li vicino.

Salutoni a tutti per un po' di tempo basta script ( vacanza ).

 

[xabio]

Ciao Siriano la questione e' questa credo:
Tu vuoi sapere quello che volevo anch'io solo che non hai seguito la mia richiesta che va nella stessa direzione .

In 100 "giornate" ci sono 28800 estrazioni circa
100 estrazioni N°1 , 100 N°2 ecc.
ora se tu imposti come da immagine l'archivio 10EL5M poi fare le statistiche con Spaziometria .




Ciao e Buone Vacanze.

 

[siriano]

Grazie Xebo ci sono riuscito esportando il tutto in excel, un pò macchinoso ma va bene.
Saluti e buone vacanze a tutti.