SPAZIOMETRIA di Luigi e Baffoblu 7° POST

[Nexus]

Ciao LuigiB, nuovamente grazie per gli aggiornamenti.
Ti segnalo un piccolo bug nel tooltip della schermata principale.
Passando sui bottoni il box si attiva solo quando punti la zona intorno all'icona, mentre si disattiva quando punti l'icona.

I pensieri diventano cose</u> (Dooley Mike)

 

[scoglio2]

quote:Originally posted by LuigiB

Grazie Jack , corretto pure questo.
Per Scoglio ho provato anche io lo script di Thauk non mi da errore , prova a vede che range di estrazioni è impostato , infatti questo valore nello script giustamente è dinamico e dipende appunto da come lo hai impostato tu nel programma, metti un range ampio che copra fino alle ultime estrazioni , a me ha funzionato senza problemi , oppure verifica se hai incollato bene il tutto.

ciao luigi
spiegami dove imposto il range di estrazioni e a che estrazione devo mettere.
ho dovuto incollare rigo x rigo xche se incollo tutto insieme me lo da in una sola linea.
io ho vista x caso da problemi?
aspetto
ciao

 

[LuigiB]

Ciao Scoglio , le estrazioni si impostano dalla finestra principale , in basso vedi che c una barra di colore blu scuro con dentro una barra color rosa acceso, quella barra rosa indica il range di estrazioni selezionate.
Pui incrementare il range o direttamente col mouse tracinando i limiti sinistro e destro della barra rosa o usando le frecce blu che si trovano sui pulsantini li vicino.
Comunque in base a quanto mi dici ritengo piu probabile che ci sia un errore dovuto al copia e incolla.
Strano sto fatto che te lo prenda su una sola riga.. ma non dipende da vista.

 

[JackMan]

quote:Originally posted by scoglio2

quote:Originally posted by LuigiB

Grazie Jack , corretto pure questo.
Per Scoglio ho provato anche io lo script di Thauk non mi da errore , prova a vede che range di estrazioni è impostato , infatti questo valore nello script giustamente è dinamico e dipende appunto da come lo hai impostato tu nel programma, metti un range ampio che copra fino alle ultime estrazioni , a me ha funzionato senza problemi , oppure verifica se hai incollato bene il tutto.

ciao luigi
spiegami dove imposto il range di estrazioni e a che estrazione devo mettere.
ho dovuto incollare rigo x rigo xche se incollo tutto insieme me lo da in una sola linea.
io ho vista x caso da problemi?
aspetto
ciao

Ciao Scoglio
per risolvere il problema i faccio in questo modo:
1) copio lo script dal forum
2) incollo su "blocco note"
3)..ricopio dal "blocco note" e lo incollo nella finestra del programma
ciaoooooooo
Jack

Ciao Scoglio

 

[LuigiB]

Scoglio prova a copiare daqui , sempre lo script di Thauk ma l'ho riformattato.

Sub main()
	Dim ruota(2),poste(1),posta(3),nr(3),am(2)
	poste(1) = 1
	posta(2) = 1
	posta(3) = 1
	ruota(1) = 4
	ruota(2) = 7

	k = 9

	ini = 7538	' estrazione iniziale 03.01.2006

	For es = ini To EstrazioneFin
		Messaggio "Estrazione: " & es
		ng = 0

		sp = 5	' numero spia
		r = 7		' ruota di ricerca

		For p = 1 To 5
			a = Estratto(es,r,p)
			If a = sp Then

				am(1) = Fuori90(Estratto(es,7,2) + 29)
				am(2) = Fuori90(Estratto(es,7,2) + 89)
				ng = ng + 1
				ImpostaGiocata ng,am,ruota,poste,k,1

				nr(1) = am(1)
				nr(2) = am(2)
				nr(3) = 5
				ng = ng + 1
				ImpostaGiocata ng,nr,ruota,posta,k,2

				casi = casi + 1
				ColoreTesto 1 
				Scrivi "Caso n° " & casi & " - " & DataEstrazione(es) & " Numero Spia " & sp & " in " & p & "ª posizione su " & NomeRuota(r),1
				Scrivi 
				ColoreTesto 0

				Gioca es
			End If
		Next
	Next
	Scrivi 
	ColoreTesto 1
	Scrivi "Casi totali: " & casi,1
	Scrivi 
	ColoreTesto 0
	ScriviResoconto
End Sub

 

[Thauk]

ciao a tutti
per i miei studi/metodi, il range delle estrazioni è impostato dall'estrazione nr.08086 - 02/07/2009 (inizio del 10eLotto) all'ultima estrazione (08241 - 29/06/2010).
pur iniziando la ricerca dall'estrazione nr.7538 lo script funziona correttamente, quindi non credo dipenda da quello.
ho appena fatto anch'io il copia/incolla direttamente dalla pagina del forum ed è tutto OK.

@Luigi
perché a te il code mantiene l'indentazione e a me no? Mah...

Fortuna non omnibus aeque.

 

[scoglio2]

allora ragazzi
ho fatto una prova col pc vecchio xche vista lo ha mio figlio
ho scarikato spaziometria e inserito lo script e qui funziona.
stasera provo col portatile e vi faccio sapere
grazie mille ancora a tt
alla prossima

 

[Roby]

Visto luigi????
Basta uno squillo di tromba (ovvero la vecchia sveglia militare) ed eccoti incasinato..... eheheh!!!
Ciao ..... vai al mare a riposarti dai retta, è meglio che stare dietro agli script!!
Mi verrebbe voglia di segnalarti anch'io qualche bugghino, ma mi sto trattenendo....almeno fino a lunedi.


metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[LuigiB]

Metus ... eheh mica puoi farmi questo ... dai vecchi utenti mi aspetto attenzione massima e segnalazioni precise e puntuali
Dai dai ..che infondo sono un po' masochista ...
A parte gli scherzi le mie ferie iniziano la meta di agosto fino ai primi di settembre quindi avoja a campà come si dice qui a Roma
ciao !

P.S. Dimmeli i bug perche anche se io ho fatto il grosso questo vostro aiuto nello scovare i vari bugghetti è indispensabile anche perche forse ti ricorderai che io il programma lo faccio ma raramente lo adopero quindi da solo non li scoprirei mai ...

 

[LuigiB]

quote:Originally posted by Antonio_90

Ciao LuigiB, nuovamente grazie per gli aggiornamenti.
Ti segnalo un piccolo bug nel tooltip della schermata principale.
Passando sui bottoni il box si attiva solo quando punti la zona intorno all'icona, mentre si disattiva quando punti l'icona.

I pensieri diventano cose</u> (Dooley Mike)

Ciao Antonio , purtroppo in questo caso non si puo fare nulla ovvero per questa cosa che sembra in realtà banale dovrei perderci un bel po di tempo per implementare una gestione customizzata delle toooltip.

 

[dado46]

Io scrivi pochissimo ma vi seguo da tantissimo volevo ringraziare per il programma.

Volevo chiedere una cosa sarebbe possibile aggiungere nella ciclometria le distanze in verticale ??

 

[LuigiB]

ATTENZIONE VERSIONE 1.0.98

http://www.megaupload.com/?d=NSSTNL18

in questa versione ho corretto le cose che mi avete segnalato ed ho migliorato alcue funzionalita di script.
Si tratta di una versione sicuramente piu stabile.
Dovete disinstallare la precedente e rifare i l setup.
Un saluto a tutti

P.S.

non ho capito chesi intende per distanze in verticale

 

[dado46]

Ciao intendo Questo

le distanze in verticale come la linea rossa.

grazie.

 

[solare]

Ciao Luigi, intanto ancora un grazie per quello che fai in maniera del tutto gratuita.
Volevo chiederti sempre che sia possibile inserire nella ricerca dei numeri spia il tipo di analisi relativa alla presenze dei numeri spia, mi spiego con un esempio:
vorrei avere una statistica tale e quale a quella esistente con la differenza di avere l'analisi non tanto sul periodo dal al ma su quante volte è sortito il numero spia. cioè il programma dovrà fare statistica su un numero di presenze da me indicato relativo al numero spia chiedendomi quante volte min deve essere presente il numero spia?
Spero di essere stato chiaro, altrimenti vedro di farti altro esempio.
Ciao

 

[peppe60]

ciao a tutti
visto la comodita' dei listati si potrebbe fare un listato sui numeri spia
esempio voglio sapere una ruota a caso compreso la nezionale es. bari voglio sapere dopo l'uscita del numero spia 10 , quali sono i numeri che piu' sono usciti nell'estrazione successiva magari segnalato in rosso il numero dopo la spia uscito piu' volte

comunque resta il fatto a chi e' capace a fare i listati
io non sono capace sperando in qualcuno .
io qualche anno fa avevo un programma noto che si potevano fare i listati e frequentavo un forum dove c'erano veramente dei bravissimi a fare listati , poi per un motivo non mio ma loro non sono piu' potuto entrare in quel forum e cosi buttai via anche quel programma di lotto , non so perche' mi sono messo a scrivere tutte queste cose , forse il programma del sig. luigib bellissimo ha pure i listati e mi si e svegliato un ricordo ma!!!!! ciao

comunque con i listati si possono sviluppare tantissime tecniche.

 

[Thauk]

@solare
Ho trovato questo vecchio script e l'ho testato su Spaziometria, vedi se fa al caso tuo.

Sub main()

n = CInt(InputBox("Numero Spia?",,1))
rt = CInt(InputBox("Ruota di ricerca?",,1))
pre = CInt(InputBox("Numero minimo di presenze?",,10))
est = CInt(InputBox("Quante estrazioni controllo?",,200))

ini = EstrazioneFin - est
fin = EstrazioneFin

For es = ini To fin
Messaggio "Estrazione: " & es

r = rt
For p = 1 To 5
a = Estratto(es,r,p)
If a = n Then cnt = cnt + 1
Next
Next
If cnt = pre Or cnt > pre Then
ColoreTesto 0
Scrivi "Statistica dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) & "(" & est & " estrazioni)",1
Scrivi
ColoreTesto 1
Scrivi "Il Numero Spia " & n & " su " & NomeRuota(r) & " è uscito " & cnt & " volte",1
Else
ColoreTesto 0
Scrivi "Statistica dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) & "(" & est & " estrazioni)",1
Scrivi
ColoreTesto 1
Scrivi "Il Numero Spia " & n & " su " & NomeRuota(r) & " è uscito " & cnt & " volte.",1
Scrivi
ColoreTesto 2
Scrivi "Numero di presenze inferiore al minimo richiesto(" & pre & ")",1
End If
End Sub

@peppe60
Cercherò nei meandri dei miei HD... forse ho già qualcosa.
In caso contrario, tempo permettendo, vedrò di soddisfare la tua richiesta.

ciauz


Fortuna non omnibus aeque.

 

[peppe60]

ciao Thauk grazie x l'impegno del listato , pero' non e' quello che cerco ti faccio un esempio
su bari esce la cinquina es, 1-2-3-4-5 io voglio controllare subito dopo quali numeri si ripresentano con piu' frequenza , allora chiamo il numero 1 come spia il programma mi deve chiedere la ruota dove quante estrazioni controllo, mi deve cercare i numeri che sono usciti con piu' frequenza es.dopo l'uscita del numero 1 (il 40 e' uscito 10 volte
l'uscita del numero 2 (il 30 e' uscito 9 volte
l'uscita del numero 3 (il 33 e' uscito 15 volte
l'uscita del numero 4 (il 68 e' uscito 3 volte
l'uscita del numero 5 (il 89 e' uscito 6 volte

 

[LuigiB]

Ciao Peppe , ma se ho capito bene questa funzione è gia presente nel programma alla voce Statistiche Numeri spia , mi sembra che faccia proprio quello che serve a te.

In pratica nlla finestra c'è un menu a tendian dove si imposta quanti colpi devono essere controllati dopo ogni estrazioen poi premendo il tasto ESEGUI il programma esamina il range di estrazioni impostato e crea un tabellone dove vengono evidenziati tutti i 90 numeri , affianco a ciascun numero c'è un ariga composta da caselle , ogni casella presenta tre valori , contien il numero , la frequenza che il numero è uscito dopo l'uscita del numero spia, la percentuale ricavata sulle presenze totali del numero spia.
Ad esempio nell'immagine che porto come esempio la prima riga si legge cosi

Dopo l'uscita del numero 1 su Bari il numero uscito piu volte è il 5 con 28 presenze ed una prcentuale di uscita rispetto allle uscite totali del numero 1 di 28,13 %

 

[solare]

Grazie lo stesso thauk, non e quello che cercavo.
quello che cerco è tale e quale alla tabella che Luigi ha postato a diferenza che la tabella di Luigi fa una statistica sul periodo di analisi stabilito da noi mentre quello che dico io ricava la statistica in base a quante volte è uscito il numero spia (Decido io la presenza del numero spia per la statistica)
Ciao

 

[arcor]

ciao luigi purtroppo alcuni script che funzionano perfettamente col noto programma col tuo non vanno
prova acontrollare questo


Sub Main
Dim idEst
Dim E1 , E5 ,CH
Dim Ruota
Dim k
Dim NumDaPiramidare
Dim NumPir
Dim aNumInGioco
Dim aPoste(10)
Redim aNumeri(1)
Redim aRuote(1)
Dim nDaFare
Dim nFatte
aposte(6)=1
aposte(10)=1
clp=6 '<---colpi di gioco
ini=EstrazioneFin -130 '<--setto l'inizio ricerca
fin=EstrazioneFin '<-- setto la fine ricerca
nDaFare =EstrazioneFin - (fin -1)
caso=0
For idEst = ini To fin
Messaggio ndafare
ndafare = ndafare-1
If IndiceMensile(idEst +1) = 1 Then ' gioco all'ultima del Mese
caso=caso+1
' ottengo la chiave Mensile
ch = GetChiaveMese(Mese (idest))
For ruota = 1 To 12
If ruota <> 11 Then ' non gioco su tutte
Call ScriviIntestazioneEstr (idest , ruota)
e1 = Estratto(idest,ruota,1)
e5 = Estratto(idest,ruota,5)
' Costruisco il numero da piramidare
NumDaPiramidare = Format2(e1) & Format2(e5) & Format2(ch)
' faccio la Piramide
NumPir = PiramideX (NumDaPiramidare , 0 , 2 )
NumPir =Fuori90(NumPir )
Call Scrivi ("Numero piramidato " & numpir)
' Costruisco il triplone
Redim aTriplone(9)
Call GetTriplone (NumPir , aTriplone)
' gioco i 9 estratti per Estratto , ( Dovevo considerare la lunghetta ??? Non saprei )
For k = 1 To 9
aNumeri(1)= aTriplone(k)
aRuote(1) = ruota
Call ImpostaGiocata (k,aNumeri , aRuote,aPoste,clp) '<-- tolgo interr.giocata visto che gioco
'sul determinato, altrimenti com'era prima
'si sarebbe fermata alla sortita in qualsiasi pos.
Next
Call Gioca (idest)
End If
Next
End If
nFatte = nFatte +1
Call AvanzamentoElab (1 ,ndafare ,nFatte)
Next
ScriviResoconto '<--funzione resoconto giocate
Scrivi "Casi analizzati "& caso
End Sub

Function GetChiaveMese( m)
Select Case m
Case 1
GetChiaveMese = 26
Case 2
GetChiaveMese = 48
Case 3
GetChiaveMese = 58
Case 4
GetChiaveMese = 75
Case 5
GetChiaveMese = 13
Case 6
GetChiaveMese = 87
Case 7
GetChiaveMese = 25
Case 8
GetChiaveMese = 52
Case 9
GetChiaveMese = 64
Case 10
GetChiaveMese = 73
Case 11
GetChiaveMese = 69
Case 12
GetChiaveMese = 32
End Select
End Function

Function PiramideX(v, nCicli , LunghezzaRichiesta )
Dim s
Dim sPiramide
Dim k
Dim n
Dim nCicliFatti
s = CStr(v)
sPiramide = s
Do While CLng(sPiramide) > 9
sPiramide = ""
For k = 1 To Len(s) - 1
n = CLng(Mid(s, k, 1)) + CLng(Mid(s, k + 1, 1))
sPiramide = sPiramide & Figura
Next
s = sPiramide
nCicliFatti = nCicliFatti + 1
If nCicliFatti = nCicli Then Exit Do
If Len(s) = LunghezzaRichiesta Then Exit Do
Loop
PiramideX = s
End Function

Sub GetTriplone (NumPir , aTriplone)
Dim k
Dim j
Dim i
Dim n
Dim aTripla
Redim aTriplone(9)
n = NumPir
For k = 1 To 3
Call GetTripla (aTripla , n)
For j = 1 To 3
i = i + 1
aTriplone(i)=aTripla(j)
Next
n = Fuori90(n + 30)
Next
End Sub

Sub GetTripla (aTripla , NumBase)
Redim aTripla (3)
Dim Dec
Dim k
Dim N
Dec = Decina (NumBase)
N = NumBase
Do While Decina(n-(3+1)) = dec
n = n - 3