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

热翔啊

is
        i,no,m:integer;
        Buf:object;
4 s4 }- `$ S) H1 w. ]) \do
  t, D9 a6 Y3 n        m:=0;
8 Z' u3 p, X1 {6 U) Z1 L        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
( m( z, _* Z$ s0 O7 l  i- Q                        @._To:=PartsTable[6,i];
: l: K0 \# ?, j                        if no=PartsNo+PartsTable[2,i] then
2 S9 ]  g! ]& |/ [$ U: S                                PartsNo:=PartsNo+PartsTable[2,i];
$ Y8 p+ \! V5 P, r0 A; {+ O                        end;
% G' @* ~5 m& ^7 Y7 E                        i:=PartsTable.Ydim+1;--跳出循环
3 ]7 Z( U2 U) T& l                end;
, ?' u, \" j# n$ f- f                m:=m+PartsTable[2,i];
$ Q2 H  y0 R7 J; Z- @/ v' M9 U& W# |$ D                print m;
* w$ n; q; k& h+ u        next;
        --先将零件送到From位置
; A# A/ O* n  t* d3 |$ ]        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
- b+ _- D0 {! c1 N& M3 s7 f        @.move(Buf);
# f: G5 w' C4 |- L2 t) N' V. lend;

这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
  E" U% Q- X) m9 J        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
5 s% t. z+ ~% d8 ^* p                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
0 ~' f- m. T8 u1 I  a                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
* d% p3 J( ~' C( v6 D: j9 @5 }3 S/ K                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

. K. O- [' }9 A( N. s4 o; T$ C                        end;
                        i:=PartsTable.YDim+1;
5 U) Q5 S! r% T1 a                end;
+ i4 ~# |1 N* ]                m:=m+PartsTable[2,i];
* L- Q4 f* t. ?4 G( ~+ X+ W        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

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