Novità

X LuigiB Lente capricciosa

L

Lanfranco60

Super Member >GOLD<
Ciao Luigi, volevo segnalarti 2 cose :


1°) Come da immagine, nella ricerca sequenze numeri,

come mai c'è la mancanza della somma ?



2llg6z8.jpg




2°) Nel menu spaziometria elenco estrazioni, funzione (Lente),

Mi sa che c'è qualcosa che non va, con la funzione del valore....
Mi spiego, nella finestrella nera spesso o si vede tutta vuota anche muovendola
dappertutto, oppure si vedono un casino di numeri che non centrano nulla,
devo dire però che anche spesso i numeri sono quelli giusti.


Poi, come funziona Preimposta Lente ?

Spiegazione Please, please, please



29mlmy0.jpg




208bgj8.jpg




Hello LuigiB'world ! :-):-):-)
 
Ciao ecco le spiegazioni , per la funzione nella ricerca sequenza la somma non si puo fare.

image.png

image.png

image.png
 
Grazie Luigi, le tue spiegazioni sono perfette.

Domanda :

Per evidenziare (visivamente) delle formazioni numeriche (ambi, somme, distanze, ecc...) in modo di avere una visione globale sulla schermata delle estrazioni, come si fa ?, anzi so già che attualmente non si può fare, perchè non trovo da nessuna parte.
sarebbe qualcosa di molto utile per tutti quelli che lavorano anche visivamente come me.
Ho provato nel menù evidenzia numeri, si, ti da la visualizzazzione globale, ma ti lascia evidenziare solo numeri da 1 a 90.
sarebbe fantastico poter evidenziare con un click e visualizzare globalmente anche somme,distanze,ecc.. insomma formazioni numeriche magari registrate dall'utente o gia registrate.
io so che tu sei un mago.......:-)
 
esiste la possibilita di disegnare struture i cui nuemeri possano essere legati da corrispondenze tipo somma e robe simili attraverso la valutazione di espressioni definite dall'utente, mi dispiace che non ci sia help ma pazienza ..
 
Ultima modifica di un moderatore:
LuigiB ha scritto:
esiste la possibilita di disegnare struture i cui nuemeri possano essere legati da corrispondenze tipo somma e robe simili attraverso la valutazione di espressioni definite dall'utente, mi dispiace che non ci sia help ma pazienza ..
Clicca per espandere...

No Luigi, sarebbe una cosa lunga e comunque non si può fare come dico io.

Ma mi è venuta un idea che posso farlo con uno script, mostrando a video l'intero arco estrazionale con evidenziato quello che voglio,
in pratica fare una grande tabella, a tal proposito, ti domando se c'è uno script da qualche parte che faccia vedere come si fanno le tabelle in modo che me lo studio.
grazie
 
ciao Lanfranco , si le tabelle si possono fare , ce ne sono diversi che le usano ma non mi ricordo i nomi comunque se vai nella directory degli script di test qualcosa la dovresti torvare
 
Lanfranco se cerchi somme/distanze in orizzontale non è un problema farlo
Esempio:
1°BA+2°BA.. 1°BA+3°BA.. 1°BA+4°BA.. 1°BA+5°BA etc...
1°CA+2°CA... 1°CA+3°CA etc...
in verticale invece, a meno che non sia su 2 ruote a scelta... non riesco ancora
 
Blackmore ha scritto:
Lanfranco se cerchi somme/distanze in orizzontale non è un problema farlo
Esempio:
1°BA+2°BA.. 1°BA+3°BA.. 1°BA+4°BA.. 1°BA+5°BA etc...
1°CA+2°CA... 1°CA+3°CA etc...
in verticale invece, a meno che non sia su 2 ruote a scelta... non riesco ancora
Clicca per espandere...



Ciao Blackmore, non si tratta di solo somme e distanze, ma di qualcosa di più articolato,
nel senso che vorrei poter manovrare lo script a mio piacimento.
spiego :
Innazitutto l'output deve visualizzarmi sullo schermo tutte le estrazioni cosi come da archivio estrazioni in spaziometria, con le date, ruote e numeri. (per capirci), Il classico tabellone estrazionale.

per quello che ho pensato ad uno script con diverse inputbox per poter scegliere di volta in volta tutto quello che mi viene in mente, ma proprio tutto, somme, distanze, vertibili, ambi somma, ambi distanza, somma dei 5 estratti, e tanti altri, per esempio poter visualizzare le formazioni numeriche memorizzate in statistica formazioni o memorizzate dall'utente, insomma più c'è nè meglio è, in modo da avere (VISIVAMENTE) la situazione sotto agli occhi in un colpo solo.
l'ideale sarebbe stato di poter disporre di questo in spaziometria, ma quello che c'è è riduttivo.
Vorrei creare questo script, ma sono ancora in alto mare..........
 
Se è per questo puoi creare più tabelle (una sotto l'altra) nello stesso script
anche perchè dubito (ma non ho la certezza) che si possano mettere
tutte le statistiche che vuoi in una sola, sono tantissime
 
Ciao ho scaricato EvidenzeLotto, ma non è quello che cerco,
nel senso che non evidenzia come voglio io.

Ho già provato in spaziometria, ma L'unica cosa che si avvicina
a quello che voglio è con la lente, ma te lo fa vedere solo
temporaneamente e anche in verticale che mi crea confusione.

Io invece vorrei che quello che evidenzio sia mostrato in maniera permanente
su tutto il tabellone estrazionale e per tutte le estrazioni.


solo in modo ORIZZONTALE (classico) ho evidenziato manualmente tutte le coppie di somma90
( la somma90 è solo d'esempio.....)
premendo un bottone mi dovrebbero apparire tutte le combinazioni scelte di volta in volta,
anche scorrendo le estrazioni all'indietro.
è chiaro che se voglio visionare le somme, devono apparire solo le somme o se voglio
le distanze devono apparire solo le distanze, o qualsiasi cosa si sia scelto di evidenziare.

Avendo così una visione globale e non circoscritta.


Metto qui un esempio banale


sxi06g.jpg
 
benissimo .. ora vediamo cosa ti esce provando a fare uno script ..Ragazzi gli script oltre che per i metodi servono per estendere le funzionalita del programma , tutto sommato uno script che ti fa la tabella e ti evidenzia le coppie di somma 90 non è difficile ....hai provato ?
 
vabbe dai mosso a compassione per tutti i salti mortali che hai gia fatto e per quelli che dovrai ancora fare ho implementato la ricerca delle coppie di somma X
Ciao
 
Intanto grazie per tutto quello che fai.

Sto benedetto script prima o poi lo farò, devo solo capire bene sto fatto delle tabelle.
Tutte quelle che vedo in giro sono in verticale, ma io la voglio in orizzontale tale e quale il tabellone estrazionale che si vede
nell'immagine che ho messo in un post precedente.
Devo imparare.....

Comunque non si tratta solo di somme x o distanze z,

Vorrei fare la cosa molto più allargata, nel senso che non mi voglio far mancare nulla di tutto quello che vorrei evidenziare, nonso se mi spiego....

Piano piano e con le dritte che ricevo sono sicuro di farcela :-)
 
ciao le tabelle sono semplicissime , mica devi sceivere a mano il codice html.

ci sono 3 funzioni che vano adoperate

InitTabella che serve per creare le intestazioni
AddRigaTabella che serve per inserire una nuova riga
CreaTabella che si lancia allla fine dopo aver inserito tutte le righe.

ecco un esempio che tra l'altro sta nella directory script\test

Codice: 
Sub Main
	ReDim aTitoli(3) ' titoli tabella
	Dim k ' controllo cicli
	Dim rt ' ruota
	Dim idEstr 'estrazione inizio analisi
	' imposto l'estrazione sull'ultima disponibile
	idEstr = EstrazioniArchivio
	' faccio scorrere un testo che indica da quale estrazione parte l'analisi
	Call TestoInBandaPassante("Ritardo dei numeri all'estrazione " & GetInfoEstrazione(idEstr))
	' preimposto i titoli delle colonne
	aTitoli(1) = "Numero"
	aTitoli(2) = "Ruota"
	aTitoli(3) = "Ritardo"
	' inizializzo la tabella
	Call InitTabella(aTitoli,1,,,5)
	' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
	' mano mano aggiungo una nuova riga alla tabella
	

	For rt = 1 To 10 ' ciclo ruote
		For k = 1 To 90 ' ciclo numeri
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(3) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
			aValori(1) = Format2(k) ' numero
			aValori(2) = NomeRuota(rt) ' nome ruota
			aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
			' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
			If aValori(3) >= 0 And aValori(3) <= 30 Then
				Call AddRigaTabella(aValori,Verde_,"right")
			ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
				Call AddRigaTabella(aValori,Giallo_,"right")
			ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
				Call AddRigaTabella(aValori,Magenta_,"right")
			ElseIf aValori(3) > 80 Then
				Call AddRigaTabella(aValori,Rosso_,"right")
				Call SetColoreCella(3,vbYellow,vbRed)
			End If
		Next
	Next
	' ora che ho terminato l'analisi e ho finito di accodare le righe
	' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
	'Call CreaTabella(3,,,,1) ' alimenta da sinistra a destra
	Call CreaTabella(3) ' alimenta dall'alto in basso
End Sub
 
ciao le tabelle sono semplicissime , mica devi sceivere a mano il codice html.

ci sono 3 funzioni che vano adoperate

InitTabella che serve per creare le intestazioni
AddRigaTabella che serve per inserire una nuova riga
CreaTabella che si lancia allla fine dopo aver inserito tutte le righe.

ecco un esempio che tra l'altro sta nella directory script\test

Codice: 
Sub Main
	ReDim aTitoli(3) ' titoli tabella
	Dim k ' controllo cicli
	Dim rt ' ruota
	Dim idEstr 'estrazione inizio analisi
	' imposto l'estrazione sull'ultima disponibile
	idEstr = EstrazioniArchivio
	' faccio scorrere un testo che indica da quale estrazione parte l'analisi
	Call TestoInBandaPassante("Ritardo dei numeri all'estrazione " & GetInfoEstrazione(idEstr))
	' preimposto i titoli delle colonne
	aTitoli(1) = "Numero"
	aTitoli(2) = "Ruota"
	aTitoli(3) = "Ritardo"
	' inizializzo la tabella
	Call InitTabella(aTitoli,1,,,5)
	' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
	' mano mano aggiungo una nuova riga alla tabella
	

	For rt = 1 To 10 ' ciclo ruote
		For k = 1 To 90 ' ciclo numeri
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(3) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
			aValori(1) = Format2(k) ' numero
			aValori(2) = NomeRuota(rt) ' nome ruota
			aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
			' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
			If aValori(3) >= 0 And aValori(3) <= 30 Then
				Call AddRigaTabella(aValori,Verde_,"right")
			ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
				Call AddRigaTabella(aValori,Giallo_,"right")
			ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
				Call AddRigaTabella(aValori,Magenta_,"right")
			ElseIf aValori(3) > 80 Then
				Call AddRigaTabella(aValori,Rosso_,"right")
				Call SetColoreCella(3,vbYellow,vbRed)
			End If
		Next
	Next
	' ora che ho terminato l'analisi e ho finito di accodare le righe
	' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
	'Call CreaTabella(3,,,,1) ' alimenta da sinistra a destra
	Call CreaTabella(3) ' alimenta dall'alto in basso
End Sub
 
Lanfranco60 ha scritto:
Intanto grazie per tutto quello che fai.

Sto benedetto script prima o poi lo farò, devo solo capire bene sto fatto delle tabelle.
Tutte quelle che vedo in giro sono in verticale, ma io la voglio in orizzontale tale e quale il tabellone estrazionale che si vede
nell'immagine che ho messo in un post precedente.
Devo imparare.....

Comunque non si tratta solo di somme x o distanze z,

Vorrei fare la cosa molto più allargata, nel senso che non mi voglio far mancare nulla di tutto quello che vorrei evidenziare, nonso se mi spiego....

Piano piano e con le dritte che ricevo sono sicuro di farcela :-)
Clicca per espandere...

Un volta capito il meccanismo, diventa tutto più facile
Se ci sono riuscito io... fidati che possono riuscirci in tanti
Ciao
 
Ciao Luigi e Blackmore


vi ringrazio, ma non sò perchè mi risulta ostico, certe cose le ho capite e
certe non mi vogliono entrare in testa.
Sapete che l'ipotetico potenziale da parte mia c'è e l'impegno anche.
Sto fatto di verticale e orizzontale che non capisco......
A tal fine chiedo una cosa che mi chiarisca iltutto.


Mi potete fare uno script che replica in tabella in modo esatto l'immagine sotto
con le 3 estrazioni, con colori consoni e che mi evidenzi una somma X qualsiasi,
in modo che mi schiarisca l'idee una volta per tutte ?

Grazie




ibcgw0.jpg
 
Ciao ...

dai un occhiata a questo ... che se necessario deve essere ridotto alla ruota singola, e non al quadro esteso.

Non so.

Codice: 
'Somma ENNE Adiacente in Quadro-Esteso // Beta-Estesa-Quadro By Joe
Sub Main 
Dim E(56) : N = 90
Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
Titoli
For Es = Ini To fin
	K = 0
	Scrivi "|" & DataEstrazione(Es) & "|",1,0
	For R = 1 To 12 : If R = 11 Then R = 12
		For P = 1 To 5
			K = K + 1
			E(K) = Estratto(Es,R,P)
	 	Next
	Next

	For X = 1 To 55
		If E(X) + E(X + 1) = N Then ColoreTesto 2 : Gr = 1
		If E(X - 1) + E(X) = N Then ColoreTesto 2 : Gr = 1
		
			Scrivi Format2(E(X)),GR,0 : ColoreTesto 0 : Gr = 0

		If X/5 = X\5 Then
			Scrivi "|",1,0
		Else
			Scrivi ".",0,0
		End If
	Next : Scrivi
Next
Titoli
End Sub

Sub Titoli
Scrivi "|   DATA   |",1,0
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi FormatSpace(NomeRuota(R),14) & "|",1,0
Next : Scrivi
End Sub

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 ottobre 2024
    Bari
    66
    07
    78
    48
    60
    Cagliari
    26
    14
    56
    69
    89
    Firenze
    11
    82
    02
    09
    32
    Genova
    43
    20
    47
    01
    17
    Milano
    24
    78
    05
    38
    72
    Napoli
    05
    16
    49
    87
    02
    Palermo
    18
    54
    24
    76
    46
    Roma
    03
    62
    01
    84
    34
    Torino
    35
    29
    08
    61
    09
    Venezia
    30
    20
    60
    66
    45
    Nazionale
    77
    22
    53
    90
    89
    Estrazione Simbolotto
    18
    24
    45
    29
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto