|
遇见一个难题,请教各位高手。% o7 Q9 m) b# }4 `6 T3 Y0 U
: @2 r6 m* k% M9 H z/ T6 y使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
3 I3 C( p4 E, Q2 E' w
5 v( [$ p+ F' V9 e- ~需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。4 m) N0 M/ E9 Q0 z+ n9 n: f
% A' O# ^3 W2 H is; K! T/ s5 D4 }4 }2 k3 S
i,m: integer; -- 整数变量
0 `, ?& k& k0 Z! x6 G Name:string; -- 字符串变量; e! i: `8 k7 i! t @, u
Obj:Object; -- 对象类型变量2 p* [; e8 k2 R, `9 l. l) K; t
/ w- v! z# K8 |( E0 N, r. Cdo y9 X2 y9 j. R
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型$ \) S- q. c! `5 V
Name := sprint("BA", m); -- 生产线名称
. [2 A# J6 D) l& O0 [ Obj := str_to_obj(Name); -- 转换成对象变量+ ^! P$ e* M6 d) s
8 s3 _$ i* y$ ^6 k4 F. n
FOR i:=1 to 100 LOOP
3 ]0 D' l" |: L. g waituntil OBJ.occupied prio 1;9 p; r* S5 `+ I+ c3 o: `/ B" d
OBJ.cont.move(@); 7 r9 `* L4 X9 E5 s$ ?
# X7 n$ {! ?1 n1 s NEXT;) \3 j2 O2 }7 t
@.backwards:=false;
" O# D5 U# E" A) r [5 r, {( Rend; E* Y: }' p6 k7 D
|
|