|
|
遇见一个难题,请教各位高手。
7 N" F3 f6 x" [' q: d
5 ]8 J) @" v G: Z. x! j使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。- J2 W% r% w+ {
, W) j& r8 w9 _- f8 o. F& y- O
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
+ R; d4 b1 k" t+ \( I/ b2 M1 D: F6 i
is
0 I6 P# {, |+ A& n# a i,m: integer; -- 整数变量
8 X' E9 K# Q; |, L8 {& [ Name:string; -- 字符串变量; G1 m' c" f" M2 _% B3 }" o$ O$ y- d* D
Obj:Object; -- 对象类型变量
9 x4 }. }, }- Z x0 M% t6 T* S; k! {: V- D& _% P+ U: [1 E2 S4 J9 p1 P
do; I+ e \$ r$ `3 W* S
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型0 R i6 |7 x- _! {9 c
Name := sprint("BA", m); -- 生产线名称5 L8 a% F, Y& _ u/ L
Obj := str_to_obj(Name); -- 转换成对象变量. ?: p9 _6 I. T' ^: {
# O5 V [. K @% e9 c/ N% y1 c
FOR i:=1 to 100 LOOP" N, Q4 ^9 ~2 i" d+ M" r. b
waituntil OBJ.occupied prio 1;4 \6 W. h m' l) b6 V* ^
OBJ.cont.move(@);
% h! \1 ]) U0 H+ \7 T8 G 1 y6 c% }) h; ]# k3 G
NEXT;
7 L, d# X0 v& u e. D7 T# E) a @.backwards:=false;
4 q. N7 l: o* v9 H0 k2 o) |6 o2 \end;
8 s! ]3 Q F6 ]9 B, {6 y6 U' L |
|