
3-108 Agilent B1500A/B1505A Programming Guide, Edition 11
Programming Examples
SPGU Pulse Output and Voltage Measurement
Measurement
Result Example
SPGU setup.
SPGU output in progress..........................................
...............................................................
SPGU output stopped.
session.WriteString("ERRX? 0" & vbLf) : msg = session.ReadString(256) ’55
err = Val(Left(msg, 2))
If err <> 0 Then session.WriteString("DZ" & vbLf) : GoTo Check_err
session.WriteString("SRP" & vbLf) ’starts pulse output ’59
Console.Write("SPGU output in progress")
Spgu_stat: ’62
Console.Write(".")
session.WriteString("SPST?" & vbLf) : p_stat = session.ReadString(1 + 2)
If p_stat = 1 Then GoTo Spgu_stat
If p_stat = 0 Then GoTo Close
Check_err: ’68
MsgBox("Instrument error: " & Chr(10) & msg, vbOKOnly, "")
Close: ’71
Console.WriteLine(Chr(10) & "SPGU output stopped.")
session.WriteString("CL" & vbLf)
session.Close()
MsgBox("Click OK to stop the program.", vbOKOnly, "")
Console.WriteLine("Program completed." & Chr(10)) ’76
End Sub
End Module
Line Description
55 to 57 Reads error buffer. If an error is detected, changes the channel output to 0 V and goes to
Check_err.
59 Starts the SPGU pulse output.
62 to 66 Checks the SPGU pulse output status. And waits for the end status.
68 to 69 Clears the error buffer. And displays a message box to show an error message.
71 to 76 Disables all channels, and closes the connection with the Agilent B1500.
Komentáře k této Příručce