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

热翔啊

is
7 T7 {  h% U( g: I# f3 [        i,no,m:integer;
        Buf:object;
$ {$ }; h2 o! Q% @, x2 `6 t' E( |+ Pdo
        m:=0;
( S. i  H9 _$ N: K        no:=@.getNo;
* P. U; S' H$ `+ k3 l        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
" a) C9 R8 E4 B' D5 t                        @._To:=PartsTable[6,i];
' t+ f8 ]2 n( z! U, T; m                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
! T( i) l6 j5 p9 j% O, I8 u                m:=m+PartsTable[2,i];
                print m;
        next;
: x, D7 N6 U& A+ G1 ]) K/ q8 X, W        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
" z7 u( F$ T# Q, D
2 N9 r! B0 a  @3 m5 F% N2 x9 m这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
" t7 Q  m* B9 q5 t/ Y6 V9 l不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
, e; @! z. P$ A( Ris
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
8 W  t. {3 K% ?  ~) A/ Edo
% J- U8 ^( q* D+ Y3 I- E( d1 b' X& g        m:=0;
. x- p+ X. Q; A( H, `% `0 y        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
0 e) h* ~5 d: I) N" w$ W( }( B                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
  {' f% E7 w# H/ j2 S; Y1 X& G                        @._To:=PartsTable[6,i];
' I% a) c9 Q( i4 i% w' Q/ x6 Z                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
; [# W) }# q; y+ D+ Y                        i:=PartsTable.YDim+1;
                end;
4 E6 Q* q# ?2 Z- C- e9 a/ r3 |                m:=m+PartsTable[2,i];
        next;
4 w# s) {: D$ m6 d$ @: k& d       
        Buf:=str_to_obj(sprint("BF",@._From));
" A2 {/ k, k; g& E( Y( J) [* t        @.move(Buf);
" |; s, P6 n4 z# qend;

热翔啊

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

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