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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
        m:=0;
        no:=@.getNo;
) b; @! J& B8 f/ L9 m% z( h0 L        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];
3 ^+ F4 @. U+ A                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
5 m+ B  d5 f! p7 j2 ^, F                        end;
7 z+ H2 _& R5 f! D                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
) L1 l+ j& A0 S1 O. R- \        next;
6 v( s3 c4 c. }) R; I& Q        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
4 o" x! J* |+ `* i  X4 o        @.move(Buf);
" s1 p# q) E! uend;
9 |2 @1 m. V) }
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
( c' `/ z) _# w; V; T+ |is
/ V; u4 q- ]# L4 m7 L7 H        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
; J; `! V4 k8 K! b" D! M        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
- p3 m( C& k0 Q6 r        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
/ n- z$ O7 D3 V" S4 A8 M; j6 {8 s7 I                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
' J4 L; E) n( R- P9 ^" U  g                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
) Y; E4 ?1 ^5 Y' p+ ]1 o( ]$ A                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

  D; X; r# G6 W0 H2 S. v! C                        end;
                        i:=PartsTable.YDim+1;
6 s# z1 A; m  a; w  D                end;
" l* p5 ?6 y6 T, a* H, Z1 p/ v: }, S                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
" x9 z6 C' F+ t' u2 b/ h! O        @.move(Buf);
end;

热翔啊

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

! D- E: ?+ R0 i$ d5 {非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的