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...
Grazie a chiunque mi faccia un pò di luce al riguardo ??
per questa volta credo si trattasse davvero di un'inezia che riguardandolo meglio... ? dovrei aver scovato... ?️
