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

热翔啊

is
        i,no,m:integer;
        Buf:object;
( v2 a: l2 O4 x* G4 m; \" Q' Fdo
        m:=0;
% f+ J1 x5 c( K5 s        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
; J$ O0 d0 B9 }5 C9 Q                        @._From:=PartsTable[5,i];
- \' @0 m& D3 @! ?1 A) N) e                        @._To:=PartsTable[6,i];
8 a8 s( c( Z( c                        if no=PartsNo+PartsTable[2,i] then
! @: u) q8 M8 b1 w0 B                                PartsNo:=PartsNo+PartsTable[2,i];
0 G% ^1 ~, _0 j- I. J4 ]& E/ m                        end;
+ c$ @9 J0 \4 [) d; S% t" L) K                        i:=PartsTable.Ydim+1;--跳出循环
* r+ g8 D& ~3 A# t% ]/ M" u                end;
                m:=m+PartsTable[2,i];
: Z) U$ V# R! I, h9 }" G8 H                print m;
        next;
        --先将零件送到From位置
! O; T  R6 m# o1 ?; u, f% g: ~        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

  I8 V; \# R' l0 y这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
8 M9 K  j6 g; l1 k8 @" jis
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
* l3 Q" a5 c! {0 Z9 L9 Mdo
        m:=0;
  d& B0 g- e6 @% O( U        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
) n" x! c% a- i$ s( C; ~$ |. O: |. O                        @._From:=PartsTable[5,i];            
7 X' n; h6 ~' u7 |8 ~) E                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
) i; C  E* W2 |+ Y3 l                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
' a2 i2 E$ y# B4 D& G1 B6 g
                        end;
                        i:=PartsTable.YDim+1;
                end;
! W3 T7 L' g* |7 o8 c3 n  ]                m:=m+PartsTable[2,i];
) k/ d! K1 \$ ^        next;
       
! T& V% t+ M+ l$ T        Buf:=str_to_obj(sprint("BF",@._From));
* d8 J! T* y$ V6 o& |$ ]# e5 o1 I        @.move(Buf);
end;

热翔啊

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

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