Novità

chiedo cortesemente Modifica listato

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
 
modifica la riga
Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe & " " & GetInfoEstrazione(EstrazioneFin - rit)
prima di
For np = 1 To 5
 
modifica la riga
Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe & " " & GetInfoEstrazione(EstrazioneFin - rit)
prima di
For np = 1 To 5
SALVE.....é possibile avere una versione x il 10elotto?

GRAZIE!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
Indietro
Alto