|
|
遇见一个难题,请教各位高手。
' V9 \. `2 @9 _
2 `) d% \: W% ^8 }9 V+ H使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
& Y( z: a4 P" K5 W& v4 u/ p2 T& l* d: Z! ~- c0 y. c* V D. ]2 ?% |% p: ]
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。( m) Q8 b; J8 {- y9 _6 D. {
6 ]2 H: C3 W+ |
is
6 t1 G7 P* L4 s) J1 O3 _0 n. h i,m: integer; -- 整数变量
4 t8 C& V) V, Y" \8 a Name:string; -- 字符串变量$ p; \+ \5 z# Z% m" U, X$ l
Obj:Object; -- 对象类型变量
' K8 }+ `! k" k1 x* _; q
; @& u8 ^" M, K6 y$ C: s1 bdo
7 l3 ~0 e3 b! \) }6 _) V m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
& H: i9 W4 S0 p, K Name := sprint("BA", m); -- 生产线名称
O7 j' M9 ^0 T* x, q Obj := str_to_obj(Name); -- 转换成对象变量8 ~. o1 X' d! V1 ]& N# M5 K
9 @- p* N( _; k- ]% N9 q4 }- T FOR i:=1 to 100 LOOP
# p! C, o( [: G5 T, b" Z. K waituntil OBJ.occupied prio 1;
5 d+ D& q% A, e- [ OBJ.cont.move(@); % C8 T: g8 r$ ]- k
) I J+ O& D' o/ u8 P4 ?( J# U
NEXT;* K) `: n: L6 s$ p
@.backwards:=false;, o* O0 d3 m& B: j2 c
end;$ w: R7 o/ ]: {4 y
|
|