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

热翔啊

is
        i,no,m:integer;
+ _; Q# z: A8 a: e- }& \        Buf:object;
do
& ]" ]9 n1 @& T- @9 f) A! e; Q        m:=0;
% [( l1 M7 a3 u( p        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
# Q9 c, G; u( E" Q                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
3 }( }* U1 R9 s) Y* [/ ~4 U                                PartsNo:=PartsNo+PartsTable[2,i];
* A8 Q6 J/ r: |7 l/ P# T1 W                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
7 h& a) @; ^) q                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
( n( T3 [8 Z) p& I8 k        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
) ]0 Q+ {% m9 i        @.move(Buf);
end;
- Z! m9 B" j7 k5 Y  e% m& d0 y
3 m4 _+ n; S8 b0 v: }! L这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
2 t7 Y* G; Z8 E不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
2 a/ d! y, v/ X+ K5 p8 dis
        i,no,m:integer;       --定义整型
6 e6 q5 p# }7 S, b+ r' ~        Buf:object;            --定义object
5 S' s& y0 c" @do
        m:=0;
# W$ t% t; S) Y) V+ K) y        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
5 z- V, s$ j1 r* B- q( v# {        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
; j$ g! M" U- ?" f                        @._From:=PartsTable[5,i];            
) _7 R; x( B8 E8 W: f                        @._To:=PartsTable[6,i];
* l) n1 ]7 C' ?7 W0 h, `! u                        if no=PartsNo+PartsTable[2,i] then
& |  h, E' m- V1 I  S5 P                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
. m  z5 t- l/ {. a' ^3 S
; z, b' y# V: o8 q0 f                        end;
8 R) P/ U6 v) s! m. x                        i:=PartsTable.YDim+1;
& h) n* |, z5 M; |6 @                end;
- [7 K* i$ x2 _' B7 m3 m( h# e+ n                m:=m+PartsTable[2,i];
# {, x1 H# @; [. `5 _% K& J  [2 S        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
9 y6 {. o7 X4 }; a: a8 T- V        @.move(Buf);
6 L- ^) ?* W6 G* zend;

热翔啊

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

+ T; c, A# d" I" V非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的