日本特级淫片免费看-日本特级黄色-日本特级黄录像片-日本视频中文字幕-成年偏黄网站站免费-成年人福利

wenluderen
人人為我我為人人
級別: 略有小成
精華主題: 0
發帖數量: 186 個
工控威望: 322 點
下載積分: 6183 分
在線時間: 43(小時)
注冊時間: 2010-09-23
最后登錄: 2024-02-19
查看wenluderen的 主題 / 回貼
樓主  發表于: 2018-07-23 14:32
MX Component 使用控件通訊 就可以直接PLC內部地址的名字,不要在整個標簽。
標簽能了很久 還是不行。


****
控件有很多






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

    
本帖最近評分記錄:
  • 下載積分:+5(木木2012) 感謝分享!
    wenluderen
    人人為我我為人人
    級別: 略有小成
    精華主題: 0
    發帖數量: 186 個
    工控威望: 322 點
    下載積分: 6183 分
    在線時間: 43(小時)
    注冊時間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    1樓  發表于: 2018-07-23 14:46
    驗證通過AxActUtlTypeLib.AxActUtlType訪問Q04UDV的CPU,硬件接口為以太網
    ***
    新建一個VB.net  ,窗口程序,在工具欄里面添加 控件
    如下圖:

    wenluderen
    人人為我我為人人
    級別: 略有小成
    精華主題: 0
    發帖數量: 186 個
    工控威望: 322 點
    下載積分: 6183 分
    在線時間: 43(小時)
    注冊時間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    2樓  發表于: 2018-07-23 15:00
    添加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

    ****
    測試可以通過

    wenluderen
    人人為我我為人人
    級別: 略有小成
    精華主題: 0
    發帖數量: 186 個
    工控威望: 322 點
    下載積分: 6183 分
    在線時間: 43(小時)
    注冊時間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    3樓  發表于: 2018-07-23 15:05
    隨機讀取

    #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


      
    wenluderen
    人人為我我為人人
    級別: 略有小成
    精華主題: 0
    發帖數量: 186 個
    工控威望: 322 點
    下載積分: 6183 分
    在線時間: 43(小時)
    注冊時間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    4樓  發表于: 2018-07-23 15:09
    測試隨機寫入
    #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

    wenluderen
    人人為我我為人人
    級別: 略有小成
    精華主題: 0
    發帖數量: 186 個
    工控威望: 322 點
    下載積分: 6183 分
    在線時間: 43(小時)
    注冊時間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    5樓  發表于: 2018-07-23 15:24
    測試成塊的數據讀取
    #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



    主站蜘蛛池模板: 亚洲精品影院 | 国99久9在线 | 免费 | 中文字幕一二三四 | 欧美性猛交性大交 | 麻豆狠色伊人亚洲综合网站 | 成年人黄色一级片 | 欧美xxxx三人交性视频 | 一个综合色最更新快 | 毛片资源 | 在线免费观看视频网站 | 欧美在线免费看 | 综合毛片| 艾秋麻豆剧果冻传媒2021一二三区 | 中国精品视频一区二区三区 | 久久免费网 | 免费亚洲成人 | 久久99久久精品国产99热 | 亚洲特一级毛片 | 亚洲视频久久 | 亚洲精品在线免费观看视频 | 久久久不卡国产精品一区二区 | 67194欧美成l人在线观看免费 | 99热在线精品免费播放6 | 久久精品国产亚洲a | 综合图区亚洲白拍在线 | 全黄a免费一级毛片人人爱 全部孕妇毛片丰满孕妇孕交99 | 久久精品桃花综合 | 在线视频天堂 | 亚洲天堂影院在线观看 | 综合在线亚洲 | 日本一区二区视频 | 久久99爰这里有精品国产 | 美国一级视频 | 四虎永久免费地址 | 亚洲www.| 黄色免费网站在线 | 在线观看免费a∨网站 | 探花视频免费观看高清 | 四虎永久视频 | 色婷婷一区二区三区四区成人网 | 一二三区免费视频 |