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

热翔啊

is
        i,no,m:integer;
        Buf:object;
, y' _0 E( E; cdo
        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
* L* a/ M& ]) B$ n1 L! k                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
7 p0 K8 s7 ~( t3 d0 B# E1 u                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
  E1 ]7 Z7 O2 s5 t4 x: U                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
1 ^% l; N' U5 N# r, u        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

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

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
/ W! U" V6 |( _$ R6 [* |+ a' K不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
) Z( G+ s, k# y$ J1 \" A. I7 _( ^is
; ]5 h4 ~# k3 D/ W        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
( N* H; t. z! K9 Pdo
        m:=0;
0 J) z4 Q6 ^, O: J9 r        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
  [9 @) f3 C8 v' C9 v        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
/ \; H+ Z6 V) i                        @._From:=PartsTable[5,i];            
3 E: N9 e% h9 b! T: ~, l                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
; x0 ?, T3 W$ b# d$ ?5 a0 P                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
( w1 _; V, X) a9 C' F9 B- k+ q7 C. _
2 B) l) g1 C3 b) U                        end;
, Q! R) x3 _8 _+ b  p3 P9 s" v- L/ R                        i:=PartsTable.YDim+1;
                end;
. U+ ^& U' Y7 h                m:=m+PartsTable[2,i];
5 Q) x- o' p' U- t8 q; H4 K        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
7 i+ o# L, y  t        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
这个例子昨天正好看了，话说那本书的例子都很不错~
9 ]8 `  o0 I+ w$ O" E! L! J不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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