|
|
遇见一个难题,请教各位高手。
$ ]$ _ v* V/ O7 o$ ]+ z
% ]5 V0 F/ G" d) `' B- `使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。- _+ p# l: q, ^! E9 R7 e+ [, A
; R, ^( `* R; [6 c% X* |
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。& n+ Y- l6 r* [+ `7 D3 i
5 \' s% G O7 h2 W2 ^
is
0 i/ j/ X- u4 @4 I ^9 ?$ F i,m: integer; -- 整数变量
; A3 ^6 q: O# U Name:string; -- 字符串变量7 }8 U7 F9 W1 I+ y
Obj:Object; -- 对象类型变量) o8 j- h. W$ Y# ?3 L
C: u) C: G; Q" x6 l4 A
do) w1 m, l' h9 X+ W- J
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
' `4 x7 U4 P. K; c3 G3 f Name := sprint("BA", m); -- 生产线名称: u6 x8 O5 K) P, y1 V3 c/ n$ J7 K
Obj := str_to_obj(Name); -- 转换成对象变量$ o6 z* c5 ^& T8 s, d7 U
2 P* i0 @0 L. Y0 @
FOR i:=1 to 100 LOOP
% Q0 E: ?. @$ s3 l waituntil OBJ.occupied prio 1;; l: g! _! }$ Z8 a/ P
OBJ.cont.move(@); 8 C5 N& H! ?3 N" f5 m) E) O
" Q0 K; l0 I: U4 W0 O; Y; b8 s NEXT;
" p4 P4 T4 k- Z; S: ]3 D5 C) ` c @.backwards:=false;
/ v6 o3 w0 s: O, M+ M& w: Rend; e, }" S! m. h* s5 C. V
|
|