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
    sabato 23 agosto 2025
    Bari
    67
    05
    41
    45
    12
    Cagliari
    29
    78
    54
    88
    28
    Firenze
    57
    58
    15
    45
    44
    Genova
    53
    33
    89
    34
    77
    Milano
    09
    31
    36
    03
    21
    Napoli
    82
    35
    45
    06
    65
    Palermo
    25
    40
    82
    48
    62
    Roma
    21
    24
    74
    52
    09
    Torino
    28
    78
    50
    90
    84
    Venezia
    38
    87
    03
    25
    41
    Nazionale
    56
    09
    42
    57
    33
    Estrazione Simbolotto
    Nazionale
    41
    44
    04
    07
    21
Indietro
Alto