當(dāng)在A900GOT上使用以太網(wǎng)通訊模塊( A9GT-J71E71-T,硬件版本E或以上)時可以實現(xiàn)網(wǎng)關(guān)服務(wù)器功能、網(wǎng)關(guān)客戶端功能、FTP服務(wù)器功能和E-Mail發(fā)送功能。由于這些功能都屬于擴展功能,所以需要安裝對應(yīng)的擴展功能OS【Gateway(Server,Client,Mail,FTP)】并加裝A9GT-(Q)FNB(*M)功能擴展板。
注意:當(dāng)與串行通訊板一同使用時,串行通訊板還是安裝在原來的位置,而當(dāng)與總線通訊板一同使用時,總線通訊板要裝在以太網(wǎng)通訊模塊的插槽上(如下圖所示)。
㈠ 有關(guān)網(wǎng)關(guān)服務(wù)器功能的應(yīng)用:
網(wǎng)關(guān)服務(wù)器功能提供了上位機(利用MX Component)通過以太網(wǎng)訪問GOT的網(wǎng)關(guān)元件(利用GT Designer(2)指定)來間接訪問PLC(可以是三菱或第三方產(chǎn)品)中元件的功能。系統(tǒng)構(gòu)成如下圖所示:
具體的實現(xiàn)步驟如下:
1.GOT的設(shè)置:
這里以GT Designer2中文版軟件為例說明在軟件中的相關(guān)設(shè)置。在工程工作區(qū)窗口中對“公共設(shè)置”中的“網(wǎng)關(guān)服務(wù)器”設(shè)置如下:
其中的EG即網(wǎng)關(guān)軟元件,這里的設(shè)置將EG0,EG1與PLC中的D10,D11進行了關(guān)聯(lián),將EG2和EG3與PLC中的M0到M15,M16到M31進行了關(guān)聯(lián)。從而上位機可以通過訪問EG來實現(xiàn)間接訪問PLC的功能。
在GOT實用菜單的“SETUP”項中對GOT的IP地址等項進行如下設(shè)置:
2.上位機監(jiān)控程序的開發(fā):
這里利用Visual Basic 6.0和MX Component來開發(fā)上位監(jiān)控程序。MX Component是支持從PC到PLC多種通訊方式的ActiveX控件庫,它可以無須知道協(xié)議的具體格式即輕松地實現(xiàn)各種形式的通訊。當(dāng)安裝了MX Component以后,就可以在Visual Basic,Visual C++等開發(fā)環(huán)境中使用對應(yīng)的通訊控件很方便地進行通訊程序的開發(fā),這里我們要使用到的是一個名為ActGOT的控件。
首先啟動Visual Basic并選擇“工程”/“部件”,在“部件”對話框中我們可以看到很多與三菱產(chǎn)品進行通訊的控件,這里我們勾選“MITSUBISHI ActGOT Controls Ver3.0”項。
然后將工具箱中名為ActGOT的控件(如上圖所示)添加到窗體中,在屬性窗口中對GOT的IP地址(ActHostAddress)以及端口號(ActPortNumber)進行如下設(shè)置:
程序代碼如下:
Private Sub Command1_Click() ’打開端口
IRet = ActGOT1.Open()
End Sub
Private Sub Command2_Click() ’關(guān)閉端口
IRet = ActGOT1.Close()
End Sub
Private Sub Command3_Click() ’讀取GOT型號
Dim szCpuName As String
Dim ICpuType As Long
IRet = ActGOT1.GetCpuType(szCpuName, ICpuType)
Text1.Text = szCpuName ’顯示GOT的產(chǎn)品型號
Text2.Text = Hex(ICpuType) ’顯示GOT的型號代碼(固定為E340H)
End Sub
Private Sub Command4_Click() ’D0數(shù)值讀取
Dim szDevice As String
Dim IData As Long
szDevice = "EG0"
IRet = ActGOT1.GetDevice(szDevice, IData)
Text3.Text = IData
End Sub
Private Sub Command5_Click() ’D0數(shù)值設(shè)定
Dim szDevice As String
Dim IData As Long
szDevice = "EG0"
If Text4.Text = "" Then
MsgBox "請輸入數(shù)值!", vbExclamation, "警告"
Else
IData = Text4.Text
IRet = ActGOT1.SetDevice(szDevice, IData)
End If
End Sub
Private Sub Command6_Click() ’M0置位
Dim szDevice As String
Dim IData As Long
szDevice = "EG2"
IData = "1"
IRet = ActGOT1.SetDevice(szDevice, IData)
End Sub
Private Sub Command7_Click() ’M0復(fù)位
Dim szDevice As String
Dim IData As Long
szDevice = "EG2"
IData = "0"
IRet = ActGOT1.SetDevice(szDevice, IData)
End Sub
Private Sub Command8_Click() ’M0狀態(tài)讀取
Dim szDevice As String
Dim IData As Long
szDevice = "EG2"
IRet = ActGOT1.GetDevice(szDevice, IData)
If IData = 1 Then
Shape1.FillColor = RGB(255, 0, 0) ’當(dāng)M0=ON時,顯示紅色
ElseIf IData = 0 Then
Shape1.FillColor = RGB(255, 255, 255) ’當(dāng)M0=OFF時,顯示白色
End If
End Sub
㈡ 有關(guān)FTP服務(wù)器功能的應(yīng)用:
FTP服務(wù)器功能可以利用FTP客戶端軟件在電腦上通過以太網(wǎng)對保存在GOT的PC卡中的數(shù)據(jù)(比如配方,報警記錄,硬拷貝圖像等)進行讀寫操作。系統(tǒng)構(gòu)成如下圖所示:
首先在GT Designer2中文版軟件的工程工作區(qū)窗口中雙擊“公共設(shè)置”/“FTP”,在彈出的對話框中進行如下設(shè)置:
可以先利用PING指令進行線路測試,然后進行FTP服務(wù)器的登錄:
上面操作中使用的 quote gtwr命令用于將FTP服務(wù)器功能的模式由查詢模式轉(zhuǎn)為寫模式,否則將無法對PC卡進行寫入刪除等項操作。
㈢ 有關(guān)E-Mail發(fā)送功能的應(yīng)用:
該項功能可以在報警發(fā)生時或恢復(fù)時向指定的對象發(fā)送郵件(報警發(fā)生和恢復(fù)的信息)。系統(tǒng)構(gòu)成如下圖所示:
首先在GT Designer2中文版軟件的工作區(qū)窗口中雙擊“公共設(shè)置”/“郵件”,在彈出的對話框中進行如下設(shè)置:
在“公共設(shè)置/報警記錄”中的設(shè)定如下圖所示。
其中“郵件發(fā)送”項有不發(fā)送、發(fā)生、恢復(fù)和發(fā)生/恢復(fù)四種選擇。這里選擇發(fā)生/恢復(fù),即在報警發(fā)生時和恢復(fù)時均發(fā)送郵件。郵件的內(nèi)容即在下圖中所設(shè)定的注釋信息。
下圖是利用郵件服務(wù)器收到E-Mail的情形: