西门子CP243通信控件

简介: 该控件经过多年现场运用,功能完善可靠,可操作的变量类型有I、Q、M、V、S、SM。非注册版本仅能操作变量区前10个,注册版本无个数限制,并且注册一份,不限用户个数,可以任意发布使用(仅授权的公司的用户使用,否则追究相应的责任)

该控件经过多年现场运用,功能完善可靠,可操作的变量类型有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
相关文章
|
5月前
|
JavaScript C# Windows
【傻瓜级JS-DLL-WINCC-PLC交互】5.​用西门子TIA Portal 博途配置PLC(SIMATIC S7-1200CPU 1215C AC/DC/RLY)
【傻瓜级JS-DLL-WINCC-PLC交互】5.​用西门子TIA Portal 博途配置PLC(SIMATIC S7-1200CPU 1215C AC/DC/RLY)
154 0
|
5月前
|
Linux 智能硬件
Linux MQTT智能家居项目(LED界面的布局设置)
Linux MQTT智能家居项目(LED界面的布局设置)
69 0
|
存储 测试技术
西门子S7-200 SMART自由口通信,如何编写接收程序
本篇我们来学习编写西门子S7-200 SMART自由口通信的接收程序。我们继续使用上篇文中STEP7 Micro/WIN SMART编程软件所创建的项目,删除已经编写的发送程序,再来编写接收程序,拖动常开触点到程序段1中,输入地址SM0.1,通过传送指令,将常数十六进制数09送到SMB130。
西门子S7-200 SMART自由口通信,如何编写接收程序
|
网络协议 C语言 Perl
西门子S7-200 SMART硬件设备如何组态?通信如何组态,通信参数如何设置?
本篇我们来讲一下西门子S7-200 SMART硬件设备如何组态以及通信参数如何设置。
西门子S7-200 SMART硬件设备如何组态?通信如何组态,通信参数如何设置?
西门子S7-200 SMART自由口通信,如何设置通信参数
大家好,从今天开始我们来学习西门子S7-200 SMART自由口通信,本篇我们先来介绍一下如何设置通信参数。西门子S7-200 SMART除了支持以太网通信,还可以通过CPU上或信号板上的RS485接口实现串口通信。支持的串口协议,包括自由口协议、USS协议、MODBUS协议和PPI协议。STEP7 Micro/WIN SMART编程软件安装时自动集成串口通信所需要的功能块和子程序。
西门子S7-200 SMART自由口通信,如何设置通信参数
|
存储 索引
西门子S7-200SMART与变频器的通信如何设置?USS通信协议如何组态?
今天我们来介绍西门子S7-200SMART与变频器的通信如何设置,USS通信协议如何组态,下面先介绍一下变频器参数设置。
西门子S7-200SMART与变频器的通信如何设置?USS通信协议如何组态?
台达PLC开发笔记(二):台达PLC设置主机通讯参数为RTU并成功通讯
台达PLC开发笔记(二):台达PLC设置主机通讯参数为RTU并成功通讯
台达PLC开发笔记(二):台达PLC设置主机通讯参数为RTU并成功通讯
|
JavaScript 网络协议 Java
西门子PPI协议的工控通信控件
PPI协议是西门子PLC的私有协议,但是PPI又是西门子PLC200系列的默认的协议,如果用公开协议Modbus还得占用目前的程序空间和变量空间。这个控件开发已久,在工控现场已经稳定可靠的运行了几年,性能和可靠性都不错。可操作的变量类型有I、Q、M、V、S、SM。 提供有详细的示例程序,很容易掌握
657 0