能不能忙帮忙翻译一下语句

热翔啊

is
6 E  Z4 ?# Z7 y+ T; i        i,no,m:integer;
        Buf:object;
do
  q; C: Q. R. ~) B        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
, a) Q+ ?  t1 y0 B3 A0 Q$ e3 V" ~                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
& a+ S8 ~2 R: x: X) u                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
5 Q/ |; [& I) M- R: z                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
3 t2 `. G& N+ x; A8 s                m:=m+PartsTable[2,i];
                print m;
0 t5 Q# O8 _% Y( Z. h+ Y        next;
! J; i1 b* }# o1 S$ S" x2 X        --先将零件送到From位置
$ G4 e5 u1 L$ w  b        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
# s+ U$ u; t8 y0 }( `        @.move(Buf);
end;
  ?& c7 b! U" ?* G$ x* t% X
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
. K0 k" G/ l+ t5 q$ a/ d0 Jis
5 k) w) V2 _' f9 ?        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
3 N, i/ G; J$ r$ U7 d( A0 W& k        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
2 U& m) O# V3 V" [/ E                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
8 B1 }2 ^" d1 |                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
1 J. R) ?4 m* [' c* R: Z                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
6 t3 [, M% d2 e) x' d       
3 m) @2 S+ `+ X6 i        Buf:=str_to_obj(sprint("BF",@._From));
: n! K9 o& @4 C# v8 _4 j        @.move(Buf);
. P+ S& W3 e+ v1 Z: w: |8 Yend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
3 s- T% N8 `: [这个例子昨天正好看了，话说那本书的例子都很不错~
5 J6 @' q$ x! q不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的