上星期寫了一篇利用程式語言取得三菱 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
程式執行:
SETP 1.利用 PLC 模擬器模擬剛才完成的 PLC 程式
SETP 2. 開啟寫好的 VB.NET 程式,點選 Start 按鈕即可取得 PLC 內部時間資料
文章標籤
全站熱搜
