该控件经过多年现场运用,功能完善可靠,可操作的变量类型有I、Q、M、V、S、SM。非注册版本仅能操作变量区前10个,注册版本无个数限制,并且注册一份,不限用户个数,可以任意发布使用(仅授权的公司的用户使用,否则追究相应的责任)。
提供有详细的示例程序,很容易掌握使用。
同类产品还有Modbus.ocx,S7_PPI.ocx,S7_MPI.ocx等控件
【属性】
RemoteHost CP243 IP地址
RemotePort CP243 端口号,默认102
【方法】
OpenConnect 打开连接
CloseConnect 关闭连接
ReadData 读PLC数据
WriteData 写PLC数据
InitRegCompany 初始化注册公司名称
【事件】
无
示例程序界面:
http://www.sky-walker.com.cn/YeFan/S7_CP243.rar
'*************************************************************************
'**函 数 名:chkRun_Click
'**输 入:无
'**输 出:无
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2005-08-28 11:11:25
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub chkRun_Click()
tmrRead.Enabled = IIf(chkRun.Value = 0, False, True)
End Sub
'*************************************************************************
'**函 数 名:cmdAbout_Click
'**输 入:无
'**输 出:无
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2005-11-18 16:44:43
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub cmdAbout_Click()
CP243Client1.About
End Sub
'*************************************************************************
'**函 数 名:cmdClose_Click
'**输 入:无
'**输 出:无
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2005-11-19 11:00:41
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub cmdClose_Click()
Unload Me
End Sub
'*************************************************************************
'**函 数 名:cmdCloseConnect_Click
'**输 入:无
'**输 出:无
'**功能描述:关闭连接
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2004-12-03 12:53:46
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub cmdCloseConnect_Click()
CP243Client1.CloseConnect
picFlag.BackColor = RGB(255, 0, 0)
End Sub
'*************************************************************************
'**函 数 名:cmdOpenConnect_Click
'**输 入:无
'**输 出:无
'**功能描述:连接指定IP的服务器
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2004-12-03 12:51:50
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub cmdOpenConnect_Click()
Dim lngReturn As Long
lngReturn = CP243Client1.OpenConnect(cmbIP.Text)
If lngReturn = 0 Then
picFlag.BackColor = RGB(0, 220, 0)
Else
picFlag.BackColor = RGB(255, 0, 0)
End If
End Sub
'*************************************************************************
'**函 数 名:cmdSendData_Click
'**输 入:无
'**输 出:无
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2005-08-27 23:59:32
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub cmdReadData_Click()
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
Dim i As Long
Dim bytType As Byte
Dim lngData() As Long
Select Case cmbType.ListIndex
Case 0: bytType = CP_I
Case 1: bytType = CP_Q
Case 2: bytType = CP_M
Case 3: bytType = CP_V
Case 4: bytType = CP_S
Case 5: bytType = CP_SM
End Select
If CP243Client1.ReadData(Val(txtAddr), lngData(), Val(cmbNum.Text), Val(cmbLen.ListIndex), Val(bytType)) = 0 Then
txtData = ""
For i = 1 To Val(cmbNum.Text)
txtData = txtData & Format(lngData(i - 1), "0") & " "
Next
Else
txtData = "Error"
End If
'------------------------------------------------
Exit Sub
'----------------
ToExit:
MsgBox Err.Description
End Sub
'*************************************************************************
'**函 数 名:cmdWriteData_Click
'**输 入:无
'**输 出:无
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2005-08-28 11:43:08
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub cmdWriteData_Click()
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
Dim bytType As Byte
Dim lngData(0) As Long
Select Case cmbType.ListIndex
Case 0: bytType = CP_I
Case 1: bytType = CP_Q
Case 2: bytType = CP_M
Case 3: bytType = CP_V
Case 4: bytType = CP_S
Case 5: bytType = CP_SM
End Select
lngData(0) = Val(txtData)
If CP243Client1.WriteData(Val(txtAddr), lngData(), 1, Val(cmbLen.ListIndex), Val(bytType)) = 0 Then
'
Else
txtData = "Error"
End If
'------------------------------------------------
Exit Sub
'----------------
ToExit:
MsgBox Err.Description
End Sub
'*************************************************************************
'**函 数 名:Form_Load
'**输 入:无
'**输 出:无
'**功能描述:端口初始化
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2003年12月21日
'**修 改 人:
'**日 期:
'**版 本:V1.0
'*************************************************************************
Private Sub Form_Load()
Dim i As Long
For i = 2 To 250
cmbIP.AddItem "192.168.0." & Format(i, "0")
Next
For i = 1 To 100
cmbNum.AddItem Format(i, "0")
Next
cmbNum.ListIndex = 0
cmbIP.ListIndex = 164
cmbType.ListIndex = 3
cmbLen.ListIndex = 0
CP243Client1.InitRegCompany "×××公司" '已注册的公司名称
End Sub
'*************************************************************************
'**函 数 名:Form_Unload
'**输 入:Cancel(Integer) -
'**输 出:无
'**功能描述:关闭串口
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2004-11-20 22:30:57
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub Form_Unload(Cancel As Integer)
CP243Client1.CloseConnect
End
End Sub
'*************************************************************************
'**函 数 名:tmrRead_Timer
'**输 入:无
'**输 出:无
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2005-08-28 11:10:58
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub tmrRead_Timer()
cmdReadData_Click
End Sub
'*************************************************************************
'**函 数 名:tmrSystem_Timer
'**输 入:无
'**输 出:无
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2004-12-03 12:55:25
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub tmrSystem_Timer()
If CP243Client1.State = 7 Then
picFlag.BackColor = RGB(0, 220, 0)
Else
picFlag.BackColor = RGB(255, 0, 0)
End If
End Sub
分享到:
相关推荐
PC Access软件支持通过PC/PPI电缆、PCAdapter电缆、西门子通信处理器CP卡以及调制解调器(Modem)等多种方式实现硬件连接。其中,通过以太网连接S7-200上的CP243-1或CP243-1IT模块是一种常见的连接方式。 #### 注意...
本文介绍了一种利用Visual Basic编程软件开发的上位机软件与西门子S7-400 PLC之间的通信技术,该技术能够实现高速和高准确性的数据传输,从而有效扩展了西门子PLC的应用范围。文章详细阐述了通信系统的实现方式,...
系统要求方面,用户需要满足以下配置:至少Pentium 200MHz的处理器、至少64MB的内存、至少20MB的硬盘空闲空间、Windows NT 4.0 SP5或Windows 2000 SP1操作系统、西门子CP5613/CP5611通讯卡或西门子工控机主板集成...
然而,要实现PC机与西门子PLC之间的通信,需要借助一定的通信协议或接口技术。OPC(OLE for Process Control)作为一种行业标准,被广泛应用于工业自动化中,提供了一种方便的方法实现不同设备和系统间的通信。 ...
- **易于使用**:通过自动化接口(VB)或包含OCX数据控件简化操作。 - **互联网通讯**:通过XML DA接口实现。 - **变量分组**:支持大量数据的快速访问。 通过OPC服务器,可以利用以下通信选项进行以太网通信: - **...
此外,还需要安装相应的驱动程序,如西门子提供的CP5511或CP5611等硬件驱动,以便与PLC进行通信。 2. **创建项目**:打开Visual Basic,新建一个标准EXE工程,为项目添加必要的控件,如按钮用于启动通信,文本框...
然而,计算机与S7-200系列PLC进行通信时常遇到一些难题,比如西门子的PPI(Point-to-Point Interface)通信协议未公开,而西门子的监控软件WinCC在新版本中没有集成S7-200系列PLC的通信驱动,老版本虽然有Modbus ...
标题中的“VB与多组PLC基于CP5622的通讯”指的是使用Visual Basic(VB)编程语言,通过CP5622通讯模块与多个西门子PLC(可编程逻辑控制器)进行数据交互的技术。这个技术在工业自动化领域中广泛应用,允许程序员通过...
此外,还集成了RS422/485通讯口,支持与三菱FX系列、欧姆龙CP1系列等主流小型PLC的通信。 4. 硬件的可靠性与安全性:SmartLine系列触摸屏在设计过程中,通过了CE认证,确保产品符合国际安全标准。同时,其生产过程...
- 易于使用的自动化接口(例如,通过OCX数据控件) - 支持通过XML DA接口进行互联网通信 - 变量(项目)分组,提高大量数据的访问效率 通过OPC服务器,可以实现以下几种通信访问组件: - 用于PROFIBUS-DP的DP通信 ...
1. **ActiveX控件**:适用于VB6等语言,通过控件形式与PLC通信。 2. **OPC自动化**:支持VB6、Delphi等语言利用OLE自动化技术进行编程。 3. **OPC用户接口**:专为VC++设计,具有更高的灵活性和执行效率。 4. **OPC...
该软件支持通过多种硬件接口与S7-200系列PLC进行通信,包括USB/PPI、RS-232/PPI电缆、西门子CP卡与MPI电缆、EM241模块的调制解调器连接,以及CP243-1或CP243-1IT模块的以太网连接。值得注意的是,PCAccess并不支持CP...
SIMATIC NET是由西门子公司提供的一种开放且多元化的通信系统,适用于工业自动化领域。它允许用户将各种工业现场的设备,如PLC、主机、工作站以及个人电脑相互连接起来进行数据交换,旨在支持自动化工程中的多样化...
S7-200需要配备以太网模块CP243-1,以便与S7-1200进行通信。在S7通信模式下,S7-1200的以太网接口只能作为服务器,这意味着它在通信过程中处于被动状态,无需进行任何额外的组态或编程工作。S7-200 CPU在通信过程中...