|
|
遇见一个难题，请教各位高手。
3 C1 ?- F4 }+ X3 p) l8 ]* J" R& \* W, n$ _, H$ \" ?
使用transporter将物料从A点运送到B点，通常情况下，每次运输100件，但是运输几次后，剩余的产品不够100件（例如订单总数是220件，第一次运输100件，第二次运输100件，第三次只有 20件可以运了），当运行到第三次的时候，仿真就停滞了，无法继续下去。不知道如何修改程序（我现在的程序如下）。
$ Q5 i% _6 C1 A5 e' X/ M+ v' \" C; `' o% Y' W& A
需要说明的是，A点的运输量不是固定的，因为有两台并联的机器，因此我无法通过表格直接得出已运送量和未运送量。' @& [" Y/ C7 M" W2 t4 N
4 @. @4 ?0 Y1 A/ ^ is0 S! d; n- T6 ^- z7 U6 ]& B) r
i,m: integer; -- 整数变量
( V/ i' K" o( u) W Name:string; -- 字符串变量
7 d) ?2 i3 a* d% e6 N Obj:Object; -- 对象类型变量: e1 P: f! }" G+ m! m1 x7 C* @/ w
: z* m, q& `5 J8 G" \$ T3 q; ^9 ~1 h
do
" ?- v- q* @; h. h* c m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字，在转换成整数类型- L$ @, ~& a% E2 M5 j5 n
Name := sprint("BA", m); -- 生产线名称+ M* [0 i Y1 o+ K% X% g
Obj := str_to_obj(Name); -- 转换成对象变量) [2 m0 D- E7 h; p# e
5 }: W8 l9 N7 C
FOR i:=1 to 100 LOOP
: b: o( _, z9 k2 [; e waituntil OBJ.occupied prio 1;. I2 D! p( m& u9 K! S0 z
OBJ.cont.move(@); % h, y! E w$ b- A/ }, P
N* L1 H3 k+ u$ r7 i/ c- f# E& m* S
NEXT;/ L5 r, Y9 J% j% @* ?" q9 a: U9 v) n
@.backwards:=false;
& G3 n' j, A; c6 H8 C; Wend;
! z1 d# M6 n7 R6 b" R, G |
|
[复制链接]
发表于 2014-10-8 20:31:26
楼主
