|
|
5仿真币
你好,帮我看个程序,好吗
W0 f( L% w8 s) N 这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
3 H1 t y: ?7 Q) }4 o- ?% L" E$ v8 T7 }4 c9 D1 `0 {: q" O; J
procedure mech_Pro_Type()
" z& t7 V' T) ]4 C. Y3 j7 evar9 o+ i* n* w) P
pro1_process,pro2_process:process
2 Q) p) n. T* p( g8 l- gthe_logic:logic2 y/ S' a2 e8 F r( [$ y5 {3 Y
begin
: g) ^# p. ~7 d( Z- K wait until out part_count 0
1 q; @. _) P0 l8 g require part any
) O+ _; Z3 T( ? pro1_process=get_process('Mechanism400')
. L1 {( E5 \/ p, r7 Z! @- i6 t5 _ pro2_process=get_process('Mechanism500')
. F, P4 v' t, F1 N' g# Y. V# x
' E% Y/ b$ O$ j* R if(cpart<>NULL)then" y1 v5 p8 L) M: ]8 n4 C+ t
if( cpart->Product_Type==400)then
F7 Q3 ?/ |1 y8 l& S& B( E* v do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING: t- o% n6 Z8 a8 s( w" K
-- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)' J. F7 b$ ~: {8 ~, @
else
@, C: i1 p7 } do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING 2 F) Q+ S+ Q( D# f+ _# G
--write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
) l3 j7 h& b* F6 P2 s" ` endif
+ m; v4 n$ ?; I" `6 B8 A endif
/ ~4 ^# N0 Q) ~/ M' c; J4 ?end |
|
发表于 2008-6-15 18:49:23
