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

热翔啊

is
0 w* c; h6 R& f        i,no,m:integer;
        Buf:object;
do
        m:=0;
9 P, }& ^6 M0 y" Q/ R5 D        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
4 ~+ Z, a" V+ R7 a                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
0 O2 g1 h+ E' H9 j        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
( l9 b0 f4 S: Z        @.move(Buf);
end;
. O2 g# s" Z/ O! c1 X
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
: l% P9 A, G( `0 O$ S9 X7 ^$ {& L. j        Buf:object;            --定义object
4 }( x9 @. \2 O4 @2 @5 `do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
7 s! ~( o! I7 s/ J# q  u- C- `" ^                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
: T3 N+ k- N# v                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
$ w8 Z+ r; e) Y) U                        if no=PartsNo+PartsTable[2,i] then
' M5 p. ]! P( @2 X  r' Q  L/ u                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

3 I) U0 @7 @$ G4 Y; I- l                        end;
7 K3 A, q0 D) r5 T2 f" V2 `; n1 @                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
( M) H# o. R5 v! C0 ~        next;
       
1 U/ c4 d% h& _' Y4 R0 p; x- h/ n        Buf:=str_to_obj(sprint("BF",@._From));
$ @1 Z# R) u; `5 }' h% M; k( N+ \        @.move(Buf);
& ]# G7 N. j- {. `5 @end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
& X7 k7 d1 a( n  F, Z这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

* T5 k. F) T' ?9 z; J) W# J1 v" G非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的