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
    giovedì 22 maggio 2025
    Bari
    08
    07
    31
    78
    34
    Cagliari
    71
    28
    69
    48
    61
    Firenze
    01
    36
    18
    17
    16
    Genova
    07
    66
    39
    27
    01
    Milano
    66
    89
    65
    42
    78
    Napoli
    49
    01
    83
    38
    43
    Palermo
    50
    57
    85
    79
    66
    Roma
    08
    52
    58
    60
    13
    Torino
    37
    07
    27
    32
    24
    Venezia
    21
    19
    09
    33
    11
    Nazionale
    03
    49
    06
    45
    22
    Estrazione Simbolotto
    Milano
    25
    39
    28
    36
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto