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

热翔啊

is
0 r/ d1 R0 ~  a        i,no,m:integer;
        Buf:object;
do
        m:=0;
        no:=@.getNo;
$ z6 j8 D8 @& q        for i:=1 to PartsTable.Ydim loop
6 L' Z+ }! H, f7 H) D                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
# Z  Y# R2 h5 B4 o5 {8 I; x                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
' _% F1 h3 h. _" k$ ~8 A( ]# Z                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
! U  _: I& d! ]: D9 D, g        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
8 S6 b4 y9 w! h' s2 D9 C& l# O2 p
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
% ]% B; Z: X6 h- J+ n9 L不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
. g6 Y& ]" `7 g, n4 |        Buf:object;            --定义object
" r, P& w) L, o, _0 a% Z# Kdo
5 g/ [8 H# t% v/ |' ?2 _        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
; \! d( Z) S: E/ R5 e% v( Y% H        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
( H: T; d1 B- _0 T                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
1 \7 @8 t4 b8 F1 H) e
6 @! q# V; r# x                        end;
                        i:=PartsTable.YDim+1;
                end;
" ?6 d9 ^+ ^( p8 y' f                m:=m+PartsTable[2,i];
        next;
. A: j( p1 B/ t       
6 K( c& F* y) R: N% |$ c- }        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
这个例子昨天正好看了，话说那本书的例子都很不错~
7 n7 N/ I0 o0 B. @1 k不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

  u& o  C+ [3 g9 x非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的