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

热翔啊

is
        i,no,m:integer;
        Buf:object;
- Y3 {# _- x5 ^do
' T2 W# M; F% U2 D7 z; c+ J) I* c        m:=0;
' m$ ?2 G) w% z5 f  w9 P        no:=@.getNo;
; [. f9 |' r5 v4 D6 s5 m6 s        for i:=1 to PartsTable.Ydim loop
8 Z2 B  L8 y% F( w3 l                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
6 q2 f$ Z7 f0 M8 j" ~5 ~- }                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
5 l$ R; q" N1 q( G+ v, ^                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
" w2 @8 B: v4 x( }: O' K                print m;
" a5 b# e8 S5 |/ y" N) x3 H- c        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
) V2 k" u# w4 s% I& Q        @.move(Buf);
) \' \2 V  p" _# v8 @0 dend;

这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
0 Q& ]1 i% \/ y/ E        Buf:object;            --定义object
do
  @! B% L) a# F) u/ i        m:=0;
7 `- d* ?* W1 l, o/ z6 N7 v        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
; a  Q3 v9 ^/ r4 f$ K- L+ m) [                        if no=PartsNo+PartsTable[2,i] then
& j. J2 p: W' B) n' `                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
0 n2 @9 h, F( F6 H; r# d/ e
                        end;
9 g5 b' C# F6 `7 B; F* f                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
3 o- |- J$ h/ D! F        next;
       
. A1 y* |6 ~6 ]3 q        Buf:=str_to_obj(sprint("BF",@._From));
, V, x' R4 H5 D# g7 j        @.move(Buf);
& e* d: u% X/ A! b8 H7 j. c# oend;

热翔啊

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

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