
Agilent B1500A/B1505A Programming Guide, Edition 11 3-29
Programming Examples
Pulsed Sweep Measurements
A program example of a pulsed sweep measurement is shown below. This example
measures the bipolar transistor Ic-Vc characteristics.
Table 3-8 Pulsed Sweep Measurement Example
Sub perform_meas(ByVal session As IMessage, ByVal t() As Integer) ’1
Dim i As Integer = 0 ’t(0): Emitter
Dim j As Integer = 0 ’t(1): Base
Dim nop1 As Integer = 11 ’t(2): Collector
Dim nop2 As Integer = 3 ’t(3): not use
Dim data(nop2 - 1, nop1 - 1) As String
Dim value As String = "Ib (mA), Vc (V), Ic (mA), Time (sec), Status"
Dim fname As String = "C:\Agilent\prog_ex\data6.txt"
Dim title As String = "Measurement Result"
Dim msg As String = "No error."
Dim err As Integer = 0
Dim v0 As Double = 0 ’13
Dim vc1 As Double = 0
Dim vc2 As Double = 5
Dim iccomp As Double = 0.05
Dim ib1 As Double = 0.003
Dim ib2 As Double = 0.007
Dim vbcomp As Double = 5
Dim ib As Double = ib1 ’secondary sweep output value
Dim d_ib As Double = 0 ’secondary sweep step value (delta)
If nop2 <> 1 Then d_ib = (ib2 - ib1) / (nop2 - 1)
Dim hold As Double = 0
Dim delay As Double = 0
Dim s_delay As Double = 0
Dim rep As Integer = nop1
Dim mret As String ’27
Dim sc(nop1) As Double
Dim md(nop1) As Double
Dim st(nop1) As String
Dim tm(nop1) As Double
session.WriteString("FMT 1,1" & vbLf) ’ASCII, <CRLF EOI>, w/sweep source data
session.WriteString("TSC 1" & vbLf) ’enables time stamp output
session.WriteString("FL 0" & vbLf) ’sets filter off
session.WriteString("AV 10,1" & vbLf) ’sets number of samples for 1 data
session.WriteString("CL " & t(3) & vbLf) ’36
Line Description
2 to 11 Declares variables used through the project. And sets the proper values.
13 to 26 Declares variables used to set the source output, and sets the value.
27 to 31 Declares variables used to read the measurement data.
32 to 35 Sets the data output format, time stamp data output mode, SMU filter, and averaging.
36 Disables SMU assigned to t(3) that is not needed.
Komentáře k této Příručce