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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
0 w6 C( u9 T: w  m0 V        m:=0;
; `6 q; I6 J! h9 X  `' Q& U- u        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
9 F" k. }  V) P/ l                        if no=PartsNo+PartsTable[2,i] then
5 K/ X0 \% u; y% V                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
6 i, z% E& C0 q0 c2 m6 L                        i:=PartsTable.Ydim+1;--跳出循环
5 r' ?/ E! k! b) ]# U5 z                end;
                m:=m+PartsTable[2,i];
                print m;
6 N/ S& Y! m$ Q" r  n3 v2 S        next;
8 Z! U7 }+ n. ~" S- O" Z+ k# K5 B        --先将零件送到From位置
+ r) l) K& c6 |3 @7 h4 I) e+ u        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
1 H5 s, Q; g$ Z1 Yend;
4 I! U' v$ f2 w' L
  [1 U6 q+ l0 M2 k' j: Z7 n2 D这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
4 l" l0 Q, U  R5 {8 Xis
        i,no,m:integer;       --定义整型
' `( }  k. Z* k  q  f* P        Buf:object;            --定义object
do
2 u8 w! |: y$ F$ P5 l. X5 |        m:=0;
8 G: w% ^1 B8 T; A  a        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
. P+ j* Z$ }0 [3 A6 u' Y5 b        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
0 C; ^& q' _6 m$ [) O6 Z% P                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
6 D# P- f( A' {* B                        if no=PartsNo+PartsTable[2,i] then
- J( ?, N+ T; D# X3 Y                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
9 m% M6 R+ E, _) w+ K/ v8 _  K+ }# D
                        end;
: Q( ~. L' f& p0 m                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
5 H. E  X4 g4 O        next;
9 x* Q1 e2 q2 g  }6 l. ~       
        Buf:=str_to_obj(sprint("BF",@._From));
8 }1 A' P- l+ f3 V8 Q        @.move(Buf);
% r$ ?# x: D4 H/ \end;

热翔啊

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

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