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

热翔啊

is
1 |% Q8 U9 \* J        i,no,m:integer;
+ R1 C4 }! |. z" J3 F2 @( c- j        Buf:object;
' E5 W6 D% t3 [/ E! m# ydo
        m:=0;
/ N5 O3 B3 K. W, L- C8 {        no:=@.getNo;
4 a! E: U, Q0 E        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
5 b  a3 M% I- S                        @._From:=PartsTable[5,i];
. l2 c% U' u' J6 x/ m$ t2 c5 n) x                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
' |4 n# ?- J4 f' U! }0 d                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
5 f  {5 x3 t/ K' R0 p9 o7 b                end;
                m:=m+PartsTable[2,i];
                print m;
" f+ ^3 f. H: E: @        next;
( e% U$ x) X( X4 N3 e5 g        --先将零件送到From位置
/ y0 F$ l. W) [9 H) ^        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
4 L+ B( I3 H* a# l& W1 \" f- F8 ?end;
# ~" l- ^- h1 G1 _% L
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
1 Y8 K+ r8 q  \; h- ]! ^! f1 M        Buf:object;            --定义object
do
        m:=0;
& S6 q% R7 C9 ]/ J: M4 s% m9 R        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
/ z" Q* g) G% p6 s7 X2 D9 U! \        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
% W2 r0 g$ s9 R                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
+ L$ {* w) D8 M3 _% D  g9 ?4 R                        if no=PartsNo+PartsTable[2,i] then
# m+ Y: L. k% X! L3 l) l; d. X4 s                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
/ j% q/ ~) Y3 u1 I! D5 x: W. i4 U
1 T' p+ R' L, o2 Y9 C; N2 {  y                        end;
8 S8 G6 x- C1 c( B0 A. x6 ]                        i:=PartsTable.YDim+1;
, G( `0 F) |0 q1 M                end;
+ N( g) M4 x* J; M                m:=m+PartsTable[2,i];
        next;
& t' b- a8 C* a% a; Z       
' m/ `6 b3 L9 e, _: A' m        Buf:=str_to_obj(sprint("BF",@._From));
7 [) e) l9 I- v  F6 c: H        @.move(Buf);
: L+ L( o4 P* a$ ?end;

热翔啊

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

2 W: a: M  A9 M5 n1 h! `非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的