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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
* T" B4 f, B" S2 ^2 U        m:=0;
/ |/ H0 ?7 f+ |9 J4 y2 ?3 V5 ~- A        no:=@.getNo;
" }) s$ w" P& Q        for i:=1 to PartsTable.Ydim loop
- s- E- u& b4 a% p/ d                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
& P" Y/ K3 U! X; Z8 J                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
0 K8 t& C" M; |) G1 U* k# c                        if no=PartsNo+PartsTable[2,i] then
" c8 P. s; E8 v* a/ Y- O                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
' F1 E) s0 u+ Y( T                end;
) v0 z( `) e8 h$ k* U0 _                m:=m+PartsTable[2,i];
) D! \( ~6 P' N8 v: E% @: ]; e  }( i- H                print m;
        next;
        --先将零件送到From位置
: g! {" \& _4 q- Z& T7 @9 Y        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
. Z& o1 N% X1 X+ j- `$ Q( W        @.move(Buf);
/ L  P, g; J" ?4 n8 i- J8 rend;

! f% k/ F5 z( S3 H: S' r! ?6 c0 p这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
: W. b9 J  D: q( b8 |不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
. |% [: Y: {$ z7 X) E) M3 vis
7 L% c- Q6 e7 }" g, l        i,no,m:integer;       --定义整型
. k. ?; Z" F: d' J% L        Buf:object;            --定义object
% b( ^% D1 ^7 w9 T1 v( c: Hdo
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
; s$ O0 o+ M5 f! t& |2 {        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
( y3 A8 N  ]* A& x0 s% @) x                        @._From:=PartsTable[5,i];            
) c, c# I/ Y, N7 X                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
1 K5 g8 D$ L0 z1 `
; t$ c- U; F  H5 U1 n0 {                        end;
& f9 u9 v  t( K  l                        i:=PartsTable.YDim+1;
8 v$ A$ n& T# S8 V, `9 m" @3 i8 M                end;
& [# W+ z6 r1 U                m:=m+PartsTable[2,i];
% P+ {2 |- z/ Y, \3 k4 S        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
8 m5 q( j4 F2 R9 B. L+ C  w8 u5 e2 N        @.move(Buf);
end;

热翔啊

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

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