|
|
5仿真币
你好,帮我看个程序,好吗/ X% O9 |; T' b" Y6 D4 J1 K
这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
) e1 B; _5 T) M% T" b! I. t$ U. w6 ?2 z7 F& B0 K9 i
procedure mech_Pro_Type()
) s6 f9 f# A( j6 Y! {/ E+ @: @9 Ivar
' _8 e. e6 S! c, spro1_process,pro2_process:process
1 L/ G+ B- v! k: F" @, a2 R9 ^$ othe_logic:logic+ k o8 V7 b# C; l/ L6 r7 D
begin" F+ S, T5 ~ Q. P' }" e2 c
wait until out part_count 0
8 `! s; j; s4 j) O" j1 `& b) J; s* G( Y require part any. u0 f6 w1 p& P. v% G! F
pro1_process=get_process('Mechanism400')! l+ v# U4 }* t. x# x# Y" }% G
pro2_process=get_process('Mechanism500')
3 P) z$ ?9 m) e0 y* x - J. c. y. _0 N3 @8 ^$ h2 g, T: q
if(cpart<>NULL)then* ^, I" h' q$ G- r( j
if( cpart->Product_Type==400)then
7 i: e2 D5 ^5 C1 D) z2 O( o4 _$ S do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
+ k3 K; X+ D0 S -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
$ h W& `8 B- F5 y: n* e2 e else
3 j3 S$ v, x' U: x2 M9 u& r1 G do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING . @$ b. S' h1 ~$ C+ }8 G3 h5 m* F
--write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
2 f9 v+ ?, [6 Z9 M, G endif
) d6 b& L1 W: g4 P; e* K5 W endif" P8 W0 z0 D9 @8 ?2 \7 ]" y
end |
|
发表于 2008-6-15 18:49:23
