|
|
5仿真币
你好,帮我看个程序,好吗+ ~4 R% ]1 q* T s
这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)/ y0 A6 d% l' I+ @- H* R; {
% C! b& d# }8 x" b& b9 k) yprocedure mech_Pro_Type()
! H! i7 i6 V. h7 Bvar
g A6 m5 M5 S4 l O4 Wpro1_process,pro2_process:process
9 \1 l/ ~7 q. Mthe_logic:logic! L; q. U. c. D' d9 p0 Z; X
begin" J* ]0 s3 _1 |0 l& [* A
wait until out part_count 0 3 X- l& g. l5 V, K! `5 l5 J! z
require part any
* ~& ~' Q, o6 W) \) F pro1_process=get_process('Mechanism400')
: _4 \ j- \) B0 h$ @ pro2_process=get_process('Mechanism500')1 x- g3 c- ^: i) I
; z9 `% k) l+ m+ J4 m3 Y if(cpart<>NULL)then
' j* M% N w6 T% O0 `6 M if( cpart->Product_Type==400)then1 w5 y- P N/ P: E$ l
do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
6 g( u V, }" T+ [ -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
: V, B% a2 Z# f/ `/ F/ E6 B else
- V) o; L' c" X) a o do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING , D; u4 D( j# }$ h# ?: G) R
--write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
% d4 h+ `8 v( U1 O4 B endif
" |, @6 F/ q& p7 d& {) G8 V: b7 ? endif
3 z' y' Y5 i5 wend |
|
发表于 2008-6-15 18:49:23
