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

热翔啊

is
        i,no,m:integer;
  z, m3 K- w# s8 A        Buf:object;
do
        m:=0;
! ~+ w' ~. {6 `6 a+ ~        no:=@.getNo;
% h) g1 S8 G8 b3 C& g+ @$ e        for i:=1 to PartsTable.Ydim loop
6 J, O, i' H1 `; ]                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
: |: u) ~8 v' e+ H4 L/ @( s$ Y3 q                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
" _6 l8 X+ K8 Y: v: Q                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
+ L' ?7 d* o! ?* L( w7 c) U" U                m:=m+PartsTable[2,i];
                print m;
        next;
" p! `: y9 I, H# m: T        --先将零件送到From位置
& W' @( i1 e% ~& a2 H2 q) {        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

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

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
7 T# W/ c, c/ ^! l9 \% D# L不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
+ I5 j2 J$ y2 G- h2 K        Buf:object;            --定义object
3 V! i1 S2 d" L, H& t5 |do
        m:=0;
& O# D0 A( q6 ?& D% w6 i        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
9 O, d' s8 ]$ s1 A, O) P        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
- B4 [& T3 B/ F6 y                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
, Q$ C) P' `& B5 }  {' n
8 _" a2 o3 i& d, t                        end;
+ g9 y' b- O' W) M& \6 Q/ J                        i:=PartsTable.YDim+1;
! ?7 j. q" Z9 M. g; V, g                end;
                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
9 A% c9 g* j, O; l4 ~$ H        @.move(Buf);
8 i1 u7 l$ D0 D( x8 [end;

热翔啊

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

; r- U, |* Q0 Q5 x) c非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的