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

热翔啊

is
        i,no,m:integer;
        Buf:object;
! Q; m) ]  w6 s3 h8 o2 x: o. W- a3 vdo
* l* V6 h$ B( w* ~( Y; |% c        m:=0;
5 x% C9 h9 [  N3 l- W4 N5 [8 l        no:=@.getNo;
: O8 E4 y9 m7 o1 V7 J) V        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
; z! j! e$ f/ ^+ U                end;
                m:=m+PartsTable[2,i];
                print m;
8 q8 V1 @7 f$ F6 q6 B% s  e% h        next;
% O; Z# P2 F0 a        --先将零件送到From位置
! K, j, [3 M; Z$ _5 o9 {0 x+ R8 \        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
% P" M; J5 o; n$ @end;

, R, \4 r$ [9 `# |( c这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
6 y% M. t' v# W/ t8 ?is
, [& T* @* n5 l3 R. l" X1 A        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
* f9 r/ u9 U# E        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
) ^* V' V7 t& s3 C                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
% {: q) V9 ?# `                        @._From:=PartsTable[5,i];            
4 P5 a5 h+ f( T( Y# `8 D; S                        @._To:=PartsTable[6,i];
5 b8 W: y! }4 A- f                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

! t8 k* r$ F& Y5 w6 w2 x                        end;
2 o1 Y1 Y8 N/ P                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
3 n" ], s0 l! p  N0 A) y7 x6 \        next;
+ T* D8 K5 \+ T* g( d% U       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
9 X) u6 Y  v. ]7 Q( E8 t) fend;

热翔啊

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

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