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

热翔啊

is
7 y& I$ x' t6 i2 v- {9 z        i,no,m:integer;
        Buf:object;
do
        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
7 @" t+ t' d6 H2 V# S  Y& |7 ~  d                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
0 n8 B7 C1 e0 r8 [                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
" n" F7 t2 @/ f+ m+ k8 w: [' n* z                end;
                m:=m+PartsTable[2,i];
3 v  c* Q& e9 }4 I% Y& ~                print m;
& `' m4 d. C. R: p0 u  W) W4 W        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
0 p; G( b- s/ W- eend;
: z9 D) D( o" z! s& L- a
( `% m. R* |( s5 ]+ U7 v! {这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
$ S  l1 x  \7 o不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
& }- v8 D& Z) l% e1 jis
7 Q) K4 o! m  I) s. N# V$ F        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
, W. k4 U1 V" Y& f3 o# p                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
" L+ d- t1 ^: u# g( o% U: g                        @._From:=PartsTable[5,i];            
4 o! @$ u, R/ ?0 y                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
# F- T/ g: g; }+ k* u8 |/ i
" A. L' `+ @3 ]2 ?- b3 T) l                        end;
0 `, J4 D) g9 R& D* a: C3 \0 _- O                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
       
8 W& y0 K. B8 p' [( e2 \) n        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

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