Table of Contents
Advertisement
Agilent 81250 String Interface Library
Agilent 81250 Parallel Bit Error Ratio Tester, Programming Reference, March 2006
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
err = Call_HP81200(":DVT:IDN?", buffer, &bufSize);
if (err!=0)
printf("Connected to: %s\n", buffer);
else
{
// Get and output the error.
bufSize= BUFF_SIZE;
err = GetErrStr_HP81200(err, buffer, &bufSize);
printf("Error generated: %s", buffer);
}
// Disconnect
err = Disconnect_HP81200();
return 0;
}
VisualBasic Example
NOT E
To implement the example, you have to import the file hp81200.bas
into your project.
The following code connects to the entered server, sends SCPI
commands, and outputs the results.
Sub myHP81200()
' hp81200.bas has to be imported into your project
Dim err As Long
Dim buffer As String * 256
Dim bufSize As Long
Dim Cmd As String
Dim ServerName As String
' Request a server
ServerName = InputBox("Enter server name:", "Connect to Server")
err = VB_CONNECT_HP81200(ServerName)
' If the server is not available, output the error.
If err <> 0 Then
buffer = ""
bufSize = 256
VB_GETERRSTR_HP81200 err, buffer, bufSize
MsgBox "Could not connect due to error: " & vbCrLf & _
buffer
Exit Sub
End If
' Request and output commands
Do
buffer = ""
bufSize = 256
Cmd = InputBox("Enter command:", "SCPI Command Input")
Programming Interfaces
27
Advertisement
Table of Contents
