|
|
遇见一个难题,请教各位高手。9 a# |' N _2 i7 V
1 t, l2 Z, ~6 H3 {1 m* D使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。% s; L8 h- M3 J: x% u
9 i! m8 Q% Q& x8 x
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。7 h5 t7 J7 Z; R+ K
$ K+ u6 a" O0 J. p, Z. k& a is
7 M- g U( @3 d; i3 q% l; w+ Y1 B i,m: integer; -- 整数变量! a2 l1 |4 D% r
Name:string; -- 字符串变量
- [4 I" H4 a5 `% O; C Obj:Object; -- 对象类型变量
0 C3 q* i y( S' l; W* u0 O& ~: P
7 M/ W3 L8 k+ A: [do3 o3 Z% \5 l6 e, K+ Q O( y
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
8 t% e. S& @" z% D8 Z Name := sprint("BA", m); -- 生产线名称
1 P# l; ^, U$ K7 {5 ` Obj := str_to_obj(Name); -- 转换成对象变量' J6 x l, q3 U; D4 Q& L/ T
3 E! A. Q4 W9 q$ b1 L" a3 w( ]* Z FOR i:=1 to 100 LOOP5 W$ J5 y* H1 S4 A6 |
waituntil OBJ.occupied prio 1; G# T, i$ p* Z3 f
OBJ.cont.move(@);
8 L+ }& C; m) m! j ( E3 o; ]: v- ]. q, o
NEXT;
; |- a7 ~2 V& {+ L/ ]2 Q @.backwards:=false;, J0 W2 L# M! v
end;
- S8 x: m6 F I |
|