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

热翔啊

is
        i,no,m:integer;
5 q0 I; }5 ~6 k# x2 g7 d        Buf:object;
do
        m:=0;
        no:=@.getNo;
5 u; e4 `: W8 ^6 q6 g        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
2 d; f3 R3 B% H, O; U7 Z/ d- l                        @._To:=PartsTable[6,i];
( s6 z1 F- N# L8 N5 u$ d1 b# b1 Y                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
9 ]+ P6 C9 y" n                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
' j1 |& w5 T( G' q) P4 u4 K5 V
4 I5 ^" c/ d, n" e- Z5 D8 L这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
) A3 Y* ]6 n$ O; W. `不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
* g0 g1 U( s0 P0 z/ {        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
8 [; S+ p7 A6 h7 H$ q( jdo
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
2 _" o3 y$ {# P9 u0 T3 f  Q4 E                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
% @4 A' A& Z1 o) G( g4 b% x* L                        @._To:=PartsTable[6,i];
7 D8 m- F+ y& V8 u- M                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

, Q  R4 m8 r1 f% H; o: }4 o                        end;
- ~% Q% K' Q  c  I4 V+ n/ g                        i:=PartsTable.YDim+1;
7 L% v8 {5 H8 ~' @! {                end;
) C8 x, A0 @( _8 M, z$ j                m:=m+PartsTable[2,i];
        next;
       
& N, v5 W, w- B- s4 D$ k7 ], B        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
+ M$ z, Z' u$ U& @; fend;

热翔啊

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

, a; s# V) d& y& X- l' V非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的