PROGRAMMA SPAZIOMETRIA

[Alien.]

Ciao Luigi.
Ho notato che nell'estrazione del superenalotto è mancante l'estrazione del 02 maggio 2014 in quanto ci sono state l'estrazioni il 02 ed 03 maggio 2014,Si può ovviare ?
Vedo adesso che però sono inserite le estrazioni del 03 , 05 , 06 maggio 2014...come sta?
Grazie. Ed infiniti Auguri di Buon Natale ed Felice Anno Nuovo.

 

[LuigiB]

ciao Alien , le estrazioni dipendono dai vari siti da dove vengono scaricate , non è un problema del programma.
Se riscontri problemi nell'archivio ci sono gli strumenti per eliminare le colonne e per eventualmente correggere o inserire a mano
altre estrazioni.
Quindi tronca l'archivio all'estrazione precedente a quella mancante e rifai l'aggiornamento o inserisci prima quella mancante a mano.
Tanti auguri di buon Natale anche a te

 

[MatematikLotto]

Ciao, buon Natale e buone feste a tutti, è la prima volta che intervengo anche se è da un po’ che sono iscritto. Avrei da fare anche io una richiesta a BabboNatale (LuigiB); prima però vorrei complimentarmi con TUTTI per la “vivacità” del forum ma sopratutto con il nostro BabboNatale per la pazienza e l’impegno (NON INDIFFERENTE) nel soddisfare, tutto l’anno, le nostre richieste per portare implementazioni nel programma SpazioMetria che Egli, a suo tempo, ci donò.
Caro BabboNatale alias LuigiB, anche se un pochettino in ritardo ti mando questa letterina speranzoso che Tu, visto il tuo buon cuore, accolga la mia richiesta (non so quanto impegnativa) e possa/riesca a soddisfare questo mio desiderio al più presto e non rimandarla al Natale 2015.
Potresti implementare la stessa funzione che esiste per il gioco del lotto in SpazioMetria 1.5.2, ovvero, in metodi sommativi la statistica adattatori anche per il 10eLotto ogni 5min. ?
Fiducioso nella tua bontà e del tuo impegno attendo comunque tua cordiale risposta (anche negativa), ciao.

 

[LuigiB]

ciao .. la cosa non è possibile per quetioni tecniche infatti la cononna del 10 e lotto è di 20 numeri , senza scendere nel dettaglio non è compatibile con la'lgoritmo gia creato ..me lo avevano gia chiesto e anche allora ho detto che non si poteva fare .

 

[MatematikLotto]

Grazie per la celere risposta anche se, ahimè, negativa; solo per comprendere meglio, perdonami se insisto, ma la problematica delle 20 colonne o, come hai specificato tu, i 20 numeri della colonna del 10 e lotto crea problemi nel punto di calcolo in quanto il lotto ha solo 5estratti oppure il nodo e insinuato altrove? E dove?!

 

[LuigiB]

Salve Luigi
Su statistiche- ambi integrati- tronca prime- potresti gentilmente aumentare a 100000 o inserire un pulsante (tutti gli ambi) perchè quando faccio la ricerca di tutti gli ambi delle 10 ruote, non compaiono tutti, sono più di 10000.
Grazie

certo che non compaiono tutti ma compaiono i primi nell'ordinamento selezionato , quindi questo tipo di richiesta ha poco senso

 

[LuigiB]

Ciao a tutti con la nuova versione 1.5.3 è possibile inserire dei record nell'agenda giocate
come mi aveva chiesto Joe
Posto lo stesso esempio presente nella directory test.
La funzione ha molti parametri gli stessi impostabili con le funzioni del programma.
E' stato necessario introdurre ancora una nuova funzione necessaria per calcolare le progressioni a runtime
che puo essere usata anche in altri contesti , anche per questa funzione posto il codice di esempio

[code]
Option Explicit
Sub Main
	Dim sNumeri
	Dim nNumSel
	Dim nInizioGioco,nColpi,nSorte,nRuoteSel
	Dim nBollette,nQNumeriLunghetta
	Dim sMsg,sRetFile,sNota
	Dim k
	ReDim aRuote(0)
	' due giocate da  8 numeri l'una
	sNumeri = "1-5-24-32-34-38-45-49" & vbCrLf
	sNumeri = sNumeri & "21-28-32-34-45-48-51-64"
	nBollette = 2
	nQNumeriLunghetta = 8
	sNota = "Test inserimento giocate in agenda"
	nInizioGioco = EstrazioneFin
	nColpi = 10
	nSorte = 3
	nRuoteSel = RuoteSel(aRuote)
	
	
	If nRuoteSel > 0 Then
	
		' Inserisce una Giocata usando una progressioen calcolata a runtime
		ReDim aPoste(nColpi)
		If GetVettoreProgressione(nQNumeriLunghetta,nSorte,nRuoteSel,nColpi,aPoste,,nBollette,,100)Then
			If AddRecordAgendaGiocate(sNumeri,aRuote,nInizioGioco,nColpi,nSorte,nSorte,True,aPoste,,,100,sNota,sMsg,sRetFile) Then
				MsgBox "Inserita nuova giocata in agenda il file creato è " & vbCrLf & sRetFile,vbInformation
			Else
				MsgBox "Errore " & sMsg,vbCritical
			End If
		Else
			MsgBox "Progressione non generata"
		End If
		
		
		' Inserisce una Giocata senza usare una progressine (tutte le giocate hanno la stessa puntata)
		ReDim aPoste(10)
		aPoste(nSorte) = 1
		
		If AddRecordAgendaGiocate(sNumeri,aRuote,nInizioGioco,nColpi,nSorte,nSorte,False,,aPoste,,,sNota,sMsg,sRetFile) Then
			MsgBox "Inserita nuova giocata in agenda il file creato è " & vbCrLf & sRetFile,vbInformation
		Else
			MsgBox "Errore " & sMsg,vbCritical
		End If

	Else
		MsgBox "Selezionare le ruote"
	End If
	
End Sub

Option Explicit
Sub Main
	Dim k
	ReDim aPoste(0)
	ReDim aRetRighe(0)
	Call Scrivi("3 numeri per ambo guadagno Minimo 100")
	Call GetVettoreProgressione(3,2,1,10,aPoste,aRetRighe)
	For k = 0 To UBound(aRetRighe)
		Call Scrivi(aRetRighe(k))
	Next
	Call Scrivi
	For k = 1 To UBound(aPoste)
		Call Scrivi(aPoste(k))
	Next
	Call Scrivi("1 numero per estratto det guadagno minimo 100")
	' 1 numero per estratto det guadagno minimo 100
	Call GetVettoreProgressione(1,6,1,10,aPoste,aRetRighe,,,,,,1)
	For k = 0 To UBound(aRetRighe)
		Call Scrivi(aRetRighe(k))
	Next
	Call Scrivi
	For k = 1 To UBound(aPoste)
		Call Scrivi(aPoste(k))
	Next
	Call Scrivi("1 numeri per estratto  guadagno percentuale 10 %")
	Call GetVettoreProgressione(1,1,1,10,aPoste,aRetRighe,,1)
	For k = 0 To UBound(aRetRighe)
		Call Scrivi(aRetRighe(k))
	Next
	Call Scrivi
	For k = 1 To UBound(aPoste)
		Call Scrivi(aPoste(k))
	Next
End Sub

 

[MatematikLotto]

Buon giorno, domanda per LuigiB:
perché ogni qual volta installo l’aggiornamento di Spaziometria, o comunque aggiorno il programma alla nuova versione (dopo aver disinstallato la precedente come consigliato), in questo caso la 1_5_3, mi si presentano sempre (o quasi) delle problematiche sul programma? Ad esempio, successivamente all’installazione della 1_5_3, ho potuto aggiornare l’archivio lotto e superenalotto ma l’archivio del 10eLotto 5min sembra bloccato (ieri pomeriggio funzionava bene), il messaggio dice: pagina per la data 20/12/2014 ecc. ecc. non trovata forse troppo vecchia.
Oppure, sempre per il 10eLotto 5min, funzione dei numeri spia che da sempre gli stessi numeri (ord. Per numero di presenze) qualsiasi formazione spia venga inserita, omettendo il numero di volte ed il numero percentuale (in entrambi i casi da 0) con i quali questi si sono presentati.

P.S.
prima di inviare questo messaggio ho insistito ancora per l’aggiornamento dell’archivio ed infine è partito il download troncando però alcune estrazioni del 20/12/2014, l’archivio si ferma alle 18,30 del 20/12 estr. N°222 e riparte con l’estr. N° 1 delle ore 00,00 del 21/12/2014. Successivamente, alle ore 11,20, provo ancora ad effettuare il download delle estrazioni, l’ultima estrazione in archivio è la N° 131 delle ore 10,55, ma si ripresenta il medesimo messaggio su citato.

 

[rossonero8]

archivio lotto

archivio lotto

SALVE LUIGIB, prima di tutto AUGURONI DI BUONE FESTE E GRAZIE per lo splendido programma di SPAZIOMETRIA, da un recente controllo l'estrazione del 2/12/2014
salta nelle ultime realase del programma e quindi sono costretto a cancellare l'estrazione fino al 29/11/2014 e poi riscrivere. Si può ovviare per i prossimi aggiornamenti.
GRAZIE E BUONA DOMENICA

 

[LuigiB]

ciao Rispondo a Matematiko che l'aggioramento delle estrazioni non dipende dal nuovo setup , la parte che aggiorna le estrazioni è rimasta invariata , le varie problematiche riscontrate dipendono o dai siti da dove le estrazoni vengono prelevate o da problemi dovuti ad eventuali firewall presti sui pc , ogni volta che l'eseguible cabia il firewall
vuole delle nuove autorizzazioni.

Rispondendo a Rossonero grazie per la segnalazione provvedo a correggere l'archivio


Auguri a tutti

 

[Mike58]

Come ti dicevo io non ho problemi a gestirla e per quanto mi riguarda la trova molto efficace.
Sarebbe stato il massimo se il codice settabellawhith interagiva con la tabella stessa.

su quello posso intervenire ..nella prossima versione.

Ciao Luigi, nel apprezzare, e nel ringraziarti per le nuove funzioni aggiunte in spazioScript circa Agenda giocata e visto che devi ancora rifare qualcosa, ti ricordo ancora lo sring del CreaTabellaOrdinabile che possa essere settato con il setTableWithTh.

Ciao è buone feste

 

[LuigiB]

ciao Mike , veramente lo avevo fatto ..prova questo script ..

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,,,4,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",4)
			ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
				Call AddRigaTabella(aValori,Giallo_,"right",4)
			
			ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
				Call AddRigaTabella(aValori,Magenta_,"right",4)
			ElseIf aValori(3) > 80 Then
				Call AddRigaTabella(aValori,Rosso_,"right",4)
				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 SetTableWidth("50%")
	'Call CreaTabella(3,,,,1) ' alimenta da sinistra a destra
	Call CreaTabellaOrdinabile(3,,,,0) ' alimenta dall'alto in basso
	
	

	
	
End Sub

 

[LuigiB]

probailmente tu vuoi che una volta la tabellaabbia la dimensione voluta le colonne all'interno si dividano lo spazio senza lasciare il grigio per intenderci ?

 

[lupo bianco]

chiedo scusa ma secondo il listato di luigi io mi trovo i ritardi indietro di un colpo e' normale esempi il 26 di firenze e a 102 colpi il listato dice 101 colpi.ecc...

 

[LuigiB]

ciao io ho fatto la prova ora e da 102 in tutti i casi per me ti manca l'estrazione del 2 dicembre


upload immagini

 

[Mike58]

probailmente tu vuoi che una volta la tabellaabbia la dimensione voluta le colonne all'interno si dividano lo spazio senza lasciare il grigio per intenderci ?

Si !!! Luigi io vorrei che la Tabella stia nella schermata ed anche le colonne Excel stiano dentro lo schermo senza scorrimento

Prova una schermata senza Creatabella ordinabile sringata nello schermo e con Ordinabile.

ti metto un script ad esempio.

Sub Main()
	Dim anum(4),ruota(1),posta(5)
	Dim ambetti,sretnumeri,nvincita
	ini = EstrazioneFin - 10
	fin = EstrazioneFin
	ca = fin - Ini
	Scrivi String(120,"="),1
	Scrivi" Ricerca Gemello Radicale e gioca Numeri mancanti della quartina Radicale ",1,0,3
	Scrivi"   su totali " & ca & " estrazioni  ",1,0,2
	Scrivi "  " & Chr(174) & "  Scripted by Mike58  " & Chr(169) & "  ",1,- 1,6
	Scrivi
	'Scrivi String(120,"="),1
	ReDim AT(15)
	AT(1) = " Casi "
	AT(2) = " Data "
	AT(3) = " Ruota "
	AT(4) = " Estratti "
	AT(5) = " Gemello "
	AT(6) = " Posiz. "
	AT(7) = " Num Rad. Mancanti "
	AT(8) = " Esito  "
	AT(9) = " Colpi "
	AT(10) = " Estratti"
	AT(11) = " Data ID "
	AT(12) = " nGuadagno "
	AT(13) = " Qtà "
	AT(14) = " s_Ambetti "
	AT(15) = " n_Vincita "
	Call InitTabella(AT,1,,3,5)
	For es = fin To Ini Step - 1
		For r1 = 1 To 12
		If r1 = 11 Then r1 = 12
			ruota(1) = r1
			posta(1) = 4
			posta(2) = 1
			
			For p1 = 1 To 5
				'For p2 = p1 + 1 To 5
				a = Estratto(es,r1,p1)
				'b = Estratto(es,r1,p2)
				If Radicale(a) And Gemello(a)Then
					c = Radicale(a)
					d = Vert(c)
					e =(11*c)
					f = Vert(e)
					casi = casi + 1
					anum(1) = c
					anum(2) = d
					anum(3) = e
					anum(4) = f
					For idestr = es + 1 To fin
					ambetti = VerificaAmbetto(anum,r1,idestr,sretnumeri,nvincita)
					Next
					For x = 1 To 4
						'---------- calcolo x escludere i numeri trovati ------------------
						If EstrattoRitardo(r1,anum(x),es,es) = 0 Then anum(x) = 0
						'-----------------------------------------------------------------
						Call VerificaEsitoConGuadagno(anum,ruota,es + 1,1,10,,esito,colpi,estratti,id,,nguad)
						
					Next
					ReDim AV(15)
					AV(1) = casi
					AV(2) = DataEstrazione(es)
					AV(3) = SiglaRuota(r1)
					AV(4) = StringaEstratti(es,r1)
					AV(5) = a
					AV(6) = p1
					AV(7) = StringaNumeri(anum)
					AV(8) = esito
					AV(9) = colpi
					AV(10) = estratti
					If esito <> "" Then AV(11) = DataEstrazione(id)
					If esito = "" Then AV(11) = " -- "
					AV(12) = nguad
					AV(13) = ambetti
					AV(14) = sretnumeri
					AV(15) = nvincita
					Call AddRigaTabella(AV,,,3)
					If esito <> "" And colpi < 4 Then Call SetColoreCella(9,3,1)
					If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(11,4,2)
				End If
			Next
		Next
	Next
	Call SetTableWidth("100%")
	'Call CreaTabella()
	Call CreaTabellaOrdinabile()
End Sub

 

[LuigiB]

a su excel non si puo fare nulla riguardo al resto vediamo nella prossima versione

 

[Mike58]

Per La estrazione mancante io ce l'ho in archivio, forse perché tengo sempre il mio archivio ed in fase di setup spunto Delete l'archivio proposto.

ecco il ritardo di FI

***** TABELLA 5 RITARDATARI ****** Listed by Mike58 ***** Forum LottoCed ****
Analisi frequenza su 200 Estrazioni

RUOTA	1° RIT	2° RIT	3° RIT	4° RIT	5° RIT	1° RP	2* RP	3° RP	4° RP	5° RP
Bari	46	44	31	7	25
Ritardo-Storico-frequenza	74 -92 - 7	59 - 92 - 7	57 - 167 - 9	48 - 111 - 7	42 - 140 - 9
Cagliari	42	45	24	43	74
Ritardo-Storico-frequenza	78 -92 - 6	71 - 116 - 10	70 - 101 - 7	54 - 109 - 9	51 - 92 - 13
Firenze	26	27	23	22	39
Ritardo-Storico-frequenza	102 -132 - 6	72 - 84 - 13	60 - 108 - 5	44 - 97 - 9	42 - 105 - 5
Genova	79	55	52	44	69			1
Ritardo-Storico-frequenza	87 -102 - 4	58 - 109 - 8	56 - 103 - 10	50 - 73 - 8	50 - 106 - 12			56
Milano	44	10	85	50	56
Ritardo-Storico-frequenza	70 -144 - 9	62 - 118 - 13	56 - 133 - 11	54 - 150 - 7	53 - 101 - 8
Napoli	54	21	68	24	73
Ritardo-Storico-frequenza	74 -104 - 12	72 - 114 - 5	60 - 111 - 9	53 - 110 - 6	48 - 94 - 9
Palermo	62	8	13	53	20
Ritardo-Storico-frequenza	91 -91 - 5	58 - 133 - 11	56 - 113 - 15	48 - 131 - 11	47 - 123 - 9
Roma	48	13	25	4	75
Ritardo-Storico-frequenza	66 -94 - 6	62 - 124 - 9	59 - 125 - 6	53 - 119 - 11	50 - 120 - 10
Torino	15	66	74	68	84				30
Ritardo-Storico-frequenza	88 -105 - 8	77 - 145 - 5	76 - 117 - 6	42 - 121 - 9	40 - 118 - 9				45
Venezia	84	22	62	46	76
Ritardo-Storico-frequenza	72 -108 - 7	63 - 101 - 9	62 - 141 - 7	58 - 112 - 8	52 - 109 - 3
Nazionale	56	44	76	63	84	1				19
Ritardo-Storico-frequenza	91 -91 - 10	76 - 76 - 7	66 - 149 - 15	58 - 86 - 9	54 - 93 - 6	103				58

 

[MatematikLotto]

Luigi grazie per la celere risposta, chiarito in parte il problema del download (in questi casi cosa si può fare? ovviamente alternativo all'inserimento manuale) per quanto riguarda il problema della funzione spia, invece, non hai risposto...

 

[MatematikLotto]

Qualcun altro ha gli stessi problemi nell’aggiornare l’archivio 10elotto 5min oggi? Se si, specificare la versione di Spaziometria ed il tipo di messaggio che da l’errore del download, se no, idem…
Grazzzzie!