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

热翔啊

is
        i,no,m:integer;
' M% J  h4 ~, G! g        Buf:object;
do
        m:=0;
3 l& ~5 z  P% R5 k3 p        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
3 e/ m3 y) R5 ~/ g$ x* V1 @( M                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
, d# \5 E, }# \                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
% F. T: a" K4 R9 m5 c                                PartsNo:=PartsNo+PartsTable[2,i];
8 E9 V+ I" t# ?# ~& _3 L. h2 j                        end;
5 X' w' t- Q3 C( l* Z6 a                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
7 {; T9 h. f4 q5 F7 g4 o                print m;
$ W) [8 Z  U8 h* c) X+ K6 ?8 E        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
, T# q& X* o0 A) `" `# _, R" \: Pend;
1 j' Q# l& `  d
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
/ [" f/ U  R) s; Q; g9 i) r不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
' |9 a6 o! e( K* i: F+ A7 [$ s        Buf:object;            --定义object
; |7 i. s+ B! Y+ T9 M' x! Pdo
- T3 t4 j& V: J* a7 q- m        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
$ j8 @1 f) _1 h( q        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
' U8 x+ ^) x3 {7 ^# o; H                        @._To:=PartsTable[6,i];
3 }" P+ B4 A6 P) C! T; b$ [$ G                        if no=PartsNo+PartsTable[2,i] then
7 u2 s1 _* B- ~0 z% z) V                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
/ Z8 T; t$ P/ k6 u2 Z                        i:=PartsTable.YDim+1;
; M3 e1 L& p% z+ p+ x* O: U                end;
                m:=m+PartsTable[2,i];
        next;
' Q( [5 V) m4 n  _       
0 J( s7 ?  y7 i6 n/ h' I        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
7 }; Q1 i6 s2 r8 P. T9 Yend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
* d, n4 K# y4 i  Y; t这个例子昨天正好看了，话说那本书的例子都很不错~
8 l0 Z% {3 w7 g& _! ]不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

5 h+ f$ U0 Q9 [  p非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的