Novità

Lo script dovrebbe verificare ogni estrazione voluta dopo aver ordinato i parametri in tabella... ma...

lotto_tom75

Advanced Premium Member
Codice:
Option Explicit
Sub Main

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

Dim vettoredaverificare
Dim colpi
Dim idestr
Dim esito
Dim entrocolpi
Dim sfaldamento
Dim qualiestratti

Fine = EstrazioneFin
Inizio = Fine - 100

For idestr = Inizio To Fine

contatore = 1 : Frm = 99999

'ReDim aNum(0)

Dim aNum
'QuantitaNumeriScelti = ScegliNumeri(aNum)

aNum = Array(0,1,2,3,4,5,6,7,8,9,10)                   ' ,11,12,13,14,15,16,17,18,19,20)

ReDim aRuoteSel(12)



Call Scrivi("Data elaborazione: " & giorno(idestr) & "-" & Mese(idestr) & "-" & Anno(idestr))

Call Scrivi

ReDim aTitoli(9)
aTitoli(1) = "Formazione"
aTitoli(2) = "Ruota"
aTitoli(3) = "Sorte"
aTitoli(4) = "Ritardo"
aTitoli(5) = "Ritardo Massimo"
aTitoli(6) = "Incremento di RItardo Massimo"
aTitoli(7) = "Frequenza"
aTitoli(8) = "Diff"
aTitoli(9) = "Counter"
Call InitTabella(aTitoli)
nSorte = 1
Classe = 1
ReDim aruote7(1)
aruote7(1) = TT_
'Call Scrivi
Call Scrivi("Classe: " & Classe & " sorte: " & nSorte & " ruota " & SiglaRuota(aruote7(1)))
Call Scrivi
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Do While GetCombSviluppo(aCol) = True
i = i + 1
Dim clsN
Dim Coll
Set Coll = GetNewCollection
'ReDim aruote7(1)
'aruote7(1) = RO_
Call StatisticaFormazioneTurbo(aCol,aruote7,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,idestr,EstrazioneFin)

Call Scrivi ("parametri di verifica per ogni estrazione: "  & " num: " & StringaNumeri(aCol) & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " freq " & RetFreq)

Diff = RetRitMax - RetRit1
Set clsN = New clsRitardo
clsN.numero = StringaNumeri(aCol)
clsN.aRuote = "ruota:" & NomeRuota(aruote7(1))
clsN.nSorte = nSorte
clsN.nritardo = RetRit1
clsN.RetRitMax = RetRitMax
'clsN.RetRitIncrRitMax = RetIncrRitMax
clsN.RetFreq = RetFreq
'clsN.difforo = Diff
'clsN.contatore = contatore
Dim Diff
Diff = RetRitMax - RetRit1
Dim rapportoRARS
'rapportoRARS = RetRit1/RetRitMax
Call AvanzamentoElab(1,ColTot,i)

If(RetRit1 >= 0) Then
Call Messaggio(NomeRuota(aruote7(1)) & "-" & StringaNumeri(aCol) & "- ra " & RetRit1 & " -  rx " & RetRitMax & " - incmax " & RetIncrRitMax & " - fq " & RetFreq & " Estraz. n. " & idestr) '& NomeRuota(aruote7(2)))
contatore = contatore + 1
Else
Call Messaggio("Colonna " & i)
End If

If ScriptInterrotto Then Exit Do

Coll.Add clsN,"k" & clsN.numero

For Each clsN In Coll

ReDim aValue(9)
aValue(1) = clsN.numero
aValue(2) = clsN.aRuote
aValue(3) = clsN.nSorte
aValue(4) = clsN.nritardo
aValue(5) = clsN.RetRitMax
    
'aValue(6) = clsN.RetRitIncrRitMax
aValue(7) = clsN.RetFreq
'aValue(8) = clsN.difforo
'aValue(9) = clsN.contatore

''''ritardo max
If aValue(4) > Rmx Then
Rmx = aValue(4)
comb1 = aValue(1)
End If

Dim rmm,comb0
''''ritardo min
If aValue(4) < rmm Then
rmm = aValue(4)
comb0 = aValue(1)
End If

'''frequenza max
If aValue(7) > Frx Then
Frx = aValue(7)
comb2 = aValue(1)
End If
'''frequenza min
If aValue(7) < Frm Then
Frm = aValue(7)
comb3 = aValue(1)
End If
Call AddRigaTabella(aValue)

'Scrivi "Combinazione " & comb0 & " Ritardo Minimo " & rmm,1,2,4
'Scrivi "Combinazione " & comb1 & " Ritardo Massimo " & Rmx,1,2,4
'Scrivi "Combinazione " & comb2 & " Frequenza Massima " & Frx,1,2,4
'Scrivi "Combinazione " & comb3 & " Frequenza Minima " & Frm,1,2,4

Next


'Scrivi "Combinazione " & comb0 & " Ritardo Minimo " & rmm,1,2,4
'Scrivi "Combinazione " & comb1 & " Ritardo Massimo " & Rmx,1,2,4
'Scrivi "Combinazione " & comb2 & " Frequenza Massima " & Frx,1,2,4
'Scrivi "Combinazione " & comb3 & " Frequenza Minima " & Frm,1,2,4

Loop
'
Scrivi "Combinazione " & comb0 & " Ritardo Minimo " & rmm,1,2,4
Scrivi "Combinazione " & comb1 & " Ritardo Massimo " & Rmx,1,2,4
Scrivi "Combinazione " & comb2 & " Frequenza Massima " & Frx,1,2,4
Scrivi "Combinazione " & comb3 & " Frequenza Minima " & Frm,1,2,4

Call CreaTabella(4,2,0)



Call SplitByChar(comb1,".",vettoredaverificare)

Call VerificaEsito(vettoredaverificare,aruote7,idestr + 1,nSorte,colpi,,esito,entrocolpi,qualiestratti,sfaldamento)

If esito <> " " Then

Call Scrivi("Esito verificato per i/il n. " & qualiestratti & " per la sorte di " & nSorte & " In data " & sfaldamento & " al colpo n. " & entrocolpi)

Else

Call Scrivi("esito non verificato nei colpi impostati per la ricerca ")

End If

End If

Scrivi
Call Scrivi("Tempo elaborazione: " & TempoTrascorso)
Scrivi

If ScriptInterrotto Then Exit For
Next

End Sub

Class clsRitardo
   Dim numero
Dim nRitardo
Dim aCol
Dim aRuote
Dim nSorte
Dim RetRit1
Dim RetRitMax
Dim RetRitIncrRitMax
Dim RetFreq
Dim difforo
   Dim contatore
End Class



'perchè non mi analizza i nuovi valori per ogni estrazione dopo ogni sfaldamento?

Invece se lo si fa girare la statistica e di conseguenza la tabella ordinativa è sempre uguale... per ogni estrazione.., la quale invece cambia in modo regolare... :unsure:

Grazie a chiunque mi faccia un pò di luce al riguardo ??
 
Ciao LottoTom , io invece ti consiglio di capire meglio quello che stai facendo .

Che senso ha istanziare la collection ad ogni passaggio nel ciclo che sviluppa le combinazioni ? Ogni volta si riazzera e alla fine conterrà sempre un solo oggetto , poi cicli gli oggetti nella collection sempre nello stesso ciclo che sviluppa le combianzioni che la cicli a fare se contiene un solo oggetto ?

Le classi non ti servono a nulla in questo caso ,valorizzi le proprietà di un oggetto che hai istanziato ma poi lo usi per trasferirle in un array .. puoi usare direttamente l'array.

Le variabili si dichiarano tutte al'inizio non perche non funzioni ma per questioni di ordine soprattutto mentale sullo scopo per cui sono state dichiarate.

Il codice si indenta , non indentarlo dimostra la confusione con la quale è stato partorito ...

Sono critiche si ma spero che ti servano a migliorare ..
 
Ciao LottoTom , io invece ti consiglio di capire meglio quello che stai facendo .

Che senso ha istanziare la collection ad ogni passaggio nel ciclo che sviluppa le combinazioni ? Ogni volta si riazzera e alla fine conterrà sempre un solo oggetto , poi cicli gli oggetti nella collection sempre nello stesso ciclo che sviluppa le combianzioni che la cicli a fare se contiene un solo oggetto ?

Le classi non ti servono a nulla in questo caso ,valorizzi le proprietà di un oggetto che hai istanziato ma poi lo usi per trasferirle in un array .. puoi usare direttamente l'array.

Le variabili si dichiarano tutte al'inizio non perche non funzioni ma per questioni di ordine soprattutto mentale sullo scopo per cui sono state dichiarate.

Il codice si indenta , non indentarlo dimostra la confusione con la quale è stato partorito ...

Sono critiche si ma spero che ti servano a migliorare ..
Tom, anche io attendo tue.;):devilish:;)
 
Ciao ragazzi, innanzi tutto grazie mille per i vostri consigli da top players, sempre ultra ben accetti anche se talvolta sono sottoforma di scudiciate, by L.. pardon Giggio! ;) Top! ???? ?

Per quanto riguarda il mio problemuzzo a parte la mia mancanza di indentazione e tendenza ad impiastricciare il code, per le quali cercherò di metterci + attenzione..., :D per questa volta credo si trattasse davvero di un'inezia che riguardandolo meglio... ? dovrei aver scovato... ?️‍♂️

In quanto adesso sembra valutarmi tutti gli ra in modo dinamico e regolare per ogni estrazione esaminata anche appunto lasciando tutto così com'è tranne... questa riga qua che vi riporto sotto per vostra conferma o eventuale diniego ? ? ;)

Codice:
Call StatisticaFormazioneTurbo(aCol,aruote7,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,idestr)

In pratica questa volta mi sembra che avessi sbagliato ad inserire Inizio e idestr nelle rispettive posizioni di riga della soprastante funzione posizionandole in modo invertito :unsure::LOL:

Grazie di nuovo e un caro saluto a tutti gli intervenuti. Good Sunday e al prox pasticcio from Lotto-tom's Script Confectionery ! ????‍?:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 05 agosto 2025
    Bari
    57
    24
    52
    53
    56
    Cagliari
    43
    12
    64
    58
    22
    Firenze
    55
    05
    51
    58
    87
    Genova
    19
    80
    76
    75
    71
    Milano
    52
    44
    86
    33
    02
    Napoli
    28
    67
    29
    51
    53
    Palermo
    73
    90
    46
    51
    80
    Roma
    42
    30
    62
    02
    12
    Torino
    49
    61
    56
    11
    10
    Venezia
    66
    79
    83
    12
    07
    Nazionale
    47
    16
    32
    66
    64
    Estrazione Simbolotto
    Nazionale
    14
    05
    44
    38
    29

Ultimi Messaggi

Indietro
Alto