4 |" M0 C. ^; |: X( U9 Bprocedure mech_Pro_Type()' Z) X: M) Y, R/ Q; d
var 1 a* w& P; x* j. R: I0 h. jpro1_process,pro2_process:process( m6 q* ?, ^2 k
the_logic:logic2 ^# q+ E+ M# z/ ~5 @0 D0 k
begin ; n4 y- T3 e) g( x* e wait until out part_count 0 % l0 w. ?9 {0 W require part any 8 I. |; H' g, o9 J z$ g pro1_process=get_process('Mechanism400')6 n- ]) K6 Q" }! [
pro2_process=get_process('Mechanism500')+ K o* W/ A- x7 K0 [& n1 x# P
$ q ^8 O: l9 J. L4 n if(cpart<>NULL)then& d( c: o/ j4 j" s& D6 P
if( cpart->Product_Type==400)then' l) H! Y5 k5 B- W/ D3 l, }4 v
do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING 0 W& D: ]2 \: o" K0 @% x) [' l -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr) - m0 @- l9 S: n6 E. @! w1 P# s& U else : C; z2 U$ B) e- U do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING . }+ \8 R# o0 k! C" }. m# b4 g
--write('装机构工位:正在执行工艺号',cpart->Product_Type,cr) ' u) v7 K4 ~" J endif% Q9 i N- u. K8 u( N2 a: X
endif2 g4 h0 `* h+ N K1 N
end