有关三菱触摸屏A900GOT网关功能的应用

     当在A900GOT三菱触摸屏上使用以太网通讯模块(　A9GT-J71E71-T，硬件版本E或以上)时可以实现网关服务器功能、网关客户端功能、FTP服务器功能和E-Mail发送功能。由于这些功能都属于扩展功能，所以需要安装对应的扩展功能OS【Gateway(Server,Client,Mail,FTP)】并加装A9GT-(Q)FNB(*M)功能扩展板。
    注意：当与串行通讯板一同使用时，串行通讯板还是安装在原来的位置，而当与总线通讯板一同使用时，总线通讯板要装在以太网通讯模块的插槽上(如下图所示)。

㈠　有关网关服务器功能的应用:
　　网关服务器功能提供了上位机（利用MX　Component）通过以太网访问GOT的网关元件（利用GT　Designer(2)指定）来间接访问PLC（可以是三菱或第三方产品）中元件的功能。系统构成如下图所示：

　　具体的实现步骤如下：
1．GOT的设置：
这里以GT　Designer2中文版软件为例说明在软件中的相关设置。在工程工作区窗口中对“公共设置”中的“网关服务器”设置如下：

    其中的EG即网关软元件，这里的设置将EG0,EG1与PLC中的D10,D11进行了关联，将EG2和EG3与PLC中的M0到M15,M16到M31进行了关联。从而上位机可以通过访问EG来实现间接访问PLC的功能。
    在GOT实用菜单的“SETUP”项中对GOT的IP地址等项进行如下设置：

2．上位机监控程序的开发：
   这里利用Visual　Basic　6.0和MX　Component来开发上位监控程序。MX　Component是支持从PC到PLC多种通讯方式的ActiveX控件库，它可以无须知道协议的具体格式即轻松地实现各种形式的通讯。当安装了MX　Component以后，就可以在Visual　Basic，Visual　C++等开发环境中使用对应的通讯控件很方便地进行通讯程序的开发，这里我们要使用到的是一个名为ActGOT的控件。
    首先启动Visual　Basic并选择“工程”/“部件”，在“部件”对话框中我们可以看到很多与三菱产品进行通讯的控件，这里我们勾选“MITSUBISHI　ActGOT　Controls　Ver3.0”项。

    然后将工具箱中名为ActGOT的控件（如上图所示）添加到窗体中，在属性窗口中对GOT的IP地址（ActHostAddress）以及端口号（ActPortNumber）进行如下设置：

    程序代码如下：
    Private　Sub　Command1_Click()　’打开端口
    IRet　=　ActGOT1.Open()
    End　Sub

    Private　Sub　Command2_Click()　’关闭端口
    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的产品型号
    Text2.Text　=　Hex(ICpuType)　　　’显示GOT的型号代码（固定为E340H）
    End　Sub

    Private　Sub　Command4_Click()　’D0数值读取
    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数值设定
    Dim　szDevice　As　String
    Dim　IData　As　Long
    szDevice　=　"EG0"
    If　Text4.Text　=　""　Then
    MsgBox　"请输入数值!",　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复位
    Dim　szDevice　As　String
    Dim　IData　As　Long
    szDevice　=　"EG2"
    IData　=　"0"
    IRet　=　ActGOT1.SetDevice(szDevice,　IData)
    End　Sub

    Private　Sub　Command8_Click()　’M0状态读取
    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
㈡　有关FTP服务器功能的应用：
   　FTP服务器功能可以利用FTP客户端软件在电脑上通过以太网对保存在GOT的PC卡中的数据（比如配方,报警记录,硬拷贝图像等）进行读写操作。系统构成如下图所示：