YOKOGAWA WT1600FC User Manual page 143

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