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

热翔啊

is
& Z% _3 O0 E. [( ?        i,no,m:integer;
        Buf:object;
do
- {1 n' C3 J- e* T' k! g, m0 S        m:=0;
        no:=@.getNo;
! D) T+ x+ T# Z* i% t& k        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
* \7 Q3 r; a0 T" t8 n8 d, u) f                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
  j% `' |" a% @                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
$ f* x3 r- C* t. L$ u& M                m:=m+PartsTable[2,i];
/ ?" m& U+ j: k# s! F                print m;
        next;
; j! H  G/ Z' P4 [" a- _        --先将零件送到From位置
8 d0 G  _, c# `5 H+ S1 B5 {1 R# R        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
% ?" X/ {% L/ Dend;
+ G( R6 b' F. g3 j! U) K: `' k
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
3 c  t+ U1 v* ?( z0 b不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
% V( P7 h3 ?1 |. C% T8 his
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
$ g- q* _5 _& X! z2 H. h. u: A+ ]        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
8 u6 Q. m% s! Z1 e. y5 q' Y                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
9 ?$ ~9 t& d8 b2 O- V' X' j- ^( S& i                        @._From:=PartsTable[5,i];            
) }% w) S0 E( V9 O, v+ U  ]                        @._To:=PartsTable[6,i];
" x- G  i+ `8 u: ~, b0 h* t% ~( V                        if no=PartsNo+PartsTable[2,i] then
( v1 V9 g' a, x: m' Q/ l& ~% p                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
% A, s' _) n; {7 W; B9 ?5 n6 S) I
                        end;
                        i:=PartsTable.YDim+1;
, W1 I. T( T, K) V                end;
# q+ F+ w) H$ t. P" k, W                m:=m+PartsTable[2,i];
        next;
       
3 H0 ~1 q. M% g3 l! y0 e6 d        Buf:=str_to_obj(sprint("BF",@._From));
% j$ @" s) w6 M5 N7 m, t; u; L/ r        @.move(Buf);
5 w$ y: i% j; k* wend;

热翔啊

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

# v3 g. I- B( q. s8 w. H非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的