Domanda per scripters di spaziometria

lotto_tom75 · 1 Febbraio 2014

Ops ...no.

Mi informo.

Ho sostituito lo script ma forse ho commesso qualche errore ...

... per cui ... e per evitare confusione, ho cancellato il vecchio ... e lo ripeto qui di seguito.

con qualche ulteriore piccolissima modifica.

(Ove ad oggi, sono necessarie 50 Estrazioni per arrivare alla una Freq 8 (nera))

Codice:

Sub Main
	Dim Nu(90,12),Ns : Q = 50 ' Quantità Estrazioni Considerate
	Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe.  Legenda : ",1,0
	'Legenda :
	For C = 1 To 8 : ColoreTesto FuoriX  (C,8) : Scrivi "Freq = " & C & Space(2),1,0 : Next : Scrivi : Scrivi
	ScegliNumeri Ns : Ub = UBound(Ns)
	'Raccolata dati:
	Ini = EstrazioneFin-(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni
	For Es = Ini To Fin
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
			Next
		Next
	Next
	'Visualizzazione "per Ruote" e "Frequenza nel Periodo".
	For R = 1 To 12 : If R = 11 Then R = 12
		ColoreTesto 0 : Scrivi SiglaRuota(R) & "  ",1,0
		For E = 1 To 90
			For X = 1 To Ub
				If Ns(X) = E Then
					If Nu(E,R) > 0 Then ColoreTesto FuoriX (Nu(E,R),8) : Scrivi Format2(E) & " ",1,0
				End If
			Next
		Next : Scrivi
	Next : Scrivi
End Sub

Very Beautiful!

L'unica cosa che rimarrebbe adesso... sarebbe sostituire la freq cinque (colore bianco) con qualche altro colore rimasto... e piu' visibile... (ad esempio un blu...) ma credo di aver capito che in un precedente tuo post hai detto non sia possibile e di provare semmai a cambiare lo sfondo... a spaziometria sezione script lato output... Ad essere sinceri rimarrebbe un'alra cosa ovvero implementare queste tue due ultime chicche nella prima (quella che faceva anche il resoconto ruota per ruota per intenderci...)

Per quanto riguarda l' "Ops ...no. Mi informo." ri riferisci a GR o a dynamo? O ad entrambi?

Ciaooo

Joe91 · 1 Febbraio 2014

Ciao Tom,

Cortesemente, mettimi la copia del file che vuoi farmi modificare e riassumi sinteticamente le richieste.

Per il colore non sono dell'idea di avere "due blu" uno che "vale 1" e "l'altro 5".

Meglio cambiare il colore dello sfondo. Oppure "... - - - ..." (anche se non si dovrebbe) non ho detto che non si possa.

GR ... mi incuriosisce di più, Dmax si ... Dmax sembra essere l'illusione, che pur inspiegabile ... si sa,

che non può essere che il frutto di un artificio ridotto ad un trucco.

Domanda biricchina: Perchè dovrei studiarmi io ... la gestione extra dei colori e non tu stesso ?

Buona Domenica a tutte/i.

lotto_tom75 · 2 Febbraio 2014

Certo carissimooo! Ci mancherebbe!

Il mixage di script cui anelerei sarebbe questo:

TUO A

Questo

Codice:

Sub Main
'Controllo Presenze / Estrazioni V.3.0 By Joe 
	Dim Nu(90,12) 
	'Quantità Estrazioni Considerate  
	Q = CInt(InputBox("Es: 9","Quantità Estrazioni",9))
	Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe. Legenda: ",1,0 
		
	'Legenda :
	For C = 1 To 7 : ColoreTesto C : Scrivi "Freq = " & C & Space (2),1,0 : Next : Scrivi : Scrivi : ColoreTesto 0
	
	'Numero_Estratti_Teorico 
	Scrivi "NET ",1,0 : For K = 1 To 5*(1 -(17/18)^Q)/(1 -(17/18)) : Scrivi Format2(K) & " ",1,0 : Next : Scrivi
	
	'Raccolata dati:
	Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni
	For Es = Ini To Fin 
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
			Next
		Next
	Next
		
	'Visualizzazione "per Ruote" e "Frequenza nel Periodo".
	For R = 1 To 12 : If R = 11 Then R = 12 'Per Ogni Ruota
		ColoreTesto 0 : Scrivi SiglaRuota(R) & "  ",1,0
		For E = 1 To 90 'Per Ogni Numero
			If Nu(E,R) > 0 Then ColoreTesto(Nu(E,R)) : Scrivi Format2(E) & " ",0,0
		Next : Scrivi	
	Next : Scrivi
	
	'Visualizzazione "per Numero" e "Frequenza nel Periodo".
	For E = 1 To 90 'Per ogni Estratto
	Co = 0 'Azzera Contatore_Orizzontale
		ColoreTesto 0 : Scrivi Format2(E) & "  ",1,0 'Estratto
		For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota
			If Nu(E,R) > 0 Then 'Controlla se c'erano presenze.
			 ColoreTesto(Nu(E,R)) : Scrivi SiglaRuota(R) & " ",1,0
			Else
			 Scrivi "-- ",0,0 ' Caratteri separatori alternativi
			End If
			 ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE
		Next
		Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza
	Next : Scrivi

End Sub

con questo

TUO B

Codice:

Sub Main
	Dim Nu(90,12),Ns : Q = 50 ' Quantità Estrazioni Considerate
	Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe.  Legenda : ",1,0
	'Legenda :
	For C = 1 To 8 : ColoreTesto FuoriX(C,8) : Scrivi "Freq = " & C & Space(2),1,0 : Next : Scrivi : Scrivi
	ScegliNumeri Ns : Ub = UBound(Ns)
	'Raccolata dati:
	Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni
	For Es = Ini To Fin
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
			Next
		Next
	Next
	'Visualizzazione "per Ruote" e "Frequenza nel Periodo".
	For R = 1 To 12 : If R = 11 Then R = 12
		ColoreTesto 0 : Scrivi SiglaRuota(R) & "  ",1,0
		For E = 1 To 90
			For X = 1 To Ub
				If Ns(X) = E Then
					If Nu(E,R) > 0 Then ColoreTesto FuoriX(Nu(E,R),8) : Scrivi Format2(E) & " ",1,0
				End If
			Next
		Next : Scrivi
	Next : Scrivi
End Sub

Per quanto riguarda il colore da cercarmi da solo... OK

lo lascerò bianco... d'altronde è il colore.. che li riassume tutti...

Per quanto riguarda DYNAMO non ne sarei proprio cosi' convinto... (l'hai visto il "trucco" di tonnellate di pesci dal secchio rosso vuoto?) A me ricorda vagamente qualcosa... Per quanto riguarda GR fammi sapere quello che hai trovato... altrimenti se non risolvi il piccolissimo rebus... ti rivelerò...

il nome cui mi riferisco così potrai riscontrare o meno delle similitudini tra quanto da te espresso nei post precedenti e quanto da lui detto in passato...

Ciao grandissimo Buona Domenica e a presto su questi schermi

Ancora GRAZIEEE By un fan di dynamo

Joe91 · 2 Febbraio 2014

Ciao Tom ...

ti dicevo che Spaziometria è potentissima ... in questo aspetto.

Mi ricorda, il primordiale vecchio AppleSoft ... ( quello del ][GS )

ed i primi monitor a colori, ove era possibile superare i nostalgici fosfori-verdi e/o i rari, ambra,

stabilendo noi finalmnete il colore del testo e dello sfondo.

Come vedi ... basta volerlo.

Codice:

Sub Main
Bg = 180 
For c = 1 To 8 
	Scrivi " Colore = " & C & " ",1,0,RGB(bg,bg,bg),FuoriX(c,8)
	Scrivi " ",0,0
	Next
End Sub

Però si perde la compatibilità ( Forse. Dovrei controllare ... o attendere le lamentele),

ma si mantengono intatti i colori ... con il significato che di loro ho imparato a leggere.

Oppure, si potrebbe utilizzare una scala del tipo quella dei temometri a strip.

Quelli che alcuni chiamano a cristalli liquidi ... (e che non sono gli LCD)

ove i colori non sono ben definiti ... ma formano una nuance continua che tuttavia è "una scala".

Qui avrei creato quella per 10 valoriche variano con una quasi con continuità

dal blu di una frequenza (fredda) al rosso di quella (calda) che si è presentata 10 volte.

Codice:

Sub Main

	Dim k
	Dim aValori(1)
	Dim aColori(1)
	For k = 1 To 10
		aValori(1) = Format2(k)
		aColori(1) = RGB((k*25),0,250 -(k*25))
		Call ScriviConColori(aValori,aColori,1)
	Next
	
End Sub

Buona Domenica

Joe91 · 2 Febbraio 2014

Buon giorno a tutte/i.

Tra le due prospettive ipotizzate,

ho deciso di mantenere lo script il più simile a quello che era.

Ovvero di lasciarlo con gli 8 colori-base.

Ho forzato un colore grigio di BackGround a tutti i caratteri

perchè alcuni di essi potrebbero non essere visti sul default bianco.

A chi non piace ... potrà scrivere "Bg = 255" e tutto torna QUASI come prima.

Ove il colore bianco torna a mimetizzarsi.

Codice:

Sub Main
'Controllo Presenze / Estrazioni V.3.1 By Joe 
	Dim Nu(90,12) : Bg = 190 'BackGruoud Grigio 
	'Quantità Estrazioni Considerate  
	Q = 9 : Q =  CInt(InputBox("Es: " & Q,"Quantità Estrazioni",Q)) 
	Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe. Legenda: ",1,0 
		
	'Legenda :
	For C = 1 To 8 
		Scrivi "Freq = " & C & Space (2),1,0,RGB(Bg,Bg,Bg),FuoriX(C,8) 
	Next : Scrivi : Scrivi : ColoreTesto 0
	
	'Numero_Estratti_Teorico 
	Scrivi "NET ",1,0 : For K = 1 To 5*(1 -(17/18)^Q)/(1 -(17/18)) : Scrivi Format2(K) & " ",1,0 : Next : Scrivi
	
	'Raccolata dati:
	Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni
	For Es = Ini To Fin 
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
			Next
		Next
	Next
		
	'Visualizzazione "per Ruote" e "Frequenza nel Periodo".
	For R = 1 To 12 : If R = 11 Then R = 12 'Per Ogni Ruota
		ColoreTesto 0 : Scrivi SiglaRuota(R) & "  ",1,0
		For E = 1 To 90 'Per Ogni Numero
			If Nu(E,R) > 0 Then Scrivi Format2(E) & " ",1,0,RGB(Bg,Bg,Bg),FuoriX(Nu(E,R),8) 
		Next : Scrivi	
	Next : Scrivi
	
	'Visualizzazione "per Numero" e "Frequenza nel Periodo".
	For E = 1 To 90 'Per ogni Estratto
	Co = 0 'Azzera Contatore_Orizzontale
		ColoreTesto 0 : Scrivi Format2(E) & "  ",1,0 'Estratto
		For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota
			If Nu(E,R) > 0 Then 'Controlla se c'erano presenze.
			  Scrivi SiglaRuota(R) & " ",1,0,RGB(Bg,Bg,Bg),FuoriX(Nu(E,R),8) 
			Else
			 Scrivi "-- ",0,0 ' Caratteri separatori alternativi
			End If
			 ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE
		Next
		Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza
	Next : Scrivi

End Sub

Buona serata.

Joe91 · 2 Febbraio 2014

Sitemata (anche qui si fa per dire)

la questione del "TUO A" ...

appare evidente che " B " è "una costola" di " A ".

Quindi è utile riunire i due script ... completandoli vicendevolmente.

Si possono selezionare tutti i numeri ...e la ricerca li utilizzerà tutti.

Oppure scegliere ... uno ad uno ... quelli che si vogliono controllare.

Ciò ha reso necessario variare anche il calcolo del NET ... come ho fatto.

A noi :

Codice:

Sub Main
	'Controllo Presenze / Estrazioni V.4.0 Beta*Test Alba 02/02/2014 By Joe
	Dim Nu(90,12),Ns : Bg = 190 'BackGruoud Grigio
	'Quantità Estrazioni Considerate
	ScegliNumeri Ns : Ub = UBound(Ns)
	Q = 9 : Q = CInt(InputBox("Es: " & Q,"Quantità Estrazioni",Q))
	Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe. Legenda: ",1,0
	'Legenda :
	For C = 1 To 8
		Scrivi "Freq = " & C & Space(2),1,0,RGB(Bg,Bg,Bg),FuoriX(C,8)
	Next : Scrivi : Scrivi : ColoreTesto 0
	'Numero_Estratti_Teorico
	Scrivi "NET ",1,0 : For K = 1 To 5*(1 -(17/18)^Q)/(1 -(17/18))* Ub / 90 : Scrivi Format2(K) & " ",1,0 : Next : Scrivi
	'Raccolata dati:
	Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni
	For Es = Ini To Fin
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
			Next
		Next
	Next
	'Visualizzazione "per Ruote" e "Frequenza nel Periodo".
	For R = 1 To 12 : If R = 11 Then R = 12 'Per Ogni Ruota
		ColoreTesto 0 : Scrivi SiglaRuota(R) & "  ",1,0
		For E = 1 To 90 'Per Ogni Numero
			For X = 1 To Ub 'Del Gruppo Selezionato
				If Ns(X) = E Then
					If Nu(E,R) > 0 Then Scrivi Format2(E) & " ",1,0,RGB(Bg,Bg,Bg),FuoriX(Nu(E,R),8)
				End If
			Next
		Next : Scrivi
	Next : Scrivi
	'Visualizzazione "per Numero" e "Frequenza nel Periodo".
	For E = 1 To 90 'Per ogni Estratto
		Co = 0 'Azzera Contatore_Orizzontale
		For X = 1 To Ub 'Del Gruppo Selezionato
			If Ns(X) = E Then
				ColoreTesto 0 : Scrivi Format2(E) & "  ",1,0 'Estratto
				For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota
					If Nu(E,R) > 0 Then 'Controlla se c'erano presenze.
						Scrivi SiglaRuota(R) & " ",1,0,RGB(Bg,Bg,Bg),FuoriX(Nu(E,R),8)
					Else
						Scrivi "-- ",0,0 ' Caratteri separatori alternativi
					End If
					ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE
				Next
				Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza
			End If
		Next
	Next : Scrivi
End Sub

lotto_tom75 · 4 Febbraio 2014

Joe91 ha scritto:

Sitemata (anche qui si fa per dire)

la questione del "TUO A" ...

appare evidente che " B " è "una costola" di " A ".

Quindi è utile riunire i due script ... completandoli vicendevolmente.

Si possono selezionare tutti i numeri ...e la ricerca li utilizzerà tutti.

Oppure scegliere ... uno ad uno ... quelli che si vogliono controllare.

Ciò ha reso necessario variare anche il calcolo del NET ... come ho fatto.

A noi :

Codice:

Sub Main
	'Controllo Presenze / Estrazioni V.4.0 Beta*Test Alba 02/02/2014 By Joe
	Dim Nu(90,12),Ns : Bg = 190 'BackGruoud Grigio
	'Quantità Estrazioni Considerate
	ScegliNumeri Ns : Ub = UBound(Ns)
	Q = 9 : Q = CInt(InputBox("Es: " & Q,"Quantità Estrazioni",Q))
	Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe. Legenda: ",1,0
	'Legenda :
	For C = 1 To 8
		Scrivi "Freq = " & C & Space(2),1,0,RGB(Bg,Bg,Bg),FuoriX(C,8)
	Next : Scrivi : Scrivi : ColoreTesto 0
	'Numero_Estratti_Teorico
	Scrivi "NET ",1,0 : For K = 1 To 5*(1 -(17/18)^Q)/(1 -(17/18))* Ub / 90 : Scrivi Format2(K) & " ",1,0 : Next : Scrivi
	'Raccolata dati:
	Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni
	For Es = Ini To Fin
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
			Next
		Next
	Next
	'Visualizzazione "per Ruote" e "Frequenza nel Periodo".
	For R = 1 To 12 : If R = 11 Then R = 12 'Per Ogni Ruota
		ColoreTesto 0 : Scrivi SiglaRuota(R) & "  ",1,0
		For E = 1 To 90 'Per Ogni Numero
			For X = 1 To Ub 'Del Gruppo Selezionato
				If Ns(X) = E Then
					If Nu(E,R) > 0 Then Scrivi Format2(E) & " ",1,0,RGB(Bg,Bg,Bg),FuoriX(Nu(E,R),8)
				End If
			Next
		Next : Scrivi
	Next : Scrivi
	'Visualizzazione "per Numero" e "Frequenza nel Periodo".
	For E = 1 To 90 'Per ogni Estratto
		Co = 0 'Azzera Contatore_Orizzontale
		For X = 1 To Ub 'Del Gruppo Selezionato
			If Ns(X) = E Then
				ColoreTesto 0 : Scrivi Format2(E) & "  ",1,0 'Estratto
				For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota
					If Nu(E,R) > 0 Then 'Controlla se c'erano presenze.
						Scrivi SiglaRuota(R) & " ",1,0,RGB(Bg,Bg,Bg),FuoriX(Nu(E,R),8)
					Else
						Scrivi "-- ",0,0 ' Caratteri separatori alternativi
					End If
					ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE
				Next
				Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza
			End If
		Next
	Next : Scrivi
End Sub

Superlativo!

Ma hai trovato nulla riguardo a GR e DYNAMO?

Ps: Ho notato che il report del tuo spettacolare script si copia e incolla in excel in modo semplicissimo e quindi lo sfondo... poi non è + un problema...

Joe91 · 7 Febbraio 2014

Ola Tom_

Su Dynamo t'ho gia risposto.

Comunque sia è facile:

Per GR ... è troppo generico o troppo particolare ...

ci vogliono più dettagli per capire meglio ... cosa intendi.

lotto_tom75 · 7 Febbraio 2014

Joe91 ha scritto:
Ola Tom_

Su Dynamo t'ho gia risposto.

Comunque sia è facile:

Per GR ... è troppo generico o troppo particolare ...

ci vogliono più dettagli per capire meglio ... cosa intendi.

E' facile cosa?

Per quanto riguarda GR = Gustavo Adolfo Rol mentalista sensitivo

Asta luego Joe

Joe91 · 8 Febbraio 2014

Vedi Tom ...

... mancava una "A" molto importante proprio nel bel mezzo di "GR".

Ed è quello che permettere di distinguere tra loro i "soggetti" identici ...

ma che che sono differenti, dagli altri inAnimati.

Non è cosa da poco!

Tantomeno, un gioco di prestigio.

Un esempio ... nel tuo saluto ...

forse proprio perchè l'hai lasciato per ultimo,

secondo la mia filosofia ciò che è più importante... è " ... a Te",

che distinge da un saluto ... "generico" non lo si può togliere ... senza stravolgerne il significato.

lotto_tom75 · 8 Febbraio 2014

Joe91 ha scritto:
Vedi Tom ...

... mancava una "A" molto importante proprio nel bel mezzo di "GR".

Ed è quello che permettere di distinguere tra loro i "soggetti" identici ...

ma che che sono differenti, dagli altri inAnimati.

Non è cosa da poco!

Tantomeno, un gioco di prestigio.

Un esempio ... nel tuo saluto ...

forse proprio perchè l'hai lasciato per ultimo,

secondo la mia filosofia ciò che è più importante... è " ... a Te",

che distinge da un saluto ... "generico" non lo si può togliere ... senza stravolgerne il significato.

Ciao joe, ho capito che non lo trovavi per la mancanza della A ... ma tutto il resto... nisba...

Cerca

Cerca

Domanda per scripters di spaziometria

lotto_tom75

Advanced Premium Member

Joe91

Advanced Member >PLATINUM PLUS<

lotto_tom75

Advanced Premium Member

Joe91

Advanced Member >PLATINUM PLUS<

Joe91

Advanced Member >PLATINUM PLUS<

Joe91

Advanced Member >PLATINUM PLUS<

lotto_tom75

Advanced Premium Member

Joe91

Advanced Member >PLATINUM PLUS<

lotto_tom75

Advanced Premium Member

Joe91

Advanced Member >PLATINUM PLUS<

lotto_tom75

Advanced Premium Member

Ultima estrazione Lotto

Ultimi Messaggi