程序代码如下: 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卡中的数据(比如配方,报警记录,硬拷贝图像等)进行读写操作。系统构成如下图所示: