|
|
5仿真币
你好,帮我看个程序,好吗
7 o1 [4 e! `7 s- u1 [& `& x: }, B 这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
# Y9 k4 g1 Q# _0 `0 O& D
& T& _. g. X I' n B/ }procedure mech_Pro_Type()( A$ \7 S* R, N) F5 ^
var# C3 r2 M, ~; U& t4 H" z% `8 ?5 Q
pro1_process,pro2_process:process
& E1 I2 D" h6 u( m2 `. u' Mthe_logic:logic9 N9 X: i# G5 S* M" q9 R
begin
$ C8 g& L+ ~9 y, s9 k+ ]; F wait until out part_count 0 - c1 N; b/ C' g" D
require part any
# ?2 a" F( L) z: n pro1_process=get_process('Mechanism400')
6 o$ z* y8 F# ?! h4 \ pro2_process=get_process('Mechanism500')
1 j- Z$ W# Q0 Y9 v |, G2 r
2 ]7 _! i. ]2 O a) t if(cpart<>NULL)then
5 r# \/ d. @2 e( F# ?; l- D# X if( cpart->Product_Type==400)then; `. `7 B$ p4 {5 K/ X
do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
% a% g, E' I; S1 d+ M' [: I5 K* S -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr), H! ?* q- x! \$ n
else 5 _5 [. n! k/ L3 Q) E8 J1 [5 L: K
do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING ) j. `9 x- t J' Z9 l
--write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
( x; a: `4 V/ F$ b) i, p1 I1 L endif6 G* e s! h& y
endif
2 K- V. m' i4 O% Jend |
|
发表于 2008-6-15 18:49:23
