|
|
遇见一个难题,请教各位高手。
6 T$ j1 C( m3 a. [' I" W: f6 `* @0 o1 b! g" I$ I
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
0 C2 ~" J1 @0 i# z
6 X( G4 k# b8 ~, U需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
4 a3 u% I2 g) p$ E+ Q/ T" L, ^/ ~2 A1 t7 O. g9 U2 r
is
1 m1 h2 I' U) n0 y$ K" } i,m: integer; -- 整数变量
/ J" z+ T& @5 Q; ]" F Name:string; -- 字符串变量
$ M5 V% Z4 ]+ {( b! }6 G% D; u Obj:Object; -- 对象类型变量
$ b- H2 n, q" E# ~2 {. X! ^+ T C' E! o8 S, d4 f/ ?
do& D2 I) e' X: t
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型 m' V* U. g5 v. K- S$ |( l% }
Name := sprint("BA", m); -- 生产线名称
- h+ A1 _' U7 L+ V Obj := str_to_obj(Name); -- 转换成对象变量( h% B7 y0 ~$ E3 J, d2 G
$ B* r- ?9 o" n- H, W" |' n
FOR i:=1 to 100 LOOP
& S0 ~% k5 v0 G) t- F: ? waituntil OBJ.occupied prio 1;$ N( [4 X4 S) O4 F, R+ ^" H" P3 z
OBJ.cont.move(@);
, t/ V4 m2 L$ ^0 x: m5 |& K 7 Q! `& |; `/ u, k
NEXT;3 h6 r5 d1 u4 a. e. U
@.backwards:=false; \) R$ _0 ^. z8 Y1 A7 e+ W R7 A
end;
* S* |2 W+ q B& [& p5 N# t |
|