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

热翔啊

is
        i,no,m:integer;
        Buf:object;
* i( q3 p0 ]+ M& w2 ddo
        m:=0;
        no:=@.getNo;
7 d, g9 P% X3 t# J        for i:=1 to PartsTable.Ydim loop
6 C; U( ], m' L) o( {, ?9 S5 m                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
; h- y/ m. m, F                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
. n$ T6 \. O8 J+ I% ~                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
/ m7 W$ ?2 k" T- R: x1 O" X                        end;
) y3 [0 O# W7 d# c. S; V8 V                        i:=PartsTable.Ydim+1;--跳出循环
1 n7 F9 ]( E2 z5 F  S6 @4 D9 k                end;
0 J+ X( }* x9 j0 P* o" @                m:=m+PartsTable[2,i];
                print m;
( h" y4 z# _: G! o7 r" e        next;
        --先将零件送到From位置
6 e. `; Y( ~! U% p7 r        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
& A2 O7 d4 \! N8 eend;
8 P$ o* [" a# b4 u! v7 k  b% P
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
' S- V4 ]" s+ U        m:=0;
/ c8 k6 M) C" C        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
  [" O7 T3 F# g6 g        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
' J: g5 H. u7 h2 U                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
1 O+ ?7 f* N! t                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
) n8 @; q2 a( Q# }                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

; V5 y7 b2 q: d  r                        end;
$ @; v+ B& z1 A' v+ C6 f# v$ _                        i:=PartsTable.YDim+1;
                end;
7 \2 z6 d  f0 @                m:=m+PartsTable[2,i];
1 F# u9 N# O. o+ z        next;
       
" K3 H0 z' K7 x0 p2 r! V        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

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