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