多谢,我程序
/ g! o. z) u, {: VMethode1 Trigger调用 Trigger定义1小时出发一次$ J% B- w1 d; s- t3 F) i
(old, new : boolean )( H4 |; T' e" d7 ~& t
is3 Z1 g; {. Y; r/ W/ ?
do* I! B9 `! d* l U4 r. |
if new = true then
, R# W, U% p( p8 t! z9 A5 H8 c Tabelle1[1,1]:= time_to_num(y)/3600;
2 g% @/ E. u; g, R9 S, L k m:= 0;$ W8 l+ w- K) D& R7 ]* q/ k0 ?
n:=0;
; X, s4 C" N5 W# a8 N y:=0;
, n3 b: ^5 G: Q end;
* l; F j- z* Y5 t! Q end; 8 T* |* k8 ?8 }8 w
methode2 Singleproc 输入控制调用6 l# X6 G: h4 g
is
h# l4 g3 j5 y( @7 _5 _; S. \do6 u7 j" E% j' S! `; h: K) b
n:=Ereignisverwalter.zeit;' e9 W2 z6 M; m! x2 Z" C5 X$ }
end;
8 ~* R1 W/ I( Kmethode3 singleproc输出控制调用
1 g" r8 P, K+ b' j/ Z Vis
% Q( l- O/ r6 Q1 Ldo
9 Q# }9 _1 q6 m1 E# A m:= Ereignisverwalter.zeit;
0 K3 M+ A! D& L! T if m/=0 then
$ e! n' X5 B; S1 U/ y9 o1 v y:=y+(m-n);3 f. \8 q9 q) u2 f8 W Y
end;
6 v; y. H) t, V+ q$ v$ o 0 u( s- y' }! P& P2 O, ]- b) v
end;) i0 Y; M( M$ U
m为物件从singleproc输出时的时钟试点,n为物件输入到singleproc是的时钟试点。m-n为singleproc的工作时间,* E. O& Z8 w2 g% V6 z+ z% J7 U. k
m-n的值赋给y一直累加知道trigger调用将y除以3600秒得出效率,之后y赋0值,这是我的思路。% J0 ^2 @* \# i
可是有时m-n超出3600秒,我查了一下,程序好像先记录m后记录n,当机器休息完m记录的是机器休息后的时点,而n还停留在休息前,这样计算y:=y+(m-n)之后结果就比正常的大,会超出3600,出现效率108%。
# U$ K+ P! z( f3 L# o2 g请问如何解决这个问题 |