|
遇见一个难题,请教各位高手。' D8 L* P2 G- b
3 d; ^# i8 v2 @5 N+ g7 O& i' J
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。8 p; _4 G2 L$ |9 L6 L7 z0 M# w9 X
6 q% y: B7 Q5 |% H8 \+ S
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
$ _6 A% o9 \ D% k8 L/ n' ]- _0 g5 O$ G3 r' P) K* f/ B
is; b2 E' e: M( r& D) I' C: u
i,m: integer; -- 整数变量
! M0 c! b1 g3 W f Name:string; -- 字符串变量1 x' ~5 V$ C2 M
Obj:Object; -- 对象类型变量' V5 P6 [0 D% a" m
6 n6 ]) t7 L% m, B0 Q4 _+ U/ [do; P3 ]- ]7 e; D: J, @3 E& G
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
e5 e; o# }9 n4 W2 Y9 u/ z9 _1 J Name := sprint("BA", m); -- 生产线名称6 e3 }8 Z+ i" [- |6 ^7 V* l
Obj := str_to_obj(Name); -- 转换成对象变量6 g. ?, {, |8 K* F
/ k. N/ \! m3 a8 D1 G
FOR i:=1 to 100 LOOP
* [3 l% ]& Y% }+ q0 I, T8 M, w5 c; Q5 e waituntil OBJ.occupied prio 1;3 K+ n: k% |' Z+ O8 g+ g
OBJ.cont.move(@);
+ V: V4 r! E0 k6 g# S. w ( N: T* H# e; d$ a
NEXT;
) @4 o7 \/ f) _ @.backwards:=false;
$ A" C+ N4 h& h z! Iend;8 K4 B0 @2 y6 |1 E3 \' l( X
|
|