|
|
遇见一个难题,请教各位高手。& I" i$ b) }- q8 B
! B: l* W4 n6 |( ^
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。/ I9 d$ b4 z# z
$ I% U1 c3 T" x, M7 I
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。1 j; R' U( u* [" d7 b8 }
- j. C5 s/ D; W! H is
9 W# g% ~! s' ^4 i1 E4 d# w i,m: integer; -- 整数变量6 ?- Q3 v5 H4 W
Name:string; -- 字符串变量0 Q/ K1 M$ _. f
Obj:Object; -- 对象类型变量
5 C. Q8 O0 ?; y( B( p f1 X( v- F1 w2 i6 U% ~: S8 a
do0 m0 ~' e( P+ E; k; p4 r
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
+ z+ p+ V& |% w8 O0 C1 U' z Name := sprint("BA", m); -- 生产线名称
3 u# L8 d) e* t& u7 Y+ s% S: w% M7 D Obj := str_to_obj(Name); -- 转换成对象变量
. s! c3 U- l+ u6 M# {
+ R. t G. M2 l- t FOR i:=1 to 100 LOOP0 g' \) z( f( t/ t/ m5 d
waituntil OBJ.occupied prio 1;
0 v& J! ^" }( _; G5 E3 U7 a! m OBJ.cont.move(@);
# `; {7 N5 _; c& c1 ]1 I $ y! Y! w: F2 S* x
NEXT;
" Y4 Z7 a' n1 W$ E3 U7 M# C* A @.backwards:=false;
5 `( b7 H- _( L5 V: p5 V+ Z ~end;
0 S- u3 z4 r$ q% j {/ x# {! T1 S0 W- h |
|