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

热翔啊

is
( d' Z& D+ y# c# Q( B: E        i,no,m:integer;
        Buf:object;
; ~! _8 ~; i, l* kdo
        m:=0;
        no:=@.getNo;
/ M8 @  i* b* i# A, W        for i:=1 to PartsTable.Ydim loop
2 p  {6 j6 m6 L1 ?                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
) n( X) Z4 N+ h( Y/ }                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
+ s4 T% I. W# v9 n  \                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
- w; J2 e1 `' o                        i:=PartsTable.Ydim+1;--跳出循环
0 T2 a& h1 b. h/ C% C8 u! I, k                end;
                m:=m+PartsTable[2,i];
                print m;
9 o9 P6 j, a) O9 |8 v8 I% ]5 ?        next;
- u/ W1 B7 @, m# |8 P! K- Z        --先将零件送到From位置
- l' u. B% K4 w) \        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
+ Y# R$ P8 V5 w9 o- A, F        @.move(Buf);
: _; u4 r( j- O. vend;

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

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
1 s. a3 Q: B, O+ V5 O3 J2 f5 W5 |不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
( Y+ ?+ t: R0 Q7 a8 D. Q+ x% h+ xdo
0 t6 m4 O+ K/ v2 Y4 m3 n( i3 E/ B        m:=0;
/ o8 c# u8 `+ D2 I6 H8 A# S0 L        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
! g3 s' d( c/ ?6 X1 ]& b        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
; P# e. b$ ~1 R  X. p                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
7 l& O% R8 s: i( U* H" C2 A                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
  y' k4 k7 R: f0 f$ B4 F# i  T                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
) G! z. G7 u( b$ o, X. [4 _# d                        i:=PartsTable.YDim+1;
$ B: _+ c6 n0 Y6 u0 R                end;
6 i6 L' F9 V6 b! K! i) K                m:=m+PartsTable[2,i];
' x3 ?" p& A/ d8 p5 C        next;
       
( S) A3 h) O* a        Buf:=str_to_obj(sprint("BF",@._From));
, |7 a! z! _5 R" f        @.move(Buf);
end;

热翔啊

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

/ M6 x; d+ C' ^8 w, T非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的