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

热翔啊

is
' h; d# g/ ?: e  m        i,no,m:integer;
% O3 }$ I7 p" i$ p        Buf:object;
do
        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
2 Q5 a  l0 v; U+ G& I, n                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
$ P0 F+ n6 e# Z3 w                        if no=PartsNo+PartsTable[2,i] then
# V% M2 j! O8 A) d2 {9 J                                PartsNo:=PartsNo+PartsTable[2,i];
" @. l$ h& o: p                        end;
7 j! e' H& F0 Z; @$ k                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
3 H3 f# s. l  h+ ], H4 e        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
( N3 J3 ?: m& v7 D2 N: N        @.move(Buf);
end;
+ M& d% I4 |& C. w& t
# C0 Y# t) W7 C这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
- ^+ u8 x6 n! k( i+ a% t不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
7 D- h$ _2 }9 c) g+ P8 y- U        Buf:object;            --定义object
do
% j, X; w8 S. p4 N" R        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
0 `$ y  g$ {' @! B3 b/ p        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
+ I) |0 G) j. s1 z8 K                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
# g: {% y4 u+ @4 {. `& B                        @._To:=PartsTable[6,i];
8 i1 M4 [& D; j  S                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
3 r! b! q1 g; w( j) a                        i:=PartsTable.YDim+1;
9 d9 t$ W* R4 }3 m+ g5 Q2 c                end;
/ e: \- h4 _$ U1 F, I+ u                m:=m+PartsTable[2,i];
1 P6 f6 s5 T; k& Q5 C: S$ u/ {        next;
       
3 U0 _9 B8 S/ V# T        Buf:=str_to_obj(sprint("BF",@._From));
  j, k9 }/ P, m. f        @.move(Buf);
: J9 k4 d/ w3 A9 L. j. \, Rend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
+ b; G9 B# O( N; z; R# Z) l这个例子昨天正好看了，话说那本书的例子都很不错~
1 K6 w* _2 ^" J( C* T! _. k, c0 `不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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