91黄动漫 I 欧美 日韩 国产 成人 在线 I a级成人毛片 I 农村黄色片 I 男生捅女生的肌肌 I 精品99一区二区三区 I 妃光莉av I 日日夜夜操操 I 性中国古装videossex I 久久不卡av I 美女高潮动态图 I 极品美女开粉嫩精品 I 牛牛精品一区二区 I 91精品福利视频 I 成人刺激视频 I 91国内精品视频 I 中国一级特黄毛片大片 I 校长狠狠挺进校花体内小说 I 欧美激情黄色片 I 欧美久久久一区 I 爱豆国产剧免费观看大全剧苏畅 I 麻豆国产人妻欲求不满谁演的 I 亚洲一区二区在线免费观看视频 I 国产超碰av人人做人人爽 I 精品国产第一国产综合精品 I 久久免费看av I 欧美一区二区三区白人 I 国产精品夫妻激情 I 校花被肉干高h潮不断 I 欧美最猛黑人xxxx黑人表情 I 国产欧美日韩一区二区搜索 I 极品女神露脸呻吟啪啪 I 人人天天久久 I 亚洲动漫在线 I 日本91福利区 I 五月天 桃色 开心 I av在线免费观看国产 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的