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
    martedì 20 maggio 2025
    Bari
    12
    60
    87
    01
    02
    Cagliari
    36
    24
    53
    35
    16
    Firenze
    55
    51
    21
    18
    35
    Genova
    05
    31
    25
    82
    45
    Milano
    81
    45
    88
    35
    31
    Napoli
    11
    54
    68
    70
    82
    Palermo
    74
    69
    90
    57
    25
    Roma
    57
    09
    16
    54
    79
    Torino
    24
    07
    88
    51
    79
    Venezia
    41
    13
    07
    56
    19
    Nazionale
    81
    12
    83
    76
    01
    Estrazione Simbolotto
    Milano
    40
    09
    27
    33
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto