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

热翔啊

is
        i,no,m:integer;
" |8 m8 K6 A( k# |1 O" N5 i" m        Buf:object;
do
        m:=0;
        no:=@.getNo;
) e! ~0 a  p" I; K; {' ?- f        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
1 h7 ]6 d  w  G) g1 C( F/ ~; X                        @._To:=PartsTable[6,i];
+ Y, O# g9 f' s0 u* ?9 b! k5 Y* H( d                        if no=PartsNo+PartsTable[2,i] then
2 g' o4 y9 u$ o8 ^4 q6 a                                PartsNo:=PartsNo+PartsTable[2,i];
/ Z; E2 o4 n8 @8 c- [9 m                        end;
+ Z  s: R& }) f8 {+ F                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
1 }! r/ P6 ]) j* g                print m;
        next;
        --先将零件送到From位置
9 X- g% d" k+ z# G7 z. }3 u        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
4 h8 a. f/ ~6 v' m* ^& T        @.move(Buf);
end;
/ O  N) }; u/ S! t" ?
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
$ T2 v+ ~; U& [# qis
: _& A& I8 h  l% U2 U' P        i,no,m:integer;       --定义整型
1 J0 W- }& ~8 X        Buf:object;            --定义object
4 u5 \+ v# \7 O( {/ p+ P9 Kdo
        m:=0;
2 T3 s. r% V1 i/ N1 w        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
5 c/ [2 T& J8 f        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
! s1 ^% G) d* |1 o9 g7 \                        @._From:=PartsTable[5,i];            
7 p8 c& }5 x# I; W! B                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

; X; h0 i* L0 H                        end;
                        i:=PartsTable.YDim+1;
2 \' ^7 _+ V) Z# r9 h( d                end;
                m:=m+PartsTable[2,i];
        next;
       
$ R: g+ P5 s% w! F9 E  D& w        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
, O  s/ G8 D  F( g, d7 `4 mend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
这个例子昨天正好看了，话说那本书的例子都很不错~
; O2 S! J: y( }5 d8 u+ {) F( r不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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