SPAZIOMETRIA di Luigi e Baffoblu 15° POST

[elephantbig]

ehi joy,
essere ebeti,come tu dici, volontariamente, da diritto certamente alla invalidità al 100% con accompagnamento.
Non è colpa mia se le leggi dicono questo.
E poi perchè ti preoccupi di essere accostato a qualcun altro ?
Anch'io sono invalido e non mi sento minimamente accostato a qualche altro.
Del resto ,lo sai meglio di me, che di falsi invalidi ne circolano parecchi e magari anche tu ne conosci qualcuno.
Non ti senti piu offeso da questo ?
Non ti segni indignato dal fatto che alcuni sciacalli si mimetizzano nella nostra categoria per rubare soldi allo stato e quindi a noi ?
Non ti innervosire, non ne vale la pena.Credimi.
A noi invalidi fa male.Meglio farsi 4 risate.Non credi ?

Ps.Essere invalido involontariamente merita tutto il rispetto
Essere invalido Volontariamente merita tutto il disprezzo.
Spero essere stato chiaro,almeno che tu non ti senta in qualche modo solidale con l'amico simpaticone.
Ciao

 

[joi_lotto]

OK.
Ciao.

 

[LuigiB]

si lota ..pero certe volte non basta e bisonga andare a modificare le registrazioni dei componenti nel registro di windows.
Ciao

 

[lota]

quote:Originally posted by LuigiB

si lota ..pero certe volte non basta e bisonga andare a modificare le registrazioni dei componenti nel registro di windows.
Ciao

Ok grazie Luigi cancello i due file riavvio e poi installo l'ultima versione se c'è qualche intoppo faccio sapere. Ciao

 

[lota]

Ciao Luigi
purtroppo brutte notizie per me ho installato la versione 1.1.86 del programma alla fine dell'installazione mi dà il mg di ok però quando vado per aprire il programma si blocca sù "creazione della cartella dati" e non mi rimane che ctrl+alt+canc[V][V]. Puoi aiutarmi?

ps: Porta pazienza lo sò che è domenica........

 

[LuigiB]

non so come aiutarti mi dispiace

 

[lota]

Ok grazie lo stesso

 

[claudio8]

DUMDO ..... PERO'

DEVI AVERE UN BUCO NON INDIFFERENTE, SE LA FAI COSI' GROSSA

claudio

 

[Roby]

ciao LuigiB
scusa volevo una info :
-------------------------
statistica
su ambi
frequenza ultimo ciclo
-------------------------

mi da un output con frequenze/quantità/elenco ambi

chiedo se possibile

non è che con un click su un gruppo elencato si possa avere l'elenco
dettagliato dei singoli ambi con ritardo e frequenza a quel momento???


chiedo troppo?

per esempio cliccando sul gruppo con frequenza 0 (che vuol dire ritardo dell'ambo > 400)

avere un dettaglio di solo quel gruppo
ambo , ritardo attuale, frequenza

[?]




-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[LuigiB]

rubino scarica l'ultim a versione del programma e fammi sapere , per aprire la finestra analitica fai doppio click sui numeri

 

[Roby]

ciao LuigiB

facendo doppio click sui numeri, mi viene fuori un libretto aperto, dove consente copia, mentre dove vi sono i numeri, si vede la tendina per scorrere su e giu,ma non vi sono i dati statistici del ritardo e della frequenza degli ambi di quel gruppo.

cosa devo fare?

sbaglio qualche cosa.?



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[Roby]

come non detto, devo fare altro doppio click sui numeri e si è aperto una videata nuova contenente la statistica.

ok tutto bene.



volevo chiedere una cosa, eventualmente.
su quest'ultima videata secondo te, sarà possibile mettere un campo o tendina tipo quella che contiene(sorte, ambo,terno,quaterna,etc..)

ma che contenga una specie di filtro
(capogioco con consecutivi), (vicini al ritmax), o parzializzare solo quelli della stessa frequenza (x)?

o qualcosa del genere?

è solo una info, che ti chiedo!
per arrivare ad avere, pochi ma buoni ambi?











-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[claudio8]

Xluigi

Sto cercando in tutti i modi di impostare questo codice con ScegliDaLista, ma non riesco neanche a far apparire la finestra con le checbox, cosa che son riuscito a fare con il mio vecchiolistato, inviato prima di questo.
Mentre questo pare che non ne voglia sapere delle istruzioni Call e Sub, con il vecchio, non essendoci Sub sono andato avanti nella costuzione della checkbox, però non riesco ad impostare il modo per andare a richiamare i costrutti delle singoli aVoci selezionate.

Quindi ti chiedo se puoi spiegarmi il perchè evdarmi una mano per proseguire, inoltre, tutte le volte che carico o modifico il codice anche solo qualche semplice cancellazione, sembra che ci voglia diverso tempo, 20/30 secondi per ripristinare la normale situazione di funzionamento. Spero che sul post venga indentato.


'UGUALI reimpostato da Luigi
'Faccio alcune osservazioni

IL LISTATO E'NEL POST SUCCESSIVO

Sub Main()
End Sub

-----------
Salutoni, attendo tua celere, se puoi.

PS: avranno sentito la puzza di Dumbo sino nell'ufficio Webmaster .
Ciao

claudio

 

[claudio8]

'UGUALI reimpostato da Luigi
'Faccio alcune osservazioni



Option Explicit
Sub Main()
	Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
	Dim posta(2) ' posta in gioco (2) indica il numero di esse
	Dim nm(2)
	Dim aVoci(10) ' Inserire il tot. casi+1
	Dim aVocisel(10)
	Dim k,r,r1,r2,p2,colpi,elenco,stpgiocata,Meno,p
	
		 									' NB: codice per elementi uguali
'aVoci(0) = " Elemento di partenza"
'aVoci(1) = "Comp./ 90  elem "
'aVoci(2) = "Diametr/45    1°"
'aVoci(3) = "Diam./decina  1°" 'DiametraleD	
'aVoci(4) = "Somma gli elementi" 'Doppio
'aVoci(5) = "Comp./90 della somma"
'aVoci(6) = "Diametr/45 di somma" 'Diametrale
'aVoci(7) = "Diam/decina somma" '
'aVoci(8) = "Diam/45 del compl/somma" '
'aVoci(9) = "Diam/decina compl/somma"
'aVoci(10) = "1° elemento + 1 "
	
	Call AlimentaArrayVoci(avoci)
	ReDim aVoci(10) ' Inserire il tot. casi+1
	ReDim aVocisel(10)

	Call RichiediParametri(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,avoci)
	ReDim avoci(10)
	For k = 0 To 10
			avoci(k) = avoci(k)
		Next
	
			If ScegliDaLista(avoci,aVocisel,"Algoritmi") > 0 Then
	
				For k = 0 To 10
			If aVocisel(k)= True Then
				Call "Scelta_(k)" '0 'Scrivi(aVoci(k))
				
				
					
				
				
			End If
		Next

	End If
	
	
	' remmare alternativamente una delle 2 righe successive
	'r = ScegliOpzioneMenu(aVoci,10,"SELEZIONE ALGORITMO ") 'cosi preimposto la selezione sulla Voce 2
	'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
	' in base alla scelta dell'utente si esegue il codice appropriato
	'Select Case r
'	Case - 1
'		MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna a -1
'	Case 0
'		Call Scelta_0(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 1
'		Call Scelta_1(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 2
'		Call Scelta_2(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 3
'		Call Scelta_3(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 4
'		Call Scelta_4(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 5
'		Call Scelta_5(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 6
'		Call Scelta_6(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 7
'		Call Scelta_7(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 8
'		Call Scelta_8(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 9
'		Call Scelta_9(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case 10
'		Call Scelta_10(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'	Case Else
'		MsgBox " Indice errato " & r & " -" & aVoci(r)
'	End Select
'End Sub
Sub AlimentaArrayVoci(a)
	a(0) = "Elemento uguale"
	a(1) = "Comp./ 90 elem "
	a(2) = "Diametr/45 1°"
	a(3) = "Diam./decina 1°" 'DiametraleD
	a(4) = "Somma gli elementi" 'Doppio
	a(5) = "Comp./90 della somma"
	a(6) = "Diametr/45 di somma" 'Diametrale
	a(7) = "Diam/decina somma" '
	a(8) = "Diam/45 del compl/somma" '
	a(9) = "Diam/decina compl/somma"
	a(10) = "1° elemento + 1 "
End Sub
Sub RichiediParametri(Meno,Ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,1500) ' 2000
	Ruote(1) = InputBox("PRIMA RUOTA DI RICERCA ( 1 .. 10 ) ",,9)
	r1 = Ruote(1)
	p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,4))
	Ruote(2) = InputBox("SECONDA RUOTA DI RICERCA ( 2 .. 11 ) ",,10)
	r2 = Ruote(2)
	p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,3)
	colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,6)
	elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' o fa vedere le giocate
	If elenco = 0 Then
		stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
		Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
	End If
End Sub
Sub Scelta_0(Meno,Ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Di

 

[LuigiB]

Cla il consiglio che ti do non è quello di fare subito gli script ma quello di studiarti un po di teoria...



Option Explicit
Sub Main()
	Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
	Dim posta(2) ' posta in gioco (2) indica il numero di esse
	Dim nm(2)
	Dim aVoci(10) ' Inserire il tot. casi+1
	Dim aVocisel(10)
	Dim k,r,r1,r2,p2,colpi,elenco,stpgiocata,Meno,p
	
	
	
	Call AlimentaArrayVoci(aVoci)
	


	Call RichiediParametri(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	
	
	
	If ScegliDaLista(aVoci,aVocisel,"Algoritmi") > 0 Then
	
		For k = 0 To 10
			If aVocisel(k)= True Then
				Select Case k
				Case - 1
					MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna a -1
				Case 0
					Call Scelta_0(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 1
					Call Scelta_1(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 2
					Call Scelta_2(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 3
					Call Scelta_3(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 4
					Call Scelta_4(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 5
					Call Scelta_5(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 6
					Call Scelta_6(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 7
					Call Scelta_7(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 8
					Call Scelta_8(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 9
					Call Scelta_9(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				Case 10
					Call Scelta_10(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
				'Case Else
'					MsgBox " Indice errato " & r & " -" & aVoci(r)
				End Select
	
				
			End If
		Next
	End If 
	
	
	' remmare alternativamente una delle 2 righe successive
	'r = ScegliOpzioneMenu(aVoci,10,"SELEZIONE ALGORITMO ") 'cosi preimposto la selezione sulla Voce 2
	'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
	' in base alla scelta dell'utente si esegue il codice appropriato
End Sub

Sub AlimentaArrayVoci(a)
	a(0) = "Elemento uguale"
	a(1) = "Comp./ 90 elem "
	a(2) = "Diametr/45 1°"
	a(3) = "Diam./decina 1°" 'DiametraleD
	a(4) = "Somma gli elementi" 'Doppio
	a(5) = "Comp./90 della somma"
	a(6) = "Diametr/45 di somma" 'Diametrale
	a(7) = "Diam/decina somma" '
	a(8) = "Diam/45 del compl/somma" '
	a(9) = "Diam/decina compl/somma"
	a(10) = "1° elemento + 1 "
End Sub
Sub RichiediParametri(Meno,Ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,1500) ' 2000
	Ruote(1) = InputBox("PRIMA RUOTA DI RICERCA ( 1 .. 10 ) ",,9)
	r1 = Ruote(1)
	p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,4))
	Ruote(2) = InputBox("SECONDA RUOTA DI RICERCA ( 2 .. 11 ) ",,10)
	r2 = Ruote(2)
	p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,3)
	colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,6)
	elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' o fa vedere le giocate
	If elenco = 0 Then
		stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
		Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
	End If
End Sub
Sub Scelta_0(Meno,Ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Dim Posta(5),Ini,Fin,a,ok,b,c,nm(10),z,cg,es,r
	Scrivi "_________________________________________________________________________________"
	Scrivi " Dalla coppia di numeri UGUALI all' Ambata + 30 Edito da Rubino"
	Scrivi " Metodo del " & aVoci(r) & " di Claudio8 "
	Scrivi " Ricerca riferita al : || " & p & "° Estratto di " & NomeRuota(r1) & " e " & p2 & "° Estratto di " & NomeRuota(r2) & " || ",- 1,,6,2
	Scrivi " Estrazioni analizzate " & Meno & " Verifica esito per n. " & colpi & " colpi - Trovati n. " & cg & " casi"
	Scrivi "________

 

[claudio8]

VA BENE LUIGI
VADO A RIGUARDARMI I VIDEO

GRAZIE COME SEMPRE SEI MOLTO GENTILE

ciao

claudio

 

[Roby]

Ciao luigi, volevo chiederti se è possibile inserire l'aperture di due finestre script in modo da poter operare su due script per eventuali copia incolla o semplice visione di confronto.
Ciao

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]

quote:


volevo chiedere una cosa, eventualmente.
su quest'ultima videata secondo te, sarà possibile mettere un campo o tendina tipo quella che contiene(sorte, ambo,terno,quaterna,etc..)

ma che contenga una specie di filtro
(capogioco con consecutivi), (vicini al ritmax), o parzializzare solo quelli della stessa frequenza (x)?

o qualcosa del genere?

è solo una info, che ti chiedo!
per arrivare ad avere, pochi ma buoni ambi?

Ciao Rubino , si sarebbe possibile sempre che io capisca che cosa intendi.
Partiamo da ciò che è la finestra.
La finestra visualizza i dati statistici relativi a un gruppo di ambi (o di estratti visto che funziona pure la) che siano stati precedentemente individuati dall funzione FREQUENZA ULTIMO CICLO (estrtti o ambi)
Detto questo cosa vuoi dire con

1) (capogioco con consecutivi)
2) (vicini al ritmax)
3) parzializzare solo quelli della stessa frequenza (x)

In attesa di delucidazioni .. ciao

 

[LuigiB]

quote:Originally posted by metus

Ciao luigi, volevo chiederti se è possibile inserire l'aperture di due finestre script in modo da poter operare su due script per eventuali copia incolla o semplice visione di confronto.
Ciao

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

Ciao Metus , eventualmente è possibile ma non è possibile far girare due script in contemporanea per questo non ho intenzione di duplicare quella finestra ..potrei aggiungere magari un altro menu con una finestra tipo Edit Script , di questo tipo di finestre ne puoi aprire quante ne vuoi pero per lanciare lo script si deve tornare nella finestra che gia conosci andrebbe bene questa soluzione ? Considera comunque che gli script possono tranquillamente essere aperti con notepad al di fuori del programma.

 

[Roby]

Ciao luigi, lo scopo era solo per eventuali scopiazzamenti, o piccole variazioni, quindi un edit script va più che bene.
Era un opzione che su l'altro prog. c'è, e fra l'altro lo script si può lanciare indipendentemente dalle finestre aperte, ovvio che quello che funziona è quello della finestra attiva.
Ciao

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