|
|
遇见一个难题,请教各位高手。: h) |, X, V0 M; z$ ^- q
5 \# N' e6 y; w) w9 b5 R; P
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。# J. ]9 @( C6 s [( F
2 v. Y$ K6 Q" L& A2 ?需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
/ W. h5 j% ^) ?+ u5 M8 e: W* A: g/ t6 \9 W
is
$ ]5 B7 c5 W# ~/ a8 l i,m: integer; -- 整数变量8 ?7 J! @8 G+ N1 b$ _* _
Name:string; -- 字符串变量
. w9 \# F: }& y7 y$ v0 h$ Z) b Obj:Object; -- 对象类型变量/ A% }* i0 ~$ _ j* E
" O4 t0 E0 P5 U6 e/ Ldo7 F5 q ?0 Y) K5 f
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型7 o. m8 P) }% J' Y! {
Name := sprint("BA", m); -- 生产线名称& Y, N P6 B6 ^
Obj := str_to_obj(Name); -- 转换成对象变量
& {) c l5 n2 y) ^* \ z: b I
* k3 c+ D( T& _- x! K; ?# `; G4 m FOR i:=1 to 100 LOOP) S& y, G0 s, N- ]
waituntil OBJ.occupied prio 1;9 g( D/ w h4 e# y2 a) k! g, U
OBJ.cont.move(@); 3 S3 J: L7 u2 \& n2 o- X
( E5 ]5 a5 G4 p9 w; |2 o2 F+ _ NEXT;$ |/ h2 \) {* G: ~
@.backwards:=false;& D) l8 p( `1 `' O" o+ b2 e
end;
4 D% s& M4 a6 v! W4 X |
|