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

热翔啊

is
        i,no,m:integer;
* P; i3 N2 B) h$ X* p# z        Buf:object;
do
        m:=0;
: g6 U/ ~2 f8 w* @        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
' a* N8 [- R8 d% t                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
$ g0 g2 C$ w& e                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
0 [7 X3 f" D6 W& L& e! C0 x0 P4 G                        end;
( L! r3 X: ?3 c7 l/ R* _+ v2 V5 O                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
, q4 N, R; x8 T; \        @.move(Buf);
end;
) z9 H) }/ r4 n& s, c7 u# }. s
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
1 q! A8 T, H7 }( v8 r不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
2 `3 z3 x, t$ A: M6 _' `* wis
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
  S: V- V) u0 v/ Z: S+ G6 `5 r; Y9 |        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
& _8 f. y0 l4 X+ r7 Q                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
/ q: w% a2 F. g                        @._From:=PartsTable[5,i];            
, x/ y$ s% o4 _- r1 b0 z5 s                        @._To:=PartsTable[6,i];
' Z/ J' [' W7 j  x7 T- y                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
1 y. {3 Y0 A% k- O  a9 V0 x
9 N4 F  t* ~( M, R4 T* z# F                        end;
                        i:=PartsTable.YDim+1;
# q/ ^- A9 i( |0 o                end;
                m:=m+PartsTable[2,i];
        next;
       
  A* S. ?. g9 o        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
1 ?) ]: Z% {1 t这个例子昨天正好看了，话说那本书的例子都很不错~
" L1 U9 c5 z5 Y( }! A4 b8 `9 C不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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