Novità

Plugin Tabellone

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
 
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
 
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
 
LuigiB ha scritto:
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
Clicca per espandere...


Caro Luigi, ci Provo vediamo cosa ne viene fuori..!
 
Ultima modifica:
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
 
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 ..
 
niente di piu semplice , devi usare il metodo navigate e gli passi il file html che vuoi leggere.. niente di speciale ..ciao
 
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?
 
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
 
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.
 
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
 
Avevo trovato in giro ...

questo script, non funzionante che ho rimesso apposto.

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


Codice: 
'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

:)
 
Ultima modifica:
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:

Codice: 
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
 
Ultima modifica:
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.
 
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
 
Joe91 ha scritto:
Avevo trovato in giro ...

questo script, non funzionante che ho rimesso apposto.

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

Codice: 
'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

:)
Clicca per espandere...

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 .
:)
Disallineamento.JPG

Base.JPG
 
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.

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto