|
|
使用Plant Simultation 9运行周老师的生产系统仿真教程第一章的P5的程序时,总是报错(勘误之后的),显示。
/ o6 x: X* o4 J- x3 b# Cis: [, T, f1 u4 s0 S0 J
m,n:integer; --zhengshu bianliang
" Q- x6 e4 P' L9 A* y/ \; T5 H$ K4 y: ^ Name:string; --zifuchuan bianliang
0 G2 l% o d* k; _1 f1 _ obj:Object; --dui xiang lei xing bianliang4 {. T8 w; V4 E: r4 [( ^. M
do/ N4 C2 B( \$ ?, [; }0 F
m:=str_to_num(omit(?.Name,1,5)); , s1 O0 @& O: e, W5 e- C3 K9 o# Z, S
Name:=sprint("Output_Line",m); --sheng chan xian mingcheng+ a! }5 X8 ~$ ~% V
Obj:=str_to_obj(Name);6 m6 |# q; A1 w6 u$ c) E/ J
n:=?.StatNumIn; % X4 [" f* I4 [+ c6 u
Obj.val:=n;$ X8 f4 _: J* ]2 H5 A
if m>1 then( q0 V7 a3 C& z2 G& M+ ^& s
Name:=sprint("OutRate_Line",m);
) i# A Y" u2 Z* i& F' P Obj:=str_to_obj(Name);
4 p" Q/ P4 f5 u6 |/ y) h: h Obj.val:=n*100/Output_Line1; ) w( c3 m5 Q7 I
end;
& U: f/ x; a' e* W$ B/ w: G! Pend;7 q- \" |! @1 w W, H
行 6 中的方法 '.DOE_sim.SingleLine.CalOutPut' 出错:'VOID' 无法接受方法 'Name'。是怎么回事啊? |
|