欧姆龙plc通讯

【实例简介】能适应目前欧姆龙 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