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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
6 q# ^9 I& o- O  `        m:=0;
: Q2 R) N1 I# E; U8 l        no:=@.getNo;
9 `0 k* K6 k. J( x        for i:=1 to PartsTable.Ydim loop
3 b/ F  @0 K, a( z- n* ]# ?                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
. b& o! B/ z6 F                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
" C& y3 d3 g4 k  o2 o" J0 N/ ^; ^                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
# u6 n' Z0 c" x) {% m! A                m:=m+PartsTable[2,i];
* F1 `$ K; d' O' M. |  O# h+ l1 ~                print m;
. `; C" h5 N! O6 q& H& S5 G, g        next;
2 L* t" K/ Y7 {. S* d% ~        --先将零件送到From位置
  E# z% [3 |; {- N: S( J        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

# v, ^! J' s1 x- [这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
+ w' Q4 s' z6 z# w不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
1 A( p1 ]  H! T+ W- b0 U/ a        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
. X) Q# t7 e. P& o  z, C/ G( [        m:=0;
1 y& t. O: k5 h5 k9 s% J        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
) H0 s' Z/ a  `& w" f% b) _9 k( f        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
, Q7 _3 X1 f' H, E) `; V6 ?6 p$ d3 a0 O                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
) n' |( L5 t# `                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
/ C: |0 ~( s( \7 t* v
                        end;
                        i:=PartsTable.YDim+1;
                end;
$ c  w. Y" \2 N% U                m:=m+PartsTable[2,i];
- ]2 r' U/ K) V5 d8 v) ?2 y" |+ C, _% ^        next;
       
/ j* v. |" |' G4 P3 R        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
9 ~% ~' Q& Y' n4 s7 ]& ?- ]end;

热翔啊

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

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