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

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


****
控件有很多






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

    
本帖最近評分記錄:
  • 下載積分:+5(木木2012) 感謝分享!
    不小心遇見你
    自動項目、PLC、視覺、通訊等工控軟件開發(fā)QQ3515716
    級別: 工控俠客

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

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

    #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
    發(fā)帖數(shù)量: 186 個
    工控威望: 322 點
    下載積分: 6183 分
    在線時間: 43(小時)
    注冊時間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    4樓  發(fā)表于: 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
    發(fā)帖數(shù)量: 186 個
    工控威望: 322 點
    下載積分: 6183 分
    在線時間: 43(小時)
    注冊時間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    5樓  發(fā)表于: 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
    發(fā)帖數(shù)量: 186 個
    工控威望: 322 點
    下載積分: 6183 分
    在線時間: 43(小時)
    注冊時間: 2010-09-23
    最后登錄: 2024-02-19
    查看wenluderen的 主題 / 回貼
    6樓  發(fā)表于: 2018-07-23 15:24
    測試成塊的數(shù)據(jù)讀取
    #Region "測試成塊的數(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


    不小心遇見你
    自動項目、PLC、視覺、通訊等工控軟件開發(fā)QQ3515716
    級別: 工控俠客

    精華主題: 3 篇
    發(fā)帖數(shù)量: 2112 個
    工控威望: 3035 點
    下載積分: 25387 分
    在線時間: 1514(小時)
    注冊時間: 2014-01-05
    最后登錄: 2025-07-07
    查看不小心遇見你的 主題 / 回貼
    7樓  發(fā)表于: 2018-07-23 18:37
    項目、視覺、通訊QQ3515716
    nlb2001
    級別: 略有小成
    精華主題: 0
    發(fā)帖數(shù)量: 96 個
    工控威望: 237 點
    下載積分: 577 分
    在線時間: 65(小時)
    注冊時間: 2013-02-03
    最后登錄: 2025-06-11
    查看nlb2001的 主題 / 回貼
    8樓  發(fā)表于: 2018-08-03 11:19
    神級操作,先收藏了!
    zq362622701
    級別: 略有小成
    精華主題: 0
    發(fā)帖數(shù)量: 48 個
    工控威望: 270 點
    下載積分: 2075 分
    在線時間: 53(小時)
    注冊時間: 2012-12-21
    最后登錄: 2025-06-18
    查看zq362622701的 主題 / 回貼
    9樓  發(fā)表于: 2018-08-09 10:57
    現(xiàn)在都在搞上位機了
    zjh0102
    級別: 論壇先鋒
    精華主題: 0
    發(fā)帖數(shù)量: 59 個
    工控威望: 1259 點
    下載積分: 1783 分
    在線時間: 102(小時)
    注冊時間: 2018-01-27
    最后登錄: 2022-03-09
    查看zjh0102的 主題 / 回貼
    10樓  發(fā)表于: 2019-01-22 10:18
    想看C#的
    cd_looper
    好想放飛自我
    級別: 工控俠客
    精華主題: 0
    發(fā)帖數(shù)量: 367 個
    工控威望: 2014 點
    下載積分: 3363 分
    在線時間: 226(小時)
    注冊時間: 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

    日本亚洲中文无线码在线| 日本午夜精品一区二区三区| 日本最新一区二区三区视频| caobisesese| 国产做a爰片久久毛片a| 浪荡骚妇被爆操| 日韩欧美国产亚洲一区二区| 放荡人妻全记录1一19| 大香蕉在线视频在线视频| 久久久久久精品在免线费观| 国内精品欧洲区| 性无码一区二区三区在线| 直接看的AV片免费观看| 亚洲国产成人久久综合一区| 97资源网总站人人超碰| 国产一区国产二区在线视频| 国产一级小黄片在线播放| 插入 少妇 流水 网站| 大肉棒操逼视屏| 免费播放男人添女人下边| 国产乱子伦在线观看不卡| 91福利国产午夜亚洲精品| 91嫩草国产在线看网站| 91麻豆视频免费下载版| 68精品久久久久久欧美| 精品综合久久久久久99| 丁香五月缴综合| 卡通动漫亚洲综合第1页| 日本成人在线免费一二区| 啊啊啊好大好深| 丝袜美腿教师班主任AV| 免费看美女多种形号的逼| 怡春院日本一区二区久久| 伊久线香蕉观新在线视频| 伊人久久精品一区二区三| 国产亚洲精品久久yy50| 亚洲夫妻性生活拍拍视频| 欧美日韩一区二区a∨视频| 精品视自拍视频在线观看| 中文字幕A∨色| 《美女的逼》和男骚喷出|