|
使用Plant Simultation 9运行周老师的生产系统仿真教程第一章的P5的程序时,总是报错(勘误之后的),显示。
' P3 C0 y. x* k# q8 v0 n! A3 Jis9 q& Q6 w% a2 c/ W B. B
m,n:integer; --zhengshu bianliang
/ W# P0 a* A! N' q. N( Y S: C Name:string; --zifuchuan bianliang
( `- L1 n* t L obj:Object; --dui xiang lei xing bianliang
( o! r/ p0 p+ d7 z% a( Gdo1 C6 t7 B- S2 u# W! a, U( `
m:=str_to_num(omit(?.Name,1,5)); % c W* M% r9 b( k0 A
Name:=sprint("Output_Line",m); --sheng chan xian mingcheng
: B( N1 y& q$ A+ O; ~% x Obj:=str_to_obj(Name);
$ z% X# h9 c8 { _% {* y& R2 ?7 W! N n:=?.StatNumIn;
+ B' E4 L" F3 E Obj.val:=n;
$ }' c% e( j% f if m>1 then; g7 {8 U' V+ H* R9 V! a8 t' Z& I( T
Name:=sprint("OutRate_Line",m);4 M, f+ h6 f$ C1 @
Obj:=str_to_obj(Name);
$ [: E% n8 B" L2 \# B) X7 v* n Obj.val:=n*100/Output_Line1; ! a1 s1 \% o* O8 r- k' m; R d, j
end;
6 }4 ?# e( u" z- T" [% yend;( z! S& D7 G- G. [8 v
行 6 中的方法 '.DOE_sim.SingleLine.CalOutPut' 出错:'VOID' 无法接受方法 'Name'。是怎么回事啊? |
|