伊人激情av一区二区三区,亚洲国产精品一区二区制服,国产高潮流白浆喷水免费,老外插女人视频

  • «
  • 1
  • 2
  • »
  • Pages: 1/2     Go
wenluderen
人人為我我為人人
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 186 個(gè)
工控威望: 322 點(diǎn)
下載積分: 6183 分
在線時(shí)間: 43(小時(shí))
注冊(cè)時(shí)間: 2010-09-23
最后登錄: 2024-02-19
查看wenluderen的 主題 / 回貼
樓主  發(fā)表于: 2018-07-23 14:32
MX Component 使用控件通訊 就可以直接PLC內(nèi)部地址的名字,不要在整個(gè)標(biāo)簽。
標(biāo)簽?zāi)芰撕芫?還是不行。


****
控件有很多






感覺(jué)三菱每個(gè)可以通訊的硬件 都有一個(gè)對(duì)應(yīng)的  控制可以使用

    
本帖最近評(píng)分記錄:
  • 下載積分:+5(木木2012) 感謝分享!
    不小心遇見(jiàn)你
    自動(dòng)項(xiàng)目、PLC、視覺(jué)、通訊等工控軟件開(kāi)發(fā)QQ3515716
    級(jí)別: 工控俠客

    精華主題: 3 篇
    發(fā)帖數(shù)量: 2112 個(gè)
    工控威望: 3035 點(diǎn)
    下載積分: 25387 分
    在線時(shí)間: 1514(小時(shí))
    注冊(cè)時(shí)間: 2014-01-05
    最后登錄: 2025-07-07
    查看不小心遇見(jiàn)你的 主題 / 回貼
    1樓  發(fā)表于: 2018-07-23 14:40
    項(xiàng)目、視覺(jué)、通訊QQ3515716
    wenluderen
    人人為我我為人人
    級(jí)別: 略有小成
    精華主題: 0
    發(fā)帖數(shù)量: 186 個(gè)
    工控威望: 322 點(diǎn)
    下載積分: 6183 分
    在線時(shí)間: 43(小時(shí))
    注冊(cè)時(shí)間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    2樓  發(fā)表于: 2018-07-23 14:46
    驗(yàn)證通過(guò)AxActUtlTypeLib.AxActUtlType訪問(wèn)Q04UDV的CPU,硬件接口為以太網(wǎng)
    ***
    新建一個(gè)VB.net  ,窗口程序,在工具欄里面添加 控件
    如下圖:

    wenluderen
    人人為我我為人人
    級(jí)別: 略有小成
    精華主題: 0
    發(fā)帖數(shù)量: 186 個(gè)
    工控威望: 322 點(diǎn)
    下載積分: 6183 分
    在線時(shí)間: 43(小時(shí))
    注冊(cè)時(shí)間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    3樓  發(fā)表于: 2018-07-23 15:00
    添加OPEN 和CLOSE函數(shù)

    #Region "打開(kāi)鏈接"
        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 "關(guān)閉鏈接"
        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

    ****
    測(cè)試可以通過(guò)

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

    #Region "隨機(jī)寫(xiě)入 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
    人人為我我為人人
    級(jí)別: 略有小成
    精華主題: 0
    發(fā)帖數(shù)量: 186 個(gè)
    工控威望: 322 點(diǎn)
    下載積分: 6183 分
    在線時(shí)間: 43(小時(shí))
    注冊(cè)時(shí)間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    5樓  發(fā)表于: 2018-07-23 15:09
    測(cè)試隨機(jī)寫(xiě)入
    #Region "隨機(jī)寫(xiě)入 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
    人人為我我為人人
    級(jí)別: 略有小成
    精華主題: 0
    發(fā)帖數(shù)量: 186 個(gè)
    工控威望: 322 點(diǎn)
    下載積分: 6183 分
    在線時(shí)間: 43(小時(shí))
    注冊(cè)時(shí)間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    6樓  發(fā)表于: 2018-07-23 15:24
    測(cè)試成塊的數(shù)據(jù)讀取
    #Region "測(cè)試成塊的數(shù)據(jù)讀取"
        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


    不小心遇見(jiàn)你
    自動(dòng)項(xiàng)目、PLC、視覺(jué)、通訊等工控軟件開(kāi)發(fā)QQ3515716
    級(jí)別: 工控俠客

    精華主題: 3 篇
    發(fā)帖數(shù)量: 2112 個(gè)
    工控威望: 3035 點(diǎn)
    下載積分: 25387 分
    在線時(shí)間: 1514(小時(shí))
    注冊(cè)時(shí)間: 2014-01-05
    最后登錄: 2025-07-07
    查看不小心遇見(jiàn)你的 主題 / 回貼
    7樓  發(fā)表于: 2018-07-23 18:37
    項(xiàng)目、視覺(jué)、通訊QQ3515716
    nlb2001
    級(jí)別: 略有小成
    精華主題: 0
    發(fā)帖數(shù)量: 96 個(gè)
    工控威望: 237 點(diǎn)
    下載積分: 577 分
    在線時(shí)間: 65(小時(shí))
    注冊(cè)時(shí)間: 2013-02-03
    最后登錄: 2025-06-11
    查看nlb2001的 主題 / 回貼
    8樓  發(fā)表于: 2018-08-03 11:19
    神級(jí)操作,先收藏了!!
    zq362622701
    級(jí)別: 略有小成
    精華主題: 0
    發(fā)帖數(shù)量: 48 個(gè)
    工控威望: 270 點(diǎn)
    下載積分: 2075 分
    在線時(shí)間: 53(小時(shí))
    注冊(cè)時(shí)間: 2012-12-21
    最后登錄: 2025-06-18
    查看zq362622701的 主題 / 回貼
    9樓  發(fā)表于: 2018-08-09 10:57
    現(xiàn)在都在搞上位機(jī)了
    zjh0102
    級(jí)別: 論壇先鋒
    精華主題: 0
    發(fā)帖數(shù)量: 59 個(gè)
    工控威望: 1259 點(diǎn)
    下載積分: 1783 分
    在線時(shí)間: 102(小時(shí))
    注冊(cè)時(shí)間: 2018-01-27
    最后登錄: 2022-03-09
    查看zjh0102的 主題 / 回貼
    10樓  發(fā)表于: 2019-01-22 10:18
    想看C#的
    cd_looper
    好想放飛自我
    級(jí)別: 工控俠客
    精華主題: 0
    發(fā)帖數(shù)量: 367 個(gè)
    工控威望: 2014 點(diǎn)
    下載積分: 3363 分
    在線時(shí)間: 226(小時(shí))
    注冊(cè)時(shí)間: 2013-11-16
    最后登錄: 2025-07-05
    查看cd_looper的 主題 / 回貼
    11樓  發(fā)表于: 2019-01-22 11:07
    想看Labview的  
    Easy doesn't enter into grown-up life!!!
    V:ZQL276438265
    • «
    • 1
    • 2
    • »
    • Pages: 1/2     Go

    美国禁欲小蜜蜂| 色窝窝免费一区二区三区| 欧美小女人无毛BB大战| 九九视频在线观看免费精品| 69国产交换配乱婬视频| 大鸡巴舔骚逼嗯嗯嗯视频| 国产国产乱老熟视频网站| 人妻被按摩师玩弄到潮喷| 自拍伊人第一页| 日本三级黄国产| 日本中文字幕在线papa| 国产又猛又粗又爽的视频| 大鸡吧插逼大叫免费视频| 国产精品乱码久久久久久久| 亚洲国产精品网| 曰本女人牲交全视频播放| 黑人巨物大鸡巴操白修女| 成年人一级黄色片免费不卡| 老外大鸡巴操必| 亚洲va欧美v国产综合| 国产明星门事件在线视频| 大香网伊人久久综合观看| 在线v亚洲v欧美v专区| 色悠悠国产在线视频一线| 男人鸡吧放女人阴道视频| 精品口国产乱码久久久久久| 精品视频99| 中文字幕乱码亚洲2019| 久久久久久久久久久尤物| 亚洲女人被黑人巨大进入| 黑丝骚货狠狠操-88A| 国产亚洲东北熟女高潮叫床| 五月婷婷六月在线观看视频| 98热视频这里只有精品| 骚货艹死你 好大还有要| 久久久免费一区二区三区| 精品综合久久88少妇激情| 国产精品成熟老女人视频| 粉嫩粉嫩的18在线观看| 大鸡巴插小骚逼软件下载| 中文字幕乱码中文字乱码|