Plugin Tabellone

[*Max-lotto*]

Mio primo plugin Grazie sempre al grande Luigi.B!
Ecco il link: plugin istallazione.rar
---------------------------------------------------
plugin senza effettuare installazione
ecco il link:http://www.mediafire.com/?hwkby78gqkhomg7

 

[LuigiB]

bravo .... ora visto che hai fatto una cosina un po' piu articolata rispetto ad un semplice script compliato ti esorto a a fare altre modifiche.
Ad esempio l'output potresti mostrarlo direttamente nel tuo programma , è un file html e lo leggi col controllo webbrowser ..peenso sia facile fare questa piccola modifica.

ciao

 

[hettro]

Ciao Max-lotto e luigiB,

Come si fa ha mandare l'output di uno script direttamente a EXCEL in vece di mandarlo in HTM ?

Per chi utilizza gli script per la creazione di dati che poi dovrà elaborare in excel.

Ciao e grazie per il bel plugin, Hettro

 

[LuigiB]

non si puo o megli si puo ma non è la stessa cosa .. probabilemete per quello che serve a te devi direttamente scrivere su excel o creare un file csv

 

[*Max-lotto*]

bravo .... ora visto che hai fatto una cosina un po' piu articolata rispetto ad un semplice script compliato ti esorto a a fare altre modifiche.
Ad esempio l'output potresti mostrarlo direttamente nel tuo programma , è un file html e lo leggi col controllo webbrowser ..peenso sia facile fare questa piccola modifica.

ciao

Caro Luigi, ci Provo vediamo cosa ne viene fuori..!

 

[LuigiB]

dai dai ... che poi fatto quello puoi ad esempio cambiare l'interfaccia di esecuzione oppure inserire direttamente nello maschera del programma i vari parametri necessari per far girare lo script.
ciao

 

[*Max-lotto*]

Ciao Luigi purtruppo la funzione webBrowser mi rende difficile usarla so soltanto che si puo usare per indirizzi internet ma per visualizare dati in pagine html mi rende difficile se mi dai un compito o meglio un esempio per capire potrei andare avanti altrimenti mi ci rinuncio per il poco tempo che ho a dispozione ..

 

[LuigiB]

niente di piu semplice , devi usare il metodo navigate e gli passi il file html che vuoi leggere.. niente di speciale ..ciao

 

[*Max-lotto*]

LUIGI AVEVO FATTO WEBBROWSER .NAVIGATE("QUI DOVREI PASSARE L'IDIRIZZO") OK, MA COME LA RICHIAMO NEL MODULO ModSpazioScript, ORA MI DICI DIPASSARE IL FILE HTML LO DEVO CREARE?

 

[LuigiB]

no no il file lo crea gia lo script ...è quello che alla fine vedi nel browser. Devi semplicemente inserire il controllo webbrowser sul form da dove si lancia lo script e poi fare leggere a lui il file di output , basta cambiare una riga
invece di fare la shell del file in modo che si apra il browser di default lo devi aprire internamente.
Ad ogni modo non è che ti devi impazzire .. io dicevo cosi per dire.
Ciao

 

[houdini]

x Max-lotto
Il plugin non funziona e' possibile provvedre?
grazie

 

[Joe91]

Ciao Loris,

Scusandomi per l'intromissione in una richiesta, a Max...

Ho un vecchio PC ... su cui i plugin funzionano ancora.

Quello da te richiesto è "doppio" quindi ti chiedo ti serve per intero ... o usi principalmente una delle due parti ?

Fammi sapere.

 

[houdini]

Grazie intanto x la risposta:
TAC13 (X INTERO)
anche altri 2 tuoi plugin che conservavo non riesco + ad aprirli:
ambo unito (purtroppo con una ricerca di pochi mesi)
rsl-rc-joe.
ciaoo

 

[houdini]

Esatto

lo script allegato 4.11.2014 - 16 - funziona.

 

[Joe91]

Avevo trovato in giro ...

questo script, non funzionante che ho rimesso apposto.

Tuttavia se ci fossero discordanze e malfunzionamenti ... segnalatelo.

'RSL/RC/JOE V.3.0. del 21/11/2013
Sub Main()

ATTENZIONE QUESTO SCRIPT NON FUNZIONA 
NON DEVE ESSERE USATO. (VEDI MESSAGGI SUCCESSIVI)

	Dim Ru(1),Mu(1)
	Fin = EstrazioneFin
	GeneraAnalitico(Fin)
	ReDim aTitoli(5)
	aTitoli(1) = "Ruota"
	aTitoli(2) = "Numero"
	aTitoli(3) = "RSL"	
	aTitoli(4) = "RC"
	aTitoli(5) = "RSL/RC"
	Call InitTabella(aTitoli)
	Scrivi String(32,"="),1	
	Scrivi "Capolista del Ritardo",1 : Scrivi
	For R = 1 To 12 : If R = 11 Then R = 12
		Ru(1) = R
		Mem = 0
		Rit = TabelloneAnalitico(0,R,0)
		Base = Fin - Rit
		Nu = Split("0." & StringaEstratti(Base,r),".")
		If UBound(nu) = 5 Then
			For P = 1 To 5
				Mu(1) = Nu(p)
				Sp = SeriePrima(Base + 1,Fin,Mu,Ru,1)
				If Mem <= Sp Then Mem = Sp
				If Sp = 0 Then
				End If
			Next
			ReDim aValori(5)
			aValori(1) = SiglaRuota(R)
			aValori(2) = Format2(Mu(1))
			aValori(3) = Fin - Mem
			aValori(4) = Rit
			aValori(5) = Round(((Fin - Mem) / Rit),3)
		Call AddRigaTabella(aValori)
		End If
	Next
	Call CreaTabella(5)
	Scrivi FormatSpace("Aggiornato al " & DataEstrazione(Fin),32,1),1
	ColoreTesto 1 : Scrivi FormatSpace("Gift-By-Joe",32,1),1
	ColoreTesto 0 : Scrivi String(32,"="),1
End Sub

 

[Joe91]

Ciao Loris ...

per quanto riguarda il Tabellone Analitico delle Cinquine Sincrone Isocrone (TACSI) ...

Compilandolo e Zippandolo si crea un file che alcuni dei miei antivirus segnalano come infetto.

Quindi per evitare discussioni e malintendimenti ... non lo pubblico come PlugIn ... ma come normale script:

Sub Main()
	'Tabellone Analitico delle Cinquine Sincrone e Isocrone By Cinzia.
	'T.A.C.S.I. V. 2.3 By Joe
	'Fornisce indicazioni grafiche relative all'estrazione di cinquine in Ritardo per Ambo.
	ColoreTesto 2
	Scrivi "Tabellone Analitico delle Cinquine Sincrone Isocrone V.2.3 By Joe  ",1,0 : ColoreTesto 0
	Scrivi "(In Ritardo per AMBO)    ",0,0: ColoreTesto 1
	Scrivi "     Script di Cinzia ",1,1
	Scrivi
	ColoreTesto 0
	Dim Ru(1) : Ctrl = 350 ', Es,Ini,Fin,R,P,Nr,N,Rc,Nar
	Scrivi "Rc.  ",1,0
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi FormatSpace(NomeRuota(R),15),1,0
	Next
	Scrivi
	Fin = EstrazioneFin
	Ini = EstrazioneFin - Ctrl
	ColoreTesto 2 : Scrivi "0" & Space(4),0,0
	For R = 1 To 12 : If R = 11 Then R = 12
		For P = 1 To 5
			Scrivi Format2(Estratto(Fin,R,P)),0,0
			If P < 5 Then Scrivi ".",0,0
		Next
		Scrivi Space(1),0,0
	Next
	ColoreTesto 0 : Scrivi
	For Es = Fin - 1 To Ini Step - 1
		ColoreTesto(7) : Scrivi FormatSpace(Ctrl - Es + Ini,5),1,0: ColoreTesto(0) : Scrivi "",0,0
		AvanzamentoElab Ini,Fin,Es
		For R = 1 To 12 : If R = 11 Then R = 12
			Ru(1) = R
			N = StringaEstratti(Es,R) : N = "0." & N : Nr = Split(N,".") : 'OrdinaMatrice nr
			Rc = SerieRitardo(Ini,Fin,Nr,Ru,2)
			If SerieFreq(Es + 1,Fin,Nr,Ru,2) > 0 Then
				ColoreTesto 2
				Scrivi "-- -- -- -- --" & Space(1),0,0
				ColoreTesto 0
			Else
				If SerieFreq(Es + 1,Fin,Nr,Ru,2) = 0 Then
					If Int(R/2) = R/2 And R <> 12 Then 'Cambia colore alla Colonna'
						ColoreTesto(1)
					Else ColoreTesto(0)
					End If
					Scrivi StringaNumeri(Nr) & Space(1),0,0
				End If
			End If
		Next
		Scrivi
	Next
End Sub

Cordiali saluti

 

[edesimone]

Buona sera Joe91

Lanciando questo script, con l'ultima estrazione 04/11/2014, outpup e precisamente

in Rc 0 non mi fa vedere l'estrazione 04/11/2014, sotto in Rc 1 vedo la 03/11/20124.

Volevo chiederti se puoi verificare grazie.

 

[Joe91]

Ciao edesimone,

Ti ringrazio per la correzione suggerita.

Ho corretto aggiornando lo script ... per il tabellone delle cinquine ... alla versione 2.3, sostituendo il precedente.

Quindi consiglio di cestinare la vecchia versione, utilizzando e provando questa nuova.

Buona Serata

 

[surmang]

Avevo trovato in giro ...

questo script, non funzionante che ho rimesso apposto.

Tuttavia se ci fossero discordanze e malfunzionamenti ... segnalatelo.

'RSL/RC/JOE V.3.0. del 21/11/2013
Sub Main()
	Dim Ru(1),Mu(1)
	Fin = EstrazioneFin
	GeneraAnalitico(Fin)
	ReDim aTitoli(5)
	aTitoli(1) = "Ruota"
	aTitoli(2) = "Numero"
	aTitoli(3) = "RSL"	
	aTitoli(4) = "RC"
	aTitoli(5) = "RSL/RC"
	Call InitTabella(aTitoli)
	Scrivi String(32,"="),1	
	Scrivi "Capolista del Ritardo",1 : Scrivi
	For R = 1 To 12 : If R = 11 Then R = 12
		Ru(1) = R
		Mem = 0
		Rit = TabelloneAnalitico(0,R,0)
		Base = Fin - Rit
		Nu = Split("0." & StringaEstratti(Base,r),".")
		If UBound(nu) = 5 Then
			For P = 1 To 5
				Mu(1) = Nu(p)
				Sp = SeriePrima(Base + 1,Fin,Mu,Ru,1)
				If Mem <= Sp Then Mem = Sp
				If Sp = 0 Then
				End If
			Next
			ReDim aValori(5)
			aValori(1) = SiglaRuota(R)
			aValori(2) = Format2(Mu(1))
			aValori(3) = Fin - Mem
			aValori(4) = Rit
			aValori(5) = Round(((Fin - Mem) / Rit),3)
		Call AddRigaTabella(aValori)
		End If
	Next
	Call CreaTabella(5)
	Scrivi FormatSpace("Aggiornato al " & DataEstrazione(Fin),32,1),1
	ColoreTesto 1 : Scrivi FormatSpace("Gift-By-Joe",32,1),1
	ColoreTesto 0 : Scrivi String(32,"="),1
End Sub

Ciao a Tutti.
Ciao Joe, sto cercando di allargare le mie conoscenze di fatto per la relizzazione di script con Spaziometria .Girovagando tra gli script postati ho trovato questo da te realizzato. Ora ,se non sbaglio, il risultato è corretto per i valori RSL/RC dei capolista , ma non è corretto l'abbinamento ai numeri capolista, che sono invece abbinati agli estratti in ultima posizione della cinquina sincrona d'origine.
Ho notato che la variabile Base del medesimo script si colora di azzurro come i comandi del vbscript, cercando non sono riuscito a trovare il comando Base,sai quale è il comando o altro motivo della colorazione?
Grazie, per la condivisione delle tue conoscenze .

 

[Joe91]

Ciao Surmang.

Hai ragione ho sbagliato ad usare quel nome per quella variabile.

Essendo riservato viene "riconosciuto" e colorato di conseguenza.

Per il resto quello script ... mi sembra funzionare e considera formazioni di un singolo numero.

Nello specifico il "Capolista del Ritardo" ... ove gli altri 4 sincroni ... sono già caduti,

e non più presenti sul Tabellone Analitico.