PROGRAMMA SPAZIOMETRIA

[salvo50]

La provo subito.

Grazie

 

[vincenzo4221]

Ciao Joe , ma qual'è lo script di cui si discute? ,ciao vi

 

[salvo50]

Ciao Vincenzo!
Uno script qualunque in cui vuoi inserire la funzione fuori91.
Scusa Joe se ho risposto a tuo posto, ciao!

 

[MatematikLotto]

excel 2010

excel 2010

Perdonatemi... reinserisco il mio post pure qui, anche se non centra nulla....ma per avere una risposta rapida le provo tutte .

Come si fa con Excel a scompattare una formazione numerica in formazioni più piccole???'''' Esempio per chiarire: sei numeri come si "scompattano" in 20 terzine? oppure in 15 coppie?? Grazie in anticipo e sempre sulla fiducia . Ciao

 

[giluge]

x matematik

scusa ma non puoi usare il programma spaziometria?
sempre se ho capito cio' che vorresti

apri sistemi condizionati
scegli i sei numeri che vuoi e poi chiedi lo sviluppo in terzine o ambi

01 02 03
01 02 04
01 02 05
01 02 06
01 03 04
01 03 05
01 03 06
01 04 05
01 04 06
01 05 06
02 03 04
02 03 05
02 03 06
02 04 05
02 04 06
02 05 06
03 04 05
03 04 06
03 05 06
04 05 06

ambi
01 02
01 03
01 04
01 05
01 06
02 03
02 04
02 05
02 06
03 04
03 05
03 06
04 05
04 06
05 06

 

[MatematikLotto]

Per Giluge

Grazie per il tentataivo... fatto questo, posso e come, esportarlo in excel? Mi serve in Excel! Tu hai nozioni? Cavolo! in tutte le guide che vi sono in internet nessuna tratta casi simili....

 

[giluge]

allora io non sono una cima

ma tu, una volta sviluppato il sistema salvi le colonne con nome. e le puoi anche esportare in file txt e poi copi e incolli su exel.
oppure salva colonne
poi vai su superenalotto, se e' del superenalotto
poi fai statistica formazioni registrate
vedrai due segni piu', di fianco c'e' la figura del lampo, cliccalo

poi inserisci le colonne sviluppate o formazioni
una volta che vedi tutte le colonne ecc tramite il simbolo v fai la statistica
un po' piu' avanti del simbolo fulmine trovi una x, cliccala e chiedi di esportare il file in excel
scusa se non sono stato molto chiaro ma io faccio cosi

xluigib
perdona i miei strafalcioni

 

[MatematikLotto]

Grazie ancora giluge, ma mi interessa fare il tutto con excel (anche per "cultura personale") e, immettendo nel motore di ricerca il termine giusto "sviluppo" e non scompattare come continuavo a fare, da internet è arrivato il suggerimento...

Ciao

 

[giluge]

ciao
allora io non so che altro dirti, mi spiace
excel lo so usare malissimo
non so se puo' fare la funzione che cerchi, da profano dico di no

 

[LuigiB]

Ciao a tutti , sono contento di constatare che spaziometria è talmente famoso
che la gente viene in questo thread a fare domande che non c'entrano nulla
"per fare prima" ... e c'è chi gli va pure appresso.
Tralasciando questi comportamenti che denotano mancanza di rispetto e che voglio sperare
siano dovuti all'ignoranza rispetto all'uso della netiquette veniamo a noi.
Nella nuova versione come mi ha chiesto Joe ho modificato la funzione AGENDA GIOCATE
riscrivendola completamente ,per chi la usa do delle brevi informazioni
le giocate fatte nel vecchio formato saranno automaticamente convertite al nuovo
L'interrfaccia della finestra della nuova agenda è personalizzabile , si possono
cambiare le dimensioni delle liste in altezza e larghezza e delle colonne delle liste
tutte le impostazioni della funzione sono salvate automaticamente
Ho inserito due funzioni negli script in grado di aggiungere giocate
all'agenda , anche se le funzioni che gia esistevano e che creavano giocate nel
vecchio formato possono essere ancora usate visto che come detto le giocate
"vecchio tipo" vengono convertite.
Dato che la logica consiste nell'avere una giocata contenente diverse lunghette
di vario tipo giocate per varie sorti e su varie ruote , possiamo pensare alla giocata
come un contenitore , un contenitore di lunghette , quindi la prima funzione da usare
per creare una giocata nell'agenda è

CreaGiocataAgenda (sNomeGiocata,idEstr,sNota)

come si vede ha 3 parametri
sNomeGiocata il nome per la giocata che sarà anche il nome del file nel quale la giocata viene registrata
idEstr ovvero l'indice della prima estrazione in gioco
sNota ovvero una nota scritta da noi


un avolta usata questa funzione , è possibile usare la funzione AddLunghettaInGiocata
che aggiungera alla giocata la lunghetta voluta per la sorte voluta. E' possibile giocare
la stessa lunghetta su sorti diverse contemporaneamente.
Tutte le lunghette iniziano il gioco all'estrazione stabilita nel contenitore ma
ognuna di loro ha un numero di colpi indipendente e una sorte di uscita indipendente.
Eventualmente si puo anche impostare che al verificarsi di una sorte inin una qualsiasi delle lunghette
anche il gioco di tutte le altre appartenenti alla stessa giocata debba essere bloccato.
Si rimanda all'help degli script per la spiegazione dei parametri .

ora due esempi , il primo semplice mostra come creare uan giocata e aggingere lunghette
il secondo crea n giocate con n lunghette per ciascuna il tutto in modo casuale
oltre ad essere un esempio per voi mi è servito per inserire un qantitativo
di giocate per fare i test.

Joe fammi sapere se riscontri errori


Per Rubino

La statisticaFormazioni ora accetta anche le posizioni (array boolean di 5 elementi ), fai le prove perche io non le ho fatte , vedi se va bene


Per giulge

ora le colonne filtro le puoi importare da txt , naturalmente piu condizioni metti piu è lento lo sviluppo
si possono mettere fino a 2000 condizioni

Option Explicit
Sub Main
	Dim sNomeGiocata
	Dim sNota
	Dim idEstr
	Dim k
	ReDim aRuote(3)
	
	sNomeGiocata = "Prova"
	sNota = "Prova crea giocata"
	idEstr = EstrazioniArchivio - 100
	' verra crata una giocata con due lunghette
	' la prima lunghetta da 10 numeri da giocare per terno e quaterna
	' la seconda  lunghetta da 5 numeri da giocare per ambo
	' nel caso esca la quaterna sulla prima lunghetta tutte le sucessuve giocate di tutte
	' le lunghette verranno bloccate
	' crea la giocata col nome voluto
	If CreaGiocataAgenda 	(sNomeGiocata,idEstr,sNota) Then
		' imposta le ruote in gioco
		aRuote(1) = BA_
		aRuote(2) = CA_
		aRuote(3) = NZ_
		' crea una lunghetta da giocare da 10 numeri
		Call InitGenNumUnivoci
		ReDim aNum(10)
		For k = 1 To 10
			aNum(k) = GetNumeroUnivoco
		Next
		' calcola la progressione per terno
		ReDim aPoste(0)
		Call GetVettoreProgressione 	(10,3,3,10,aPoste)
		' aggiunge la lunghetta da giocare per terno alla giocata
		Call AddLunghettaInGiocata 	(sNomeGiocata,aNum,aPoste,aRuote, 3)
		' calcola la progressione per quaterna
		ReDim aPoste(0)
		Call GetVettoreProgressione 	(10,4,3,10,aPoste)
		' aggiunge la lunghetta da giocare per quaterna alla giocata
		Call AddLunghettaInGiocata 	(sNomeGiocata,aNum,aPoste,aRuote,4,4,True)
		' crea una lunghetta da giocare da 5 numeri
		Call InitGenNumUnivoci
		ReDim aNum(5)
		For k = 1 To 5
			aNum(k) = GetNumeroUnivoco
		Next
		' calcola la progressione per ambo
		ReDim aPoste(0)
		Call GetVettoreProgressione 	(5,2,3,15,aPoste)
		' aggiunge la lunghetta da giocare per ambo alla giocata
		Call AddLunghettaInGiocata 	(sNomeGiocata,aNum,aPoste,aRuote,2)
	End If
End Sub

Option Explicit
Sub Main
	Dim sNomeGiocata
	Dim sNota
	Dim idEstr,idLunghetta
	Dim k
	Dim n
	Dim nQRuote,nQNum,nQLunghette
	Dim nSorte,nColpi
	Dim nMaxGiocate
	
	nMaxGiocate = 100 ' crea 100 giocate casuali
	
	For n = 1 To nMaxGiocate
		sNomeGiocata = "prova_" & FormattaStringa(n,"0000")
		sNota = "Prova crea giocata " & n
		idEstr = NumeroCasuale(EstrazioniArchivio - 1000,EstrazioniArchivio - 100)
		If CreaGiocataAgenda 	(sNomeGiocata,idEstr,sNota,True) Then
			nQLunghette = NumeroCasuale(1,5) ' x lunghette casuali
			For idLunghetta = 1 To nQLunghette
				' crea l'array delle ruote in gioco
				' le ruote in gioco possono andare da 1 a 5
				' la loro quantita è casuale
				nQRuote = NumeroCasuale(1,5) ' x ruote casuali
				Call InitGenNumUnivoci(1,10)
				ReDim aRuote(nQRuote)
				For k = 1 To nQRuote
					aRuote(k) = GetNumeroUnivoco
				Next
				' crea l'array dei numeri in gioco
				' i numeri in gioco possono andare da 2 a 6
				' la loro quantita è casuale
				nQNum = NumeroCasuale(2,6) ' x numeri casuali
				Call InitGenNumUnivoci
				ReDim aNumInGioco(nQNum)
				For k = 1 To nQNum
					aNumInGioco(k) = GetNumeroUnivoco
				Next
				' sorte casuale ma coerente con i numeri in gioco
				nSorte = 0
				Do
					nSorte = NumeroCasuale(2,4)
				Loop While nSorte > nQNum
				
				' calcola la progressione
				nColpi = NumeroCasuale(10,20)
				ReDim aPoste(0)
				Call GetVettoreProgressione 	(nQNum,nSorte,nQRuote,nColpi,aPoste)
				Call AddLunghettaInGiocata 	(sNomeGiocata,aNumInGioco,aPoste,aRuote,3)
			Next
		End If
		Call AvanzamentoElab(1,nMaxGiocate,n)
	Next
End Sub

 

[giluge]

x luigib
ciao e grazie infinite per cio' che fai
a proposito di netiquette, mi pare che ti ho chiesto di perdonarmi dei miei strafalcioni, se qualcuno che andava appresso era riferito a me
e come chiederti scusa se mi sono intromesso

sei un grande
ciao

 

[giluge]

x luigib

grande grande grande
grazie mille
sto provando un sistema con 100 colonne filtro ha estrapolato 3 colonne per ora
ma ancora grazie per tutto cio' che hai fatto, veramente bello anzi bellissimo, capolavoro proprio
complimenti luigi

 

[Roby]

Ciao LuigiB

da una prova veloce, sembra funzionare in modo giusto.


grazie

 

[Moro_80]

Ciao Luigi,
devo segnalare un problema appena accaduto con questa nuova release di Spaziometria, nel dettaglio sembra che in fase di installazione durante la conversione agenda giocate nel nuovo formato, da un'errore di indice non compreso nell'intervallo...stessa cosa dopo aver installato e ad ogni apertura sempre della stessa agenda giocate.

Sotto l'immagine dell'errore:




Saluti

 

[Settenario]

buona sera Luigib, anche io ho riscontrato il problema di moro_80.

 

[LuigiB]

dovete zippare la cartella delle giocate e postarmela , io ho fato le prove e i file creati con laa versione 1.5.4 li convertiva bene.
PEr escludere l'errore eliminate o spostate tutti i file della cartella AgendaGiocate.

Ciao Rubino , ok

per Giulge ... spero tu abbia un signor pc ...

 

[Moro_80]

Confermo, eliminando i file dalla cartella AgendaGiocate il problema si risolve, Grazie!

 

[sax71]

Per Luigi

Per Luigi

Ciao a tutti,ho notato dal mini browser di spaziometria che con l'ultimo aggiornamento manca la prima estrazione del mese di Gennaio quella del 02-01-2015 e parte dal 03-01 cioè dalla seconda estrazione del mese. Volevo chiedere se si può correggere manualmente o c'è rischio di peggiorare le cose. e se si può come si procede??? Ciao a tutti e scusate per il disturbo!

 

[LuigiB]

ciao usa la funzione tronca archivio per eliminare tutte le estrazioni del 2015 . poi rifai l'aggiornamento


hostare immagini

 

[sax71]

Grazie Luigi,il tutto e andato a buon fine!!!