西门子CP243通信控件
2007-10-27 12:12
253 查看
2005年12月12日 22:43:00
该控件经过多年现场运用,功能完善可靠,可操作的变量类型有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.bjjr.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
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=550739
该控件经过多年现场运用,功能完善可靠,可操作的变量类型有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.bjjr.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
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=550739
相关文章推荐
- 西门子CP243通信控件
- 西门子CP243通信控件
- 西门子s7200+cp243-1网络通信断电重启不能自恢复问题解决
- 西门子PPI协议的工控通信控件
- 西门子243模块通信
- 西门子PPI协议的工控通信控件
- 今天收获挺大,掌握了CP243的通信协议...
- 今天收获挺大,掌握了CP243的通信协议...
- 今天收获挺大,掌握了CP243的通信协议...
- 西门子PPI协议的工控通信控件
- asp.net动态编辑母版页(与母版页通信,如修改控件属性等)
- MFC采用MSComm控件通信时,出现error LNK2001:无法解析的外部符号问题的解决方法
- Delphi中ComPort串口控件通信中的数据处理
- S7-200系列PLC与WINCC以太网通信CP243i的实例
- C# 使用SerialPort控件用类及线程实现串口通信
- 串口通信-MSComm控件使用详解
- MFC串口通信控件mscomm
- Android各组件/控件间通信利器之EventBus
- VC控件MSComm编写串口通信程序
- 在 C++ Builder中利用串行通信控件编程