三菱電機自動化（上海）有限公司 巢曉陽

當在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)功能擴展板。
注意：當與串行通訊板一同使用時，串行通訊板還是安裝在原來的位置，而當與總線通訊板一同使用時，總線通訊板要裝在以太網(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)各種形式的通訊。當安裝了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)　　　　　'當M0=ON時，顯示紅色
ElseIf　IData　=　0　Then
Shape1.FillColor　=　RGB(255,　255,　255)　'當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è)定的注釋信息。