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.
Beppignello;n2063098 ha scritto:ciao grazie per il tutorial
volevo chiedere 2 cose
io ho windows 10, c'è vbnet gratis da scaricare da qualche parte?
quando qualcuno ha finito di creare la dll, potrebbe postare i risultati di questa combinazione
estraz.9317 del 16/5/2017
comb. 1-3-8-9-11-15-18-21-22-24-25-27-31-32-34-36-39-40-45-46-53-55-60-64-68-70-77-80-84-2-90
con i ritardi da 5 punti a 20 punti
con i max da 5 punti a 20 punti
con la frequenza da 5 punti a 20 punti
Sub StatisticaDL(aNum,nSorte,Rit,RitMax,IncrMax,Pres,Freq,Ini,Fin,PuntiMax)
'routine da verificare
' Base per costruire anche una funzione simile a Elenco ritardi
Dim IdEstr
Dim Conta,M,i
Dim Punti
ReDim aRit(0),aIdEstr(0)
Pres = 0
Freq = 0
M = 0
Punti = 0
PuntiMax = 0
For IdEstr = Ini To Fin
ReDim aSortiti(0)
Call GetEstrazioneCompletaDL(IdEstr,aSortiti)
Punti = PuntiSuArray(aSortiti,aNum)
' If Punti = nSorte Then Pres = Pres + 1 ' se si elimina l apice vengono calcolate le presenze
If Punti > PuntiMax Then PuntiMax = Punti
If Punti >= nSorte Then
Freq = Freq + Combinazioni(Punti,nSorte)
Conta = 0
M = M + 1
ReDim Preserve aRit(M)
ReDim Preserve aIdEstr(M)
aIdEstr(M) = IdEstr
Else
Conta = Conta + 1
aRit(M) = Conta
End If
Next
' ultimo ritardo cronologico
Rit = aRit(M)
If Rit < 1 Then Rit = 0' senza questo non scrive in output zero
ReDim aRitMax(M)
RitMax = 0
IncrMax = 0
'con questo ciclo calcolo i Ritardi Massimi e l Incremento
' il ritardo massimo è quello precedente al ritardo attuale anche se questo è maggiore
For i = 0 To M - 1
aRitMax(i) = aRit(i)
If aRitMax(i) > RitMax Then
IncrMax = aRitMax(i) - RitMax
RitMax = aRitMax(i)
End If
Next
End Sub