Option Explicit
Sub Main
Dim Out
Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot,Rmx,Frx,comb1,comb2,comb3,Frm
Dim contatore
ReDim aNum(0)
ReDim aRuoteSel(12)
Dim y
ReDim aRighe(0)
Dim ruotevolute
Dim qualiruote
Dim cr
Dim Valoreinizioelaborazione,Valorefineelaborazione
Dim aretcol
Dim vettorexverifica
Dim EstrazioneFine
Dim colpi
Dim colpidibase
Dim esitoverifica
Dim alcolponumero
Dim estratti
Dim idestrazioneuscita
Dim colpomassimo
Dim colpirimanentirispettocolpomassimo
Dim colpirimanentirispettocolpidiricerca
Dim colpirestantiminimi
Dim Formazioneconcolpirestantiminimi
Dim ruotaconcolpirestantiminimi
Dim crtminnegativirispettocolpomax
Dim ruoteanalizzate
Dim quanteiterazionipercercarecrtminmigliore
Dim Valorecolpirestantidesiderato
Dim rangetemporaleanalizzato
Dim estrazioneprogressiva
Dim iterazioneprogressiva
Dim contaestrazioni
ReDim aruote7(1)
Dim quantevolteripetereanalisi
Dim quantevolte
Dim filereport
Dim sortediverifica
Dim estrazionidaverificare
Dim velocitalettura
Dim casitotali
Dim clsN
Dim Coll
Dim Diff
Dim rapportoRARS
Dim p
ReDim aValue(9)
Dim qcinquine
Dim qquaterne
Dim qterni
Dim qambi
Dim qestratti
Dim sMessaggio
Dim casiok
Dim messaggiocondizioneok
Dim casino
Dim casiora
Call Scrivi("Data elaborazione: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin) & " | " & GetInfoEstrazione(EstrazioneFin))
Call Scrivi
Call Scrivi("Archivio lotto aggiornato al: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin) & " | " & GetInfoEstrazione(EstrazioneFin))
Inizio = EstrazioneIni
contatore = 1 : Frm = 99999
nSorte = 2
filereport = ".\filereport.txt"
Call Messaggio("Lettura file di testo")
Call LeggiRigheFileDiTesto(filereport,aRighe)
For y = 0 To UBound(aRighe)
If aRighe(y) <> "" Then
Call SplitByChar("." & aRighe(y) & ".",".",aNum)
End If
Next
If Classe <= 6 Then
estrazionidaverificare = 2000
End If
EstrazioneFine = EstrazioneFin
estrazionidaverificare = 100
colpi = estrazionidaverificare - 2
colpidibase = colpi
Call Messaggio("Lettura file di testo")
Call LeggiRigheFileDiTesto(filereport,aRighe)
For y = 0 To UBound(aRighe)
If aRighe(y) <> "" Then
Call SplitByChar("." & aRighe(y) & ".",".",aNum)
End If
Next
nSorte = 2
sortediverifica = 2
Classe = CInt(UBound(aNum) - 2)
If Classe <= 6 Then
estrazionidaverificare = 2000
End If
EstrazioneFine = EstrazioneFin
estrazionidaverificare = 100
colpi = estrazionidaverificare - 2
colpidibase = colpi
colpirimanentirispettocolpomassimo = EstrazioneFin
colpirimanentirispettocolpidiricerca = EstrazioneFin
colpirestantiminimi = EstrazioneFin + 1
ruoteanalizzate = Array(0)
Valoreinizioelaborazione = 1
Valorefineelaborazione = 100
quanteiterazionipercercarecrtminmigliore = 1
Valorecolpirestantidesiderato = 3
rangetemporaleanalizzato = EstrazioneFine - estrazionidaverificare
filereport = ".\filereport.txt"
'Do While Classe >= 10
' For quantevolte=1 To 10
For iterazioneprogressiva = 1 To quanteiterazionipercercarecrtminmigliore
For estrazioneprogressiva = rangetemporaleanalizzato To EstrazioneFine
contaestrazioni = contaestrazioni + 1
aruote7(1) = 12
For i = Valoreinizioelaborazione To Valorefineelaborazione
Call GetColonnaCasuale(Classe,aretcol,aNum)
Call StatisticaFormazioneTurbo(aretcol,aruote7,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,estrazioneprogressiva)
i = i + 1
Diff = RetRitMax - RetRit1
Formazioneconcolpirestantiminimi = StringaNumeri(aretcol)
Call AvanzamentoElab(1,ColTot,i)
If ScriptInterrotto Then Exit For
Next '
casitotali = casitotali + 1
If ScriptInterrotto Then Exit For
Next
Call AvanzamentoElab(1,Valorefineelaborazione,i)
contaestrazioni = 0
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "range di analisi " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(EstrazioneFin)
Scrivi "estrazioni verificate " & estrazionidaverificare & " da " & GetInfoEstrazione(rangetemporaleanalizzato) & " a " & GetInfoEstrazione(EstrazioneFine)
Scrivi "iterazioni totali " & quanteiterazionipercercarecrtminmigliore
Scrivi
Scrivi "ruota/e analizzate n. " '
Scrivi "classe <font color=red>" & Classe & "</font>"
Scrivi "sorte di ricerca " & nSorte
Scrivi "sorte di verifica " & sortediverifica
Scrivi "colpi di ricerca iniziali " & colpidibase
Scrivi "colpi di ricerca raggiunti " & colpi
Scrivi
Scrivi "ct " & casitotali
Scrivi "c+ " & casiok
Scrivi "co " & casiora
If casino > 0 Then
Scrivi "<font color=red>Attenzione presenza di almeno un caso negativo cambiare parametri per cercare di ritornare con casi positivi al 100%+</font>"
Scrivi "<font color=red>c- " & casino & "</font>"
Else
Scrivi "c- " & casino & "</font>"
End If
If crtminnegativirispettocolpomax > 0 Then
Scrivi "<font color=blue size=2 face=verdana>Elaborazione comunque migliorabile per la presenza purtroppo di almeno un colpo restante negativo rispetto il colpo massimo"
End If
Scrivi "% + " &(casiok / casitotali) * 100
Scrivi "colpi restanti negativi rispetto colpo massimo " & crtminnegativirispettocolpomax
Scrivi "colpo massimo " & colpomassimo
Scrivi "colpirestantiminimi " & colpirestantiminimi
Scrivi "colpi restanti minimi ottimali " & messaggiocondizioneok
Scrivi "formazione con colpi restanti minimi " & Formazioneconcolpirestantiminimi
Scrivi "ruota con colpi restanti minimi " & ruotaconcolpirestantiminimi
Scrivi
Scrivi "cinquine " & qcinquine
Scrivi "quaterne " & qquaterne
Scrivi "terni " & qterni
Scrivi "ambi " & qambi
Scrivi "estratti " & qestratti
Scrivi
Scrivi "tempo trascorso: " & TempoTrascorso
Scrivi
ScriviFile filereport,Formazioneconcolpirestantiminimi
Call CloseFileHandle(filereport)
Scrivi
Scrivi
Scrivi Formazioneconcolpirestantiminimi
Scrivi
'If ScriptInterrotto Then Exit For
'Next
'If ScriptInterrotto Then Exit Do
'Loop
Scrivi "fine elaborazione!"
Scrivi "Tt " & TempoTrascorso
End Sub
Tradotto maestro: non è possibile avere un comando per azionarlo da code alternativo ai for next e do while? 
Vorrà dire che cliccherò il fulmine 
Grazie comunque per i minuti persi nell'umiliarmi... 
Tipo kick boxing o roba del genere? Di solito questo atteggiamento leggermente esagerato... lo hanno chi pratica tali arti marziali... dovuto proprio al fatto dall'essere stati allenati con modus operandi tipo tana delle tigri 
o discipline del genere... 
