使用程式語言取得三菱 PLC 點位資料 - 範例程式 @ 簡單過生活

上星期寫了一篇利用程式語言取得三菱 PLC 點位資料的介紹，因為太忙還沒給出程式範例 (其實是

太懶)，這次使用 VB.NET 來寫個範例程式，並使用三菱 GX Developer 與 PLC 模擬器一起來完成這

個範例。

範例：抓取 PLC 時間資料

PLC 範例程式：

SETP 1 . MX Component 為三菱所提供元件，需要安裝 SW3D5C-ACT-E

SETP 2. 來寫個簡單的 PLC 程式，並且透過模擬器提供 VB.NET PLC 時間資料

PLC 程式：

參考手冊內容：依手冊說明我們將一開始的點位設為 D0 (一開始點位可以自由設定)，而 DATERD 指

令會佔用了 7 個 D 點位，占用內容如下。

寫好了 PLC 程式，來繼續寫 VB.NET 程式吧。

VB.NET 範例： (使用 Visual Studio 2010)

SETP 1 . 先在 Visual Studio 2010 建立一個新的 Windows Form 程式

SETP 2.在 Visual Studio 目錄中點選【工具】 –> 【選擇工具箱項目】，點選 COM 元件選擇

今天要使用的 ActLlt.dll

SETP 3. 在工具箱中將 ActLlt 元件與 Timer 元件拉進 Windows Form ，Windows Form 元件如下

SETP 4. 設定 Timer Tick 事件

VB.NET 程式碼：

Public Class Form1

    Private CPU_Q02CPU = &H22

    Private PORT_1 = &H1

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

        AxActLLT1.ActCpuType = CPU_Q02CPU

        AxActLLT1.Open()

        Timer1.Enabled = True

        Me.btnStart.Enabled = False

        Me.btnClose.Enabled = True

    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click        

        Timer1.Enabled = False

        AxActLLT1.Close()

        Me.btnStart.Enabled = True

        Me.btnClose.Enabled = False

    End Sub

    '取得 PLC 點位資料

    Private Sub GetDeviceValue(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim val As Long

        Dim str As String = ""

        AxActLLT1.GetDevice("D0", val)

        str += CStr(val) + " / "

        AxActLLT1.GetDevice("D1", val)

        str += CStr(val) + " / "

        AxActLLT1.GetDevice("D2", val)

        str += CStr(val) + " "

        AxActLLT1.GetDevice("D3", val)

        str += val.ToString("00") + " : "

        AxActLLT1.GetDevice("D4", val)

        str += val.ToString("00") + " : "

        AxActLLT1.GetDevice("D5", val)

        str += val.ToString("00") + " "

        Me.TextBox1.Text = str

    End Sub

End Class