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

热翔啊

is
/ r( \& y# D  I- u+ O$ s% v3 |1 u  D        i,no,m:integer;
: ^$ f. S- w" A/ B+ q) @9 J* ~        Buf:object;
do
        m:=0;
5 l" u; P' p* r+ {1 C4 n( t        no:=@.getNo;
* `9 D5 a& p  h3 I5 C        for i:=1 to PartsTable.Ydim loop
3 F% _4 A3 N7 R3 r                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
% L. M# a% X4 \/ V                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
2 a* e0 I& R  N7 w                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
% P7 o, r& f) Y& t) S# N! t                end;
                m:=m+PartsTable[2,i];
                print m;
7 P+ t- x: J& I! J5 M1 n9 w# _# b        next;
  ~% R+ c/ c) b& e; K        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
" u! x3 \; K4 s        @.move(Buf);
; h5 y0 w- o0 R6 wend;
& w# v" r' x. k7 n
$ z8 q: r) d; n这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
) I7 U3 J- R$ v1 C8 x5 g) P8 `        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
- `7 b5 m# G4 Z, P: f2 g        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
  `7 G4 @+ {! w- s  v; z                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
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
$ p: z  v( `# T0 H
                        end;
" Z6 @/ |0 q6 y6 g                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
7 q& N2 A# U( R5 d* d+ E        next;
% w4 ^9 ^  k8 ?# o+ M       
4 Z6 h$ s" r& M0 o+ ?) C2 `4 [' f        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

) V6 C) v" M1 F# y非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的