77 lines
2.8 KiB
VB.net
77 lines
2.8 KiB
VB.net
|
Module Demo
|
|||
|
|
'目标CPU必须设置为x86平台,将uci.dll和ucivb.dll拷贝到工程运行目录下并添加uci.vb引用到工程中，即可使用接口
|
|||
|
|
Sub Main()
|
|||
|
|
|
|||
|
|
Dim ret As Integer = 0
|
|||
|
|
Dim seesion As UInteger = 0
|
|||
|
|
|
|||
|
|
'简单版搜索设备API
|
|||
|
|
'Dim addr(10 * 256) As Char '表示只搜索10个设备，每个设备地址最大字符串长度不超过256个字节，搜索到的每一个设备地址以逗号隔开
|
|||
|
|
'ret = ucivb.UCI.QueryNodes_Simple(addr, UBound(addr), ucivb.NodeType.USB, 2000)
|
|||
|
|
|
|||
|
|
'搜索设备API
|
|||
|
|
Dim m_Nodes(9) As ucivb.Node
|
|||
|
|
Dim msg As String = ""
|
|||
|
|
Dim type As UInteger = ucivb.NodeType.USB
|
|||
|
|
Select Case type
|
|||
|
|
Case ucivb.NodeType.USB
|
|||
|
|
msg = "USB:0x1234&0x5345,0x7777&0x5345,0x0834&0x5656,0x5537&0x4348, 0xE008&0x1A86;"
|
|||
|
|
Case ucivb.NodeType.LAN
|
|||
|
|
msg = "LAN:5000,4162,8000,18191;"
|
|||
|
|
End Select
|
|||
|
|
ret = ucivb.UCI.QueryNodes(msg, m_Nodes, UBound(m_Nodes) + 1, 2000)
|
|||
|
|
|
|||
|
|
'简单版打开设备API
|
|||
|
|
'seesion = ucivb.UCI.Open_Simple(m_Nodes(0).UCIAddr, 2000)
|
|||
|
|
'打开设备API
|
|||
|
|
ret = ucivb.UCI.Open(m_Nodes(0).UCIAddr, seesion, 2000)
|
|||
|
|
|
|||
|
|
'读配置文件测试
|
|||
|
|
Dim filePath As String = Format(Now, "yyyymmdd_hhmmss") & ".set"
|
|||
|
|
Dim rfp As ucivb.RFileParams
|
|||
|
|
rfp.CMDString = "dconfig;"
|
|||
|
|
rfp.FilePath = filePath
|
|||
|
|
rfp.TimeOut = 2000
|
|||
|
|
rfp.FilePathFinal = ""
|
|||
|
|
ret = ucivb.UCI.ReadToFile(seesion, rfp)
|
|||
|
|
|
|||
|
|
'写配置文件测试
|
|||
|
|
Dim wfp As ucivb.WFileParams
|
|||
|
|
wfp.CMDString = "dconfig;"
|
|||
|
|
wfp.FilePath = rfp.FilePathFinal
|
|||
|
|
wfp.TimeOut = 2000
|
|||
|
|
ret = ucivb.UCI.WriteFromFile(seesion, wfp)
|
|||
|
|
'简单版写文件API
|
|||
|
|
'ret = ucivb.UCI.WriteFromFileX(seesion, "dconfig;", rfp.FilePathFinal, 2000)
|
|||
|
|
|
|||
|
|
'写指令API
|
|||
|
|
ucivb.UCI.Write(seesion, "Proc:STOP;", 2000)
|
|||
|
|
|
|||
|
|
'读指令API
|
|||
|
|
Dim data(1024) As Byte
|
|||
|
|
ucivb.UCI.Read(seesion, "mea:all?;", 2000, data, 400)
|
|||
|
|
|
|||
|
|
'Dim filePath As String = Format(Now, "yyyymmdd_hhmmss") & ".csv"
|
|||
|
|
''简单版读数据到文件API
|
|||
|
|
''Dim MAX_PATH_LENGTH As UInteger = 260
|
|||
|
|
''Dim finalFilePath(MAX_PATH_LENGTH) As Char
|
|||
|
|
''ret = ucivb.UCI.ReadToFileX(seesion, "capture wave:.csv@CH:0@DT:vol;", filePath, 2000, finalFilePath, MAX_PATH_LENGTH)
|
|||
|
|
''读数据到文件API
|
|||
|
|
'Dim rfp As ucivb.RFileParams
|
|||
|
|
'rfp.CMDString = "capture wave:.csv@CH:0@DT:vol;"
|
|||
|
|
'rfp.FilePath = filePath
|
|||
|
|
'rfp.TimeOut = 2000
|
|||
|
|
'rfp.FilePathFinal = ""
|
|||
|
|
'ret = ucivb.UCI.ReadToFile(seesion, rfp)
|
|||
|
|
|
|||
|
|
'获取设备产生的最后一个错误信息
|
|||
|
|
'Dim errorInfo As String = ""
|
|||
|
|
'errorInfo = ucivb.UCI.GetLastError()
|
|||
|
|
|
|||
|
|
'关闭设备
|
|||
|
|
ret = ucivb.UCI.Close(seesion)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Module
|