栏目分类:
子分类:
返回
名师互学网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
名师互学网 > IT > 软件开发 > 后端开发 > .Net

使用S7.NET.DLL读取PLC数据

.Net 更新时间: 发布时间: IT归档 最新发布 模块sitemap 名妆网 法律咨询 聚返吧 英语巴士网 伯小乐 网商动力

使用S7.NET.DLL读取PLC数据

S7.NET.DLL基于西门子GET/PUT封装了读取以及写数据功能,下面是不成熟的程序,基本可以将数据从PLC读出,也可将数据写入PLC,仅供参考,以下是原代码:

Option Explicit On
'Imports System.Collections.ge
'Imports System.Linq
Imports System.Text
'Imports System.Threading.tas
Imports S7.Net

Public Class Form1
    Dim Rack As Short
    Dim slot As Short
    Dim IPAddress As String = “192.168.1.50”
    Dim CPUTypes As String
    'Dim PLC_Pallet = New Plc(CpuType.S7300, "192.168.1.1", Rack, slot)
    Dim PLC_Pallet = New Plc(CPUTypes, IPAddress, Rack, slot)
    Dim AppXls As Microsoft.Office.Interop.Excel.Application

 Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click
        CPUTypes = CStr(Combox_CPUType.Text)
        IPAddress = txtAddress.Text
        Rack = Short.Parse(txtRack.Text)
        slot = Short.Parse(txtSlot.Text)
        PLC_Pallet = New Plc(CpuType.S7300, IPAddress, Rack, slot)
        Try
            PLC_Pallet.Open()
        Catch ex As Exception
            MessageBox.Show("连接PLC设备失败")
        End Try
  End Sub

    Private Sub Btn_Write_Click(sender As Object, e As EventArgs) Handles Btn_Write.Click
        PLC_Pallet.Write("DB1.DBX0.1", True)
        PLC_Pallet.Write("DB1.DBD12.0", 123457)
    End Sub

    Private Sub Btn_Write_Click(sender As Object, e As EventArgs) Handles Btn_Write.Click
        PLC_Pallet.Write("DB1.DBX0.1", True)
        PLC_Pallet.Write("DB1.DBD12.0", 123457)
    End Sub

End Class

转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/904872.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 (c)2021-2022 MSHXW.COM

ICP备案号:晋ICP备2021003244-6号