|
|
遇见一个难题,请教各位高手。
: V1 Y$ _1 j# {8 `4 D* h! G# M. q) k B) x) r# M$ D, H
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
/ F9 z! x- [4 b( x) e$ O- R5 @9 ^4 Q/ E: f- o( \& O! ?
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
8 K! @' l, E; K. K0 J Q6 H' b; A
( r ?8 u1 @$ @) W is* A# e, e7 {7 O% O
i,m: integer; -- 整数变量! r6 J8 q+ d7 K. D$ j# i3 k" J
Name:string; -- 字符串变量/ o6 y8 z/ F/ q2 W' n' I. @
Obj:Object; -- 对象类型变量$ m; A6 Y) j, o$ Y3 ?/ m- z
2 l: Z: B4 o* f1 @; }
do
) `3 \# E( \, v% r. A m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
) O+ K3 T5 f2 q8 N/ L' t' m Name := sprint("BA", m); -- 生产线名称
9 Y7 |, p% X3 }# K* B8 W Obj := str_to_obj(Name); -- 转换成对象变量: Z5 E5 A4 p) O; ? a
" |, \; ]! E' M X. \6 Y# B$ x7 Y
FOR i:=1 to 100 LOOP) }( E& z: j2 a, O8 \% p& w+ P
waituntil OBJ.occupied prio 1;. X: k0 Y Z+ M
OBJ.cont.move(@);
7 j% A0 w3 C( C) T v# ?; o0 t( G9 H: J
NEXT;
9 D& e* |: g' W$ u @.backwards:=false;: p9 N2 x$ j$ F8 w" r/ a1 v
end;- ]* p3 \0 E8 S8 E _
|
|