|
|
遇见一个难题,请教各位高手。# |+ J. ^9 [/ ~, x2 i/ r3 I$ {
2 z9 U4 }% A* m% e1 p0 V
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。# M+ |; }" X5 o9 l' A
$ |2 P- Z# M$ \0 b2 S需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。8 `7 {. d1 p3 l
- F6 G, O: Q% d, a' @ is' }/ e, S: n( f/ L
i,m: integer; -- 整数变量5 n: n" b# e. h& l2 d$ b
Name:string; -- 字符串变量9 a& L- |/ G6 j7 K" u, Y
Obj:Object; -- 对象类型变量
- ` C3 ?. V$ F8 V3 s# I8 u
% T h% D. O8 X& Q2 ?4 l( Edo
. x9 J% |$ [+ Z" A/ T% K5 j8 Y/ e m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
3 O9 p6 z$ A7 Y- M% d L$ u/ E Name := sprint("BA", m); -- 生产线名称
! C2 m. ]' ]0 R' o' m/ V Obj := str_to_obj(Name); -- 转换成对象变量
6 r2 C$ r. t- B1 f- L u
% Z9 r2 i& |) T) z FOR i:=1 to 100 LOOP
# f1 f) p& G: R$ I& d5 b+ \- J) c waituntil OBJ.occupied prio 1;
2 P0 a( i* l. y. j/ G2 h. m+ i OBJ.cont.move(@); 3 f' G5 S0 ], h8 S3 K/ B/ P% W
?- Z f5 ~3 F. `( ]! b. _( q NEXT;
# `( a% o/ u4 A4 z0 U- t' X @.backwards:=false;
1 U1 D5 o0 a# t: h+ S6 b+ lend;4 l6 P1 c g4 u
|
|