该控件经过多年现场运用,功能完善可靠,可操作的变量类型有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
分享到:
相关推荐
西门子200PLC通信控件,详细介绍开发过程,希望大家喜欢
西门子CP243-1快速入门(含视频)zip,西门子CP243-1快速入门(含视频): 本文介绍了如何组态CP243-1在S7-200与S7-200,S7-200与 S7-300/400、S7-200 与OPC、S7-200与 WINCC之间的连接。
西门子PPI通信控件rar,西门子PPI通信控件
西门子cp341通信,cp341协议设置为Modbus,采用主站方式,以cp从站的仿真软件为从站,实现通信
这个东西是我花了100买来的 但是那个卖家不给我说明书就不理我了 出于无奈现在只有分享给大家 研究用法 到时候麻烦大家告诉我一声
组态王与西门子CP243-1的以太网通讯方式
详细介绍了基于西门子CP340 通信模块的串口通信的实现过程,给出了相关程序
讲述了S7-200系列的以太通讯模块的详细使用方法
CP243-1模块是S7-200系列产品中唯一一款以太网通信模块,它既可以作为西门子以太网S7通信中的客户端,也可作为服务器。那么,如果想通过以太网通信与PC机中的STEP7-Micro/WIN软件通信
在我这份上传的文档中,不但包括了CP243-1所有的通讯方式,而且还给出在组态软件中,相应的变量点表的格式,如:组态王,Ifix等等,是西门子S7-200在工控行业应用中不可缺少的一份精品文档。相信您的眼光是雪亮的,...
西门子PROFINET工业通信指南 PDF
西门子CP5611卡 驱动西门子CP5611卡 驱动
西门子PLCRS485通信控制程序.zip西门子PLC编程实例程序源码下载西门子PLCRS485通信控制程序.zip西门子PLC编程实例程序源码下载西门子PLCRS485通信控制程序.zip西门子PLC编程实例程序源码下载西门子PLCRS485通信控制...
西门子PPI通信控件.rar 介绍了关于西门子PPI通信控件的详细说明,提供其它产品的技术资料的下载。
西门子CP41驱动,西门子软件,集成CP41的办卡驱动
西门子s7-200工业以太网扩展模块cp243-1技术手册。扩展模块cp243-1用于将s7-200系统连接到工业以太网中。
西门子profinet工业通信指南教程,这是花钱买到的,有好东西得分享,希望对各位有所帮助 西门子profinet工业通信指南教程,这是花钱买到的,有好东西得分享,希望对各位有所帮助
siemens以太网模块CP243-1使用入门
Delphi西门子PPI协议S7-200VB的PLC通信控件实例,调试时请注意:1、请先运行目录中的安装控件,程序自动注册siemens.ocx控件,到C:\WINDOWS目录下。 2、delphi下控件的安装请参考图片中的安装步骤。 注意:在...