多谢,我程序
4 h5 y+ c! }9 w# z) B& Z: @Methode1 Trigger调用 Trigger定义1小时出发一次
+ Y. v4 d6 ]" ^(old, new : boolean )
6 |, o! v4 X/ W7 N, {7 kis
1 u2 K; }5 S: m- }9 T$ S3 D/ y% t9 y do2 {- F/ Q+ E6 ]
if new = true then
& ?$ J, _' F4 t* ?* o0 ^& W- u4 N Tabelle1[1,1]:= time_to_num(y)/3600;
4 g# m. k( x& W: A' D6 r% B3 Y) s m:= 0; J6 k6 c) l# O" Y& |
n:=0;
; ~: @, Q) l t! P% L9 l y:=0;. B# g' |5 O- i3 \0 x" L, Q
end;, O, ~: _$ Q7 [5 G* y3 {6 }
end;
# ~% \$ o9 E+ m3 C/ b3 d. Qmethode2 Singleproc 输入控制调用& O+ e( a' t+ X8 j" u: Q5 H
is
- M! D) w8 F7 _) ^) _) ddo3 }) L0 \2 @1 R. u4 a1 v+ n
n:=Ereignisverwalter.zeit;
# v: w8 `; c* O8 T% eend;; r2 i I ?( Q9 j! m
methode3 singleproc输出控制调用
5 R7 c' \7 J7 M+ G& His
( |) F( E8 D7 J5 t$ ?- ~do/ O6 n6 y, E7 n5 k6 ]# e1 Z3 D- L
m:= Ereignisverwalter.zeit;- e* V6 s& k& X- e
if m/=0 then
3 T# Y) L* Z4 ?* Z y:=y+(m-n);+ H d% m, Y l7 x' H
end;
) t6 _; t H& m0 v 4 ^1 c" l, x1 `
end; `1 P! I( I0 A8 j$ }) w
m为物件从singleproc输出时的时钟试点,n为物件输入到singleproc是的时钟试点。m-n为singleproc的工作时间,
6 C! g1 P9 g# E; ym-n的值赋给y一直累加知道trigger调用将y除以3600秒得出效率,之后y赋0值,这是我的思路。
7 J3 D& ^+ b5 r& g: i9 ] b6 |可是有时m-n超出3600秒,我查了一下,程序好像先记录m后记录n,当机器休息完m记录的是机器休息后的时点,而n还停留在休息前,这样计算y:=y+(m-n)之后结果就比正常的大,会超出3600,出现效率108%。
4 A# r7 b: _) U- e请问如何解决这个问题 |