Novità

x Joe 91

Zetrix

Advanced Premium Member
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
 
Ultima modifica:
70c8wj.jpg
 
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.


:)
 
Codice:
      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
 
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.

Codice:
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

:)
 
Ultima modifica:
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
 
Ultima modifica:
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.

Codice:
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
 
Ultima modifica:
142sn12.jpg
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
 
Ultima modifica:
sinceramente io ho fatto l'aggiornamento in qeuesto istante e mi viene 23 .. che la lottomatica si sia autocorretta ?
 
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
Indietro
Alto