多谢,我程序
. c5 S2 M) G) K! m$ {Methode1 Trigger调用 Trigger定义1小时出发一次) _7 D. t) G* _" F' K& l. u
(old, new : boolean )
( e: q3 A* s( v5 His
- E4 k0 B) t& `) O: A- z% w do3 F. q0 f3 n6 u" G9 a
if new = true then
' C/ k4 n$ }) s Tabelle1[1,1]:= time_to_num(y)/3600;# u+ d4 O! J* F9 ^4 I( p, m" _
m:= 0;
J- W( Z+ q% T3 g4 V* } n:=0;
- q2 o5 N0 P: `) e: Q/ o- j- y( { y:=0;
8 z9 y- d4 ~' P1 o end;
" m' g& _, u; N: m9 z2 y9 m end;
/ n( M8 B' S/ v/ V. ^/ rmethode2 Singleproc 输入控制调用7 x5 t* j' f. W! v
is- g6 d$ \! P& m- |9 s; X' m
do# d# x& p6 j A+ Y3 D
n:=Ereignisverwalter.zeit;0 R% z5 ~( D3 |% o, M. H
end;0 B# P# |5 J; `2 z% }# Z" n
methode3 singleproc输出控制调用
' d) r4 G0 ]( h% L4 P7 I7 bis& V' R% X; ~( V
do' x+ \& ]1 D0 w3 ~4 T9 p+ ~' S/ D
m:= Ereignisverwalter.zeit;
2 n+ b) {8 s1 p5 p7 e7 j" G7 S% O if m/=0 then $ c* X. ^+ E, S: H; }! V
y:=y+(m-n);1 a, c0 Q1 H" E* Y
end;
& ]. {& {, G2 R; T
' U) K# |0 V2 {( hend;
8 Z3 X# {% D% _2 Mm为物件从singleproc输出时的时钟试点,n为物件输入到singleproc是的时钟试点。m-n为singleproc的工作时间,6 d& w/ E& X- E; v& J+ j- l
m-n的值赋给y一直累加知道trigger调用将y除以3600秒得出效率,之后y赋0值,这是我的思路。" e" g* m6 x& V$ R; y! j: S
可是有时m-n超出3600秒,我查了一下,程序好像先记录m后记录n,当机器休息完m记录的是机器休息后的时点,而n还停留在休息前,这样计算y:=y+(m-n)之后结果就比正常的大,会超出3600,出现效率108%。
! p+ e4 Z+ J5 P! t$ f请问如何解决这个问题 |