|
|
遇见一个难题,请教各位高手。
0 z0 z3 E8 e; J. C2 b; s6 D! l( p3 Z3 M& t; u9 I9 J( u% |9 r' P
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。( U, T0 s0 T/ k$ Z. m9 Z
7 t( L6 ^% T2 F9 N9 `( H+ M4 D' z M需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
9 v* u/ O6 Q! x% k, a5 E B; B0 v' q2 g9 B, A9 X
is9 L. Z, B! {. u$ X0 f5 {4 X9 |
i,m: integer; -- 整数变量4 w) y1 v7 h) ?6 Y
Name:string; -- 字符串变量3 ]4 t, C* _1 p7 B
Obj:Object; -- 对象类型变量
2 c' K$ d* G3 R2 ]0 A) L, V3 a/ z- ?/ Z+ l
do. e# W3 x; G) n6 A
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
+ P! b- A: |+ Y+ D+ x' b/ n Name := sprint("BA", m); -- 生产线名称0 \+ X! W" j4 S# G+ K3 r, j! M @, u
Obj := str_to_obj(Name); -- 转换成对象变量4 M$ ^; o* {& `6 _( x
# M- H4 O/ i9 }$ d8 J9 g) ? FOR i:=1 to 100 LOOP
8 R2 a% ]7 Y1 l* u6 f waituntil OBJ.occupied prio 1;; _9 d1 {4 K2 S. k9 C: i
OBJ.cont.move(@); # W& J X: K N6 J1 n
: k; ]) i+ o5 u# g7 M
NEXT;
! W' p( E" p! C& Q @.backwards:=false;" ?: v8 X; O, @" P0 j4 o& e
end;) `1 `0 H; e# O* U: g; K' d) }5 T- D
|
|