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

热翔啊

is
0 }, g( B5 u3 w0 D: M# T. o  a# Q        i,no,m:integer;
' W2 F8 s6 M  T* m9 d/ j9 l' ~        Buf:object;
( T8 |) W8 Y$ z9 z. @: sdo
; ]9 D0 a) _  Q: f        m:=0;
6 L* b1 W# S6 P2 u8 ?% e/ S& D$ P2 \        no:=@.getNo;
; ?0 B! W+ ]  t3 B2 R1 l& F4 a' h        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
) v# q3 t5 I& f) ~' `( d  l                        @._From:=PartsTable[5,i];
7 a" ]0 P, u6 v( d                        @._To:=PartsTable[6,i];
3 v6 `6 B7 m, ~' w6 ^; s  j  A                        if no=PartsNo+PartsTable[2,i] then
* W! F1 m) W% V) s" N* g                                PartsNo:=PartsNo+PartsTable[2,i];
/ T( y( |- {4 |0 o8 p. Q$ e                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
# f) e6 A0 `2 L7 n                end;
                m:=m+PartsTable[2,i];
                print m;
5 w3 w5 l1 Y. w" O/ n7 i5 u" j9 _        next;
$ ?4 ]/ [- @- }+ c        --先将零件送到From位置
- T: _: z) @* Y9 s        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
3 `8 o  B# U2 O  n        @.move(Buf);
/ e/ T" ?1 U1 Y$ H' k, K& Nend;
% n) G* U9 g/ D# {& n& ?/ V
9 f, ?1 [: X9 Y+ r" B5 F这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
( L' U4 K9 `$ B0 t" L不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
9 e: u* Y  ?% F8 z        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
/ ~+ c- Y9 c2 x: N5 G& b8 Z        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
" {7 H% _8 n, J6 h* c2 ~$ i; E# |                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
( w- W( `  [, B                        if no=PartsNo+PartsTable[2,i] then
2 \! ^, q( j2 N. w                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
  n/ N+ g6 ~3 ~/ a: `
                        end;
) m  P1 v" g% h5 E& }7 k: u4 {                        i:=PartsTable.YDim+1;
                end;
" a' |$ [0 Y; C7 G. `                m:=m+PartsTable[2,i];
0 Q8 m# I! u' e5 B7 Z; R        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
2 L9 O0 _7 ~6 s8 @3 T6 V( ~        @.move(Buf);
1 T( l! V, O# `8 ^- I: h" qend;

热翔啊

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

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