成人动漫在线观看 I 免费看大片a I 亚洲另类av I 久久精品视频一区 I 秋霞中文字幕 I 不卡视频一区二区 I 性色在线 I 爽妇综合网 I 黄色的一级片 I 美女靠逼app I 色播欧美 I 久色悠悠 I 日本久久黄色 I 非洲黑寡妇性猛交视频 I 亚洲乱码国产乱码精品精大量 I 看特级黄色片 I 一二三区在线播放 I 久久激情婷婷 I 欧美日韩国产成人精品 I 国产三级国产精品国产专区50 I 911视频完整版在线观看 I 色婷婷aⅴ一区二区三区 I 美女视频福利网站 I 操久久久久久 I 揉着我的奶从后面进去视频 I 各种少妇bbw撒尿484613 I 自拍偷拍 网站 I 亚洲人 屁股 鞭打网站

MX Component 使用控件通訊 就可以直接PLC內部地址的名字，不要在整個標簽。
標簽能了很久 還是不行。


****
控件有很多






感覺三菱每個可以通訊的硬件 都有一個對應的  控制可以使用

    

嗯

驗證通過AxActUtlTypeLib.AxActUtlType訪問Q04UDV的CPU，硬件接口為以太網
***
新建一個VB.net  ，窗口程序，在工具欄里面添加 控件
如下圖：

添加OPEN 和CLOSE函數

#Region "打開鏈接"
    Private Sub btn_Open_Click(sender As Object, e As EventArgs) Handles btn_Open.Click
        Dim iReturnCode As Integer              'Return code
        Dim iLogicalStationNumber As Integer    'LogicalStationNumber for ActUtlType

        ClearDisplay()

        Try
            If GetIntValue(txt_LogicalStationNumber, iLogicalStationNumber) = False Then
                'If failed, this process is end.
                Exit Sub
            End If
            AxActUtlType1.ActLogicalStationNumber = iLogicalStationNumber

            iReturnCode = AxActUtlType1.Open()

            If iReturnCode = 0 Then
                'When the Open method is succeeded, disable the TextBox of 'LogocalStationNumber'.
                txt_LogicalStationNumber.Enabled = False
            End If
        Catch exception As Exception
            MessageBox.Show(exception.Message, Name, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub

        End Try
        txt_ReturnCode.Text = String.Format("0x{0:x8} [HEX]", iReturnCode)
    End Sub
#End Region

**************
#Region "關閉鏈接"
    Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click
        Dim iReturnCode As Integer     'Return code
        ClearDisplay()


        Try
            iReturnCode = AxActUtlType1.Close()
            If iReturnCode = 0 Then
                txt_LogicalStationNumber.Enabled = True
            End If

        Catch exception As Exception
            MessageBox.Show(exception.Message, Name, MessageBoxButtons.OK, MessageBoxIcon.Error)


        End Try
        txt_ReturnCode.Text = String.Format("0x{0:x8} [HEX]", iReturnCode)
    End Sub
#End Region

****
測試可以通過

隨機讀取

#Region "隨機寫入 PLC里面的地址"
    Private Sub btn_ReadDeviceRandom2_Click(sender As Object, e As EventArgs) Handles btn_ReadDeviceRandom2.Click
        Dim iReturnCode As Integer              'Return code
        Dim szDeviceName As String = ""         'List data for 'DeviceName'
        Dim iNumberOfDeviceName As Integer = 0  'Data for 'DeviceSize'
        Dim sharrDeviceValue() As Short         'Data for 'DeviceValue'
        Dim szarrData() As String               'Array for 'Data'
        Dim iNumber As Integer                  'Loop counter

        'Displayed output data is cleared.
        ClearDisplay()

        'Get the list of 'DeviceName'.
        '  Join each line(StringType array) of 'DeviceName' by the separator '\n',
        '  and create a joined string data.
        szDeviceName = String.Join(vbLf, txt_DeviceNameRandom.Lines)

        If GetIntValue(txt_DeviceSizeRandom, iNumberOfDeviceName) = False Then
            'If failed, this process is end.
            Exit Sub
        End If

        ReDim sharrDeviceValue(iNumberOfDeviceName - 1)

        Try
            iReturnCode = AxActUtlType1.ReadDeviceRandom2(szDeviceName,  iNumberOfDeviceName, sharrDeviceValue(0))
        Catch exException As Exception
            MessageBox.Show(exException.Message, Name, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
        txt_ReturnCode.Text = String.Format("0x{0:x8} [HEX]", iReturnCode)

        If iReturnCode = 0 Then

            'Assign the array for the read data.
            ReDim szarrData(iNumberOfDeviceName - 1)

            'Copy the read data to the 'lpszarrData'.
            For iNumber = 0 To iNumberOfDeviceName - 1
                szarrData(iNumber) = sharrDeviceValue(iNumber).ToString()
            Next iNumber

            'Set the read data to the 'Data', and display it.
            txt_Data.Lines = szarrData
        End If

    End Sub

#End Region


  

測試隨機寫入
#Region "隨機寫入 PLC里面的地址"
    Private Sub btn_WriteDeviceRandom2_Click(sender As Object, e As EventArgs) Handles btn_WriteDeviceRandom2.Click

        Dim iReturnCode As Integer              'Return code
        Dim szDeviceName As String = ""         'List data for 'DeviceName'
        Dim iNumberOfDeviceName As Integer = 0  'Data for 'DeviceSize'
        Dim sharrDeviceValue() As Short         'Data for 'DeviceValue'

        'Displayed output data is cleared.
        ClearDisplay()

        'Get the list of 'DeviceName'.
        'Join each line(StringType array) of 'DeviceName' by the separator '\n',
        'and create a joined string data.
        szDeviceName = String.Join(vbLf, txt_DeviceNameRandom.Lines)

        'Check the 'DeviceSize'.(If succeeded, the value is gotten.)
        If GetIntValue(txt_DeviceSizeRandom, iNumberOfDeviceName) = False Then
            'If failed, this process is end.
            Exit Sub
        End If

        'Check the 'DeviceValue'.(If succeeded, the value is gotten.)
        ReDim sharrDeviceValue(iNumberOfDeviceName - 1)
        If GetShortArray(txt_DeviceDataRandom, sharrDeviceValue) = False Then
            'If failed, this process is end.
            Exit Sub
        End If

        Try
            iReturnCode = AxActUtlType1.WriteDeviceRandom2(szDeviceName, iNumberOfDeviceName, sharrDeviceValue(0))
        Catch exception As Exception

            MessageBox.Show(exception.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub

        End Try
        txt_ReturnCode.Text = String.Format("0x{0:x8} [HEX]", iReturnCode)


    End Sub
#End Region

測試成塊的數據讀取
#Region "測試成塊的數據讀取"
    Private Sub btn_ReadDeviceBlock2_Click(sender As Object, e As EventArgs) Handles btn_ReadDeviceBlock2.Click

      Dim iReturnCode As Integer              'Return code
        Dim szDeviceName As String = ""         'List data for 'DeviceName'
        Dim iNumberOfDeviceName As Integer = 0  'Data for 'DeviceSize'
        Dim sharrDeviceValue() As Short         'Data for 'DeviceValue'
        Dim szarrData() As String               'Array for 'Data'
        Dim iNumber As Integer                  'Loop counter


        'Displayed output data is cleared.
        ClearDisplay()

        'Get the list of 'DeviceName'.
        '  Join each line(StringType array) of 'DeviceName' by the separator '\n',
        '  and create a joined string data.
        szDeviceName = String.Join(vbLf, txt_DeviceNameBlock.Lines)

        'Check the 'DeviceSize'.(If succeeded, the value is gotten.)
        If GetIntValue(txt_DeviceSizeBlock, iNumberOfDeviceName) = False Then
            'If failed, this process is end.
            Exit Sub
        End If

        'Assign the array for 'DeviceValue'.
        ReDim sharrDeviceValue(iNumberOfDeviceName - 1)

        Try
            iReturnCode = AxActUtlType1.ReadDeviceBlock2(szDeviceName, iNumberOfDeviceName, sharrDeviceValue(0))
        Catch exException As Exception
            MessageBox.Show(exException.Message, Name, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try


        txt_ReturnCode.Text = String.Format("0x{0:x8} [HEX]", iReturnCode)
        If iReturnCode = 0 Then

            'Assign array for the read data.
            ReDim szarrData(iNumberOfDeviceName - 1)

            'Copy the read data to the 'lpszarrData'.
            For iNumber = 0 To iNumberOfDeviceName - 1
                szarrData(iNumber) = sharrDeviceValue(iNumber).ToString()
            Next iNumber

            'Set the read data to the 'Data', and display it.
            txt_Data.Lines = szarrData
        End If


    End Sub
#End Region

神級操作，先收藏了！！

現在都在搞上位機了

想看C#的

想看Labview的