设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7375|回复: 0

[求助] 帮我看个程序,好吗

[复制链接]
发表于 2008-6-15 18:49:23 | 显示全部楼层 |阅读模式
5仿真币
你好,帮我看个程序,好吗' \* X3 T$ n7 w+ l) }
   这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)1 j$ x( x5 F9 Q0 g# a( b  Q

4 |" M0 C. ^; |: X( U9 Bprocedure mech_Pro_Type()' Z) X: M) Y, R/ Q; d
var
1 a* w& P; x* j. R: I0 h. jpro1_process,pro2_process:process( m6 q* ?, ^2 k
the_logic:logic2 ^# q+ E+ M# z/ ~5 @0 D0 k
begin
; n4 y- T3 e) g( x* e   wait until out part_count 0
% l0 w. ?9 {0 W   require part any
8 I. |; H' g, o9 J  z$ g   pro1_process=get_process('Mechanism400')6 n- ]) K6 Q" }! [
   pro2_process=get_process('Mechanism500')+ K  o* W/ A- x7 K0 [& n1 x# P

$ q  ^8 O: l9 J. L4 n   if(cpart<>NULL)then& d( c: o/ j4 j" s& D6 P
       if( cpart->Product_Type==400)then' l) H! Y5 k5 B- W/ D3 l, }4 v
            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
0 W& D: ]2 \: o" K0 @% x) [' l         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
- m0 @- l9 S: n6 E. @! w1 P# s& U       else
: C; z2 U$ B) e- U            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING . }+ \8 R# o0 k! C" }. m# b4 g
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
' u) v7 K4 ~" J       endif% Q9 i  N- u. K8 u( N2 a: X
   endif2 g4 h0 `* h+ N  K1 N
end

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2025-7-10 15:08 , Processed in 0.012255 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表