7-12
IM 760101-11E
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibHarmonics = 1
Exit Function
End If
'Wait for the completion of the data updating
msg = "COMMUNICATE:WAIT 1" + term
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibHarmonics = 1
Exit Function
End If
Next wait
'Set the numerical data output items
'ASCII format, List-item = U1, Max order = 100
msg = "NUMERIC:FORMAT ASCII" + term
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibHarmonics = 1
Exit Function
End If
msg = "NUMERIC:LIST:ITEM U,1;ORDER 100" + term
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibHarmonics = 1
Exit Function
End If
List1.Clear
'Read out numerical list-data
msg = "NUMERIC:LIST:VALUE?" + term
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibHarmonics = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry)) 'Receive Query
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibHarmonics = 1
Exit Function
End If
'Extract items that are separated by commas(,) from the received data
For item = 1 To 102
length = Len(qry)
comma = InStr(qry, ",")
If (comma = 0) Then comma = InStr(qry, term)
Query(item) = Left(qry, comma - 1)
If (item = 1) Then
List1.AddItem "Total" + " " + Query(item)
ElseIf (item = 2) Then
List1.AddItem " DC" + " " + Query(item)
ElseIf (item < 12) Then
List1.AddItem " " + CStr(item - 2) + " " + Query(item)
ElseIf (item < 102) Then
List1.AddItem " " + CStr(item - 2) + " " + Query(item)
Else
List1.AddItem " " + CStr(item - 2) + " " + Query(item)
End If
qry = Mid(qry, comma + 1)
List1.ListIndex = List1.Lis 1
Next item
Call ibonl(Dev, 0)
GpibHarmonics = 0
End Function
----------------------------------------------------------------------------------------
7.5 Output of Harmonic Measurement Data
Содержание wt1600
Страница 1: ...Digital Power Meter Communication Interface IM 760101 11E 4th Edition ...
Страница 131: ...7 2 IM 760101 11E 7 2 Sample Program Image ...
Страница 138: ...Sample Program 7 9 IM 760101 11E 7 7 4 Output of Normal Measurement Data ...
Страница 142: ...Sample Program 7 13 IM 760101 11E 7 7 5 Output of Harmonic Measurement Data ...