|
|
遇见一个难题,请教各位高手。* t1 Y- k" f v) x9 [( U
( L/ j' w) v" x# F$ X
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
, j7 R4 e& M5 n% ]4 Z
( p* ], r9 P4 L7 W需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
& @ C' ]$ [& B) w7 D/ ~2 l7 H4 V4 n! a- a1 F
is
% V7 v4 \: t* u4 Q i,m: integer; -- 整数变量; P+ ~- E C) L& ?# w7 Q
Name:string; -- 字符串变量
* f& G9 {. _3 V+ x& s# b4 L. |6 n Obj:Object; -- 对象类型变量
; a% e" [( K8 L7 N8 a. e2 j8 J0 ~( m/ c! q$ b
do
A& S( w, s1 x' E; n5 K( Y m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型6 j1 l. h: |, }8 l' }3 L4 X
Name := sprint("BA", m); -- 生产线名称+ m( y8 F. `( g2 c3 Z! z9 E
Obj := str_to_obj(Name); -- 转换成对象变量4 p2 ?; U1 C; S# m! ]! ?4 l8 E2 \9 e0 ?
. E- f3 O2 m$ P4 r* e X) r2 P
FOR i:=1 to 100 LOOP
$ Q8 w, E: D; A waituntil OBJ.occupied prio 1;
$ E4 F$ v1 ^! d) g% F1 q+ s OBJ.cont.move(@);
: F/ w4 Z+ `' J3 C% ? n7 N& R4 n! q/ C$ x) Y
NEXT;
* K; U8 e; ]2 C8 x6 R @.backwards:=false;
: o' B( S3 s+ T3 C* J, send;% o, A, G2 {5 p
|
|