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

热翔啊

is
1 Q) s7 G& E8 }7 ?9 A/ N        i,no,m:integer;
# Q. l+ }# c5 c3 o        Buf:object;
" f, {# ~5 h1 {5 O0 H/ Zdo
& x- C3 {0 H" P, L! a        m:=0;
        no:=@.getNo;
' ^; A) U! x6 v  \* N9 f        for i:=1 to PartsTable.Ydim loop
                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];
; i: k* t. B* \% O- S                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
0 K2 P* u4 ?4 Y3 n1 O* g& {                m:=m+PartsTable[2,i];
# l4 [: y( n, V, ^/ n  R                print m;
        next;
. o+ L2 W& v8 t# D, u, Z        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
# e4 _# d# C5 H: L4 N( }) j        @.move(Buf);
end;

* ?7 X+ ?6 _/ @: N0 M1 ~9 p* S5 S& u这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
) ]+ @1 j/ }( w- y  l7 T$ D, ]        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
6 c. J, Q2 L3 G0 s        m:=0;
; j1 g. D- @% f! U! j1 p# @+ ~        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
8 `$ W& y4 U) U' |7 e. a                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
6 x. S- e3 k4 l) ?. C$ }  F                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
6 ^( y/ y* M7 z; r; }3 R$ `
                        end;
                        i:=PartsTable.YDim+1;
) Z) O' o9 k: i4 ^6 ^' A0 x6 H                end;
$ ?$ S& {, y, ~                m:=m+PartsTable[2,i];
' w3 H$ U7 b/ i, ?. y9 U" }' X        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
$ [) o# ]! i2 Fend;

热翔啊

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

# M" g% F/ e7 s: ]非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的