基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

能适应目前欧姆龙 modbus tcp ip 系列plc

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendReadDataMemoryRequest_Button.Click

        Dim DMValue As UInt64

        OmronCommMain.ReadDataMemory(DataMemoryAddress2Read_Textbox.Text, NumberOfDataMemory2Read_Textbox.Text, DMValue, ReadDMCommandString_TextBox.Text, ReadDMResponseString_TextBox.Text)

        ReadDMValue_TextBox.Text = DMValue.ToString



    End Sub

    Private Sub SendWriteDataMemoryRequest_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendWriteDataMemoryRequest_Button.Click


        OmronCommMain.WriteDataMemory(DataMemoryAddress2Write_TextBox.Text, NumberOfDataMemory2Write_TextBox.Text, Number2Write_TextBox.Text, WriteDMCommandString_TextBox.Text, WriteDMResponseString_TextBox.Text)


    End Sub

    Private Sub SendReadRelayRequest_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendReadRelayRequest_Button.Click

        Dim RelayState As Boolean


        OmronCommMain.ReadRelayState(ReadRelayMemoryArea_ComboBox.SelectedItem, ReadRelayWordAddress_TextBox.Text, ReadRelayBitAddress_TextBox.Text, RelayState, ReadRelayCommandString_TextBox.Text, ReadRelayResponseString_TextBox.Text)

        If (RelayState = True) Then
            ReadRelayState_TextBox.Text = "Set"
        Else
            ReadRelayState_TextBox.Text = "Reset"
        End If

    End Sub

    Private Sub SetRelay_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetRelay_Button.Click


        OmronCommMain.SetOrResetRelayState(SetOrResetRelayMemoryArea_ComboBox.SelectedItem, SetOrResetRelayWordAddress_TextBox.Text, SetOrResetRelayBitAddress_TextBox.Text, True, SetOrResetRelayCommandString_TextBox.Text, SetOrResetRelayResponseString_TextBox.Text)


    End Sub

    Private Sub ResetRelay_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetRelay_Button.Click


        OmronCommMain.SetOrResetRelayState(SetOrResetRelayMemoryArea_ComboBox.SelectedItem, SetOrResetRelayWordAddress_TextBox.Text, SetOrResetRelayBitAddress_TextBox.Text, False, SetOrResetRelayCommandString_TextBox.Text, SetOrResetRelayResponseString_TextBox.Text)



    End Sub
End Class