|
|
遇见一个难题,请教各位高手。
3 ^; d& |; {" l# S# ? V5 [4 n4 F: r; X4 M% `
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。' O: B) T2 }0 [8 O. q; t4 D" P+ H9 S/ |
& Z8 l* u' [2 p3 A7 F0 ~需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
9 @! l, c7 A2 J2 `, H m; x% {8 \7 Z% s9 i
is
9 j& |5 n$ V8 [) b. ]: T i,m: integer; -- 整数变量
! o" z; n5 Q8 A$ B- k Name:string; -- 字符串变量
- r* C2 {3 x. }9 _/ f- n Obj:Object; -- 对象类型变量
8 y v5 a: T; C7 G
7 H' U% c+ _& p0 d, U8 H& xdo
9 I0 ]7 {0 z {7 F$ v* k' N m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型3 v% Q3 w9 H) G- u
Name := sprint("BA", m); -- 生产线名称
4 m+ _: R& ]7 v, P, ]! r. P7 t Obj := str_to_obj(Name); -- 转换成对象变量
0 O. a4 R- E" t
% G2 i" c8 m' L% L FOR i:=1 to 100 LOOP* T; {: x1 I* e4 \) ?$ n' y0 c
waituntil OBJ.occupied prio 1;
9 V: C0 q7 D2 ~6 ?) M- w% K OBJ.cont.move(@);
! n8 p H Y; f; q- `1 W
0 x* f, z) q& U& `. O) r NEXT;: ^( i0 ?, ~0 P* [; S/ G5 y
@.backwards:=false;
' a# i5 ]" O# o' [% eend;
; O1 e. A9 d, M |
|