SPAZIOMETRIA di Luigi e Baffoblu 15° POST

[ANGIE1911]

Caro Dumbo


Scusa ma mi è capitato di vedere che hai segnalato errori a non finire
un continuum...


Ma non è che per caso è proprio il tuo PC che soffre di qualcosa di suo?
Chiamare il medico?

Difficilmente ho letto di persone con tale mole di segnalazioni


Hasta la vista

I disegni dell'universo nei numeri

 

[fillotto]

Ciao Luigi Mail x te fill

 

[fillotto]

Grazie Luigi ho istallato la 1.80 tutto OK !!
fill

 

[stef]

quote:Originally posted by LuigiB

Per STEF scarica l'ultimo aggiornamento 1.1.80 che ho dovuto fare una correzione

Tutto ok, grazie

 

[imported_n/a]

quote:Originally posted by ANGIE1911

Caro Dumbo


Scusa ma mi è capitato di vedere che hai segnalato errori a non finire
un continuum...


Ma non è che per caso è proprio il tuo PC che soffre di qualcosa di suo?
Chiamare il medico?

Difficilmente ho letto di persone con tale mole di segnalazioni


Hasta la vista

I disegni dell'universo nei numeri

non ho capito.... le segnalazioni esisto anche di altri..

come si corregge l'errore 429 ?
non crea activex o cose del genere

 

[ANGIE1911]

Un errore al giorno CHIAMA il medico di TURNO


PS libera trasposizione ...non avertene a male


I disegni dell'universo nei numeri

 

[oruam]

installata la nuova versione tutto bene,tranne
all'inizio con l'errore 380,sistemato aggiornando
l'archivio,premetto che l'archivio era gia aggiornato
nella versione precedente,non so come ma funziona

 

[ACQUARIO]

HO TROVATO UNO SCRIPT IN GIRO PER LA RETE E' VOLEVO FARLO GIRARE SU SPAZIOMETRIA 1.1.33 MA MI DA ERRORE SULLA LINE 27 MI DICE ARGOMENTO NON VALIDO MID, ORA MOLTO GENTILMENTE CHIEDO A LUIGI SE SI PUO
ADATTARLO TI RINGRAZIO ANTICIPAMENTE
A PS DIMENTICAVO IO IN QUANTO A SCRIPT NON NE CAPISCO NIENTE
'Ruote in Ordine di Velocità
'nel fornire 3 volte estratto il capolista del ritardo.
'Su idea di Genal scritto da Joe91 V.4.0

Sub main()
Dim Nu(12), Eo(12)
Fin = EstrazioneFin : Ini = Fin - 120

For r=1 To 11 : If r=11 Then r=12
K=0 : M=0 : ColoreTesto 0
'Scrivi SiglaRuota (R) & " ",1,0
For Es = Ini To Fin

Nu(R) = NumeroPosRit (Es,R,1)

If Nu (r) <> M Then
k=k+1
Redim preserve Pr(K)
Pr(k) = Es
M=Nu (R)

End If

Next

A=StringaNumeri (Pr)
DT = Mid(A,Len(A)-18,4)
'ColoreTesto 1 : Scrivi Format2 (Nu(R)) & " ",1,0
'ColoreTesto 2 : Scrivi DataEstrazione (DT) & " ",0
eo(R)=DataEstrazione(dt)


Next

For Es = Fin To Ini step -1
For r=1 To 11 : If r=11 Then r=12
ColoreTesto 0
If eo(r)= DataEstrazione (Es) Then
Scrivi SiglaRuota(R) & " ",1,0
ColoreTesto 1 : Scrivi Format2 (Nu(R)) & " ",1,0
ColoreTesto 2 : Scrivi DataEstrazione (Es)
End If
Next
Next

End Sub

 

[LuigiB]

Ciao , in questo script c'è un problema ,
La funzione StringaNumeri puo gestire solo numeri da 1 a 90
invece tu gli passi un array che contiene i numeri delle estrazioni che sono nell'ordine delle migliaia ... pertanto la funzione torna stringa vuota ma non perche non funziona ma perche appunto gestisce solo numeri entro il range 1 -90
Per farlo girare in spaziometria devi aggiungere Una funzioen allo script che sostituisca quella che non va bene , in pratica va scritta una funzione che si chiami StringaNumeri2 la quale sia in grado di gestire qualsiasi numero e poi va usata al posto della funzioen stringaNumeri

C'è poi un altro problema e bisognerebbe paralre con chi ha fatto lo script ad ogni modo prova cosi

Sub Main()
	Dim Nu(12),Eo(12)
	Fin = EstrazioneFin : Ini = Fin - 120
	For r = 1 To 11 : If r = 11 Then r = 12
		K = 0 : M = 0 : ColoreTesto 0
		'Scrivi SiglaRuota (R) & " ",1,0
		For Es = Ini To Fin
			Nu(R) = NumeroPosRit(Es,R,1)
			If Nu(r) <> M Then
				k = k + 1
				ReDim Preserve Pr(K)
				Pr(k) = Es
				M = Nu(R)
			End If
		Next
		A = StringaNumeri2(Pr)
		
		DT = Mid(A,1,4)
		'ColoreTesto 1 : Scrivi Format2 (Nu(R)) & " ",1,0
		'ColoreTesto 2 : Scrivi DataEstrazione (DT) & " ",0
		Eo(R) = DataEstrazione(dt)
	Next
	For Es = Fin To Ini Step - 1
		For r = 1 To 11 : If r = 11 Then r = 12
			ColoreTesto 0
			If Eo(r) = DataEstrazione(Es) Then
				Scrivi SiglaRuota(R) & " ",1,0
				ColoreTesto 1 : Scrivi Format2(Nu(R)) & " ",1,0
				ColoreTesto 2 : Scrivi DataEstrazione(Es)
			End If
		Next
	Next
End Sub
Function StringaNumeri2(aNum )
	Dim s
	
	
	For k = 1 To UBound(aNum)
	
		s = s & aNum(k) & "."
	Next
	
	If Len (s) >1 Then 
		StringaNumeri2 = Left(s , Len(s)-1)
	Else
		StringaNumeri2  = ""
	End If
	
End Function

 

[ANGIE1911]

Luigi Carissimo

Mi scoccia un po’ chiedertelo visto che sei appena tornato, ma se puoi fare qualcosa chiederei il tuo aiuto

Io ho provato a fare un appello per poter fare questo tipo di ricerca ma nessuno ha risposto

Abbiamo , come forse avrai letto, una particolarissima situazione a RUOTA
Io ho provato a fare nel mio piccolo un tentativo di ricerca per vedere di trovare un qualche MODELLO DI RIFERIMENTO

Come vedi ho inserito la figura immettendo le semplici condizioni di uguaglianza, anche separando i settori Si tratta di numeri che si ripetono 2 max tre volte e con questi ci sono i numeri liberi
Ma non ottengo risultati

Stasera è uscita a colpo un ottima combinazione!
Sono un po’ scocciata sinceramente (all'anima delli mortacci tua!)[}][}]

Ti chiederei se puoi far qualcosa tu o provando a inserire su EDITOR SPAZIOMETRIA
O provare a fare un tentativo di ricerca storica via script

Se vuoi partecipare a questa cosa sarebbe un precedente importante per noi tutti
ABBIAMO UN'UNICA RUOTA PRECISA CHE NON E’ POCO

I disegni dell'universo nei numeri

 

[claudio8]

Non capisco il perchè di questa tua imprecazione

"Sono un po’ scocciata sinceramente (all'anima delli mortacci tua!)"





claudio

 

[ANGIE1911]

Beh ...Claudio

Se permetti...chiaramente mi sarebbe piaciuto prevederla e vincerla...non ti pare?

Visto che così non è stato...

I disegni dell'universo nei numeri

 

[ACQUARIO]

LUIGI HO PROVATO CON IL COPIA E INCOLLA A COPIARE LO SCRIPT CHE MI HAI FATTO MA NON CAPISCO PERCHE' QUANDO LO COPIO ME LO COPIA TUTTO SU UNA RIGA SOLO E NON COME L'HAI SCRITTO, MI CAPITA ANCHE SU ALTRI SCRIPT, PAZIENZA COMUNQUE VOGLIO RINGRAZIARTI SINCERAMENTE PER AVERMI DEDICATO DEL TUO TEMPO

 

[peppe60]

ciao luigi
volevo segnalare premetto che non mi e' mai capitato
fino alla versione 1.1.78 fin qua installate tutto funzionante
ho scaricato la versione 1.1.79 la installo tutto ok nessun errore rilevato , clicco x aprire il programma e non va non si apre e sembra che imballa tutto il pc, e questo anche con la versione 1.1.80

non so come mai non ho mai avuto problemi nell'installazione ciao

 

[LuigiB]

Angie mica ho capito che ti serve ... comunque io non gioco percio non
sono particolarmente alltento alle situazioni che emergono...
Per Peppe , strano molto molto strano cancella completamente la
directory dei dati del programm e rifai l'ultimo setup ..se l'errore si ripresenta non so che dirti.

 

[pico2005]

Luigi è la prima volta che mi accade, ma non si aggiorna (sia la vers. 79 che l'80) il superenalotto estrazione del 03/01/2011 anche se cambia correttamente l'anno, forse è attaccato al giorno che non essendo il Martedì o.....non lo ritiene valido oppure la prima dell'anno.......solo congetture...che cosa possiamo fare? Forse manca l'aggiornamento manuale? Oppure il cambio dei link validi per l'aggiornamento? Grazie per l'attenzione che vorrai accordarmi.

 

[peppe60]

niente da fare luigi ho cancellato tutto nella cartella directory del programma , ho installato ultima versione , nessun errore rilevato ok , clicco x aprire il programma , mi da un errore ( errore di proprieta ) non capisco ciao

 

[LuigiB]

ciao Peppe , manda una screenshoot del messaggio di errore

 

[peppe60]

ciao luigi non voglio farti perdere tempo ho riprovato
installando ultima versione e al momento che clicco il tastino x far aprire il programma si apre nelle dimensioni piccole ,
e rimane cosi' bloccandosi , e non posso piu' fare niente

voldire che aspetto qualche altra versione magari andra' meglio
ciao luigi e grazie

 

[ANGIE1911]

PER LUIGI


OK LUIGI CERCHERO DI ESSERE PIU’ CHIARA

1) Ho un area
Quest’area si compone di numeri usciti 1 volta, 2 volte e 3 volte
DESIDERO FARE UN ANALISI DI QUEST'AREA
SCOPRIRE CASI ANALOGHI
OSSERVARNE IL COMPORTAMENTO
Sia attraverso EDITOR sia attraverso SCRIPT

A) (Vedi foto 1 )
I numeri che vanno dall 1 al 27 sono presenti 1 volta
I numeri che vanno dal 28 al 36 sono ciascuno presenti 3 volte
I restanti numeri che vanno dal 37 al 60 sono infine presenti ciascuno 2 volte

Come si compone la stringa per delineare questa figura?


B) Secondo. Mi preme in particolare verificare questi due BLOCCHI (foto 2)

BLOCCO 1 che si compone
14 17 18 31 32 33 34 35 46 47 49 50
Qui abbiamo
17 18 14 pres 1 volta
31 32 33 pres 3 volte
46 47 49 50 presenti 2 volte
Ma poi c e il 35 34 che nel blocco è si presente 2 volte ma nell' area complessiva 3 in tutto ( 34 35 36 )

3 ) BLOCCO 2
1 2 3 4 5 9 11 12 13 28 29 36 38 39 40 41 44 45

ma se capiamo la procedura poi si può vedere questo
Spero di essere stata chiara[8)]


FOTO1

FOTO 2

I disegni dell'universo nei numeri