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

热翔啊

is
3 ~- }+ d3 {( [5 c8 y5 N- N        i,no,m:integer;
        Buf:object;
do
  B& u# g% Y* W1 P6 o3 u        m:=0;
        no:=@.getNo;
7 e. b- T' j- w        for i:=1 to PartsTable.Ydim loop
' ?4 Q4 c3 T/ J4 V2 C# b* U                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
" H3 ~/ Q5 `& |9 P7 t' e                        @._From:=PartsTable[5,i];
1 p6 Y) m# U  U  {                        @._To:=PartsTable[6,i];
5 X5 C5 p+ Q3 Z. P2 H' f                        if no=PartsNo+PartsTable[2,i] then
, E8 ^# a& o- T; w! J/ G3 B                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
; A; j# b8 C- `. W4 w& e6 L                end;
2 D1 n* F) Z) j7 |  e3 u6 L                m:=m+PartsTable[2,i];
" f# M7 d! I$ e/ a                print m;
1 ?, j2 j7 B1 s* Q# L        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
! `; O, B0 i/ K7 R3 p0 c不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
* s. p8 b. `: V$ {: ~8 e        i,no,m:integer;       --定义整型
) F6 B$ N$ D0 u; ?$ y; N        Buf:object;            --定义object
# J) n' ]! {! t( {; x5 f8 {do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
8 P0 I# x0 J; j7 _/ I        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
  S! |; c7 i2 z7 i1 k                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

6 W+ k- P7 _* h0 C: q% ^                        end;
                        i:=PartsTable.YDim+1;
: }! S/ X4 z) Q; K' S* ?9 N                end;
                m:=m+PartsTable[2,i];
2 o$ q  o9 \, a/ i- n* z3 Q4 R        next;
       
4 \* h& L: H# X' r* r9 t        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
) R/ J6 |# k! k1 S. G6 xend;

热翔啊

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

& K$ w$ k2 m# d$ G8 t  u. k非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的