Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
vincenzo4221;n1898576 ha scritto:No Joe , non è la stessa cosa , è uno studio del grande SEVERO lottologo esperto , se vuoi posso riportare una pubblicazione che spiega come ricavare gli Ammortizzatori del Ritardo , a mano è impossibile aggiornare di volta in volta i risultati . Se servono ? penso proprio di si alla pari delle più importanti statistiche.
Sub Main()
Dim ruo(1),num(2),nu(1),num2(1)
qt = CInt(InputBox("QUANTE ESTRAZIONI A RITROSO",,5))
ini = EstrazioneIni
fin = EstrazioneFin - 1
fine = EstrazioneFin
'Call Titoli(atitoli)
For es = fine To EstrazioneFin - qt Step - 1
Scrivi "Estrazione Analizzata.... " & GetInfoEstrazione(es),1
ReDim atitoli(12)
atitoli(1) = " Ruota "
atitoli(2) = " Numero + Rit "
atitoli(3) = " Rit. attuale "
atitoli(4) = " Rit Max sto "
atitoli(5) = " incr Max "
atitoli(6) = " Frequenza "
atitoli(7) = " RitRel "
atitoli(8) = " % Rr/Rit "
atitoli(9) = " RSL "
atitoli(10) = " % Rsl/rit "
atitoli(11) = "RR/RSL"
atitoli(12) = " Verifica "
Call InitTabella(atitoli,,,4,1)
For r = 1 To 12
If r = 11 Then r = 12
For k = 1 To 90
ruo(1) = r
num(1) = k
'num(2) = k
If k = NumeroPosRit(es,r,1) Then
k2 = NumeroPosRit(es,r,2)
nu(1) = k2' = NumeroPosRit(es,r,2)
Call StatisticaFormazioneTurbo(num,ruo,1,Rit,RitMax,IncrRitMax,Freq,ini,es)
Call StatisticaFormazioneTurbo(nu,ruo,1,Rit2,RitMax2,IncrRitMax2,Freq2,ini,es)
Call VerificaEsitoTurbo(num,ruo,es + 1,1,1,,,,estratti)
Call VerificaEsitoTurbo(nu,ruo,es + 1,1,1,,,,estratti2)
ReDim avalori(12)
avalori(1) = NomeRuota(r)
If rit = rit2 Then avalori(2) = k &"." & nu(1)
If rit <> rit2 Then avalori(2) = k
avalori(3) = rit
If rit = rit2 Then avalori(4) = ritmax & "-" & RitMax2
If rit <> rit2 Then avalori(4) = ritmax
avalori(5) = IncrRitMax
If rit = rit2 Then avalori(6) = freq &"-" & freq2
If rit <> rit2 Then avalori(6) = freq
avalori(7) = RitPosCrono(k,r,es)
avalori(8) = Round(avalori(7)/avalori(3),2)*100 & " % "
avalori(9) = RitSincDiLiv(k,r,es,nliv)
avalori(10) = Round(avalori(9)/avalori(3),2)*100 & " % "
avalori(11) = Round(avalori(7)/avalori(9),2)*100 & " % "
If rit = rit2 Then avalori(12) = estratti & Estratti2
If rit <> rit2 Then avalori(12) = estratti
Call AddRigaTabella(avalori,,,3)
If avalori(3) > 99 Then
Call SetColoreCella(3,vbRed)
End If
Call SetColoreCella(2,,2)
Call SetColoreCella(7,,7)
End If
Next
Messaggio "Ruota: " & Format2(r) & ", Numero: " & prit
Call AvanzamentoElab(1,11,r)
If ScriptInterrotto Then Exit For
Next
CreaTabellaOrdinabile(7)
Next
Scrivi
Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & fin & " del " & DataEstrazione(fin)
Scrivi
Call PicStampaTesto(40,20,"Tabella By Mike58 ",,True,True,,11,vbBlue)
Call PicEsegui
End Sub