|
|
遇见一个难题,请教各位高手。
! U$ v# I/ D/ @ y+ N' l2 w. w& E! h3 A) y% k5 _
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
2 P* j. P) ] E/ P( B. c. b5 d' J @5 G, w& f
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
: A. F2 V! d; b8 ?0 p2 f1 r2 D4 P4 j7 {' w) }
is
) V3 v0 }) D- W F% @3 h, U i,m: integer; -- 整数变量
' ~4 n! c) h2 h* `& _0 x* J s1 ]# n Name:string; -- 字符串变量. U. c; H4 o2 K/ m
Obj:Object; -- 对象类型变量* T4 D' F! ]- y' s+ r. \
* M: |$ @# M j% W4 S7 y
do
- G6 Q9 U* I1 i& s% }2 q m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型$ K. q2 C/ h4 M0 C; X& L
Name := sprint("BA", m); -- 生产线名称. O2 }3 w+ k4 Z, j+ V0 j
Obj := str_to_obj(Name); -- 转换成对象变量7 x; X' [) Y/ h
1 S' \6 v/ y( m; m FOR i:=1 to 100 LOOP8 Y" q9 u5 \: R; s- y
waituntil OBJ.occupied prio 1;
5 |" R2 d8 V, D1 I s OBJ.cont.move(@); 0 x% r0 w; E% Z+ @7 L4 V) [' z
# o+ O- W0 I3 I: |4 B3 w
NEXT;# E! i" D2 K3 W% u$ Q
@.backwards:=false;
' K! x( F' R* E- D% n2 dend;$ X7 W6 a( \+ ~) N/ z$ U; e4 p
|
|