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

热翔啊

is
1 L' X! b2 H3 W" B- y& @0 m        i,no,m:integer;
* d2 o" V  ~' ?7 I5 z& G0 n( ?        Buf:object;
do
        m:=0;
+ t/ F2 n0 c$ k  I4 c$ M        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
% |) m9 y* Q( B' r% R0 L: p! Z                        @._To:=PartsTable[6,i];
( o7 A2 Q( [) G8 w. y                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
/ I4 {# B5 ?$ a6 f6 g2 x                        i:=PartsTable.Ydim+1;--跳出循环
                end;
% u/ {0 B2 s! I# q; _0 W4 }                m:=m+PartsTable[2,i];
6 o2 m! o) ], Y0 C2 Z) L8 W                print m;
        next;
        --先将零件送到From位置
+ ?* {2 e9 r( K( V1 d6 z        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
& H9 r6 r- {; r. v        @.move(Buf);
) ?4 g% i3 d' F% mend;
2 p" a, [3 r  v  ]
, n- q: u, A4 u  e, n! t$ S7 z; r5 p这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
9 s+ X+ \2 @9 `5 U/ j        Buf:object;            --定义object
do
0 u3 o) }. b: ]# x        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
+ Y' x# K6 m& z  S) D1 }# K% Y  F" H        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
; P' A, h- }! h$ n' w                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
/ {& d5 D1 G8 o8 r
                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
  L) Y! T& x8 {2 u        @.move(Buf);
end;

热翔啊

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

# ]3 C/ B; E* z# s% C# S% L5 }  s9 L非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的