C#通过三菱MX控件读取FX系列PLC数据案例

【核心代码】

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '窗口加载时执行
        USB_SW = AxActFXCPUUSB1.Open() '打开USB连接端口
        If USB_SW = 0 Then             '打开命令返回值=0则为打开成功，返回其他则异常代码
            TextBox1.Text = "PLC连接成功"
            Button1.BackColor = Color.FromArgb(0, 255, 0) '将按钮背景色切换为RGB绿色
        Else
            TextBox1.Text = "PLC连接失败"
            Button1.BackColor = Control.DefaultBackColor  '将按钮背景色切换回默认值
        End If

        Timer1.Interval = 50   '时钟控件1循环时间设定50ms，实现定时扫描时钟函数
        Timer1.Enabled = True  '时钟控件1启动        

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '手动打开/关闭USB连接端口
        If USB_SW <> 0 Then                '操作前进行USB当前状态判断
            USB_SW = AxActFXCPUUSB1.Open() '打开USB连接端口
        Else
            AxActFXCPUUSB1.Close()     '关闭USB连接端口
            USB_SW = 1                 '关闭后将断开状态标志赋值1
        End If
        If USB_SW = 0 Then             '打开命令返回值=0则为打开成功，返回其他则异常代码
            TextBox1.Text = "PLC连接成功"
            Button1.BackColor = Color.FromArgb(0, 255, 0) '将按钮背景色切换为RGB绿色
        Else
            TextBox1.Text = "PLC连接断开"
            Button1.BackColor = Control.DefaultBackColor  '将按钮背景色切换回默认值
        End If
        Threading.Thread.Sleep(100) '引用系统延时类ms.---此处禁止频繁开关USB作用
    End Sub

    Private Sub ReadBlock2_Click(sender As Object, e As EventArgs) Handles ReadBlock2.Click '读取PLC数据
        Dim i As Integer
        Dim 读出数据存放目标() As String
        Dim 读取地址 As String = ""
        读取地址 = String.Join(vbLf, txt_RW_DataName.Lines) '将txtRW_DataName内容转换成字符格式存到"读取地址"
        If GetIntValue(txt_RWSize, RWSize) = False Then     '判断txt_RWSize是否合法,值返回到RWSize          
            Exit Sub                                        '如果失败，这个过程就结束了。
        End If
        ReDim Data0(RWSize - 1)       '为Data0分配数组量,注意:()内值为最后维数名的值,所以=总维数量-1
        AxActFXCPUUSB1.ReadDeviceBlock2(读取地址, RWSize, Data0(0))  '《ReadDeviceBlock2批量有序读出》
        ReDim 读出数据存放目标(RWSize - 1) '为"读出数据存放目标"分配数组量,注意:()内值为最后维数名的值,所以=总维数量-1
        For i = 0 To RWSize - 1
            读出数据存放目标(i) = Data0(i).ToString()
        Next i
        txt_RData.Lines = 读出数据存放目标 '将读取数据设置为'数据'，然后显示它。
    End Sub