|
|
遇见一个难题,请教各位高手。6 p2 u/ v# E7 U8 b7 M5 k* G8 K
7 j9 d5 X4 \; T7 J. \* J使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。3 f; j. Y; D% s$ g
7 E8 j% C! G% c4 j. k, g需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。9 @2 e- I7 r9 J3 F0 v- u
0 H/ E! b. f7 }( R* P3 R2 u1 c
is
0 I j% Y7 t( V$ [) j' g& [6 a! S i,m: integer; -- 整数变量
7 Z8 D, g4 I* L/ H) Q: A Name:string; -- 字符串变量
1 j% f7 [: F. T R# t: A Obj:Object; -- 对象类型变量/ D! L G2 s& o' i6 K4 I* J7 k
: w$ q. z) E0 L5 V, `% Z; ^do
8 l; f0 P2 c( e; z& V m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型2 M$ \) c( F* b4 H$ d5 X ^
Name := sprint("BA", m); -- 生产线名称( n4 H7 F3 W- y% k
Obj := str_to_obj(Name); -- 转换成对象变量
, F# w2 O' K( Z! D- }
2 f' r% [/ }) X1 ]! J( V FOR i:=1 to 100 LOOP N% Q% Y, B) I) X2 G' O
waituntil OBJ.occupied prio 1;
7 ^1 H) x9 y& c9 p" v OBJ.cont.move(@); 7 d1 @: N; m. c/ l3 g
7 i5 F4 ^% h# ~& H+ Z# J; k
NEXT;; o/ @/ [) D# @. I4 p6 s' l, q. J
@.backwards:=false;! f4 ~8 e4 d! b/ D9 A8 s3 z1 @) E5 u
end;3 R5 E P' V ^2 ]/ ] e0 `2 A
|
|