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

热翔啊

is
        i,no,m:integer;
        Buf:object;
# _0 s. K, F2 k" J9 ?, }do
        m:=0;
' Y1 p  ~2 s' }5 P( x/ E        no:=@.getNo;
/ e& J1 ^+ b. X& B* h# I2 K        for i:=1 to PartsTable.Ydim loop
* t, a3 \4 J+ X/ D; Z. v                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
' \( S( l* g" R) c: E                        @._To:=PartsTable[6,i];
' S/ S, X, a8 f9 k$ c7 }                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
2 ^& ]( j. K# A: B; d, l1 h7 q                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
& \4 M: i9 A2 I9 s4 X0 o                m:=m+PartsTable[2,i];
                print m;
        next;
+ Y/ |! }. I2 i- ]  z& v. {8 K        --先将零件送到From位置
8 }5 P/ i$ l" S& `6 N        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
+ l  ]" L/ z/ e4 G        @.move(Buf);
end;

1 I" @; j3 P" v7 W$ y1 J这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
/ a& J2 N: |* ?不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
5 {! I4 g0 E- y  K0 Z# ~/ C- U  jis
2 L- ?2 c) N) |6 _+ M. U        i,no,m:integer;       --定义整型
' G2 \. ?, p; G6 l1 n; H; U5 G! Y: ]        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
0 H& x" I+ f+ ~( T        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
% g4 L$ N/ r5 h0 r, q$ u                        @._To:=PartsTable[6,i];
( g" O% g7 d3 o- i: G                        if no=PartsNo+PartsTable[2,i] then
9 Q) \% T9 O' v/ F8 H; N                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
1 h+ b. ^" a4 R) f9 R
                        end;
& T; A5 {  ^3 W                        i:=PartsTable.YDim+1;
                end;
; ^2 z" J1 Z8 b/ [8 p                m:=m+PartsTable[2,i];
        next;
9 ]+ D3 l& R( [3 Q( ]0 n       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
) o5 ?0 {1 W$ S) S6 T+ nend;

热翔啊

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

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