|
|
遇见一个难题,请教各位高手。
. D0 U9 M. P! y0 O: Q0 B$ i, j3 G! f! p+ b& w$ I; |/ F. w- G l# T
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
9 z t: Y) Q. X+ _# P1 t1 L9 N! x7 P. H) s) ^+ T2 R
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
8 W4 X7 b7 P. }6 _9 P0 j) I# I; ~( u3 k( K R
is
; a) e1 G4 m' }; U0 K2 x; H0 }, n# w4 r i,m: integer; -- 整数变量
/ B: D. l# k' F$ o$ X% }& { Name:string; -- 字符串变量
1 R- V" m. M* v* Q( G/ \ Obj:Object; -- 对象类型变量
2 Z) ? L' @) X& z" e7 B& A7 [( S0 q1 D+ E
do- O. ]$ n9 O( v) F6 {5 m- w4 l
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型5 g3 V) s! [$ Z
Name := sprint("BA", m); -- 生产线名称
2 y$ |, @- Y. o$ l+ M Obj := str_to_obj(Name); -- 转换成对象变量
! I% i+ i" F5 s" G* ?5 l5 | : Y% t/ k) H. |8 b# D
FOR i:=1 to 100 LOOP
- }% P! p% d' a: \. R; u9 F7 H waituntil OBJ.occupied prio 1;0 V. I0 o8 |' C. [3 m
OBJ.cont.move(@); & d/ l- H _9 d3 |8 J
9 S( } d1 K; G% a( W2 a
NEXT;
2 b8 D" d- F3 X# v8 @ a; T @.backwards:=false;
& [! C! y2 o* c% jend;: P$ j! `, ?2 x& S0 @2 j
|
|