Novità

Sto diventando matto per due piccolissime ottimizzazioni a questo mio piccolo script

lotto_tom75

Advanced Premium Member
Codice:
Option Explicit
		Sub Main
		
		
		Dim k,y
		Dim Classe
		Dim aCol
		ReDim aNum(90)
		Dim i
		Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
		Dim ColTot
		
		
		
		'By Lotto_tom75 - Rilevatore sulle ruote separate volute di parametri voluti per qualsiasi sorte per qualsiasi classe presente nel txt importato
		
		
		
		'ReDim aNum(0)
		'QuantitaNumeriScelti = ScegliNumeri(aNum)
		
		Dim sfile
		
		
		sfile = ScegliFile("c:\lunghette",".txt","lunghette.txt")
		
		
			ReDim aRuoteSel(12)
			RuoteSelezionate = ScegliRuote(aRuoteSel)
			
			Call Scrivi(" ---------------------------------------------------------------- ")
			Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
			Call Scrivi(" ---------------------------------------------------------------- ")
		
		
			For k = 1 To RuoteSelezionate
				Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
				
			Next
		
		
		Scrivi
		
		Scrivi
		
		
		
		Dim contatore
		
		Call Messaggio("Lettura file di testo")
		ReDim aRighe(0)
		Call LeggiRigheFileDiTesto(sfile,aRighe)
		
		For y = 0 To UBound(aRighe)
		If aRighe(y) <> "" Then
		ReDim aNum(0)
		
		
		Call SplitByChar("." & aRighe(y),".",aNum)
		contatore = contatore + 1
		
		
		
		
		nSorte = 1
		
		
		
		
		ReDim aRuoteTmp(1)
		
		
		For k = 1 To RuoteSelezionate
				
			aRuoteTmp(1) = aRuoteSel(k)
			
		Call StatisticaFormazioneTurbo(aNum,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
				
		Dim Diff
		
		Diff = RetRitMax - RetRit1
			
		If(RetRit1 >= 0) Then' And RetIncrRitMax = 0) Then
			
		Call Scrivi(StringaNumeri(aNum) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff)
			
		End If
		
		
		
		Dim x
		
		'If x Mod 100 = 0 Then
		'Call Messaggio("Colonna : " & x)
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(0,UBound(aRighe),1)
		'End If
		
		
		
		Next
		
		End If
		Next
		
		'Loop
		'End If
		End Sub

Lo script a livello pratico non da errori e funziona regolarmente... solo che non riesco a collegare... la barra dell'avanzamento elaborazione e non riesco a togliere il carattere punto, che appare davanti ad ogni lunghetta importata e analizzata, nel report in output finale :( :confused: :D
 
Dunque il problema della barra l'ho risolto!

Codice:
Call Scrivi (StringaNumeri(aNum) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff)
			
		End If
		
		Call AvanzamentoElab(0,UBound(aRighe),contatore)
		
		Dim x
		
		'If x Mod 100 = 0 Then
		
		'Call Messaggio("Colonna : " & x)
		
		If ScriptInterrotto Then Exit For
		
		'Call AvanzamentoElab(0,UBound(aRighe),1)
		
		'End If

Resta di rimuovere il punto all'inzio di ogni formazione nel report finale :D
 
Caio Tom , il tuo problema non 'ho ancora visto però intervengo per dirti che l'indentatura del codice dimostra la chiarezza delle idee del programmatore, infatti molti pensano che l'indentatura sia un fattore di bellezza che si ottiene premendo quel bel pulsantino apposito
invece mano mano che si scrive il codice le righe vanno indentate a mano ... il pulsantino è solo un aiuto che viene alla fine.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 27 maggio 2025
    Bari
    15
    61
    19
    34
    80
    Cagliari
    69
    10
    33
    22
    25
    Firenze
    18
    55
    30
    29
    78
    Genova
    64
    18
    35
    56
    57
    Milano
    41
    86
    61
    17
    89
    Napoli
    87
    31
    27
    57
    16
    Palermo
    31
    69
    53
    64
    14
    Roma
    14
    24
    02
    08
    29
    Torino
    83
    04
    79
    49
    27
    Venezia
    19
    57
    53
    10
    33
    Nazionale
    14
    68
    86
    56
    58
    Estrazione Simbolotto
    Milano
    42
    04
    44
    34
    07
Indietro
Alto