|
|
遇见一个难题,请教各位高手。3 ]4 S. Z& E! K3 j/ L0 ^
/ |1 S( p+ n% H8 ~9 q6 M使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
* q2 x) P; d* M6 h& Q( n3 V! X h4 V0 w7 P8 A
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。/ g, [/ T' _+ R$ ~5 s
0 `! S# B% s G6 J) ^% R is
) A6 H J' d& }2 X5 h i,m: integer; -- 整数变量
+ u3 i9 r( V5 s Name:string; -- 字符串变量
K- z7 Y. d7 \ Obj:Object; -- 对象类型变量3 K3 M) R# A4 S# P5 T
+ s8 Z) M5 r1 E0 w! V0 `
do& U0 l. I2 h9 U
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型3 Z9 p% [- e% b/ ]' Q1 ?( s8 d( Q
Name := sprint("BA", m); -- 生产线名称3 i# v7 I4 }5 N1 E4 v
Obj := str_to_obj(Name); -- 转换成对象变量
1 [* ?1 S3 j, g3 V0 P
8 ~# P: F& ?' P% V* c5 ^ FOR i:=1 to 100 LOOP
8 x7 r E! U8 \# |$ q; M; U% N4 \ waituntil OBJ.occupied prio 1;
5 u. H' O! \3 O0 b OBJ.cont.move(@);
: S3 I& R$ k* ], t$ z
$ `7 j- m$ q& {$ m8 G NEXT;
z: E$ G! o* N0 c6 A @.backwards:=false;
. D* ^5 Z+ f, R3 m& M) k0 {" v% Q& E, jend;
1 ]7 B8 a' I3 V |
|