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

热翔啊

is
2 P1 m$ O5 g5 F* r/ U' E# `& V* f        i,no,m:integer;
2 h0 e" \5 P: B& i& }% W# Q3 S        Buf:object;
1 f" {+ f* k9 p1 Kdo
        m:=0;
, _- U5 M7 r/ _" `        no:=@.getNo;
" J/ o0 Z" p5 M& g        for i:=1 to PartsTable.Ydim loop
  A. C8 G$ P) ]' i# a* c                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
  _6 t. c, V/ [7 h, d* V' J                        @._From:=PartsTable[5,i];
7 e# K/ X# o% w+ c                        @._To:=PartsTable[6,i];
7 h4 V5 |! _; ^" G2 p                        if no=PartsNo+PartsTable[2,i] then
' W) Z- w5 o% U* W                                PartsNo:=PartsNo+PartsTable[2,i];
/ x0 H7 H: G8 _5 Z                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
  W; R( w6 J# T( `! e4 `" @                end;
                m:=m+PartsTable[2,i];
' z5 k6 z) V' ]2 a6 A) i2 m                print m;
        next;
        --先将零件送到From位置
+ L& R- j5 A( m( W, N/ q        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
! k6 `( `5 b5 Z# S        @.move(Buf);
end;
: F5 X+ m$ e4 S
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
( Y! Z$ b. l$ n  u不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
. A1 E! G. R. Y+ z( z5 K; l        Buf:object;            --定义object
, }# n& s( k3 Q. W* J6 Gdo
  O9 j/ u& |% F- f" W  G        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
7 i/ [2 V1 y$ {; e# F                        @._To:=PartsTable[6,i];
5 s7 D. R) g( \/ F  R5 y                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
                        i:=PartsTable.YDim+1;
* R" G( g8 c. i- C                end;
- v. U* }6 q" D/ v3 n                m:=m+PartsTable[2,i];
        next;
6 w1 z/ A& s8 a: v- e9 H       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
- I! |, ^! v% }  ?8 ]5 aend;

热翔啊

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

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