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

热翔啊

is
% g4 W" p8 D& G* a% e8 ]% |        i,no,m:integer;
. l  N3 D! W( g; v# {5 X        Buf:object;
do
& y5 h6 k) ]; |6 R        m:=0;
- |; t+ s, w0 J7 \0 X% W- {- @6 ^        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
5 c1 Y$ s) R  Y. ~8 \                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;--跳出循环
' v8 ?$ J5 f0 p( N: ~5 p2 f                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
& ~8 P( g- K8 K  J* t        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
! f. X. E4 ?& @& m        @.move(Buf);
) n# P$ X, L4 Q# ]3 q1 ]# Iend;

" A' W4 b5 O- r% J( H! B$ m3 [这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
) _; H# |+ B* i' \+ ^$ n不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
" K! U- q& B: P# V        Buf:object;            --定义object
6 O9 D) S) H, f; V) wdo
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
! p4 U0 [& _# Z7 s. O        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
5 {' K" x7 }; w                        @._From:=PartsTable[5,i];            
- U. m- `2 g$ m9 x1 G                        @._To:=PartsTable[6,i];
" U9 P  Q3 C% E3 N! B, }) q                        if no=PartsNo+PartsTable[2,i] then
$ F3 d7 C5 p" h+ B7 S: y                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
       
% A# ?; \. i6 h# W$ p        Buf:=str_to_obj(sprint("BF",@._From));
) q1 y$ L; M  ^0 q        @.move(Buf);
8 b3 O* w" w) m* ~, u$ Pend;

热翔啊

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

. o+ j3 u+ U$ m& @$ q  {非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的