R
Roby
Guest
ciao abasul
non serve più fare la statistica veloce fon spaziometria
basterà inserire
la ruota
e l'ambo desiderato staccato da 1 punto
come da esempio pre-impostato
si otterrà la statistica degli scarti e delle differenze come hai chiesto.
questo è lo script, penso che sia esatto.
[red]comunque provalo e fammi sapere!
fidarsi è bene, ma non fidarsi è meglio</u>
non serve più fare la statistica veloce fon spaziometria
basterà inserire
la ruota
e l'ambo desiderato staccato da 1 punto
come da esempio pre-impostato
si otterrà la statistica degli scarti e delle differenze come hai chiesto.
questo è lo script, penso che sia esatto.
[red]comunque provalo e fammi sapere!
fidarsi è bene, ma non fidarsi è meglio</u>
Codice:
Sub Main
'''abasul5 ambo secco
Dim sfile
Dim records
Dim art(1)
Dim dif(900)
Dim t
Dim Media
r = InputBox("Ruota ",,2)
capo = InputBox("Capogioco ",,"08.50")
k1 = Left(capo,2)
k2 = Right(capo,2)
''' per nazionale imposta dal conc.n. 7440 altre ruote dal 3650
If r = 12 Then dal = 7440 Else dal = 3650 End If
ReDim asvil(900)
ctr = 0
Iniz = EstrazioneIni
ini = EstrazioneIni
al = Iniz - 1
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,EstrazioneIni,Ini - 1)
If ctr = 1 Then
''''' Scrivi EstrazioneIni & "/" & Ini & "------" & Ini - EstrazioneIni
rambo =(Ini - EstrazioneIni)
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),EstrazioneIni,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(Mediastor,4)
avalori(5) = round(smqstor,2)
avalori(6) = round(avalori(5) - difstorpre,2)
difstorpre = round(smqstor,2)
''''---------------------------------------------------------------------------
Call AddRigaTabella(avalori,Giallo_,"center",1)
Call SetColoreCella(2,vbWhite,vbRed)
Call SetColoreCella(3,vbWhite,vbRed)
Call SetColoreCella(4,vbWhite,vbRed)
Call SetColoreCella(5,vbWhite,vbRed)
If avalori(6) > 0 Then Call SetColoreCella(6,vbBlue,vbWhite)
If avalori(6) < 0 Then Call SetColoreCella(6,vbRed,vbWhite)
End If
End If
Next
Call CreaTabella(Int(ord))
''''''''---------------------------
