|
|
遇见一个难题,请教各位高手。& ~0 {( z4 `& T* H+ ~5 m& i# E" P
5 v7 l- ^# }# s- |8 H, y! y( W使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。8 M8 \) [) L7 {6 O. `
( L4 w6 d6 R5 q5 ^需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。2 H3 F- R0 W3 w
8 F0 X- @7 y$ \; t# ]0 z# S, M5 g is) Q1 b4 J9 k) a8 ?% {$ Y7 n
i,m: integer; -- 整数变量7 W6 U5 k _6 w1 O+ \+ e
Name:string; -- 字符串变量- y' h& z4 ^9 y- [" B
Obj:Object; -- 对象类型变量
. g# E/ x! ~! @) k% Z p* A" q+ j, [ t: I
do
6 I# z+ W4 g9 j/ d m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型' T( E2 T- {5 y& j! x
Name := sprint("BA", m); -- 生产线名称: |& A" N; t; H
Obj := str_to_obj(Name); -- 转换成对象变量
8 {+ ^5 t4 [& n# X& v8 u$ n
9 }- t3 _2 Y* h9 I FOR i:=1 to 100 LOOP
3 m: ?2 Y4 y9 s: u) b waituntil OBJ.occupied prio 1;* z0 r# S: L, U
OBJ.cont.move(@); t+ ~5 W Z6 ?* v, Q
2 I2 N8 p: Z3 j( |4 ? NEXT;
/ k; l; O1 ?3 M @.backwards:=false;0 _3 X0 p6 G+ e
end;: ]) p. _6 G* w. i$ z6 o* f
|
|