mastrogino
Advanced Premium Member
Ciao a tutti voi , chiedo cortesemente di modificare questo listato in modo di dare
la data in cui è avvenuta lestrazione e il numero dell'estrazione dell'ambo di ricerca
questo listato e del brevo Mike58
Option Explicit
Sub Main
'x mike58 rileva minimi rs per singola ruota voluta per le formazioni e i range voluti; in questa terza versione lo script su richiesta di micro_ rileva anche l'rs min posizionale con relativa formazione di riferimento valutando la scelta su tutte le ruote selezionate e analizzate in modo separato. by tom.
Dim es
Dim rit,ritmax,freq,Incmax
Dim rsmingen
ReDim numeri(0)
Dim Formazione
Dim ruota
Dim sortediricerca
Dim Classedisviluppo
Dim righesviluppate
Dim contarighe
Dim rigasviluppata
Dim aruota(1)
Dim ritp,ritmaxp,Incmaxp,freqp
Dim Formazioneconrsmingen
Dim aPosizione(1)
rsmingen = EstrazioneFin
ScegliNumeri(numeri)
ReDim aruote(0)
ScegliRuote(aruote)
'aruota(1) = ruota
Dim np
Dim sortep
sortep = 1
Dim rspmingen
rspmingen = EstrazioneFin
Dim Formazioneconrspmingen
Dim Posizioneconrspmingen
Dim ruotaconrspmingen
sortediricerca = CInt(InputBox("scegli sorte di ricerca ",,2))
Classedisviluppo = CInt(InputBox("scegli classe di sviluppo ",,2))
Scrivi "Ricerca valori minimi di rs per la ruota voluta con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi "Analisi effettuata nel range temporale " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
Scrivi
Scrivi "n. " & StringaNumeri(numeri)
Scrivi "r. " & StringaRuote(aruote)
Scrivi "s. " & NomeSorte(sortediricerca)
Scrivi "c. " & Classedisviluppo
Scrivi
Scrivi
For nr = 1 To UBound(aruote)
aruota(1) = aruote(nr)
Scrivi "RUOTA " & aruota(1)
righesviluppate = InitSviluppoIntegrale(numeri,Classedisviluppo)
If righesviluppate > 0 Then
Dim nr
Do While GetCombSviluppo(rigasviluppata) = True
contarighe = contarighe + 1
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortediricerca,rit,ritmax,Incmax,freq,EstrazioneIni,EstrazioneFin)
Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe
For np = 1 To 5
aPosizione(1) = np
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortep,ritp,ritmaxp,Incmaxp,freqp,EstrazioneIni,EstrazioneFin,,aPosizione)
Scrivi StringaNumeri(aPosizione,".") & " - " & NomeRuota(aruota(1)) & " - ritp " & ritp & " - ritmaxp " & ritmaxp & " - incmaxp " & Incmaxp & " - freqp " & freqp & " riga " & contarighe
If ritmaxp < rspmingen Then
rspmingen = ritmaxp
Formazioneconrspmingen = StringaNumeri(rigasviluppata)
Posizioneconrspmingen = aPosizione(1)
ruotaconrspmingen = aruota(1)
End If
Next
If ritmax < rsmingen Then
rsmingen = ritmax
Formazioneconrsmingen = StringaNumeri(rigasviluppata)
End If
If ScriptInterrotto Then Exit Do
Messaggio "rs minimo per adesso... " & rsmingen & " x formazione " & Formazioneconrsmingen & " sulla ruota di " & NomeRuota(aruota(1))
Call AvanzamentoElab(1,righesviluppate,contarighe)
Loop
End If
contarighe = 0
If ScriptInterrotto Then Exit For
Next ' x ruota
Scrivi
Scrivi "formazione con rs min generale rilevato per la ruota di " & NomeRuota(aruota(1)) & " : " & Formazioneconrsmingen & " con Valore di rs pari a " & rsmingen
Scrivi "formazione con rsp min generale rilevato per la ruota di " & NomeRuota(ruotaconrspmingen) & " : " & Formazioneconrspmingen & " con Valore rsp pari a " & rspmingen & " per la posizione " & Posizioneconrspmingen
Scrivi
Scrivi
Scrivi "Tempo trascorso per il rilevamento " & TempoTrascorso
End Sub
la data in cui è avvenuta lestrazione e il numero dell'estrazione dell'ambo di ricerca
questo listato e del brevo Mike58
Option Explicit
Sub Main
'x mike58 rileva minimi rs per singola ruota voluta per le formazioni e i range voluti; in questa terza versione lo script su richiesta di micro_ rileva anche l'rs min posizionale con relativa formazione di riferimento valutando la scelta su tutte le ruote selezionate e analizzate in modo separato. by tom.
Dim es
Dim rit,ritmax,freq,Incmax
Dim rsmingen
ReDim numeri(0)
Dim Formazione
Dim ruota
Dim sortediricerca
Dim Classedisviluppo
Dim righesviluppate
Dim contarighe
Dim rigasviluppata
Dim aruota(1)
Dim ritp,ritmaxp,Incmaxp,freqp
Dim Formazioneconrsmingen
Dim aPosizione(1)
rsmingen = EstrazioneFin
ScegliNumeri(numeri)
ReDim aruote(0)
ScegliRuote(aruote)
'aruota(1) = ruota
Dim np
Dim sortep
sortep = 1
Dim rspmingen
rspmingen = EstrazioneFin
Dim Formazioneconrspmingen
Dim Posizioneconrspmingen
Dim ruotaconrspmingen
sortediricerca = CInt(InputBox("scegli sorte di ricerca ",,2))
Classedisviluppo = CInt(InputBox("scegli classe di sviluppo ",,2))
Scrivi "Ricerca valori minimi di rs per la ruota voluta con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi "Analisi effettuata nel range temporale " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
Scrivi
Scrivi "n. " & StringaNumeri(numeri)
Scrivi "r. " & StringaRuote(aruote)
Scrivi "s. " & NomeSorte(sortediricerca)
Scrivi "c. " & Classedisviluppo
Scrivi
Scrivi
For nr = 1 To UBound(aruote)
aruota(1) = aruote(nr)
Scrivi "RUOTA " & aruota(1)
righesviluppate = InitSviluppoIntegrale(numeri,Classedisviluppo)
If righesviluppate > 0 Then
Dim nr
Do While GetCombSviluppo(rigasviluppata) = True
contarighe = contarighe + 1
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortediricerca,rit,ritmax,Incmax,freq,EstrazioneIni,EstrazioneFin)
Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe
For np = 1 To 5
aPosizione(1) = np
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortep,ritp,ritmaxp,Incmaxp,freqp,EstrazioneIni,EstrazioneFin,,aPosizione)
Scrivi StringaNumeri(aPosizione,".") & " - " & NomeRuota(aruota(1)) & " - ritp " & ritp & " - ritmaxp " & ritmaxp & " - incmaxp " & Incmaxp & " - freqp " & freqp & " riga " & contarighe
If ritmaxp < rspmingen Then
rspmingen = ritmaxp
Formazioneconrspmingen = StringaNumeri(rigasviluppata)
Posizioneconrspmingen = aPosizione(1)
ruotaconrspmingen = aruota(1)
End If
Next
If ritmax < rsmingen Then
rsmingen = ritmax
Formazioneconrsmingen = StringaNumeri(rigasviluppata)
End If
If ScriptInterrotto Then Exit Do
Messaggio "rs minimo per adesso... " & rsmingen & " x formazione " & Formazioneconrsmingen & " sulla ruota di " & NomeRuota(aruota(1))
Call AvanzamentoElab(1,righesviluppate,contarighe)
Loop
End If
contarighe = 0
If ScriptInterrotto Then Exit For
Next ' x ruota
Scrivi
Scrivi "formazione con rs min generale rilevato per la ruota di " & NomeRuota(aruota(1)) & " : " & Formazioneconrsmingen & " con Valore di rs pari a " & rsmingen
Scrivi "formazione con rsp min generale rilevato per la ruota di " & NomeRuota(ruotaconrspmingen) & " : " & Formazioneconrspmingen & " con Valore rsp pari a " & rspmingen & " per la posizione " & Posizioneconrspmingen
Scrivi
Scrivi
Scrivi "Tempo trascorso per il rilevamento " & TempoTrascorso
End Sub
