求教：transporter 运量不固定如何编程

wind123_SW

遇见一个难题，请教各位高手。
6 T' P( m( H0 B8 L
使用transporter将物料从A点运送到B点，通常情况下，每次运输100件，但是运输几次后，剩余的产品不够100件（例如订单总数是220件，第一次运输100件，第二次运输100件，第三次只有 20件可以运了），当运行到第三次的时候，仿真就停滞了，无法继续下去。不知道如何修改程序（我现在的程序如下）。
2 g$ K, e. J3 E: O! i+ O6 B
需要说明的是，A点的运输量不是固定的，因为有两台并联的机器，因此我无法通过表格直接得出已运送量和未运送量。

is
        i,m: integer; -- 整数变量
2 c8 ]* T: Q: h        Name:string; -- 字符串变量
        Obj:Object; -- 对象类型变量
: A1 e: ?& O+ q' y# \
9 V# b! [- l$ ]* Bdo
6 F  S! F+ m9 p3 g3 z* v- r        m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字，在转换成整数类型
        Name := sprint("BA", m);  -- 生产线名称
- J" V* x( E( F9 @9 \  O$ [        Obj := str_to_obj(Name);  -- 转换成对象变量
- _; K0 w; U3 F2 R5 Y8 d   
        FOR i:=1 to 100 LOOP
$ o: X1 l5 s9 Q4 ?3 O4 Y* C8 o                    waituntil OBJ.occupied prio 1;
4 C- v8 r! s$ W: k+ g                 OBJ.cont.move(@);       
, p6 h+ k2 t4 w8 f* j& S/ @0 e       
        NEXT;
" N# R9 w8 w0 X- u                @.backwards:=false;
end;

dongshui8558

FOR i:=1 to 100 LOOP, 这里肯定要变化啊。
/ B( }8 D0 d- w! n0 q5 M需要说明的是，A点的运输量不是固定的，因为有两台并联的机器，因此我无法通过表格直接得出已运送量和未运送量，不太明白。

automer

函数主体 缺少对source物料的数量判断
if numberMus = 100 or numberMus > 100 then
       vehicle takes 100 units.
  G7 z! }, c$ ^0 |; h0 @elseif numberMus < 100 then
- q0 N" A+ t4 P* x! f, {       vehicle takes really number of units.
7 Q- F, M- E1 h$ V  \2 aend;
3 q, j9 Q$ K5 @# {: D$ V1 a; C
希望帮到你

wind123_SW

多谢各位！
5 j5 X' J$ P9 \) u& E3 \4 t5 K6 q6 R

wind123_SW

dongshui8558 发表于 2014-10-9 15:03
FOR i:=1 to 100 LOOP, 这里肯定要变化啊。
7 B/ @2 X; S/ b5 K' m5 y需要说明的是，A点的运输量不是固定的，因为有两台并联的机器， ...

" }2 e. ^. b& _多谢您提供的方法！