|
|
遇见一个难题,请教各位高手。
+ ~ Z# r6 l" w& ?! u( B1 J; ?
) b* D( Y7 `* Y4 L& @( O# ]使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
: f% D+ O! Q9 W, P5 P8 @
5 V' t, [6 D2 q7 M需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
4 ^8 C& P2 v3 P- S0 R1 Z6 |6 \3 n
. V4 Q7 E" N- y# w2 [ is2 n* E& w1 b b, n
i,m: integer; -- 整数变量; a- A" ]5 M6 @( Z* m6 ]( a. n
Name:string; -- 字符串变量# g, [1 Q; y) z) a9 X" f) j
Obj:Object; -- 对象类型变量
( r- b0 M4 i* C1 B4 [- ?& d* n3 j# C
do
" e5 D9 I7 A! M# d8 _5 N m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
: c3 _2 `' { D$ G7 B: j Name := sprint("BA", m); -- 生产线名称
) J7 h& v( H) b% X Obj := str_to_obj(Name); -- 转换成对象变量0 B g% b7 Q/ {% a+ L) c) p u$ t
; z8 k/ X( k2 v x8 ~' @" Y( B
FOR i:=1 to 100 LOOP
3 R/ ^- O6 I! Q! a9 s waituntil OBJ.occupied prio 1;
8 B4 K2 A; K$ C, R1 e) [ OBJ.cont.move(@);
: G# l7 F8 K: A
4 J7 d( {+ ?% E9 C0 O) _ NEXT;+ m" K( |# ], h3 ?) m
@.backwards:=false;
$ ]" ]6 A7 U, W s9 Dend;0 @7 Q0 P# }) j% S
|
|