在好例子网,分享、交流、成长!
您当前所在位置:首页ASP 开发实例VB编程 → VB与三菱PLC通讯数据传输

VB与三菱PLC通讯数据传输

VB编程

下载此实例
  • 开发语言:ASP
  • 实例大小:0.19M
  • 下载次数:129
  • 浏览次数:869
  • 发布时间:2017-08-29
  • 实例类别:VB编程
  • 发 布 人:lmx858
  • 文件格式:.rar
  • 所需积分:2
 相关标签: 通讯 c vb PLC 三菱Q系列

实例介绍

【实例简介】

VB与三菱Q系列PLC通讯数据传输


【实例截图】

from clipboard

【核心代码】

Imports System.Runtime.InteropServices
Public Class Form1

    Dim Handle1 As Int32
    Dim Handle2 As Int32
    Dim EntLink1 As Boolean
    Dim ScanCount1 As Long
    Dim EntLink2 As Boolean
    Dim ScanCount2 As Long
    Dim PLC As New EntQsPlc_Asc.PlcClient
    Public Declare Function timeGetTime Lib "winmm.dll" () As UInt32

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As ShImports System.Net
ort
        Me.CenterToScreen()
        cmbReadMry.Items.Clear()
        cmbReadMry.Items.Add("X")
        cmbReadMry.Items.Add("Y")
        cmbReadMry.Items.Add("M")
        cmbReadMry.Items.Add("D")
        '
        cmbReadMry2.Items.Clear()
        cmbReadMry2.Items.Add("X")
        cmbReadMry2.Items.Add("Y")
        cmbReadMry2.Items.Add("M")
        cmbReadMry2.Items.Add("D")
        '
        cmbWriteMry.Items.Clear()
        cmbWriteMry.Items.Add("X")
        cmbWriteMry.Items.Add("Y")
        cmbWriteMry.Items.Add("M")
        cmbWriteMry.Items.Add("D")
        '
        cmbWriteMry2.Items.Clear()
        cmbWriteMry2.Items.Add("X")
        cmbWriteMry2.Items.Add("Y")
        cmbWriteMry2.Items.Add("M")
        cmbWriteMry2.Items.Add("D")
        '
        cmbBitMry.Items.Clear()
        cmbBitMry.Items.Add("X")
        cmbBitMry.Items.Add("Y")
        cmbBitMry.Items.Add("M")
        cmbBitMry.Items.Add("D")
        '
        cmbBitMry2.Items.Clear()
        cmbBitMry2.Items.Add("X")
        cmbBitMry2.Items.Add("Y")
        cmbBitMry2.Items.Add("M")
        cmbBitMry2.Items.Add("D")
        '
        cmbReadType.Items.Clear()
        cmbReadType.Items.Add("INT16")
        cmbReadType.Items.Add("UINT16")
        cmbReadType.Items.Add("DINT32")
        cmbReadType.Items.Add("HEX32")
        cmbReadType.Items.Add("REAL32")
        cmbReadType.Items.Add("BIN16")
        '
        cmbReadType2.Items.Clear()
        cmbReadType2.Items.Add("INT16")
        cmbReadType2.Items.Add("UINT16")
        cmbReadType2.Items.Add("DINT32")
        cmbReadType2.Items.Add("HEX32")
        cmbReadType2.Items.Add("REAL32")
        cmbReadType2.Items.Add("BIN16")

        '
        cmbWriteType.Items.Clear()
        cmbWriteType.Items.Add("INT16")
        cmbWriteType.Items.Add("UINT16")
        cmbWriteType.Items.Add("DINT32")
        cmbWriteType.Items.Add("HEX32")
        cmbWriteType.Items.Add("REAL32")
        cmbWriteType.Items.Add("BIN16")

        '
        cmbWriteType2.Items.Clear()
        cmbWriteType2.Items.Add("INT16")
        cmbWriteType2.Items.Add("UINT16")
        cmbWriteType2.Items.Add("DINT32")
        cmbWriteType2.Items.Add("HEX32")
        cmbWriteType2.Items.Add("REAL32")
        cmbWriteType2.Items.Add("BIN16")


        For i = 0 To 15 Step 1
            cmbBit.Items.Add("Bit" & i)
            cmbBit2.Items.Add("Bit" & i)
        Next i
        cmbReadMry.SelectedIndex = 2
        cmbWriteMry.SelectedIndex = 2
        cmbBitMry.SelectedIndex = 1
        cmbBit.SelectedIndex = 0
        cmbReadType.SelectedIndex = 0
        cmbWriteType.SelectedIndex = 0
        lstRead.Items.Clear()
        txtWrite.Text = ""
        '
        cmbReadMry2.SelectedIndex = 2
        cmbWriteMry2.SelectedIndex = 2
        cmbBitMry2.SelectedIndex = 1
        cmbBit2.SelectedIndex = 0
        cmbReadType2.SelectedIndex = 0
        cmbWriteType2.SelectedIndex = 0
        lstRead2.Items.Clear()
        txtWrite2.Text = ""
    End Sub


    Private Sub butLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butLink.Click
        Dim re As Short
        Dim restr As String = ""
        re = PLC.EntLink(Trim(txtLocalIP.Text), Val(txtLocalPort.Text), Trim(txtRemoteIP.Text), Val(txtRemotePort.Text), "DEMO", Handle1)
        txtReLink.Text = re.ToString
        If re = 0 Then
            EntLink1 = True
            MsgBox("PLC联接成功! ")
        Else
            EntLink1 = False
            MsgBox("PLC联接失败: " & restr)
        End If
    End Sub


    Private Sub butLink2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butLink2.Click
        Dim re As Short
        Dim restr As String = ""
        re = PLC.EntLink(Trim(txtLocalIP2.Text), Val(txtLocalPort2.Text), Trim(txtRemoteIP2.Text), Val(txtRemotePort2.Text), "DEMO", Handle2)
        txtReLink2.Text = re.ToString
        If re = 0 Then
            EntLink2 = True
            MsgBox("PLC联接成功! ")
        Else
            EntLink2 = False
            MsgBox("PLC联接失败: " & restr)
        End If
    End Sub


    Private Sub butClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butClose.Click
        Dim re As Short
        If Not EntLink1 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        re = PLC.DeLink(Handle1)
        txtReClose.Text = re.ToString
    End Sub
    Private Sub butClose2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butClose2.Click
        Dim re As Short
        If Not EntLink2 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        re = PLC.DeLink(Handle2)
        txtReClose2.Text = re.ToString
    End Sub


    Private Sub butRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butRead.Click
        Dim re As Short
        Dim i As Short
        Dim RD() As Object
        ReDim RD(Val(txtReadCnt.Text - 1))
        If Not EntLink1 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        re = PLC.CmdRead(Handle1, cmbReadMry.SelectedIndex 1, cmbReadType.SelectedIndex 1, Val(txtReadAdd.Text), Val(txtReadCnt.Text), RD)
        txtReRead.Text = re.ToString
        lstRead.Items.Clear()
        For i = 0 To UBound(RD) Step 1
            If Not IsNothing(RD(i)) Then lstRead.Items.Add(RD(i))
        Next i
        If re <> 0 Then
            Timer1.Enabled = False
            butScan.Text = "Cycle R/W"
        End If
    End Sub

    Private Sub butRead2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butRead2.Click
        Dim re As Short
        Dim i As Short
        Dim RD() As Object
        ReDim RD(Val(txtReadCnt2.Text - 1))
        If Not EntLink2 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        re = PLC.CmdRead(Handle2, cmbReadMry2.SelectedIndex 1, cmbReadType2.SelectedIndex 1, Val(txtReadAdd2.Text), Val(txtReadCnt2.Text), RD)
        txtReRead2.Text = re.ToString
        lstRead2.Items.Clear()
        For i = 0 To UBound(RD) Step 1
            If Not IsNothing(RD(i)) Then lstRead2.Items.Add(RD(i))
        Next i
        If re <> 0 Then
            Timer2.Enabled = False
            butScan2.Text = "Cycle R/W"
        End If
    End Sub

    Private Sub butWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butWrite.Click
        Dim re As Short
        Dim i As Short
        Dim temp() As String
        Dim WD() As Object
        If Not EntLink1 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        ReDim WD(Val(txtWriteCnt.Text) - 1)
        temp = Split(txtWrite.Text, vbCrLf)
        For i = 0 To UBound(WD) Step 1
            If i > UBound(temp) Then
                WD(i) = 0
            Else
                WD(i) = Trim(temp(i))
            End If
        Next i
        re = PLC.CmdWrite(Handle1, cmbWriteMry.SelectedIndex 1, cmbWriteType.SelectedIndex 1, Val(txtWriteAdd.Text), Val(txtWriteCnt.Text), WD)
        txtReWrite.Text = re.ToString
        If re <> 0 Then
            Timer1.Enabled = False
            butScan.Text = "Cycle R/W"
        End If
    End Sub
    Private Sub butWrite2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butWrite2.Click
        Dim re As Short
        Dim i As Short
        Dim temp() As String
        Dim WD() As Object
        If Not EntLink2 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        ReDim WD(Val(txtWriteCnt2.Text) - 1)
        temp = Split(txtWrite2.Text, vbCrLf)
        For i = 0 To UBound(WD) Step 1
            If i > UBound(temp) Then
                WD(i) = 0
            Else
                WD(i) = Trim(temp(i))
            End If
        Next i
        re = PLC.CmdWrite(Handle2, cmbWriteMry2.SelectedIndex 1, cmbWriteType2.SelectedIndex 1, Val(txtWriteAdd2.Text), Val(txtWriteCnt2.Text), WD)
        txtReWrite2.Text = re.ToString
        If re <> 0 Then
            Timer2.Enabled = False
            butScan2.Text = "Cycle R/W"
        End If
    End Sub


    Private Sub butScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butScan.Click
        If Not EntLink1 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Timer1.Enabled = Not Timer1.Enabled
        If Timer1.Enabled Then
            ScanCount1 = 0
            butScan.Text = "Stop R/W"
        Else
            butScan.Text = "Cycle R/W"
        End If
    End Sub
    Private Sub butScan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butScan2.Click
        If Not EntLink2 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Timer2.Enabled = Not Timer2.Enabled
        If Timer2.Enabled Then
            ScanCount2 = 0
            butScan2.Text = "Stop R/W"
        Else
            butScan2.Text = "Cycle R/W"
        End If
    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = False
        Dim tim As Integer = timeGetTime
        If Not EntLink1 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Call butRead_Click(Nothing, Nothing)
        Call butWrite_Click(Nothing, Nothing)
       If (Val(txtReRead.Text) < 0) Or (Val(txtReWrite.Text) < 0) Then
            Timer1.Enabled = False
            butScan.Text = "DLL SCAN"
        Else
            ScanCount1 = 1
            txtScanCnt.Text = ScanCount1
            txtScanPrd.Text = (timeGetTime - tim) & "ms"
        End If
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Timer2.Enabled = False
        Dim tim As Integer = timeGetTime
        If Not EntLink2 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Call butRead2_Click(Nothing, Nothing)
        Call butWrite2_Click(Nothing, Nothing)
        If (Val(txtReRead.Text) < 0) Or (Val(txtReWrite.Text) < 0) Then
            Timer1.Enabled = False
            butScan.Text = "DLL SCAN"
        Else
            ScanCount2 = 1
            txtScanCnt.Text = ScanCount2
            txtScanPrd.Text = (timeGetTime - tim) & "ms"
        End If
    End Sub


    Private Sub butBitTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBitTest.Click
        If Not EntLink1 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Dim rd As Boolean
        Dim re As Short
        re = PLC.Bit_Test(Handle1, cmbBitMry.SelectedIndex 1, Val(txtBitAdd.Text), cmbBit.SelectedIndex, rd)
        txtBitTest.Text = rd
        txtReBit.Text = re
    End Sub
    Private Sub butBitTest2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBitTest2.Click
        If Not EntLink2 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Dim rd As Boolean
        Dim re As Short
        re = PLC.Bit_Test(Handle2, cmbBitMry2.SelectedIndex 1, Val(txtBitAdd2.Text), cmbBit2.SelectedIndex, rd)
        txtBitTest2.Text = rd
        txtReBit2.Text = re
    End Sub



    Private Sub butBitSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBitSet.Click
        If Not EntLink1 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Dim re As Short
        re = PLC.Bit_Set(Handle1, cmbBitMry.SelectedIndex 1, Val(txtBitAdd.Text), cmbBit.SelectedIndex)
        txtReBit.Text = re
    End Sub
    Private Sub butBitSet2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBitSet2.Click
        If Not EntLink2 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Dim re As Short
        re = PLC.Bit_Set(Handle2, cmbBitMry2.SelectedIndex 1, Val(txtBitAdd2.Text), cmbBit2.SelectedIndex)
        txtReBit2.Text = re
    End Sub


    Private Sub butBitRst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBitRst.Click
        If Not EntLink1 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Dim re As Short
        re = PLC.Bit_Reset(Handle1, cmbBitMry.SelectedIndex 1, Val(txtBitAdd.Text), cmbBit.SelectedIndex)
        txtReBit.Text = re
    End Sub
    Private Sub butBitRst2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBitRst2.Click
        If Not EntLink2 Then
            MsgBox("还未与PLC建立联接!")
            Exit Sub
        End If
        Dim re As Short
        re = PLC.Bit_Reset(Handle2, cmbBitMry2.SelectedIndex 1, Val(txtBitAdd2.Text), cmbBit2.SelectedIndex)
        txtReBit2.Text = re
    End Sub







End Class


实例下载地址

VB与三菱PLC通讯数据传输

不能下载?内容有错? 点击这里报错 + 投诉 + 提问

好例子网口号:伸出你的我的手 — 分享

网友评论

发表评论

(您的评论需要经过审核才能显示)

查看所有0条评论>>

小贴士

感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。

  • 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
  • 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
  • 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
  • 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明

;
报警