R
Roby
Guest
ho aggiornato lo script
però necessita di essere controllato in questi punti.
1)Cicli Completati e Ritardo Intermedio ult.ciclo
2)
però necessita di essere controllato in questi punti.
1)Cicli Completati e Ritardo Intermedio ult.ciclo
2)
Codice:
Settore ABASUL - Teorizzazione ritardi Futuro
Rit.Futuro 1°Teorico Prev.Caduta
Rit.Futuro 2°Teorico Prev.Caduta
Rit.Futuro 3°Teorico Prev.Caduta
Rit.Futuro 4°Teorico Prev.Caduta
perchè quando affermi che il 2°rit dovrei prendere il ritardo precedente (media precedente o ritardo precedente????)
il rit 3 e 4 si incrementano dal rit.precedente o media precedente + 2 volte smq?
Codice:
Sub Main
'''abasul10 ambo secco
Dim sfile
Dim records
Dim art(1)
Dim dif(900)
Dim t
Dim Media
r = InputBox("Inserire Ruota ",,2)
capo = InputBox("Inserire Ambo ",,"08.50")
Do While futuroins = ""
futuroins = InputBox("Inserire Ritardo Futuro..",,"")
If futuroins = "" Then
MsgBox("Manca valore ritardo futuro")
Else
Exit Do
End If
Loop
k1 = Left(capo,2)
k2 = Right(capo,2)
'''preimposta inizio estrazioni per ruote nate recentemente
''' per nazionale imposta dal conc.n. 7440 altre ruote dal 3650
dal = 1 ' inizio tutte le altre ruote
If r = 12 Then dal = 7440 'inizio nazionale
If r = 1 Then dal = 174 'inizio bari
If r = 2 Then dal = 3649 'inizio cagliari
If r = 4 Then dal = 3577 'inizio genova
ReDim asvil(900)
ctr = 0
Iniz = dal
ini = dal
al = Iniz - 1
ciclicompleti =(EstrazioneFin - dal)/400.5
parziale = Int(ciclicompleti)*400.5
intermed =(EstrazioneFin - dal) - parziale
Call Messaggio(NomeRuota(r) & "...Elab.Ambo secco richiesto...." & capo)
Call AvanzamentoElab(1,90,k)
tq = 0
ReDim atitoli(6)
' preimposto i titoli delle colonne
atitoli(1) = " Riferimenti estraz.passato "
atitoli(2) = " Ritardo "
atitoli(3) = " Totale Ritardo "
atitoli(4) = " Media Ritardo "
atitoli(5) = " scarto md.quadratico "
atitoli(6) = " Diff.smdq Prec."
' inizializzo la tabella
Call InitTabella(atitoli,1,"center",2,5)
For Ini = Ini + 1 To EstrazioneFin
ok = 0
estratti = ""
des2 = ""
des1 = ""
rambo = ""
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(6) '
ReDim anum(2)
If k <> Int(k1) Then
For h = 1 To 5
If Int(k1) = Estratto(Ini,r,h) Then
ok = ok + 1
des2 = des2 & Format2(Estratto(Ini,r,h)) & " "
End If
If Int(k2) = Estratto(Ini,r,h) Then
ok = ok + 1
des2 = des2 & Format2(Estratto(Ini,r,h)) & " "
End If
estratti = estratti & Format2(Estratto(Ini,r,h)) & " "
numeri = capo
Next
If ok = 2 Then
al = Ini - 1
ctr = ctr + 1
dat = Ini & " " & DataEstrazione(Ini)
ruota = NomeRuota(r)
art(1) = r
anum(1) = k1
anum(2) = k2
rambo = AmboRitardo(r,k2,k1,dal,Ini - 1)
If ctr = 1 Then
''''' Scrivi EstrazioneIni & "/" & Ini & "------" & Ini - EstrazioneIni
rambo =(Ini - dal)
End If
des1 = "Ambo"
records = ctr & "," & dat & "," & ruota & "," & estratti & "," & rambo & "," & des1 & "," & des2
asvil(ctr) = ctr & "," & dat & "," & ruota & "," & estratti & "," & rambo & "," & des1 & "," & des2
tq = tq + rambo
''''''''''''' Scrivi dat & " " & rambo & " " & rett
rita = AmboRitardo(r,Int(k1),Int(k2),dal,EstrazioneFin)
rtsto = AmboStorico(r,k2,k1,dal,EstrazioneFin)
last = Ini
Totrit = Totrit + rambo
Mediastor = Totrit / ctr
''''-----calcola smq e differenze storiche-----------------------------------------
Totquastor = 0
For z = 1 To ctr
ReDim av2(0)
Call SplitByChar(asvil(z),",",av2)
If Int(Mediastor) > CLng(av2(4)) Then
df = Mediastor - CLng(av2(4))
Else
df = CLng(av2(4)) - Mediastor
End If
quadrostor = df * df
Totquastor = Totquastor + quadrostor
Next
'''calcola sqm e medie
smqstor = Sqr(Totquastor/ctr)
avalori(1) = NomeRuota(r) & "......." & dat
avalori(2) = rambo
avalori(3) = totrit
avalori(4) = round(
