|
|
遇见一个难题,请教各位高手。
# ?* ^( M5 N: @' y G, I, Z( g( g( K& _8 v2 r- o$ h4 w9 \- r
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
( M' y! m/ c% k; M+ Z& y/ D2 O# L
- C' f, z. x2 m) k4 ?2 D" A需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。7 x2 z6 o2 r6 J& d I. _( ]; p
4 J# A8 Z( m8 k" L- s
is
+ A+ I2 p# \3 M i,m: integer; -- 整数变量
' D3 {8 f0 a- I8 m Name:string; -- 字符串变量' j: l" h" |$ ]( T1 N- p
Obj:Object; -- 对象类型变量# K* g8 o1 m6 b
& J$ K" c5 R/ z4 s2 g1 F9 {6 Cdo
/ w) q2 s1 F& _" v% A m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型1 z& O( F! s/ v, y1 _
Name := sprint("BA", m); -- 生产线名称1 [2 Y: s V; U Z" K( Z+ p
Obj := str_to_obj(Name); -- 转换成对象变量6 W: y# d. @8 X# S5 b: n. K5 {
' B3 U3 h; C6 b
FOR i:=1 to 100 LOOP
7 D, t/ `& _ c6 N9 b waituntil OBJ.occupied prio 1;
$ L, F1 n& X0 C1 M; `- Z6 v; x OBJ.cont.move(@);
6 n# ^: n, z5 P. a9 g! J 2 x7 Y. P' j, d/ K
NEXT;
/ ]& e$ \. G5 B9 V! m0 ?( ] @.backwards:=false;
H3 W7 [3 d/ ]: x' ^end;3 I& X6 R3 v4 E8 z6 t5 M
|
|