|
遇见一个难题,请教各位高手。: q2 q+ ]2 U# Y" W- x
: b B* u; z5 u! W& ?
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。2 [" N' ]* P5 ?" N% d
3 A$ W" q9 ?7 C. h% n需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。+ _! d9 r+ \. F; b' W- }! K" @
F- B# w+ }, E3 W6 Y is
+ A( Q' V' n3 z# [! y i,m: integer; -- 整数变量6 |' }' l. N6 d- o( w7 s% S
Name:string; -- 字符串变量
7 e! z5 D# I& [# f' f! w+ r2 L Obj:Object; -- 对象类型变量+ [9 o- ?' D4 v. h4 h. D
+ G% K2 _- F+ B8 x& Z
do; |+ b6 R6 [" o& U. }0 x# Z. R2 e
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型) V8 e& m3 G5 B+ z. g& c# c
Name := sprint("BA", m); -- 生产线名称
, i0 A& G3 ?6 n Obj := str_to_obj(Name); -- 转换成对象变量% K1 P2 ~# V! Q# D9 {
: z$ C& Y! f& W$ f8 U% K FOR i:=1 to 100 LOOP
# d- j! V7 F" Z x1 E waituntil OBJ.occupied prio 1;
, M% B" j2 q1 X. V OBJ.cont.move(@); & R0 Y/ Z# i- l, o( x
( S& A0 a" ~; _* @7 U NEXT;) j( p0 R% ?+ o7 U& q& }! i
@.backwards:=false;
( a- s5 |: Z( r1 n* bend;
' u2 q) p3 K5 [1 ]6 ?" x: L |
|