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ì 29 aprile 2025
    Bari
    03
    07
    32
    05
    33
    Cagliari
    66
    62
    27
    39
    26
    Firenze
    07
    41
    70
    75
    53
    Genova
    10
    26
    64
    44
    74
    Milano
    30
    76
    66
    51
    65
    Napoli
    56
    80
    34
    11
    29
    Palermo
    74
    37
    48
    13
    38
    Roma
    02
    21
    18
    51
    68
    Torino
    64
    06
    32
    88
    54
    Venezia
    66
    01
    11
    74
    54
    Nazionale
    65
    63
    50
    55
    33
    Estrazione Simbolotto
    Genova
    45
    10
    12
    24
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto