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

热翔啊

is
- R9 i0 m( K% r  _0 u0 f0 p        i,no,m:integer;
        Buf:object;
- ^/ d' }$ D4 S1 a5 W( bdo
% J3 p  f  W% v7 x4 b! y# V        m:=0;
        no:=@.getNo;
0 [9 b% _0 [# d* ?% c        for i:=1 to PartsTable.Ydim loop
2 M  R, ~. ^8 o- |" `                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
" f. W. P4 R: E& [. u7 e                        @._From:=PartsTable[5,i];
2 S6 b# W. n, ^/ h# K; V! S( Y5 Q) g                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
% ?# d) J1 b. s% f' |                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
( F0 \; {. Z, G4 @5 `; x) B$ Y                        i:=PartsTable.Ydim+1;--跳出循环
                end;
7 n: F6 x7 j2 p                m:=m+PartsTable[2,i];
, a. I* w, Y0 c& x' P8 b% }' G( T                print m;
6 t0 z2 U" Z7 j5 g. W9 g        next;
        --先将零件送到From位置
3 Z  e) C' z8 e; y& B, U. z( g        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
' v8 Y( \0 h( g( e8 P# |, S$ F: c
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
4 s0 S% A% [1 B不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
# ~2 G) W8 D2 x" `- l        Buf:object;            --定义object
2 h; v- z+ w  b3 C' f+ Hdo
  b6 m# }9 N; w# M* w# W9 S' `' q        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
# E' @) F) w/ T& R. K( z% q        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                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
2 h$ c. q( W* p" r5 o" I                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
5 }( Y0 q% a  V
+ n" T4 c/ y7 \; X; o$ H! E                        end;
& B0 r2 _. w3 y                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
; ~7 {5 T6 ^+ N# [8 vend;

热翔啊

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

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