|
|
遇见一个难题,请教各位高手。
, t8 {( x2 a5 E0 B/ G! t: \! w9 n( o7 K% M
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。* b+ U" P! [0 E4 M
4 p, f7 e9 W7 c3 l& P% @1 ?
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。! H5 L3 M5 e% E, I
$ R6 b4 y1 _" J, k$ }+ k
is
' T! ]2 n: k* {2 h# {" V i,m: integer; -- 整数变量
! z) ]" B0 S' v# s5 E; P5 a/ g Name:string; -- 字符串变量 C& x0 u7 s% T5 x: l
Obj:Object; -- 对象类型变量
( i1 M; ?. X( L" o2 Z
7 [. K6 C/ M+ E" u1 ]do8 R: Q! U- `# e: h% ^% G, {
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
6 E' d7 p" b3 J, C2 N9 _2 M Name := sprint("BA", m); -- 生产线名称
~1 |. h4 t `6 @! n Obj := str_to_obj(Name); -- 转换成对象变量
# F: d" y: z6 e8 y: ?+ ]
8 X; l) |4 a( b. L! B* d FOR i:=1 to 100 LOOP
7 U C! \" b. o- W u waituntil OBJ.occupied prio 1;
+ O1 u4 ?9 m7 M) [% [4 e OBJ.cont.move(@); 1 Y! O9 |2 c* S: N' }9 e* a
4 f. }8 }+ r& G$ d1 q6 D2 `
NEXT;" ]5 H$ X: |; N ?
@.backwards:=false;7 [- D$ v S1 E- Y" [* f
end;; y" @0 ^, U% E$ x& _
|
|