F0301-742-F4

• 型号：F0301-742-F4


• 数量：962


• 制造商：上海曦龙电气设备有限公司


• 有效期：2017/6/27 0:00:00

F0301-742-F4

工业风扇代理销售:

联系人：程经理

手机：139188-64473

手机：139188-64473

 QQ:937926739  

固话：021-6131-6707

固话：021-6131-8625

噪音，说起来大家都不陌生，目前我们所处的环境一般来自随机的噪，例如急驰而过的车辆、的鸣笛、人们的喧闹、以及周围各式各样的噪音来源。随着近代工业的发展，也随着产生，噪音污染就是环境污染的一种，已经成为对人类的一大危害。

   寻求如何减低噪音污染已成为各行各业生产发展需要解决的难题之一。在风机领域，杭州奔明沃机械设备有限公司所代理的德国艾珍风机通过两道独特的预进气槽完美的保证噪音的降低，这道气槽同时成为了AERZEN专利技术，也成为了目前行业首个从源头上降低回流脉冲消除噪音的专利。

   预进气槽专利技术：当气体从进气口进入时，主转子逆时针旋转，带动转子转动，形成一个闭合的密封圈，转子叶轮内部压力增大，转子叶轮外部相比内部比较低的压力，在气压原理的条件下，高压会往低压流动，因此，形成回流脉冲，冲击转子叶轮形成爆鸣声，产生噪音。但腔体中存在两道艾珍设计的预进气槽时，当转子压迫气体形成高压强时，由于预进气槽的存在，转子叶轮内外相通，压强处于一个平衡状态，从源头上消除了回流脉冲，从而消除了爆鸣声，降低了噪音。

VB提供了大量的控件，在此不再多述。

4 基于MScomm控件的串行通信

要完成VB与PLC等设备的串行通信要用到MScomm控件， 在此有必要对该控件作较详细的说明。Mscomm是一个非标准控件，需要要手动添加许多项目，其步骤如下。

1） 选择菜单的【工程】

2） 选择【部件】

3） 在弹出的对话框中做如图7的选择。

4）如图8所示，在部件选项卡就会出现MScomm控件。

5）基本属性

4.1 MODBUS ASCII

Modbus 分为ASCII和RTU两种，ASCII采用的格式和校验相对简单，本文采用ASCII格式，并仅对使用的功能码进行说明，更多的信息，请参看协议的详细说明。

1）通信格式

2）功能码

4.2 VB与PLC通信的实现

以下举例说明现场设备与PLC通信的实现。

1）控制要求：控制PLC的起动、停止，并显示运行状态（绿色为运行，红色为停止）；能够用交替型按钮控制Y0,Y1，并用指示灯显示Y0,Y1状态（绿色为运行，红色为停止）；能够对D256，D512两个寄存器进行数值写入的操作。

2）实现思路：PLC起动停止的标志位为M1072，查DVP协议，知道地址为H0C30，按功能码01操作； 同样Y0,Y1的地址分别为H0500，H0501。写入FF00为ON，0000为OFF，按功能码05操作；D256，D512地址分别为H1100，H1200，按功能码06操作即可。

3）VB接口的设计如图10所示。

用按钮控制PLC的起动停止，Y0、Y1的ON/OFF及D256、D512写完数据的发送；用Shape组件做指示灯，表示PLC的运行状态和Y的状态；用timer组件不停的读取M1072的状态，以判断PLC的运行情况；用MScomm控件实现PC与PLC的通信。

4）编程实现的代码构成

（1） LRC算法校验的实现

Public Function LRC(str As String) As String

c = 0

l = Len(str)

For c = c + 1 To l

c_data = Mid$(str, c, 2)

d_lrc = d_lrc + Val("&H" + c_data)

c = c + 1

Next c

If d_lrc > &HFF Then

d_lrc = d_lrc Mod &H100

End If

h_lrc = Hex(&HFF - d_lrc + 1)

If Len(h_lrc) > 2 Then

h_lrc = Mid(h_lrc, Len(h_lrc) - 1, 2)

End If

LRC = h_lrc

End Function

（2） 运行的开始就判断PLC的状态并设置标志位

'初次运行打开串口，并显示PLC运行状态

Private Sub Form_Load()

Dim s1 As String

Dim s2 As String

Dim s22 As String

Dim s3 As String

Dim s4 As String

MSComm1.PortOpen = True

s2 = "01010C300001"

s22 = LRC(s2)

s1 = ":" + s2 + s22 + Chr$(13) + Chr$(10)

MSComm1.Output = s1

• 电话：13918864473
• 传真：021-61318625
• email：937926739@qq.com