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

热翔啊

is
/ @3 M: y* e; @7 j. l8 u9 u+ i        i,no,m:integer;
" b, [( q; Q4 Z  T4 i        Buf:object;
do
1 D0 D7 y2 A4 K+ k' \0 `        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
. ?" ^$ w& y! Y! F( Z7 p                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
6 w; K' ]8 {5 x: L                        @._From:=PartsTable[5,i];
) h0 n7 p7 G1 ?' \0 K                        @._To:=PartsTable[6,i];
0 c1 z- u' m+ ~                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
& {6 F0 n& d5 z' g& L3 g2 E' V                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
+ Y0 W2 o1 [5 t, Y3 N                print m;
8 O. M/ _9 c! p- p2 C; [* Y        next;
        --先将零件送到From位置
; e7 j% l: U' U. A9 \% O        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
7 ~. F5 G: _+ p9 xend;
$ p0 J4 T: I2 d  E! v4 I7 r
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
: e# h/ s+ S' o8 \2 [1 F6 x不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
) Y- Y2 n5 h+ L. I9 K$ H/ g. ]& Q        Buf:object;            --定义object
* A2 k4 l+ k7 f- n4 z+ sdo
        m:=0;
: M+ p# R% Z# G        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
. ~% \* X8 }! v4 K: C; A$ X        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
. `& X, }2 W/ m                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
9 \6 G( M2 {" m+ B; z$ I                        @._From:=PartsTable[5,i];            
7 j6 d0 l5 z0 o4 }% A) ?                        @._To:=PartsTable[6,i];
4 K3 Z7 Q$ K6 U7 V- ~) u& o& ]                        if no=PartsNo+PartsTable[2,i] then
/ t$ V3 p! c  D/ t& l! ]) s                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
8 q0 x: o( H# N/ w1 u1 K
& {, d5 I& {! v5 p$ r% g                        end;
                        i:=PartsTable.YDim+1;
                end;
. f$ z1 n% o: z* A$ s                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

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