Novità

Non riesco a trovare l'errore...

lotto_tom75

lotto_tom75

Advanced Premium Member
Codice: 
Option Explicit
Sub Main


Dim k,z
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot

Dim sfile

	ReDim aRuoteSel(12)
	RuoteSelezionate = ScegliRuote(aRuoteSel)


sfile = "c:\lunghetta-BACA.txt" ' percorso dove viene caricato il txt 

'Inizio = 1
'Fine = 8647

nSorte = 2 

Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sfile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
ReDim aNum(0)
Call SplitByChar("." & aRighe(k),".",aNum)



nSorte = 2

Classe = 2


ColTot = InitSviluppoIntegrale(aNum,Classe)


If ColTot > 0 Then


Do While GetCombSviluppo(aCol) = True


i = i + 1


ReDim aRuoteTmp(1)


For z = 1 To RuoteSelezionate
		
		
aRuoteTmp(1) = aRuoteSel(z)


Dim Diff
Diff = RetRitMax - RetRit1


Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax


Call Scrivi(StringaNumeri(aCol))


Call AvanzamentoElab(1,ColTot,i) 


Call Messaggio("Colonna " & i)

If ScriptInterrotto Then Exit Do

Next

Loop

End If

End If

End Sub

Non riesco a trovare l'errore... :mad:

Qualcuno/a mi aiuta a scovarlo? :rolleyes: Grazie! :)

Lo script una volta "riparato..." dovrebbe consentire la generazione di ambi (in modo integrale) a partire da una lunghetta recuperata da un file esterno.
 
Codice: 
Option Explicit
Sub Main
	Dim k,z
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
	Dim ColTot
	Dim sfile
	ReDim aRuoteSel(12)
	RuoteSelezionate = ScegliRuote(aRuoteSel)
	sfile = "c:\lunghetta-BACA.txt" ' percorso dove viene caricato il txt
	'Inizio = 1
	'Fine = 8647
	nSorte = 2
	Call Messaggio("Lettura file di testo")
	ReDim aRighe(0)
	Call LeggiRigheFileDiTesto(sfile,aRighe)
	For k = 0 To UBound(aRighe)
		If aRighe(k) <> "" Then
			ReDim aNum(0)
			Call SplitByChar("." & aRighe(k),".",aNum)
			nSorte = 2
			Classe = 2
			ColTot = InitSviluppoIntegrale(aNum,Classe)
			If ColTot > 0 Then
				Do While GetCombSviluppo(aCol) = True
					i = i + 1
					ReDim aRuoteTmp(1)
					For z = 1 To RuoteSelezionate
						aRuoteTmp(1) = aRuoteSel(z)
						Dim Diff
						Diff = RetRitMax - RetRit1
						Dim rapportoRARS
						rapportoRARS = RetRit1/RetRitMax
						Call Scrivi(StringaNumeri(aCol))
						Call AvanzamentoElab(1,ColTot,i)
						Call Messaggio("Colonna " & i)
						If ScriptInterrotto Then Exit Do
					Next
				Loop
			End If
		End If
	Next
End Sub

Mancava l'ultimo Next .... prova adesso
 
claudio8 ha scritto:
Codice: 
Option Explicit
Sub Main
	Dim k,z
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
	Dim ColTot
	Dim sfile
	ReDim aRuoteSel(12)
	RuoteSelezionate = ScegliRuote(aRuoteSel)
	sfile = "c:\lunghetta-BACA.txt" ' percorso dove viene caricato il txt
	'Inizio = 1
	'Fine = 8647
	nSorte = 2
	Call Messaggio("Lettura file di testo")
	ReDim aRighe(0)
	Call LeggiRigheFileDiTesto(sfile,aRighe)
	For k = 0 To UBound(aRighe)
		If aRighe(k) <> "" Then
			ReDim aNum(0)
			Call SplitByChar("." & aRighe(k),".",aNum)
			nSorte = 2
			Classe = 2
			ColTot = InitSviluppoIntegrale(aNum,Classe)
			If ColTot > 0 Then
				Do While GetCombSviluppo(aCol) = True
					i = i + 1
					ReDim aRuoteTmp(1)
					For z = 1 To RuoteSelezionate
						aRuoteTmp(1) = aRuoteSel(z)
						Dim Diff
						Diff = RetRitMax - RetRit1
						Dim rapportoRARS
						rapportoRARS = RetRit1/RetRitMax
						Call Scrivi(StringaNumeri(aCol))
						Call AvanzamentoElab(1,ColTot,i)
						Call Messaggio("Colonna " & i)
						If ScriptInterrotto Then Exit Do
					Next
				Loop
			End If
		End If
	Next
End Sub

Mancava l'ultimo Next .... prova adesso
Clicca per espandere...


Grazie claudio8 :),
Purtroppo ancora non funziona... Sono spariti gli errori ma non carica più i numeri dal file txt in anum...

Non riesco proprio a capire perchè... in effetti... :rolleyes:

Codice: 
Option Explicit
Sub Main
	Dim k,z
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
	Dim ColTot
	Dim sfile
	ReDim aRuoteSel(12)
	RuoteSelezionate = ScegliRuote(aRuoteSel)
	sfile = "c:\lunghetta-BACA.txt" ' percorso dove viene caricato il txt
	'sfile = ScegliFile("c:\temp",".txt","lunghette.txt") ' percorso dove viene caricato il txt (ovviamente si puo' cambiare in toto...

	Inizio = 1
	Fine = 8890
	
	Call Messaggio("Lettura file di testo")
	ReDim aRighe(0)
	Call LeggiRigheFileDiTesto(sfile,aRighe)
	For k = 0 To UBound(aRighe)
		If aRighe(k) <> "" Then
			ReDim aNum(0)
			Call SplitByChar("." & aRighe(k),".",aNum)
			nSorte = 2
			Classe = 2
			ColTot = InitSviluppoIntegrale(aNum,Classe)
			If ColTot > 0 Then
				Do While GetCombSviluppo(aCol) = True
					i = i + 1
					ReDim aRuoteTmp(1)
					For z = 1 To RuoteSelezionate
						aRuoteTmp(1) = aRuoteSel(z)
						
						Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
						
						Dim Diff
						Diff = RetRitMax - RetRit1
						Dim rapportoRARS
						rapportoRARS = RetRit1/RetRitMax
						
						If(RetRit1 >= 0) Then
						Call Scrivi(StringaNumeri(aCol))
						End If
						
						Call AvanzamentoElab(1,ColTot,i)
						Call Messaggio("Colonna " & i)
						If ScriptInterrotto Then Exit Do
					Next
				Loop
			End If
		End If
	Next
End Sub

Tu lo vedi il motivo?

Nel file lunghetta-BACA.txt ho questo contenuto:

4.5.6.7.9.10.13.14.17.20.30.31.34.35.41.43.46.47.53.54.55.60.62.64.66.69.71.72.76.77.79.80.86.88.

Ciao e grazie di nuovo per il tuo aiuto :)
 
Ciao Lottotom , quando passi il vettore dei numeri alla funzione InitSviluppoIntegrale gli devi passare per l'appunto un vettore contenente numeri anzi contenente SOLO numeri
nel tuo caso il primo e l'ultimo elemento del vettore contengono una stringa vuota.
Perchè ?
Semplicissimo , il primo elemento assime valore di stringa vuota per via di questa istruzione

Codice: 
Call SplitByChar([U][COLOR="#FF0000"]"." &[/COLOR][/U] aRighe(k),".",aNum)

dove concateni all'inizio un punto determinado cosi che l'elemento 0 del vettore
e cioè il primo elemento del vettore non contenga un numero ma una stringa vuota.

L'ultimo elemento del vettore soffre dello stesso problema , questa volta perche nella stringa del file txt c'è un punto alla fine.

Sembrerebbe che la soluzione sia rimuovere il punto davanti e quello alla fine ... ahime no ... almeno a giudicare dalla stringa che hai postato
che contiene un errore di digitazione tra il numero 47 e il 54 ..
Ancora una volta sembrerebbe tutto ok ... corca ... come si direbbe qui a roma ...
in questo pezzo di codice riceverai un errore di overflow perche le variabili che usi per fare la divisione non hanno nessun valore ...forse le devi valorizzare con qualche statistica ...

Codice: 
For z = 1 To RuoteSelezionate
						aRuoteTmp(1) = aRuoteSel(z)
						Dim Diff
						Diff = RetRitMax - RetRit1
						Dim rapportoRARS
						rapportoRARS = RetRit1/RetRitMax
						Call Scrivi(StringaNumeri(aCol))
						Call AvanzamentoElab(1,ColTot,i)
						Call Messaggio("Colonna " & i)
						If ScriptInterrotto Then Exit Do
					Next

sistemate queste cose lo script dovrebbe girare ... Ciao
 
LuigiB ha scritto:
Ciao Lottotom , quando passi il vettore dei numeri alla funzione InitSviluppoIntegrale gli devi passare per l'appunto un vettore contenente numeri anzi contenente SOLO numeri
nel tuo caso il primo e l'ultimo elemento del vettore contengono una stringa vuota.
Perchè ?
Semplicissimo , il primo elemento assime valore di stringa vuota per via di questa istruzione

Codice: 
Call SplitByChar([U][COLOR="#FF0000"]"." &[/COLOR][/U] aRighe(k),".",aNum)

dove concateni all'inizio un punto determinado cosi che l'elemento 0 del vettore
e cioè il primo elemento del vettore non contenga un numero ma una stringa vuota.

L'ultimo elemento del vettore soffre dello stesso problema , questa volta perche nella stringa del file txt c'è un punto alla fine.

Sembrerebbe che la soluzione sia rimuovere il punto davanti e quello alla fine ... ahime no ... almeno a giudicare dalla stringa che hai postato
che contiene un errore di digitazione tra il numero 47 e il 54 ..
Ancora una volta sembrerebbe tutto ok ... corca ... come si direbbe qui a roma ...
in questo pezzo di codice riceverai un errore di overflow perche le variabili che usi per fare la divisione non hanno nessun valore ...forse le devi valorizzare con qualche statistica ...

Codice: 
For z = 1 To RuoteSelezionate
						aRuoteTmp(1) = aRuoteSel(z)
						Dim Diff
						Diff = RetRitMax - RetRit1
						Dim rapportoRARS
						rapportoRARS = RetRit1/RetRitMax
						Call Scrivi(StringaNumeri(aCol))
						Call AvanzamentoElab(1,ColTot,i)
						Call Messaggio("Colonna " & i)
						If ScriptInterrotto Then Exit Do
					Next

sistemate queste cose lo script dovrebbe girare ... Ciao
Clicca per espandere...

Rattoppato secondo le tue preziosissime e mirate dritte e adesso funge! THANKSSS luigi!!! :D

Codice: 
Option Explicit
Sub Main
	Dim k,z
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
	Dim ColTot
	Dim sfile
	ReDim aRuoteSel(12)
	RuoteSelezionate = ScegliRuote(aRuoteSel)
	sfile = "c:\lunghetta-BACA.txt" ' percorso dove viene caricato il txt
	'Inizio = 1
	'Fine = 8647
	nSorte = 2
	Call Messaggio("Lettura file di testo")
	ReDim aRighe(0)
	Call LeggiRigheFileDiTesto(sfile,aRighe)
	For k = 0 To UBound(aRighe)
		If aRighe(k) <> "" Then
			ReDim aNum(0)
			Call SplitByChar(aRighe(k),".",aNum)
			
			
				
			
			nSorte = 2
			Classe = 2
			
			ColTot = InitSviluppoIntegrale(aNum,Classe)
			
			
			If ColTot > 0 Then
			
				Do While GetCombSviluppo(aCol) = True
			
					i = i + 1
			
					ReDim aRuoteTmp(1)
			
			
			
			
					'For z = 1 To RuoteSelezionate
						'aRuoteTmp(1) = aRuoteSel(z)
						'Dim Diff
						'Diff = RetRitMax - RetRit1
						'Dim rapportoRARS
						'rapportoRARS = RetRit1/RetRitMax
						'Call Scrivi(StringaNumeri(aCol))
						'Call AvanzamentoElab(1,ColTot,i)
						'Call Messaggio("Colonna " & i)
						'If ScriptInterrotto Then Exit Do
					'Next
			
			
			
                              For z = 1 To RuoteSelezionate
						aRuoteTmp(1) = aRuoteSel(z)
						Dim Diff
						Diff = RetRitMax - RetRit1
						Dim rapportoRARS
						'rapportoRARS = RetRit1/RetRitMax
						Call Scrivi(StringaNumeri(aCol))
						Call AvanzamentoElab(1,ColTot,i)
						Call Messaggio("Colonna " & i)
						If ScriptInterrotto Then Exit Do
					Next
			
			
			
			
				Loop
			End If
		End If
	Next
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 20 dicembre 2025
    Bari
    40
    53
    79
    44
    62
    Cagliari
    48
    82
    88
    31
    36
    Firenze
    03
    06
    58
    02
    45
    Genova
    05
    66
    83
    58
    02
    Milano
    78
    63
    18
    36
    54
    Napoli
    34
    19
    76
    54
    90
    Palermo
    50
    75
    15
    14
    03
    Roma
    55
    77
    75
    85
    63
    Torino
    46
    61
    03
    85
    12
    Venezia
    44
    61
    23
    07
    88
    Nazionale
    67
    24
    68
    09
    41
    Estrazione Simbolotto
    Venezia
    11
    04
    17
    31
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto