|
|
遇见一个难题,请教各位高手。0 F7 f. W. i8 e, q$ j$ E8 ^) K3 ~* f
4 g* K& z4 z6 N- N" _; @5 A
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。& P% @5 c8 V/ \1 f1 O8 R. G
* c" c, \/ k0 j需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。( B" S' H# l) S" ]& v, ?# v; r
' n9 }1 T& {, } is# y- n8 C6 A& h/ X: {& j1 f
i,m: integer; -- 整数变量5 D4 T! I5 J) e" r9 B
Name:string; -- 字符串变量% Y5 V5 D" `, W5 O( \- g
Obj:Object; -- 对象类型变量# H/ G$ M6 l. W* V
# J% u- ^8 P4 qdo
0 P' w* [( U* Y9 I( \4 h$ } m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型3 t/ l' C1 a9 A+ i8 I8 ?1 H. B
Name := sprint("BA", m); -- 生产线名称# J/ w: N$ |. h
Obj := str_to_obj(Name); -- 转换成对象变量
; Z( {8 o, r1 E$ }( E" Q
% c$ ]0 j: X8 i FOR i:=1 to 100 LOOP
' n. ?) U, C( N waituntil OBJ.occupied prio 1;7 }# j( h/ W+ e$ N) \- H
OBJ.cont.move(@); , s$ m" {3 `; _# h# I/ D+ o- ~: p
& A' b0 }- _0 j+ s
NEXT;9 _7 S" S# ~3 U( s- x/ U; ~3 g* q5 ^9 F- j7 X
@.backwards:=false;: x1 o' J- w6 W" }% k7 C- {
end;1 q- b$ G2 y( [' b3 o7 R
|
|