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

热翔啊

is
        i,no,m:integer;
        Buf:object;
4 f5 I2 C/ c7 ldo
, h+ s$ f  E8 I        m:=0;
/ l+ b/ p! w) q& S        no:=@.getNo;
+ v8 X+ o# s. {9 P+ a6 {        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
: S8 w9 G5 R% ~% e2 O- T4 _                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
1 N( E$ |, C6 d7 V, ^* n                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
$ Y3 Q' I7 O4 Z; U                end;
                m:=m+PartsTable[2,i];
                print m;
5 A0 W; W9 J. R9 ^% ?; T' ~$ n        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
* v4 g$ d; w3 t. m        @.move(Buf);
end;

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

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
1 c& a) Q* a$ J7 ?# S* d不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
+ o, ]3 q" y0 `' N( j+ |' Iis
4 t: w6 E8 `  G  S' i: j8 ~        i,no,m:integer;       --定义整型
6 l. i" \) s, v# U2 g7 ^0 X7 U% f3 y8 E        Buf:object;            --定义object
do
  P- J7 e0 s% R; O2 O$ ], g- q        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
9 s% ~; Q) k& @: n. m: o                        @._From:=PartsTable[5,i];            
5 A' s- D% t3 y3 q' x                        @._To:=PartsTable[6,i];
; O- N# R. W2 R5 e                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
$ Q5 z: h4 m# K  T% o, ?; w
                        end;
  G, f$ ^+ G. G! ~, Z' Y                        i:=PartsTable.YDim+1;
+ y/ Q% v* \" j! @# _& \& r0 W                end;
                m:=m+PartsTable[2,i];
        next;
9 L- A( Q' |9 ]4 ]       
) }* h: a: u# `  v; N        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
& Q; F2 N4 R" F2 @- yend;

热翔啊

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

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