你好,帮我看个程序,好吗 5 l* d+ {- m ~+ j) @7 A 这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)& X" v. R. ?9 p" k" N6 x- @
6 [4 J5 c& }6 d. K/ D/ u4 y. Sprocedure mech_Pro_Type() 4 k1 H# v# {, T/ d5 H" t! gvar5 K4 d3 W! B* W
pro1_process,pro2_process:process # I9 m* ~+ L! othe_logic:logic 2 | r% l$ V& f- l2 vbegin ) I1 N& C* I' _7 o wait until out part_count 0 ; z6 C4 W, g/ D' L% g" K: o require part any. M5 E' ]7 r/ }3 O2 G
pro1_process=get_process('Mechanism400')2 g# m! ]7 `. f2 m- d; H! ~& C
pro2_process=get_process('Mechanism500')0 Q3 f2 _, P. [7 K$ m: n' ~) [
1 n2 J1 ?! b$ l6 d# D# q if(cpart<>NULL)then $ z/ U$ z4 V( x- p/ t* A0 X if( cpart->Product_Type==400)then. m) J; G( Y+ F0 d
do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING ! S6 Z; ?; A8 m/ k' ^5 n. l* _, Z* h -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)5 \- g% O0 u6 o- r( V4 S1 z
else 9 V) f% Q q0 V8 Y* J, F do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING & p* A( }& K( E) z! y b --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)' v& G+ B3 l! Q% e! Y- i
endif 2 S \% O& J) k7 F endif6 @# u- l4 P7 ?. c! }. H4 V: Z
end
发表于 2008-6-15 18:49:23
