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
    venerdì 01 agosto 2025
    Bari
    38
    02
    68
    33
    79
    Cagliari
    21
    78
    83
    22
    55
    Firenze
    63
    14
    72
    28
    16
    Genova
    21
    46
    17
    40
    39
    Milano
    49
    60
    17
    77
    63
    Napoli
    90
    05
    77
    74
    53
    Palermo
    16
    61
    43
    37
    90
    Roma
    40
    45
    27
    57
    32
    Torino
    62
    57
    26
    82
    61
    Venezia
    06
    46
    68
    32
    29
    Nazionale
    71
    36
    06
    32
    15
    Estrazione Simbolotto
    Nazionale
    30
    37
    17
    41
    08
Indietro
Alto