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

热翔啊

is
        i,no,m:integer;
        Buf:object;
7 e' n! i& a& w; r0 N# B1 K- {do
        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
) V  H. W; m. D7 B0 j: M& ~" d5 d                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
7 G- s; {) L6 F  w' f+ N5 F                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
0 v7 t' V+ D1 k                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
4 u7 O1 R% g1 k& }                end;
4 }& w4 B  K9 E1 @: C% O1 D                m:=m+PartsTable[2,i];
                print m;
5 O+ a9 i( O$ O/ H  e        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
; q! P1 @- Z/ o0 z0 _7 _        @.move(Buf);
' |4 v9 z) L! ^4 ]( y* ?1 gend;
" I+ G2 k& [+ E! R
% P; v' j" M/ s! ^5 a' N这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
5 F! p- B" k$ @不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
+ b7 Z; O/ N  z7 h7 |        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
$ @$ R2 V0 T8 J( e6 l+ Kdo
& E" V5 n: T8 h; t! T9 Q5 H9 O" K        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
- _9 A. V" D  v* s1 ^3 {7 F                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
& L3 D; d- o8 f9 V                        @._From:=PartsTable[5,i];            
1 `8 k( w% s+ x/ z# Z) g7 l  U                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
( e* N" K# ~& y9 i- i8 v+ {/ B- \0 W                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
/ o4 h( e9 [, a8 n- v) B0 _1 M
) q* ?# t( r4 y8 r2 `                        end;
( t; ^8 _1 l$ P  N  F% Z                        i:=PartsTable.YDim+1;
                end;
. y1 J2 M& O) D0 z; {                m:=m+PartsTable[2,i];
( C/ b$ v3 Y, Z! q+ G* x" S' U9 U        next;
) T* Q1 h" }5 |; Q; c, ^- ]! }: e( W       
8 A" O  m2 Z5 b( @. \3 P        Buf:=str_to_obj(sprint("BF",@._From));
) o" k2 p/ c* M: |, S# G5 N        @.move(Buf);
end;

热翔啊

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

! o; O. \) X, n( F) ]" e, L" B* A非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的