|
|
遇见一个难题,请教各位高手。
' `8 @- C9 {. v4 H; h
) I8 B# |" I2 O+ u使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。+ }+ ^! \9 K5 A( i' z
3 {" j2 p" P+ k" R6 x$ s, A需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
- e V1 f+ [5 X/ q9 ?
8 V( {- p& f' S- Z is
, Y- c3 v3 |5 b; K i,m: integer; -- 整数变量$ t8 Z. Q8 l9 e- |) u- H! h
Name:string; -- 字符串变量
/ B1 p8 n5 c; ~( i; p( O3 a Obj:Object; -- 对象类型变量
. M; F" H" M$ K5 u
+ e1 n9 `# S* k" `0 Wdo
" c1 p- V8 v& S8 I' P& R m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
3 r" b4 ?6 d( C( L) i+ M+ o Name := sprint("BA", m); -- 生产线名称
1 B3 D+ H u! O! \+ ]4 D: d) _ r Obj := str_to_obj(Name); -- 转换成对象变量" D% M0 [' c3 ?
& c" w. ?6 {, s) m# F g* [! y
FOR i:=1 to 100 LOOP' C8 H# c( Z ~
waituntil OBJ.occupied prio 1;
/ \& E$ G2 r8 v* l7 s' @* b OBJ.cont.move(@);
. X) a- `4 ~1 w1 C/ S! K' H0 a
0 i. h9 [+ |7 e/ s1 r& h NEXT;2 z n( I, w0 _# u$ G) l( {2 x
@.backwards:=false;. B4 s. Q1 X1 }+ B, H3 r
end;
- T' v& k! f' T |
|