|
|
遇见一个难题,请教各位高手。& Q, J7 L) p9 ?) l' u0 u, M
& F. {/ k, v/ X2 l* I使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
5 V5 |: w% u% f" k2 |& Z$ @+ M1 g* z: e; r! x
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
6 N( f: e5 R4 j; Q U
0 }0 X6 x6 @, g4 |" `# {3 m' u is* a! \4 w" d. [/ s! Y; a
i,m: integer; -- 整数变量
# |; q2 J6 b, r1 b" j Name:string; -- 字符串变量
( s; E! f- P" f/ H* e) Q3 P# m* Z2 C Obj:Object; -- 对象类型变量
* E. i; q, L" `- m- X7 n/ x9 y+ Q, R- C& J5 @$ |
do
, K! r$ x5 q6 U4 p5 { m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
1 g& y7 ~) B8 A# K5 \ Name := sprint("BA", m); -- 生产线名称
/ y- U, g# ?' r Obj := str_to_obj(Name); -- 转换成对象变量
( L# R" } t! k3 A $ Y N, l1 l+ }# N0 e
FOR i:=1 to 100 LOOP
) y, v# q" P& d* Q3 L waituntil OBJ.occupied prio 1;7 B- l# t; q) m( I* G! p8 ]
OBJ.cont.move(@);
! B" B! R% E, x/ B8 _: v
& Y: u+ n5 d0 z; K# U0 e NEXT;+ M4 }9 b; O, i7 _# o8 J9 X
@.backwards:=false;
! Y" Z, E' s0 Z- u9 c* l6 Yend;1 U H- A( h' Y. F4 z% s) Y0 u
|
|