|
|
遇见一个难题,请教各位高手。( m& ?) u, d5 G
a# X, a5 L# D* z+ ?使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。5 h. v4 E" c2 J* B( k
1 c- |" m6 H4 \4 n! r需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。: s& ]6 L0 X3 @; g
8 v( I5 G! `+ j# o is
9 s7 _) P2 Y5 v n0 N; i i,m: integer; -- 整数变量3 m& s5 J7 U. {! i1 m7 J% o3 I$ D
Name:string; -- 字符串变量
6 v3 _: f- V4 q9 b& s1 n" z3 Y Obj:Object; -- 对象类型变量
0 d' N0 i }# o: [" n
8 H: Y' X' u3 C" K; x- p6 r8 k7 cdo
" D& g3 K& a4 W& ]7 z4 ~# Z5 R m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
! W0 x8 g0 ?2 V2 |' U8 E ~ Name := sprint("BA", m); -- 生产线名称: v/ B z$ h# o: L# P1 |
Obj := str_to_obj(Name); -- 转换成对象变量$ S* Q# s$ L3 f6 {/ j1 w
+ p- l, w5 L5 O& K
FOR i:=1 to 100 LOOP
5 F: a4 \& p: S' }1 Q4 e waituntil OBJ.occupied prio 1;
' R+ o6 Q( s! P/ [4 R& z4 d OBJ.cont.move(@);
2 }) I, Z( H( S( ^: B * S, E$ k, F* G
NEXT;! Y0 A7 }/ R7 {1 c2 ~- @0 x; \" A* T
@.backwards:=false;+ o) u* h: B% q( I/ {9 V7 {8 V
end;
9 ]$ h5 e3 F# x! M3 p |
|