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
|