|
|
遇见一个难题,请教各位高手。
0 S# X5 x$ i" k9 Z) x
' C% _4 G# W, w. G+ H! s$ K2 Z使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
8 q/ ^. i4 N' u: e! q$ N: S+ m- f4 t
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
) q6 i P6 A& N4 K9 R; l( o( S
5 ?. ^8 J3 j1 v: I+ ~: A is+ r6 d& g& ~; e" C( h
i,m: integer; -- 整数变量( D. u9 x/ P3 g! [/ s$ z# K0 S3 y$ b5 R
Name:string; -- 字符串变量8 k5 y: S5 Y* z" I
Obj:Object; -- 对象类型变量# ~. I: y' O' F
2 G* }5 ]0 } h9 |7 H* Hdo8 E, s% @" _, y8 I% D# j
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
8 `1 B' g' n% b% k: u' I) E- ^ Name := sprint("BA", m); -- 生产线名称+ v7 P) Z1 A4 `& V
Obj := str_to_obj(Name); -- 转换成对象变量
; L. r4 f6 }: w( N6 I, X( P 3 w5 A u: k2 A
FOR i:=1 to 100 LOOP
! y/ r% v1 l* o! ]2 E waituntil OBJ.occupied prio 1;
5 Z' Y( @' v7 l OBJ.cont.move(@); 7 Q; c0 `% i; {0 E; w% Y" a5 |7 c
2 `5 c7 O, ^5 N" P
NEXT;
. ]; u/ _% b! t$ j3 U @.backwards:=false;6 \" X0 `5 ~7 \4 D5 k: v2 l: q
end;2 z5 M+ g3 \/ k" K1 G
|
|