|
|
遇见一个难题,请教各位高手。; i `, V b8 {: r6 W4 @4 D
0 k( S' @- A8 R+ @ Z
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
, i: q: U) a- b2 h* D: F9 a' k$ x" T$ L
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。# |6 Y# \8 }+ ?$ ?8 V2 Z- }8 x
" X, B" J3 k0 f3 _
is
8 p" I: Y( C! R. I- R( S4 |6 j& p i,m: integer; -- 整数变量
- R, J/ f ] ~) J! x Name:string; -- 字符串变量
! B: g( u1 j- s' m1 o Obj:Object; -- 对象类型变量* h$ p4 ^) L2 ` ~, Z3 h! _/ U7 R
8 |9 D3 L8 G; T6 ^3 X5 \' Vdo
" b) |' b9 d( g7 l2 ?" t$ \4 ^) v7 _ m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型5 o6 Z7 ^* |; C$ q% b. j" b, r+ F3 ?
Name := sprint("BA", m); -- 生产线名称
- U+ Q- E- `7 l" e Obj := str_to_obj(Name); -- 转换成对象变量 }& q8 c$ C' h/ b- }. X! C$ H
$ _+ c1 v3 ^' m; q6 E- W% M0 v4 ~ FOR i:=1 to 100 LOOP
& u! `' Y/ e- A. L waituntil OBJ.occupied prio 1;
' W; U3 j# J3 e6 U. R& Z OBJ.cont.move(@); * Y& h( t; Y+ P C; y! E
7 h/ o0 j) d! B8 r
NEXT;
, t1 m. a5 q3 y4 j @.backwards:=false;
% @3 q d; ^7 |# p/ S8 ?$ lend;
/ s. r- C- j F x |
|