多谢,我程序
: P- L k w* dMethode1 Trigger调用 Trigger定义1小时出发一次3 q* p" k7 c3 r3 s# W/ m7 S6 f
(old, new : boolean )
, B. L- h7 r) kis$ _6 W q9 q j; \6 f) `' r7 {
do6 ?# @% s( z6 @) c, y; s* x, ]. X1 m
if new = true then
; T5 O0 `' r$ k) z Tabelle1[1,1]:= time_to_num(y)/3600;8 T6 p( Q; U! l+ B6 g1 ^; W
m:= 0;
/ J# S: _' J3 h; B9 t! q# x- N n:=0;
; y3 ?- ^2 ?3 ]1 e& _ y:=0;
' Y5 y2 G3 b$ h# F end;% R% B, [ i9 j+ @/ o
end;
% K# |' s" c: }+ m. ~methode2 Singleproc 输入控制调用" K* ^ P% y1 N5 u+ I; n% [) S% Q1 e
is
! d, J G6 J! B% P0 wdo
- y9 Z- l: ]; B2 {# e6 U n:=Ereignisverwalter.zeit;% n, R1 P) k l! {0 F: d8 }
end;7 t/ [. q% T8 o! j
methode3 singleproc输出控制调用
- v( }7 T8 b! I+ P! q& ]9 ~8 f) dis. D6 x' z0 l$ I) z' H( E
do8 G6 S6 H: b; B
m:= Ereignisverwalter.zeit;
+ P7 |2 ]6 Z' u4 k- d/ C. c if m/=0 then + d0 ?1 `8 X5 K2 T# `
y:=y+(m-n);
: m7 q. I9 q1 f$ o& T: Y* o end;
" c0 g& P. `+ @3 V. t# j
% S1 j3 G9 q, b( _4 yend;
7 Q" s' Q( s& q) S' S' M: K8 bm为物件从singleproc输出时的时钟试点,n为物件输入到singleproc是的时钟试点。m-n为singleproc的工作时间,, t4 c8 F/ V4 r! _- P$ Y6 I
m-n的值赋给y一直累加知道trigger调用将y除以3600秒得出效率,之后y赋0值,这是我的思路。
2 O: L( q4 Z$ r6 A/ ^可是有时m-n超出3600秒,我查了一下,程序好像先记录m后记录n,当机器休息完m记录的是机器休息后的时点,而n还停留在休息前,这样计算y:=y+(m-n)之后结果就比正常的大,会超出3600,出现效率108%。7 j- H9 c9 K: @ ~2 ^1 b% W/ X3 |
请问如何解决这个问题 |