|
|
5仿真币
你好,帮我看个程序,好吗" f& k/ \2 |' @+ [! R/ H3 T
这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
8 m5 t, `! U. ^3 c) ]4 u
6 X) a. b" J' }# B6 K! D3 v% Vprocedure mech_Pro_Type()% P* D0 {, a: d
var/ G% a' Q- [ a6 o/ V4 {' G8 }
pro1_process,pro2_process:process
' D# f* L8 D6 l2 ~# kthe_logic:logic
/ i; M8 H- u9 n. P {begin
1 Y/ h4 [1 o+ e, b% B; _ wait until out part_count 0 : a9 B7 T4 ~2 c6 S- o
require part any6 L# R) ?+ J' ^7 S
pro1_process=get_process('Mechanism400')7 D7 _9 m% T: e% o
pro2_process=get_process('Mechanism500')
G* M4 r9 F2 C' {: ]: I+ j: k6 n 0 e8 d; \# \. Z" t
if(cpart<>NULL)then4 c. c- _. v1 N% {6 H1 o3 D
if( cpart->Product_Type==400)then& k& B6 y8 _5 z
do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
3 v9 b& R' V2 Y! M/ r7 c -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
# \$ M; w6 o( g' E8 P; ]$ ]2 F else E( D( l$ h, A2 X% R( }7 W
do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING - E; D+ l$ J& w$ C
--write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
- p& ]( t# S K endif
& z6 f0 G S4 d/ A, n; o5 \9 Z( L endif
4 s: x+ x9 [) P; Y; I3 Xend |
|
发表于 2008-6-15 18:49:23
