sistemare programma

[giorgioantonio]

Salve Mike58,

mi rivolgo a te personalmente per una correzione al programma
di Celso.
Porto un esempio reale dell'evento:
mi estrazione del 7/1/2014 pos4 =4
mi estrazione del 8/1/2014 pos4 =4
il programma scrive: 8-6-7
Trovata la somma della 2^unità della decina aggiungere
4+4+0=8; 4+4+1=9; 4+4+2=0; e secondo me questa
terzina questo abbinamento non dovrebbe esserci;
poniamo il caso che se del 4 ci fosse 84 ancora dell'altro
4 ci fosse 84 dovremmo avere 88+0 = 88; 88+1=89; 88+2=80
quindi 88-89-80.
questo è tutto,
Ti ho nominato perchè hai trattato tu questo argomento.
Un saluto

 

[Mike58]

Ciao Giorgioantonio, una breve premessa per chi legge e senza sapere di cosa parliamo.
lo script trova un numeri isotopo in decina e ricava tre numeri della stessa decina sommando alla somma dell'unita +0+1+2
ossia esempio
MI 15.1.2015 TROVATO 26 POSIZ. 2
MI 17.1.2015 TROVATO 20 POSIZ. 2

Ora lo script calcola 26.27.28 con la condizione che se il calcolo supera la decina esempio 30 ritorna 20 (mantenendo cosi la decina)

Non ho capito cosa correggere ma è tutto possibile, dammi i calcoli che vuoi ottenere magari con questo esempio e vediamo di esaudirlo.
P.s. ho fatto delle correzione allo script che hai in quanto ho omesso alcune cose (ricopialo)

A beneficio di altri ecco lo script in questione.

Sub Main
	Dim ru(1),n(2),num(3)
	Dim posta(1)
	posta(1) = 1
	ritroso = InputBox("QUANTE ESTRAZIONI ANALIZZO",,100)
	cl = CInt(InputBox("Colpi di Gioco",,10))
	Scrivi "**** Metodo Celso&GiorgioAntonio ***** List by Mike58 **** Forum LottoCed *****",1,1,3,1,3
	Ini = EstrazioneFin - ritroso
	fin = EstrazioneFin
	For r1 = 1 To 12
		If r1 = 11 Then r1 = 12
		
		ReDim T(11)
		T(1) = " Caso N. "
		T(2) = " Data Estrazione "
		T(3) = " Ruota "
		T(4) = " Estratti "
		T(5) = " Numeri Iso "
		T(6) = " Posiz. "
		T(7) = " Numeri in gioco "
		T(8) = " Esito "
		T(9) = " Ret_Estratti "
		T(10) = " colpo "
		T(11) = " Data esito "
		Call InitTabella(T,2,,3,5)
		For es = Ini To fin
		
			For p1 = 1 To 5
				a = Estratto(es,r1,p1)
				b = Estratto(es - 1,r1,p1)
				If Decina(a) = Decina(b) Then
					
					n(1) = a
					n(2) = b
					aa = Cadenza(a)
					bb = Cadenza(b)
					cc = Decina(a)
					ab = Figura(aa + bb)
					
					num(1) = cc & ab ' primo numero
				 	If Cadenza(num(1)) > 0 Or Cadenza(num(1)) < 9 Then num(2) = num(1)+1
					If Cadenza(num(1)) = 9 Then num(2) = num(1)-9
					If Cadenza(num(2)) > 0 Or Cadenza(num(2)) < 9 Then num(3) = num(2)+1

					If Cadenza(num(2)) = 9 Then num(3) = num(2)-9
					If num(2) = 9 Then num(3) = 1
					
					
					
					ru(1) = r1
					k = k + 1
					Call VerificaEsito(num,ru,es + 1,1,cl + 1,,esito,colpi,estratti,id)
					
					ReDim V(11)
					V(1) = k
					V(2) = GetInfoEstrazione(es) & "<br>" & GetInfoEstrazione(es-1)
					V(3) = SiglaRuota(r1)
					V(4) = StringaEstratti(es,r1) & "<br>" & StringaEstratti(es-1,r1)
					V(5) = Format2(a) & "<br>" & Format2(b)
					V(6) = p1
					V(7) = StringaNumeri(num,,1)
					V(8) = esito
					V(9) = estratti
					V(10) = colpi
					If esito <> "" Then V(11) = DataEstrazione(id)
					If esito = "" And colpi <= cl Then V(11) = " In corso "
					If esito = "" And colpi = cl + 1 Then V(11) = " Negativo "
					
					Call AddRigaTabella(V,,,3)
					If V(11) = " In corso " Then Call SetColoreCella(11,3,1)
					If V(11) = " Negativo " Then Call SetColoreCella(11,0,5)
					'Scrivi String(130,"=") & " Caso N.",k,1
					'Scrivi GetInfoEstrazione(es) & "  ",1,0,,1,2
					'Scrivi SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  -  " & Format2(a) & "  - Posiz. " & p1,1,1,,1,2
					'Scrivi GetInfoEstrazione(es - 1) & "  ",1,0,,1,2
					'Scrivi SiglaRuota(r1) & "  " & StringaEstratti(es - 1,r1) & "  -  " & Format2(b) & "  - Posiz. " & p1,1,1,,1,2
					'Scrivi "Numeri in Gioco... " & StringaNumeri(num,,1),1
					'Scrivi String(130,"-")
					ImpostaGiocata 1,num,ru,posta,cl
					Gioca es,1,,,,False
				End If
			Next
		Next
		If ScriptInterrotto Then Exit For
	
	Call SetTableWidth("100%")
	Call CreaTabella()
	k = 0
	Next
	ScriviResoconto
End Sub

 

[giorgioantonio]

Salve Mike58,
grazie per l'impegno che ti sei preso a fare in modo che gira senza intoppi su Spaziometria il programma
e aggiungo che i numeri che portano gli eventi passati e futuri fanno perfettamente il calcolo
dovuto.
Un sentito grazie ed un doveroso saluto- Buona domenica
Ciao

Una domanda di aiuto: l'unico modo per aprire il listato/programma è solo dalla voce APRI SCRIT e quindi caricare il file
oppure esiste un'altra via. Questa domanda perchè così si eviterebbe qualche manomissione involontaria al listato.
Ancora saluti

 

[Mike58]

Ciao giorgioantonio, sono contento che il listato fa quello che sono le tua aspettative.

mentre per apertura script si +/- è cosi o da APRI FILE SCRIPT oppure da ELENCO SCRIPT e comunque va sempre prima caricato , il bello che i codici sono aperti e quindi possibili di modifiche , manomissioni involontarie sono possibili ma anche questo aiuta a capire a prendere confidenza per qualche immissione personale.

Ciao

 

[adispo2000]

Ciao Mike, Luigi, Moro, siccome ho cercato in spaziom. una funzione e' non l'ho trovata voi avete qualche script oppure potete creare uno script che mi permatta di trovare i terni usciti una sola volta in un range x e poi merterli in ordine di ritardo?
Ciao

x il 10elotto 5minuti

 

[Joe91]

Buon Giorno a tutte/i.

Proporrei questa procedura, ma non garantisco che funzioni.

Si punta ad uno script sovrapponendoci il cursore ("a freccia") ... col mouse.

* "Clikkare" su di esso con il pulsante Destro del mouse.

* Dal menù contestuale che appare ... scegliere "Apri con"

Nel nuovo menù (che appare) ... Nella sezione :

* "Programma Predefinito ..."

Sfogliando le cartelle ... si giunge a trovare e scegliere (il percorso ove è installato) :

* "Spaziometria.Exe"

* Spuntare la casella "Usa sempre il programma selezionato"

* In ultimo "OK" per confermare e chiudere la procedura.

Dopo tutto questo ogni doppio click (del pulsante sinistro) su un "file-script" dovrebbe aprire Spaziometria ...

poi, il suo editor, ed in questo incollarci lo script, pronto per l'esecuzione.

Purtroppo (come detto) in alcuni casi ... non funziona.



PS: Grazie a chi vorrà provare e riferire se funziona o meno.

 

[Joe91]

Per adispo.

E' simile a regola ... che in un determinato periodo ... i terni usciti una sola volta ... sono i terni usciti.

Quindi nella prospettiva del terno ... "usciti" e "una sola volta" sono quasi sinonimi.

A meno che, il periodo citato, sia, molto-molto-molto lungo.

 

[adispo2000]

scusa Joe91...e altri....la mia possibile richiesta era per il 10elotto 5minuti...scusatemi

 

[Joe91]

Ops ...

 

[Moro_80]

Buon Giorno a tutte/i.

Proporrei questa procedura, ma non garantisco che funzioni.

Si punta ad uno script sovrapponendoci il cursore ("a freccia") ... col mouse.

* "Clikkare" su di esso con il pulsante Destro del mouse.

* Dal menù contestuale che appare ... scegliere "Apri con"

In nuovo questo menù che appare si seleziona:

* "Programma Predefinito ..."

Quindi sfogliando le cartelle ... si giunge a trovare e scegliere (il percorso ove è installato) :

* "Spaziometria.Exe"

* Spuntare la casella "Usa sempre il programma selezionato"

* In ultimo "OK" per confermare e chiudere la procedura.

Dopo tutto questo ogni doppio click (del pulsante sinistro) su un "file-script" dovrebbe aprire Spaziometria ...

poi, il suo editor, ed in questo incollarci lo script, pronto per l'esecuzione.

Purtroppo (come detto) in alcuni casi ... non funziona.



PS: Grazie a chi vorrà provare e riferire se funziona o meno.

Ciao Joe,
sono contento che hai proposto la pseudo-procedura per aprire direttamente nell'editor di SpazioMetria gli script nel formato ".ls".
Purtroppo non funziona in modo corretto e completo, ovvero, si ferma il tutto all'apertura di SpazioMetria perchè non c'è possibilità di far aprire "direttamente" anche l'editor script.

Ciao

 

[Joe91]

Ciao Carmine.

Non è proprio così come scrivi.

Dipende da installazione ad installazione e dal sistema operativo.

Ho per mano PC diversi ma simili su 3 funziona e su uno no.

È la motivazione di quanto ho scritto nel mio messaggio precedente

Volevo chiederti se è un hp/vista32 ?

Grazie & buona domenica a tutte/i.

 

[LuigiB]

Buon Giorno a tutte/i.

Proporrei questa procedura, ma non garantisco che funzioni.

Si punta ad uno script sovrapponendoci il cursore ("a freccia") ... col mouse.

* "Clikkare" su di esso con il pulsante Destro del mouse.

* Dal menù contestuale che appare ... scegliere "Apri con"

In nuovo questo menù che appare si seleziona:

* "Programma Predefinito ..."

Quindi sfogliando le cartelle ... si giunge a trovare e scegliere (il percorso ove è installato) :

* "Spaziometria.Exe"

* Spuntare la casella "Usa sempre il programma selezionato"

* In ultimo "OK" per confermare e chiudere la procedura.

Dopo tutto questo ogni doppio click (del pulsante sinistro) su un "file-script" dovrebbe aprire Spaziometria ...

poi, il suo editor, ed in questo incollarci lo script, pronto per l'esecuzione.

Purtroppo (come detto) in alcuni casi ... non funziona.



PS: Grazie a chi vorrà provare e riferire se funziona o meno.

ciao Joe , tutto questo procedimento che hai descritto lo dovrebbe gia fare il setupautomaticamente associando i file *.ls a spaziometria.
Sul mio pc funziona.

 

[Joe91]

ciao Joe , tutto questo procedimento che hai descritto lo dovrebbe gia fare il setupautomaticamente associando i file *.ls a spaziometria.
Sul mio pc funziona.

Ciao Luigi.

Vero.

Ma se a qualcuno non funziona ... è perchè c'è qualche problemino.

Penso il S/O non riesca a trovare l'editor in cui incollare e quindi la procedura si fermi a metà.

Probabilmente recuperando l'errore, esso non viene evidenziato.

Penso anche, sia retaggio di vecchie installazioni mal rimosse.

Vederemo se ci sono altri/e ... che forniscano traccia della loro esperienza.

 

[LuigiB]

ma in quei pc dove non funziona , facendo doppio clicl su un file .ls si apre almeno spaziometria ?

 

[Joe91]

ma in quei pc dove non funziona , facendo doppio clicl su un file .ls si apre almeno spaziometria ?

Si.

Fino a spaziometria ci arriva.

 

[LuigiB]

Ciao Joe , ho fatto delle modifiche quindi su i pc dove non funziona va rifatta la prova con l'ultima versione.
Prima pero seguire questa procedura


image share

 

[Joe91]

Ciao Luigi.

Ho cancellato la chiave dal registro ed installato la nuova versione di spaziometria.

Ora lanciando (col doppio click) un file *.LS si avvia Spaziometria ...

poi si sente il classico "ding" ed appare una finestra con il percorso del file suddetto.

Confermando tuttavia non si apre l' editor.

Ma evidentemente qualcosa è cambiato.

Questa è l'immagine di quanto ho descritto:

Buona serata.

 

[LuigiB]

ciao Joe , prova a prendere quel file copiarlo in un 'altra cartella e poi fare doppio click da questa nuova cartella.
Dico cosi perche la finestrella col percorso compare quando il tale file non viene trovato mi sembra strano perche tu lo hai preso da li ed è quello il percorso passato al programma ... pero fai lo stesso questa prova.

 

[Joe91]

Ciao Luigi.

Ho provato a copiare il file come hai suggerito.

Tuttavia ... anche se il percorso, è molto semplificato

S'apre Spaziometria ... ma l'editor no.

 

[LuigiB]

ciao Joe , davvero strano , quella finestra esce proprio perche spaziometria pensa che quel file non esiste ...a questo punto ci saranno dei problemi di permessi sul file ... non me lo spiego in altro modo...prova a fare un nuovo script anche di una sola riga , salvalo sempre in un percorso semplificato e poi rifacci doppio click ..