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

热翔啊

is
        i,no,m:integer;
2 J+ H- D" e1 G1 o        Buf:object;
+ T# [( b: h/ h3 j' I4 Udo
        m:=0;
: F% G6 l9 W/ P( r$ X% H        no:=@.getNo;
        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
; B" Z, S1 g5 ~3 `9 h                                PartsNo:=PartsNo+PartsTable[2,i];
2 H4 N' y9 x1 s- z                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
( A- I' U- f; ?4 S- g. v# K                end;
+ s8 G* d, s' @" k0 |  {                m:=m+PartsTable[2,i];
                print m;
1 o4 R9 l: X! t2 t" N$ j' F3 K1 K        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
- g. p5 @  T% x& D; e) N2 ~/ z
0 L! T8 x- T1 Y0 J1 `; p这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
7 Y8 F# k. T$ Y0 f/ v6 j" `        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
- R* D& I* ?" B# R- E$ Ado
$ X" O0 i# ?) y) g! \$ G        m:=0;
5 ]% n6 y$ _; G1 o/ G  K, j% w        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
5 r1 i  f0 o! }9 i$ z        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
+ ~0 C2 S- |+ {" Y! a" L6 p                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
1 f' ~1 ^: t5 P0 j
, e- ^! _* `& S+ k4 @3 w                        end;
                        i:=PartsTable.YDim+1;
" L; g6 @; X. N/ n5 h4 k7 `                end;
                m:=m+PartsTable[2,i];
! e2 r3 w2 ^" m/ T' n) J. u        next;
       
( S! A: Z7 f" G" k% B/ t) v        Buf:=str_to_obj(sprint("BF",@._From));
) M( ^5 q/ m9 k3 N3 y7 q        @.move(Buf);
end;

热翔啊

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

1 n; w% u5 p: l非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的