|
|
遇见一个难题,请教各位高手。
7 U. r: n: _+ M- j* b2 Z
& n7 \2 T. U8 M e- V& _2 _使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
N; S& X/ V4 b* d8 `2 r) C! v5 `" }0 U- h0 L+ c% P
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
% H1 \; E @, O+ e3 o& v5 F( ~( t# z8 }
is* p" p, b; S! X* O4 N
i,m: integer; -- 整数变量
1 }8 M( a% V m1 ]5 c# V Name:string; -- 字符串变量
# R; f+ R: r6 s v3 U1 M! | Obj:Object; -- 对象类型变量) H2 d; b6 @+ c. Z4 O3 v
( w. ~; S. U, F2 H4 [- ]do# `6 a# W7 ]+ S4 Q: e
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型. x3 r1 x/ Y0 l9 a" T
Name := sprint("BA", m); -- 生产线名称8 B) q4 n% ~. G0 `1 v0 @
Obj := str_to_obj(Name); -- 转换成对象变量
% H3 {+ u% D& d
% M% ^* d* N7 u# _9 D2 F; F* f FOR i:=1 to 100 LOOP! p9 k0 M( g8 j' ^+ l" T& Z
waituntil OBJ.occupied prio 1;9 _& g: D1 ?: _$ y1 q' C
OBJ.cont.move(@); : f A9 Y6 W# e) _
. e5 M. q& x I( B. n/ f6 i2 M5 ], C
NEXT;- M8 c1 C6 _) d0 m# f7 F
@.backwards:=false;
q/ m) Z/ o# L! \" q5 C7 K1 dend;! Q8 }7 P! a: m5 r9 M! W
|
|