|
|
5仿真币
你好,帮我看个程序,好吗# B) d) b" w9 C) {, Z6 `
这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)4 G% X/ Y: d6 Z% H" {' i! m
; \% v% N$ o! S N: _" } F
procedure mech_Pro_Type()3 e* }/ M* p7 t8 b# N; l
var
$ r, f- `* {' _; f8 Apro1_process,pro2_process:process/ E N- }$ T! u) Z4 |
the_logic:logic3 w/ _. |( z q. d! L( y+ p: z
begin2 x7 o. T% y3 [
wait until out part_count 0 2 C v' _$ m8 [6 `9 W) R' N! f9 S
require part any( D u3 s( U8 N
pro1_process=get_process('Mechanism400'); ^/ V7 h5 j: o5 ?
pro2_process=get_process('Mechanism500')1 F s) r7 M( h8 k: w
/ p/ I' E) n( q( H6 a+ U- \# j. I$ y: k if(cpart<>NULL)then
9 X k* F' G& z; s$ B- l if( cpart->Product_Type==400)then
7 ]) O$ }: B) {6 ^' M do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
& X$ I k% M' p6 P4 ~7 A0 e' _+ s -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)& _0 P" l8 O' r% W) z
else
+ @) u8 {3 {$ W5 t3 d do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
2 X- d! A0 d- o7 S" f: r --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)0 ~# W2 ~5 n2 q* i9 ~! B8 ^
endif
9 @ R! q$ \, h9 \) | endif: A1 \& k9 E- F3 V% r, v, y# ?
end |
|
发表于 2008-6-15 18:49:23
