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.
Sub Main
Dim Nu(3),Ru(1),T,V
ini = EstrazioneIni
fin = EstrazioneFin
Tot = fin - Ini + 1
ResetTimer
T = Array(T,"Ruota","Terzina coesione Matematica","Ritardo","Storico","Incr","Freq","Ultima Sortita","Data","Indice Convenienza")
Call InitTabella(T)
For r = 1 To 12 : If r = 11 Then r = 12
For a = 1 To 45
k = k + 1
b = a*2
c = 91 - a
Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r
Call StatisticaFormazione(Nu,Ru,2,rit,max,Incr,fre,Ini,fin)
Call VerificaEsito(Nu,Ru,fin - rit,2,1,,,,es1,id)
ic = Round((fre/Tot*rit),2)
Call Messaggio("Elaboro Ruote . . . . " & NomeRuota(r))
Call AvanzamentoElab(1,12,r)
V = Array(V,NomeRuota(r),StringaNumeri(Nu,,1),rit,max,Incr,fre,es1,GetInfoEstrazione(id),ic)
Call AddRigaTabella(V)
Next
Next
Scrivi "Tempo di Elaborazione : " & TempoTrascorso
Call CreaTabellaOrdinabile(3)
Scrivi k,1
End Sub