
Sample Program
7-13
IM 760151-17E
7
ElseIf (item = 2) Then
List1.AddItem “Z’ : “ + Query(item)
Else
List1.AddItem “Z’’ : “ + Query(item)
End If
qry = Mid(qry, comma + 1)
List1.ListIndex = List1.Lis 1
Next item
‘Change Frequency
If cnt = 1 Then
msg = “IMPEDANCE:SUPERPOSE:FREQUENCY:VALUE 20” + term ‘Frequency Value
= 20
ElseIf cnt = 2 Then
msg = “IMPEDANCE:SUPERPOSE:FREQUENCY:VALUE 50” + term ‘Frequency Value
= 50
ElseIf cnt = 3 Then
msg = “IMPEDANCE:SUPERPOSE:FREQUENCY:VALUE 100” + term ‘Frequency Value
= 100
Else
msg = “IMPEDANCE:SUPERPOSE:FREQUENCY:VALUE 200” + term ‘Frequency Value
= 200
End If
sts = ilwrt(Dev, msg, Len(msg)) ‘Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibImpedance = 1
Exit Function
End If
List1.AddItem “”
List1.ListIndex = List1.Lis 1
qry = Space$(900)
Dummy = DoEvents()
Next cnt
List1.AddItem “ All end”
List1.ListIndex = List1.Lis 1
msg = “IMPEDANCE:SUPERPOSE:OUTPUT:STATE OFF” + term ‘Superpose
Output = OFF
sts = ilwrt(Dev, msg, Len(msg)) ‘Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibImpedance = 1
Exit Function
End If
msg = “HOLD OFF” + term ‘Hold Off
sts = ilwrt(Dev, msg, Len(msg)) ‘Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibImpedance = 1
Exit Function
End If
Call ibonl(Dev, 0)
GpibImpedance = 0
End Function
————————————————————————————————————————————
7.5 Output of Impedance Measurement Data