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

热翔啊

is
        i,no,m:integer;
1 j- S! ?) r: D        Buf:object;
. [; F* v. [4 W2 U: a  Mdo
        m:=0;
* b" m; h- ~8 g2 `        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
, J( O( D: p7 [7 r                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
5 J$ t$ p. W* ?- T                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
$ t) [( J& U- s, x                                PartsNo:=PartsNo+PartsTable[2,i];
, b1 h3 a$ j/ `" e2 p                        end;
6 T3 {2 u4 n. x( A% W8 f7 n                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
) t- E# Z0 Q% r% |        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
, `$ S7 Q- L1 D9 \3 }! N        @.move(Buf);
end;

1 |; g; v4 h: `) O& |: r这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
( @8 n# l$ g9 z1 p/ u, X        Buf:object;            --定义object
! U; Z' v7 a6 u3 Y) V/ Tdo
1 G( a* `1 T- F3 R. t$ X        m:=0;
+ ^7 Y3 B- O/ f$ _        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
; ^  w8 w- L! Q                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
* w) X/ ?9 i# U+ b  r- R/ b! L                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

5 ?+ t' S% H2 ~; X9 C4 v& Y7 L5 W' B                        end;
2 p% f" ]1 f2 U6 m" O                        i:=PartsTable.YDim+1;
                end;
/ c0 K, W* r8 ~$ h, X# i                m:=m+PartsTable[2,i];
/ h6 i0 I; e  ~  k        next;
2 q; }7 y$ Z: X       
        Buf:=str_to_obj(sprint("BF",@._From));
2 r) k7 G3 p7 z  p        @.move(Buf);
end;

热翔啊

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

8 I9 O8 H8 m* }6 w) n7 L. Y+ T+ W非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的