|
|
遇见一个难题，请教各位高手。
2 M% w5 l7 K& ~, z0 z8 P, @: W* `& a6 K; Y. F; u4 u
使用transporter将物料从A点运送到B点，通常情况下，每次运输100件，但是运输几次后，剩余的产品不够100件（例如订单总数是220件，第一次运输100件，第二次运输100件，第三次只有 20件可以运了），当运行到第三次的时候，仿真就停滞了，无法继续下去。不知道如何修改程序（我现在的程序如下）。8 o5 Y9 x0 z, M2 B! u; J8 T8 q
2 ^) z5 V) ]. V% h4 V
需要说明的是，A点的运输量不是固定的，因为有两台并联的机器，因此我无法通过表格直接得出已运送量和未运送量。
3 W- m% s& W- Z# K2 }
9 y6 p; G: b" P8 L& g9 {9 W/ X2 ` is+ l d+ m0 o& Z' F# y
i,m: integer; -- 整数变量. o+ M) S- o* ^/ |) o5 P: y- p# ?
Name:string; -- 字符串变量
& v" {% Z3 ^8 C- b( _ Obj:Object; -- 对象类型变量/ F0 h! s* P( E" z
3 y9 {+ t/ |' h* w. p
do: m0 c; E3 c8 s
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字，在转换成整数类型
- w' y5 Q' O% B* i' h0 [+ o Name := sprint("BA", m); -- 生产线名称( E% W, Q/ w6 s! D/ P
Obj := str_to_obj(Name); -- 转换成对象变量0 r1 e9 N3 G3 j
7 L$ x1 t# Z; Z N' _
FOR i:=1 to 100 LOOP0 w7 w+ T+ l& T+ G6 V4 D7 d S# w: B
waituntil OBJ.occupied prio 1;
! Q, B* I% w/ j! r1 G6 M OBJ.cont.move(@); - J6 p% M, k; O8 X1 @, O
3 l1 o) [7 ?5 m1 W+ J/ h
NEXT;) K1 d, d& G, e/ {+ Y3 G
@.backwards:=false;
! W9 a6 r/ e2 i$ Y2 Q. \% gend;
. P2 A0 y) W) @; M |
|
[复制链接]
发表于 2014-10-8 20:31:26
楼主
