SIGLENT
142 SSG5000X Programming Guide
resultTxt.Text = "Error reading a response from the device." +
CStr
(i + 1)
Else
resultTxt.Text = "read from device:" + outputBuffer
End
If
status = viClose(instrsesn)
status = viClose(defaultRM)
TCP_IP_Test = 0
End
Function
(3)Button control
code:
Private
Sub
exitBtn_Click()
End
End
Sub
Private
Sub
tcpipBtn_Click()
Dim
stat
As
Long
stat = TCP_IP_Test(ipTxt.Text)
If
(stat < VI_SUCCESS)
Then
resultTxt.Text = Hex(stat)
End
If
End
Sub
Private
Sub
usbBtn_Click()
Dim
stat
As
Long
stat = Usbtmc_test
If
(stat < VI_SUCCESS)
Then
resultTxt.Text = Hex(stat)
End
If
End
Sub
The run result
:
