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

热翔啊

is
        i,no,m:integer;
4 _7 G/ g% i+ O* D        Buf:object;
do
/ ^2 e) _# `8 e; Z7 {0 F( c        m:=0;
  |) {6 C2 B/ o        no:=@.getNo;
! a) Y, b' ?6 Q8 X0 d        for i:=1 to PartsTable.Ydim loop
, ?; o: `# t- X9 X& w                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
) H) x. f) T0 J7 r                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
5 G- q& U  K/ Y2 ]3 I5 Y                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
3 t' I: Q9 X; L) I% g        --先将零件送到From位置
! ?9 ^  n" S) x' _; X        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
1 G+ h# X6 e# L5 t2 D% l  U
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
2 C9 g, k+ T: p# T* u不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
1 n" y7 U$ C0 ~4 ?; y4 |        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
, G9 u1 Y6 H- z/ J4 @, g, ~' N+ a        m:=0;
2 @( R3 C; h0 v$ `8 B        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
$ ]% p1 g, \! t( R  Q& i0 \                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
0 s& j/ H  t% v  K" x* E* o5 F                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

" F4 g5 e3 {1 s0 |! n4 N7 k* v                        end;
& `( Q# q% e; V, h                        i:=PartsTable.YDim+1;
. S4 x6 a5 m# G5 J+ g: w                end;
* F4 c. e6 [. a7 m2 a- ?8 L                m:=m+PartsTable[2,i];
        next;
: z% u6 l& x% K* {. ^1 W       
- O0 g4 H2 ~' t0 y        Buf:=str_to_obj(sprint("BF",@._From));
$ \, }# {* }( W5 L        @.move(Buf);
" l7 b  }5 ]0 z" V3 H4 X: j% Kend;

热翔啊

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

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