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
    venerdì 02 maggio 2025
    Bari
    71
    09
    03
    80
    50
    Cagliari
    32
    75
    30
    70
    40
    Firenze
    72
    16
    32
    70
    90
    Genova
    33
    34
    60
    75
    59
    Milano
    23
    82
    28
    03
    41
    Napoli
    87
    26
    22
    77
    39
    Palermo
    53
    11
    16
    22
    48
    Roma
    20
    31
    84
    79
    40
    Torino
    79
    78
    27
    04
    51
    Venezia
    20
    36
    76
    17
    88
    Nazionale
    15
    22
    51
    27
    18
    Estrazione Simbolotto
    Milano
    20
    11
    41
    05
    04

Ultimi Messaggi

Indietro
Alto