|
|
遇见一个难题,请教各位高手。
; N- `; n4 ]% N6 a; y5 E8 Y5 o7 G- X, A; j; A) c
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
8 l1 @/ [4 Z1 w7 S8 R1 x: e: E; j: _6 r6 |# z' T! r7 ~$ |2 D+ ~
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
; L/ J/ b" w! A* A2 d' l& s) Y4 f$ o/ ]8 }1 e$ m! O
is
3 t7 ~7 Z. X. ]; Y, ?' P* l i,m: integer; -- 整数变量
3 O! y T7 [% x* D1 @ Name:string; -- 字符串变量' f7 }5 b$ `, f; q# e
Obj:Object; -- 对象类型变量* j. l* \: \, ]& ]. `' X3 P
! {1 x$ V7 w' x) C, r
do0 D8 }- l( l2 F/ \% }* }; H
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
! ?; W6 A1 {6 }9 M Name := sprint("BA", m); -- 生产线名称- k0 X! J) v* U0 C
Obj := str_to_obj(Name); -- 转换成对象变量/ s) u7 }' v0 d, H" n" Y
# h. k+ L2 h+ Z; x2 C' _
FOR i:=1 to 100 LOOP
& k6 { G& \ y+ C waituntil OBJ.occupied prio 1;
7 q2 q w1 g2 `& x p OBJ.cont.move(@); & k6 Q( d9 c: \7 f; G
4 u: ~/ ^: Z* \ {7 e NEXT;
( C* F" d, o* J0 W. }% i @.backwards:=false;9 w& w K* Q( M; d Y% `
end;# J" K) v4 z$ B* C. k' b3 f: ]# d
|
|