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

热翔啊

is
6 X* o( P& p" C! X        i,no,m:integer;
$ T- M& K7 y& x. Z7 z6 y# g        Buf:object;
do
        m:=0;
+ b  P, b# a- p; r8 ^2 n        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
" k' {- m9 }: R/ k- e                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
' s: U9 E8 `) s                        @._To:=PartsTable[6,i];
. l7 a  ?! f; ^% y) @7 L                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
3 ]( h7 H7 ?, r. f, ?/ k                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
; x) t; a: G! ~                print m;
        next;
        --先将零件送到From位置
  z0 j! V* j8 M; M        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
; W4 T! ], r7 u3 V) I2 T/ S( c) K& jend;
& E" t- \% R5 R( x4 Y: N- ~
$ Z1 c5 q5 E; _/ P这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
# k3 V+ C8 K, C. h4 a* L不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
. }% E. f, D7 A3 [  u        i,no,m:integer;       --定义整型
* n( i% m+ {7 n, y        Buf:object;            --定义object
do
; S# }7 J7 g# a9 v8 I        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
" H- W/ z+ S' `0 i        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
; j" G% r" i5 f                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
7 n2 w# |6 g, T                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
( g/ H  F. |7 p1 s8 T3 Q
9 m3 u; k+ S$ t6 G                        end;
) P8 I4 [8 x2 |* \6 k* a                        i:=PartsTable.YDim+1;
$ x$ h' {$ {% f3 a6 T7 _, v% v                end;
                m:=m+PartsTable[2,i];
8 t2 t+ B# [/ w+ q9 X  B        next;
: S" {4 n6 o  b: }" c: i       
        Buf:=str_to_obj(sprint("BF",@._From));
# J" j" n% A; W  ^: G& i        @.move(Buf);
5 f6 V- K8 E: iend;

热翔啊

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

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