|
|
遇见一个难题,请教各位高手。1 _# \1 l9 |* a
$ j# H- p8 b; x5 p使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
5 Z( ~: _% x, t: w+ k0 \9 z* Y
, }# u0 }- C8 {5 R& S6 q/ n需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
& s1 F9 O9 B, {: ~3 B) ]" s6 z3 O) Z9 m! i
is+ Q1 I' S8 u( V ~% L7 G0 G
i,m: integer; -- 整数变量0 [9 Z& i6 ?8 L; Y- C
Name:string; -- 字符串变量
3 _' h, i$ c- `* u( p9 R* [* V6 n7 a Obj:Object; -- 对象类型变量
! j7 I3 v2 q# U) l' j8 H, h* F+ a" p/ ~8 x/ I' F6 F
do# i9 C( F e/ ?6 m, D- _
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型3 n' h0 C4 `" Y& W; C4 \7 v
Name := sprint("BA", m); -- 生产线名称8 M7 Q( ~; S, C/ k& n
Obj := str_to_obj(Name); -- 转换成对象变量1 P* J* I9 G* U3 T% k3 B) N
: }) H, K6 B9 G9 W& H% G8 ^- n FOR i:=1 to 100 LOOP
6 {! X. @: i' n) B waituntil OBJ.occupied prio 1;* v3 T* C) `. `. i- C- z
OBJ.cont.move(@);
8 ?% |* B3 L& O }5 o# c# s; Q9 j 8 |; {5 o0 U- f( E
NEXT;# A9 q* F1 B( ^ c& p& F$ G
@.backwards:=false;' n" D, q4 ~9 G6 b2 v! N
end;2 P; ?8 x! Z. Z |+ P' s
|
|