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

[lotto_tom75]

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...

Grazie a chiunque mi faccia un pò di luce al riguardo ??

 

[claudio8]

Ciao caro
Che c'è ti è andata via la corrente o hai fatto corto circuito?

Domani provo a caricare lo script...
stasera ho il cervello spento

 

[lotto_tom75]

Ciao caro
Che c'è ti è andata via la corrente o hai fatto corto circuito?

Domani provo a caricare lo script...
stasera ho il cervello spento

"Che c'è ti è andata via la corrente o hai fatto corto circuito?" la seconda che hai detto claude ?? ?

 

[claudio8]

Pasticcione .... Sei arrivato ad utilizzare le classi .. Beato te che ti elevi.

Ciao

 

[claudio8]

Ti consiglio di trasforma il tutto usando le matrici.
ciao

 

[Giggio]

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 ..

 

[i legend]

Più che critiche sono lezioni. per tutti noi
Ciao e buona domenica a tutti.

 

[claudio8]

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.

 

[lotto_tom75]

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..., 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 ? ?

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

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

 

[claudio8]

Ehi Svicolone
non sarebbe meglio approfittare per un ripasso.
Good Sunday

 

[lotto_tom75]

Ehi Svicolone
non sarebbe meglio approfittare per un ripasso.
Good Sunday