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 26 aprile 2025
    Bari
    23
    30
    43
    69
    25
    Cagliari
    63
    73
    02
    18
    12
    Firenze
    38
    11
    13
    32
    15
    Genova
    09
    27
    84
    16
    11
    Milano
    73
    30
    70
    60
    02
    Napoli
    60
    81
    05
    79
    89
    Palermo
    26
    28
    69
    07
    31
    Roma
    82
    38
    76
    44
    31
    Torino
    05
    62
    73
    46
    84
    Venezia
    42
    14
    45
    35
    52
    Nazionale
    48
    80
    78
    16
    23
    Estrazione Simbolotto
    Genova
    10
    22
    15
    09
    34
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto