x Joe 91

[Zetrix]

Ciao joe potresti aiutarmi a risolvere questo script in allegato esce la finestra con messaggio di intervallo quando si va indietro di molte estr e tutte le volte bisogna chiudere questa finestra e nn evidenzia i num sulla la ruota nz grazie

 

[Zetrix]

 

[Joe91]

Ciao Zetrix.

Le variabili utilizzate "Ini e Fin"

sono diverse da ... "Inizio e Fine" e ...

per la Nazionale forse non è attivata nella Barra in basso dove si selezionano le Ruote.

Però non ti posso aiutare oltre perchè la grafica .. in quanto tale non è codice "eseguibile"

e non permette di riprodurre / risolvere gli errori.

Se non riesci a risolvere con le indicazioni che ti ho dato

devi inserire lo script come testo e meglio ancora nella finestra delimitato dall' essere codice dello script.

Nella visualizzazione avanzata selezioni il # e poi inserisci incollando "il codice" tra i "Tag" che l'editor ti inserisce.

 

[Zetrix]

      Sub Main
	
	Dim CollRettangoli
	Dim clsFig ' As clsFiguraCicloLD
	Dim nTrovati

	
	' Imposto i limiti del range di analisi
	Ini = EstrazioneFin - 0
	fin = EstrazioneFin
		
		' Calcolo estrazioni da fare
	nDaFare = Fine -(Inizio - 1)
	
	' Blocco analisi estrazioni
	For idEstr = Ini To fin
		If GetCollTrapezioIsoscele(idEstr,CollRettangoli) > 0 Then
			nTrovati = nTrovati + 1
			For Each clsFig In CollRettangoli
		
				ReDim aNumeri(0)
				Call GetArrayNumeriFromFiguraCiclo(clsFig,aNumeri)
				'Call Scrivi(clsfig.ruoteinteressate & " " & DataEstrazione(idestr))
				Call DisegnaEstrazioneFromFiguraCiclometrica(idestr,clsFig)
				Call DisegnaCerchioCiclometrico(aNumeri,True)
			 Scrivi String(55,"-")
			Next
		End If
		
		
	
		
		Next
	
End Sub

 

[Joe91]

Ciao ...

Riguardo quello che hai postato e quello che avevo nel frattempo trovato tra gli esempi,

ti posso dire che è solo un problema nel nome della ruota

e ... nel disallineamento nel nome delle variabili ,come avevo accennato.

La Nazionale inizialmente undicesima ruota viene erroneamante etichettata "Tutte"

MA gli Estratti ritrovati appartengono ad essa.

Sub Main
	
	Dim CollRettangoli
	Dim clsFig ' As clsFiguraCicloLD
	Dim nTrovati

Ini = EstrazioneFin - 100 	
Fin = EstrazioneFin

For IdEstr = Ini To Fin 
		
		If GetCollTrapezioIsoscele(idEstr,CollRettangoli) > 0 Then
			nTrovati = nTrovati + 1
			For Each clsFig In CollRettangoli
		
				ReDim aNumeri(0)
				If  clsfig.ruoteinteressate = "Tutte" Then 
				Call GetArrayNumeriFromFiguraCiclo(clsFig,aNumeri)
				Call Scrivi(clsfig.ruoteinteressate & " " & DataEstrazione(idestr))
				Call DisegnaCerchioCiclometrico(aNumeri,True)
				End If 
			Next
		End If
		
		

Next 	
		
	
	
End Sub

 

[Zetrix]

ciao joe lo script nn va bene nn esce la tabella dei numeri e inserendo anche questa linea guida il problema si ripresenta lo stesso ma se nn puoi sistemare nn fa niente e solo un problema di chiudere sempre queste finestre e se vai molte estr indietro da un po fastidio stare sempre a chiudere queste finestre e la colpa e della ruota nz infatti nn evidenzia nemmeno i num nella tabella

 

[Joe91]

Si esatto ...

Isolando il problema con il filtro IF clsfig.ruoteinteressate = "Tutte"

risulta evidente che il problema è nel nome della Ruota "Nazionale" confuso con "Tutte"

ABILITANDO DisegnaEstrazioneFrom..... con parametri sbagliati (idestr,clsfig) ricompaiono gli errori

ma si vede che i numeri appartengono alla Nazionale.

Faccio presente il mio parere a Luigi.

Sub Main
	
	Dim CollRettangoli
	Dim clsFig ' As clsFiguraCicloLD
	Dim nTrovati

Ini = EstrazioneFin - 10 	
Fin = EstrazioneFin

For IdEstr = Ini To Fin 
		
		If GetCollTrapezioIsoscele(idEstr,CollRettangoli) > 0 Then
			nTrovati = nTrovati + 1
			For Each clsFig In CollRettangoli
		
				ReDim aNumeri(0)
				If  clsfig.ruoteinteressate = "Tutte" Then 
				Call GetArrayNumeriFromFiguraCiclo(clsFig,aNumeri)
				
				        'Call DisegnaEstrazioneFromFiguraCiclometrica(idestr,clsFig) 

				Call Scrivi(clsfig.ruoteinteressate & " " & DataEstrazione(idestr))
				Call DisegnaCerchioCiclometrico(aNumeri,True)
				End If 
			Next
		End If
		
		

Next 	
	
End Sub

 

[Zetrix]

Ciao Joe ce un errore sulla ruota di pa come evidenziato nella fig ma ho risolto con aggiorn manuale ma come e possibile che si verificano certi errori ho fatto l aggiorn da lottomatica e sia da lottoced ma da sempre questo errore comunque ho risolto il problema

 

[LuigiB]

sinceramente io ho fatto l'aggiornamento in qeuesto istante e mi viene 23 .. che la lottomatica si sia autocorretta ?

 

[Joe91]

Vederne di tutti i colori !!!

 

[Joe91]

Luigi ...

era per per il messaggio #7.

 

[LuigiB]

ciao , si c'era un problema con la ruota nazionale , l'ho gia risolto ma visto che non vi voglio bombardare di aggiornamenti ancora non posto la nuova versione con le correzioni segnalate , lo faro penso a fine settimana.

 

[Joe91]

Benissimo...

anche per la guida.

Buona serata. Grazie.