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

热翔啊

is
1 e# E& A' g, v" k        i,no,m:integer;
7 ]" v$ S# N: w        Buf:object;
do
5 n- Z) \7 _2 c: h        m:=0;
        no:=@.getNo;
7 e2 O+ M4 t$ Y: s4 s  d5 ?6 A        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
7 V$ U$ Z; v" q( Z, y3 v: T                        @._To:=PartsTable[6,i];
/ ?7 ^4 t2 i7 K* L* G+ T! K  e                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
) `6 |* ]* {, d" |! p                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
* H' J: Z' h) ?" T' a" E        --先将零件送到From位置
3 T8 {& A2 X# c6 v        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
# _! o0 c, E6 }# B- Jend;

" U! [4 a# ^0 L& L, z! Y# |# J. \! k这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
. z; P/ N( T4 T" [is
1 @6 `9 q* f9 P/ N; l) A7 i$ c2 m        i,no,m:integer;       --定义整型
, n5 W# I/ C7 M" I$ ]" _! Z        Buf:object;            --定义object
5 b9 z9 A. M- z: L% tdo
2 f/ E% }9 c; l6 C) r4 B  H        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
4 g; K# ~6 X% N/ S( x$ t9 \                        @._From:=PartsTable[5,i];            
* G0 `* ~1 w  U9 E! i0 J1 u  A$ L                        @._To:=PartsTable[6,i];
. Z2 g7 _3 v5 I" d4 \0 J                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
8 x( a% Z8 {  U0 ?. Y6 p                        i:=PartsTable.YDim+1;
, P& _" F' S+ w* B! x9 O6 n                end;
                m:=m+PartsTable[2,i];
5 i/ k( l) r4 h9 \        next;
       
0 K( S* {6 z9 Q, q; ]5 T5 A        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

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