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

热翔啊

is
2 v4 w3 F+ V7 h4 U        i,no,m:integer;
        Buf:object;
: }7 z% U9 L$ w$ v  A( L- ddo
+ T# R9 I% s4 l1 d- x        m:=0;
0 I3 f+ T6 a: m1 d. v        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
  P$ w' e$ W, z1 o! I! q! k# y                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
# }- J2 N: R$ }3 d0 j0 _                        if no=PartsNo+PartsTable[2,i] then
0 ?9 e3 M, C5 p# m                                PartsNo:=PartsNo+PartsTable[2,i];
& |6 E: s* w1 F) T9 ?% A% k                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
# B. W* q- y5 D                end;
                m:=m+PartsTable[2,i];
9 J* ~+ W1 Y5 p4 b5 f                print m;
# E) N) y, L7 N* n/ \        next;
; b& y/ D: h6 `& u# `% L1 i( M: f( v        --先将零件送到From位置
  R3 N# n' m: ~1 M& ?        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
' J* q* v( x5 q0 S0 L4 e6 M) a        @.move(Buf);
end;

4 ?6 k: H4 }: I+ I4 Y& ^. [这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
0 b$ K/ z; a  ?, {' b# U% Z4 h4 Y( z不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
0 p) z# a7 b( f$ q        Buf:object;            --定义object
do
        m:=0;
9 r: n# Y$ u: _        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
  b( Z* u: y1 P        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
. J% X4 O" C. A" @: T                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
  O2 G5 _; B6 o4 ~! E: o                        @._To:=PartsTable[6,i];
+ j$ J. i7 ?8 Z5 x                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
0 E$ h( C9 W5 O: S+ {
( E; |; S- L3 }4 z) |                        end;
                        i:=PartsTable.YDim+1;
$ s+ f4 [  G( E4 k8 T$ Q                end;
0 R4 [0 t+ p& V: T/ A1 U                m:=m+PartsTable[2,i];
        next;
0 k% E2 P# Y, l3 E/ V       
        Buf:=str_to_obj(sprint("BF",@._From));
3 Q- L8 X) }  B- ?7 O3 j) ]# G        @.move(Buf);
end;

热翔啊

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

5 u8 R: f4 o7 Y, i" i- @; n非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的