Richiesta di uno script per il 10 e lotto 5minuti

[siriano]

Premettendo che non so niente di programmazione script,
chiedo la cortesia di uno script per il 10 e lotto 5minuti
con queste caratteristiche:

- data una terzina qualsiasi (per es. 10-11-12) vorrei che
lo script mi dicesse quante volte è uscita per ogni estrazione

- esempio:
N° Es.ne | Uscite
001 | 0
002 | 2
003 | 4
e cosi fino alla 288

con la possibilità di poter scegliere su quante estrazioni fare
il controllo, per es. le ultime 100 / 1.000 / 10.000 ecc.

Grazie a tutti.

 

[Mike58]

Ciao Siriano, in pratica vuoi un verifica punteggi, prova questo.

Sub Main()
	ImpostaArchivio10ELotto(2)
	Dim Nn(10)
	QT = InputBox("Quanti Numeri","Numeri",3)
	QN = InputBox("QUANTE ESTRAZIONI",,25)
	ScegliNumeri(Nn)
	Ini = EstrazioniArchivioDL - QN
	Fin = EstrazioniArchivioDL
	Scrivi "........ Da " & GetInfoEstrazioneDL(Ini) & " a " & GetInfoEstrazioneDL(fin),1
	'Scrivi
	Scrivi String(120,"="),1
	ColoreTesto 1
	Scrivi "Evidenzia numeri giocati sulla combinazione 10 e lotto 5 min ",1
	ColoreTesto 0
	Scrivi String(120,"-")
	ColoreTesto 2
	Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
	ColoreTesto 0
	Scrivi String(120,"-")
	For Es = Ini To Fin
		tot = 0
		Scrivi GetInfoEstrazioneDL(es) & " ",0,0
		'Scrivi "[" & Es & "] ",0,0
		For P = 1 To 20
			ColoreTesto 1
			For x = 1 To Qt
				If EstrattoDL(Es,P) = Nn(x) Then
					ColoreTesto 2
					tot = tot + 1
				End If
			Next
			Scrivi Format2(EstrattoDL(Es,P)),1,0
			ColoreTesto 0
			Scrivi ".",0,0
		Next
		ColoreTesto 7
		If ToT = Int(qt) Then
			Scrivi " - Punteggio max -> " & tot,1,0
			'ColoreTesto 3
			Scrivi " - Attenzione vincita piena ",1,- 1,3
		Else
			If Tot = Int(qt - 1) Then
				ColoreTesto 7
				Scrivi " - Punteggio max -> " & tot,1,0
				ColoreTesto 2
				Scrivi " -  Vincita -1 ",1
			Else
				If Tot = Int(qt - 2) Then
					ColoreTesto 7
					Scrivi " - Punteggio max -> " & tot,1,0
					ColoreTesto 2
					Scrivi " -  Vincita -2 ",1
				Else
					ColoreTesto 7
					If Tot <> Int(qt) Then Scrivi " - Punteggio max -> " & tot,1
				End If
			End If
		End If
		ColoreTesto 0
	Next
	Scrivi String(120,"-")
	Scrivi
	Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
	Call ImpostaGiocataDL(1,Nn,1,QN)
	Call GiocaDL(fin - QN)
	ScriviResocontoDL
End Sub

 

[siriano]

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

 

[Moro_80]

Ciao Siriano,
forse volevi una cosa del genere...

Sub Main()
	ImpostaArchivio10ELotto(2)
	Dim Nn(10)
	QT = InputBox("Quanti Numeri","Numeri",3)
	QN = InputBox("QUANTE ESTRAZIONI",,25)
	ScegliNumeri(Nn)
	Ini = EstrazioniArchivioDL - QN
	Fin = EstrazioniArchivioDL
	Scrivi "........ Da " & GetInfoEstrazioneDL(Ini) & " a " & GetInfoEstrazioneDL(fin),1
	'Scrivi
	Scrivi String(120,"="),1
	ColoreTesto 1
	Scrivi "Evidenzia numeri giocati sulla combinazione 10 e lotto 5 min ",1
	ColoreTesto 0
	Scrivi String(120,"-")
	ColoreTesto 2
	Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
	ColoreTesto 0
	Scrivi String(120,"-")
	For Es = Ini To Fin
		tot = 0
		Scrivi GetInfoEstrazioneDL(es) & " ",0,0
		'Scrivi "[" & Es & "] ",0,0
		For P = 1 To 20
			ColoreTesto 1
			For x = 1 To Qt
				If EstrattoDL(Es,P) = Nn(x) Then
					ColoreTesto 2
					tot = tot + 1
				End If
			Next
			Scrivi Format2(EstrattoDL(Es,P)),1,0
			ColoreTesto 0
			Scrivi ".",0,0
		Next
		ColoreTesto 7
		If ToT = Int(qt) Then
			Scrivi " - 1 ",1,- 1,3
		Else
			Scrivi " - 0 ",1,- 1,3
		End If
		ColoreTesto 0
	Next
	Scrivi String(120,"-")
	End Sub

Super THANKS a Mike58 per aver messo giù lo script, io lo ho solo "rivisto"

Ciao

 

[xabio]

Scusa Siriano se mi intrometto nel tuo post ma visto che siamo in tema vorrei chiedere a Mike o Moro se e' possibile creare
script per fare la ricerca in una fascia ristretta di estrazioni nelle 288 giornaliere .
Mi spiego meglio:
Se volessi trovare la terzina piu' ritardata nel range 1 / 5 comprese ovvero le prime 5 estrazioni del giorno poi il range 2 / 6 poi 3 / 7 ecc. per tot giorni indietro .

Questo e' quello che fa praticamente
la funzione " combinazioni vergini " nel programma Spaziometria menu' 10EL
mentre lo script che vorrei in automatico passerebbe da un intervallo di 5 estrazioni all'altro e
mi rileverebbe i primi terni se ci sono diciamo con ritardi maggiori di 1400 assenze in quella fascia
senza impostarlo ogni volta .
Grazie anticipatamente se potrete aiutarmi .
Saluti Xabio.

 

[Mike58]

Ciao xabio, francamente questo mi sembra abbastanza complessa come ricerca, per ora non saprei proprio come impostare la ricerca.
Se mi viene in mente qualcosa ci proviamo ma la vedo dura !!!.

Ciao

 

[xabio]

Ciao xabio, francamente questo mi sembra abbastanza complessa come ricerca, per ora non saprei proprio come impostare la ricerca.
Se mi viene in mente qualcosa ci proviamo ma la vedo dura !!!.

Ciao

Grazie in ogni caso Mike vediamo se puo' intervenire qualche altro amico scripter io ci sto provando ma e' troppo lento il programma
per come lo scrivo io terra terra non rende .

Ciao Grazie

 

[Moro_80]

Grazie in ogni caso Mike vediamo se puo' intervenire qualche altro amico scripter io ci sto provando ma e' troppo lento il programma
per come lo scrivo io terra terra non rende .

Ciao Grazie

Ciao xabio,
prova a spiegarti un po' meglio su quello che intendi fare, magari con qualche esempio, o perchè no con quello che hai già scritto tu.

Vedrai che così facendo qualcuno prima o poi ti darà una mano più concreta, magari proprio Mike o addirittura Luigi ( forse Luigi anche no )

 

[xabio]

Ciao Moro grazie dell'intervento ora tento di spiegare meglio:

Nel 10EL5M abbiamo circa 288 estrazioni giornaliere per fare qualche giocata in ristretto mi prendo un range di 5 estrazioni e faccio la statistica su quelle estrazioni.
Vado nel menu' 10EL di Spaziometria apro sezione " Combinazioni vergini " e seleziono terno
poi passo alla barra archivio 10EL5M e alla sinistra imposto ultimo anno estrazioni a desra nella fascia estrazioni la stringo sino
a 5 ad esempio da N°1 a N°5 quindi mi esce a sinistra nella casella verde quante sono le estrazioni cosi impostate che sono 5 x 365 =1825
Eseguo l'elaborazione e se ci sono terni vergini nelle 1825 estrazioni ok sono scritti altrimendi mi da nessun terno.


Tutta questa procedura la ripeto sistematicamente spostando la fascia da 1/5 a 2/6 a 3/7 a 4/8 ecc .
finche non rilevo un terno che sara' a quel punto molto prossimo alla sortita !!

Quindi lo script dovrebbe fare questo in automatico lasciando il computer lavorare tranquillamente a trovare le terzine piu' ritardate in quel preciso range.

Ciao grazie .

 

[siriano]

Moro grazie, ma non riesco a darti una risposta perchè facendo girare lo script da tutti risultati 0
[208] 20.06.2014 00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00. - 0
[209] 20.06.2014 00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00. - 0
[210] 20.06.2014 00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00. - 0
e non riesco a capire da cosa dipende.

 

[Moro_80]

Moro grazie, ma non riesco a darti una risposta perchè facendo girare lo script da tutti risultati 0
[208] 20.06.2014 00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00. - 0
[209] 20.06.2014 00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00. - 0
[210] 20.06.2014 00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00.00. - 0
e non riesco a capire da cosa dipende.

Ciao Siriano,
cerca di essere più chiaro con un esempio più concreto...magari postando anche i numeri che hai usato o qualche immagine.
Io ho provato proprio in questi minuti e devo dire che funziona...

Ciao

 

[siriano]

Questo è quello che mi da

 

[siriano]

Questo è quello che mi da, non è questione di numeri perchè ne ho provati diversi,
Vedi l'allegato 12334

 

[Moro_80]

Questo è quello che mi da, non è questione di numeri perchè ne ho provati diversi,
Vedi l'allegato 12334

Ciao Siriano,
credo Tu abbia qualche "problemino" con l'archivio estrazioni del 10 e lotto 5 minuti.

Io ottengo questo....guarda:


Ciao

 

[siriano]

Non sapresti tu, o qualcuno che ci legge, aiutarmi a capire quale può essere il problema?
Al di la di questo lo script non deve dire ogni estrazione quanti numeri sono usciti di quei 3
ma per ogni estrazione n. 1 (e cosi fino all'ultima della giornata) quante volte è uscita quella terzina (se è uscita)
Cercando di spiegarmi meglio, se chiedo allo script di verificare le ultime 100 estrazioni avremo
100 estrazioni N° 1 - 100 estrazioni N° 2 - 100 estrazioni N° 3 e cosi fino all'ultima della giornata.
Nelle 100 estrazioni N° 1 è uscita quella terzina? Nelle 100 estrazioni N° 2 è uscita quella terzina? ecc.ecc. fino all'ultima della giornata.
Se si quante volte?
Grazie

 

[lotto69]

Quale programma usate per far girare questo script?
con l8+ non funziona non riconosce il comando "ImpostaArchivio10ELotto(2)"

Grazie

 

[xabio]

Ciao Siriano .
Se imposti cosi come da immagine menu' terni frequenti al 10EL non hai risolto ?
Almeno mi sembra di capire che vuoi questo !



Per quel che riguarda la mia richiesta precedente ho deciso di lasciar perdere
presumo troppo lavoro e l'ennesima perdita di tempo.
Solo una domanda .
Come fa il programma Spaziometria ad essere cosi' veloce nel scansionare tutti i 117480 terni rispetto allo script coi cicli .
Grazie ciao

 

[LuigiB]

spaziometria è compilato , in certi casi usa dll scritte apposta in delphi ( che produce codice compilato ancora piu efficiente) e in piu c'è stata una notevole ricerca sugli algoritmi che ove possibile sono stati ottimizzati . Per questo è piu veloce.

ciao

 

[stefaniavirgus]

ciao a tutti volevo ringraziare per questo splendido programma

 

[xabio]

spaziometria è compilato , in certi casi usa dll scritte apposta in delphi ( che produce codice compilato ancora piu efficiente) e in piu c'è stata una notevole ricerca sugli algoritmi che ove possibile sono stati ottimizzati . Per questo è piu veloce.

ciao

Grazie Luigi per la spiegazione
io pensavo fosse una questione di multithreading che gli script non sfruttano .
Ciao.