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

热翔啊

is
        i,no,m:integer;
7 ^# u0 D9 c/ @, G. X2 }        Buf:object;
do
  d' ]! p' Q: t0 C3 j9 B, g* e        m:=0;
2 @; {: h& m9 m" Y7 |% P        no:=@.getNo;
) d6 [2 k, N" Q) e$ }        for i:=1 to PartsTable.Ydim loop
0 [5 ]  k; y) H# t$ ~& k                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];
  }: n' N3 ?3 R  P                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
2 L7 l& p1 d, V. D                m:=m+PartsTable[2,i];
, r2 i/ f$ E! n. X# Q& V                print m;
        next;
        --先将零件送到From位置
. e7 c9 m7 e  z* E, r        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
7 b! F/ N; y% Q, q# @end;
9 M7 e; Y3 J$ o0 p& {6 o1 g7 ^
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
, [( L1 |% p2 n- {$ w9 w' B$ Z% Q不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
9 B9 u1 C: S. a9 M. n2 L        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
2 g6 ^; ^2 o2 G0 q! D        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
5 L# e$ u1 O. ]& U' G6 ^5 O; P+ i                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
+ j) I% E; ]2 B6 w                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

5 V, S3 \8 [/ ]# x                        end;
6 Q/ t5 Q$ Y$ |2 a( u                        i:=PartsTable.YDim+1;
7 a" x1 B# Z6 a, P3 X6 K                end;
- K. b8 m. J3 E3 h4 n) B3 H                m:=m+PartsTable[2,i];
# a# ^. k8 U4 \7 u+ R2 z        next;
       
6 F8 V$ h% J' |; v3 R7 c. ?- y        Buf:=str_to_obj(sprint("BF",@._From));
, g& K6 E* e/ u        @.move(Buf);
( l- o  K3 m3 G8 N9 g" Cend;

热翔啊

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

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