|
遇见一个难题,请教各位高手。
2 K. h9 {' O' R# p
4 {1 b* A9 ]- F5 c$ Q! e: ]使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
9 s. s8 m8 A% a# ]; [7 E r( z* u# q. z g6 L& p) y2 r* ]0 w
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
/ w D- ]4 g& ]/ _% G( n& Z5 \# J0 k5 |+ `$ v, q+ x' @1 U2 J4 p
is2 \( ~% k1 c, U! _- Q# W5 A d h/ K
i,m: integer; -- 整数变量
0 j6 x* A8 d- t! J) e3 {0 f( | Name:string; -- 字符串变量
2 I" X G0 H) r1 i! W6 S5 W9 h2 a$ } Obj:Object; -- 对象类型变量
. ^' W' i: U) ?* M" Y
1 i$ d# i& Y1 ndo+ i+ @: a. l5 w8 Z/ m! t+ b( P2 E
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
2 S$ d# }! D" i5 a. U2 I Name := sprint("BA", m); -- 生产线名称
$ J$ Y8 ^4 P4 m Obj := str_to_obj(Name); -- 转换成对象变量! w; k4 X3 ?7 f. ?& D/ o2 v# U4 B, T
+ W0 O3 W, H; |8 V* d
FOR i:=1 to 100 LOOP; H" w& z# I: m& D1 E, Y
waituntil OBJ.occupied prio 1;
0 [1 M% o. Q. L& W OBJ.cont.move(@); 0 `7 b' O# M7 I' |" T: r+ p
% I4 @4 J) F. y" a
NEXT;# m9 I/ y k: j
@.backwards:=false;
+ W, b7 B* e1 |# f! q, G* K: wend;2 ~7 U/ v4 w9 z' v) @! M
|
|