|
|
遇见一个难题，请教各位高手。
4 r: `# \* D" B9 c8 b9 z/ S2 `
4 z/ S- K) t% l1 L8 ]9 d3 _* b) d使用transporter将物料从A点运送到B点，通常情况下，每次运输100件，但是运输几次后，剩余的产品不够100件（例如订单总数是220件，第一次运输100件，第二次运输100件，第三次只有 20件可以运了），当运行到第三次的时候，仿真就停滞了，无法继续下去。不知道如何修改程序（我现在的程序如下）。7 F9 E+ s) Y# g7 H$ l9 S5 j+ o
7 f+ F, j/ s1 M, \/ S( `
需要说明的是，A点的运输量不是固定的，因为有两台并联的机器，因此我无法通过表格直接得出已运送量和未运送量。
* k' b% }2 w6 h1 e& u% ^6 @/ o1 C' l0 f7 h
is" j# h* W; ~! E
i,m: integer; -- 整数变量
2 _6 v# ~3 w. w! t Name:string; -- 字符串变量
& r4 V3 T7 O5 Z! X Obj:Object; -- 对象类型变量( F# e; @& |, t5 y
: C# j: [( i4 ^) `. w
do
. x. s4 D: ?: e- F5 Q ]; O m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字，在转换成整数类型( u, H- Y2 `8 H/ L) z- T
Name := sprint("BA", m); -- 生产线名称
" w% L+ [; z z9 `9 }0 ?% C Obj := str_to_obj(Name); -- 转换成对象变量
1 L, g( ?4 r+ L- E8 w
7 o/ X3 m& I3 z3 {6 C/ w& U' g FOR i:=1 to 100 LOOP
( v/ z% y# L& v9 T0 a2 c waituntil OBJ.occupied prio 1;: {6 Q+ v2 t+ R4 C4 W( t
OBJ.cont.move(@);
' f7 d0 s6 n8 _. Z4 Y6 ^
7 d) m; K$ e3 y5 x% |& g4 I NEXT;1 g! c3 C$ ~' }0 f
@.backwards:=false;
9 O/ z3 A$ u0 Q- z5 nend;
% g/ W0 Q6 [2 }7 H, K- S |
|
[复制链接]
发表于 2014-10-8 20:31:26
楼主
