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

热翔啊

is
8 p' V' f9 k) }6 k        i,no,m:integer;
        Buf:object;
, D; l) m, a4 Q* e7 q8 Y% pdo
        m:=0;
6 ?! Y! i, x2 V6 T7 U$ y2 i0 z        no:=@.getNo;
! q0 P7 I: c. u+ z3 ~% I        for i:=1 to PartsTable.Ydim loop
* e* e! m5 x. G) T4 V                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
0 Y0 d$ y& I6 b1 M$ d0 R                        @._From:=PartsTable[5,i];
6 `& M4 X# t; n6 u* p. {$ W7 z                        @._To:=PartsTable[6,i];
) a# c3 n" g( J                        if no=PartsNo+PartsTable[2,i] then
# R0 z4 o: C  c0 D# y6 H                                PartsNo:=PartsNo+PartsTable[2,i];
) U( S+ P# {4 t/ b6 ]. u                        end;
* n& T3 @1 _7 K3 T) u1 ?* F3 {                        i:=PartsTable.Ydim+1;--跳出循环
! n' \" }: C# `& e1 N0 r+ Q                end;
0 T/ }: R, M( f- n3 I5 E6 O                m:=m+PartsTable[2,i];
; u. Y* V" Y2 Z& U                print m;
# a5 J! v& q" x& {  w        next;
$ y: m1 n9 b4 C* B# T4 X2 p7 {        --先将零件送到From位置
' B# \, \. k2 ]        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
7 q+ k5 @0 Q7 ~8 ^9 D0 Zend;
; Z2 l4 d4 m( U) q( _
% }3 t) b( t% A8 g- @* A5 B这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
1 g! \/ W+ i' @: J. [; o        Buf:object;            --定义object
9 R, y+ e" J3 A- |& s, m9 Odo
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
5 r( I% a- {/ I( w  L        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                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];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
3 h( X0 n7 S7 [0 H  o! a
+ a  W$ j) h: T" z1 v$ R+ U+ R                        end;
3 R" I, f2 w! x                        i:=PartsTable.YDim+1;
4 p% t: v6 K) C  v5 k  W                end;
                m:=m+PartsTable[2,i];
        next;
8 y8 @, `  R0 R) f1 Y) J       
        Buf:=str_to_obj(sprint("BF",@._From));
9 _- `* ~2 [0 v$ A% {        @.move(Buf);
end;

热翔啊

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

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