??? 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è)定的注釋信息。

在“公共設(shè)置/報警記錄”中的設(shè)定如下圖所示。
????? 其中“郵件發(fā)送”項有不發(fā)送、發(fā)生、恢復(fù)和發(fā)生/恢復(fù)四種選擇。這里選擇發(fā)生/恢復(fù)，即在報警發(fā)生時和恢復(fù)時均發(fā)送郵件。郵件的內(nèi)容即在下圖中所設(shè)定的注釋信息。

????? 下圖是利用郵件服務(wù)器收到E-Mail的情形：
???