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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
3 W# M! U$ \6 \9 q. B% |0 {                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
% r1 v1 D0 |* E  i* A, L1 m2 L                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
" f! A" O; [8 f( L2 O, Z* B0 H                        i:=PartsTable.Ydim+1;--跳出循环
) @1 E0 S5 p" E+ B                end;
; L1 v8 c8 l1 v                m:=m+PartsTable[2,i];
3 Y0 w: e  W4 z1 {                print m;
        next;
, `6 H2 }. ?& l3 m+ v! o  O        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
  X$ _1 ^0 A4 e! X. S  n9 v        @.move(Buf);
end;
( ^- j: ]. }- ]7 p" h$ L6 c
, {7 E6 X7 }$ R0 `& m这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
, y& }" W; V9 @+ n9 \不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
0 R3 l, [$ r* r# D& Z( x" `        Buf:object;            --定义object
# R' W- v( }4 t( _) G! o* Ado
, ?4 d: S) G* O- S        m:=0;
/ `$ R, {4 E+ ?9 Q0 H3 \5 {        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
7 C4 Q2 v  [2 F: b8 G        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
. {& B- u; V9 c: H& P# x% q6 G                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

) S8 a$ p4 n, G' A. |: d; s* u% i                        end;
$ Y* g9 P* M3 Q# L" a- N) \                        i:=PartsTable.YDim+1;
; A! m! N2 f$ k1 K6 S                end;
5 f& Z# c$ I- s) j/ [8 L6 |$ T0 g                m:=m+PartsTable[2,i];
        next;
       
1 U# J; Z" h* }- N- g        Buf:=str_to_obj(sprint("BF",@._From));
) Q- m* m% _  _" S6 u: j7 K$ f        @.move(Buf);
" I0 k& e9 Z& \3 f+ o4 A0 z: dend;

热翔啊

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

5 V: e% X1 O) L非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的