|
|
遇见一个难题,请教各位高手。
' H2 y/ d- d& F* m: u! F5 _' V% ]) W3 d, t" Z
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
0 G3 E: w2 X; K6 d( j$ y6 |( \% X2 N3 Z+ R" r
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
: Y; N1 O! z# o- n2 |. ^1 Z; N3 I- G
is$ i8 y- r2 k" z2 A' G' C
i,m: integer; -- 整数变量! F$ f" f7 V9 e2 c' u
Name:string; -- 字符串变量
+ v/ c) V* F) f/ u1 A' X8 E/ _- p% e8 H% z Obj:Object; -- 对象类型变量( ]* _1 w9 b) U; n' N5 f
& a G% X* y$ i* |' \
do
- m9 p0 r* y1 A" V m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型+ a5 v: w7 d3 C2 d, }
Name := sprint("BA", m); -- 生产线名称
( l _( o$ r: e7 h' z' T Obj := str_to_obj(Name); -- 转换成对象变量& Z; e* j' b2 |/ s2 f# e
) A* k; c2 ?* w) s) V
FOR i:=1 to 100 LOOP
$ T0 Z! r; {+ V8 M- v b" H2 S2 g waituntil OBJ.occupied prio 1;
/ \# U& U+ S; o+ A OBJ.cont.move(@);
* V# O8 p. W7 H7 f4 n2 k
+ n7 F0 r, d7 g NEXT;: o. t n- T: @2 Y
@.backwards:=false; a$ Q9 i" w! M
end;
! p Y4 z0 c& ^1 V1 J( O7 Q |
|