|
|
遇见一个难题,请教各位高手。
; q7 l; N, ^* f3 s) v! [1 M. p
' i' ~8 I# L# O) b v; \6 ^使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
# x4 K2 h8 H( [1 R( t. [; |
. k$ n6 }7 S9 U' E- |需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。: R, t- q7 W0 A; j2 T' b) c
- b5 m/ b" b0 x# ]) Q3 X
is
9 B1 `4 {& H; j i,m: integer; -- 整数变量
4 b4 ~ I: \. y0 D/ K3 A% g Name:string; -- 字符串变量
V1 w. z# R7 b1 i$ V1 m Obj:Object; -- 对象类型变量
4 \- p }1 \, N* C0 _) ?( g' e# A5 Z: }/ A
do
+ V, S$ e2 n- r9 r: r; d m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
/ Y$ Y4 o3 f, k4 V' X0 P/ d. K Name := sprint("BA", m); -- 生产线名称7 _: i/ G0 p. G, \6 R
Obj := str_to_obj(Name); -- 转换成对象变量2 x( ?1 C$ ^5 k& g# ~' S/ w K
; U. {; K) _: ^; T- O V
FOR i:=1 to 100 LOOP8 l9 _& L0 u6 }' z4 c7 D
waituntil OBJ.occupied prio 1;$ a4 |$ a( p; G) Z' a) U
OBJ.cont.move(@);
2 K3 {' {. f, q& G - P/ K/ J" k. l" P( t, B
NEXT;( G8 b5 b8 Z0 _! w: G3 P
@.backwards:=false;+ v4 r" g% [# ]6 X' f- B" _1 `2 @
end;$ i& U; W2 |8 |% L" r# A
|
|