|
|
遇见一个难题,请教各位高手。2 ?( f3 Y1 R0 m2 I* y, t
. ~; K8 M5 H/ m使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
8 i6 V" @/ ~' j! }% C( x
$ Q3 g: l8 G. s$ }! c! x需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
+ ~, x; p! Z% y
$ g9 q" B- ^! O7 W is
, G' |% k/ F6 \; ^( |$ T. L i,m: integer; -- 整数变量0 W, z5 H5 h4 F8 u! s( t: P
Name:string; -- 字符串变量
8 L' s, n: t: l; W2 H" s7 B Obj:Object; -- 对象类型变量
/ }* q9 {% e" e. t" i. @0 V2 E
: @3 O& z3 i3 U0 }* G0 Y* kdo2 m- h* g( e2 Z8 K2 L2 D
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型( j" Y& K( c( g+ P$ W
Name := sprint("BA", m); -- 生产线名称
5 b$ S, ^9 e2 s+ r Obj := str_to_obj(Name); -- 转换成对象变量
! S0 a7 _6 ^8 ]- _
% y- N* _! I8 c7 z2 L1 B5 e FOR i:=1 to 100 LOOP
3 y+ l4 Y5 D: P- a waituntil OBJ.occupied prio 1;; Q, O8 n2 T; X$ C8 z( t! h) I( U( M
OBJ.cont.move(@); 3 I& Z0 W+ a. C, D# R
4 B# Z+ t5 }/ ~3 V
NEXT;6 P6 ]/ ~1 P5 d6 C
@.backwards:=false;
% }1 K, P& P' W' f z* I6 Xend;
; ]2 d1 V7 U( P; a ~5 k" e8 C, f |
|