|
|
遇见一个难题,请教各位高手。
0 O9 L5 U- p6 H0 B9 P8 ]" `$ [* N
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。# Y0 w+ H5 ?, `1 C' V
+ F: x8 @% i; q0 h需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
" ?7 c) ?2 {% ]! h- p {2 r8 l9 S. a8 L6 c" x
is4 R3 s6 p& r N: ?( W, [
i,m: integer; -- 整数变量
( B1 ]' F/ `& H9 g' C( r$ E/ Z Name:string; -- 字符串变量
" N* v+ r4 n* y Obj:Object; -- 对象类型变量6 R" T3 {1 S6 Q8 K+ o& h7 d4 [" f1 h
& ~ ^: L, X2 _2 Y% V
do
( \2 b9 D7 y& \' l m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型: ^* K! }, s) G
Name := sprint("BA", m); -- 生产线名称
* H a( m% n: X5 s) q$ z Obj := str_to_obj(Name); -- 转换成对象变量5 p! @+ N$ @% x' I. ?6 Q
! `8 y, S' x! ]! W7 b% H. P, H FOR i:=1 to 100 LOOP. O0 B$ e* B* d) f; d# j! v9 `
waituntil OBJ.occupied prio 1;2 _ s, [# D0 \6 v. O/ Y
OBJ.cont.move(@);
, h; }" _! |" E1 B; u5 g& q
$ M' n0 ~7 c; I; x5 P0 d$ N; G NEXT;
" p- N4 y. N$ J% d. D @.backwards:=false;5 q9 R! F0 Z. i+ [4 l3 J! b* X
end;% `$ s9 v9 F7 G
|
|