YOKOGAWA WT210, User Manual, Page: 271 / 316

14-55
IM 760401-01E
Communication Commands 2 (System of Commands Complying to the IEEE 488.2-1992 Standard)
14
'Set the communication output items
'1. V/A/W -> on, others -> off
msg = "MEASURE:ITEM:PRESET NORMAL" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
GoTo GPIBError
End If
'2. Element1 VHz -> on
msg = "MEASURE:ITEM:VHZ:ELEMENT1 ON" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
GoTo GPIBError
End If
'Set the transition filter used to detect the completion of the data updating
msg = "STATUS:FILTER1 FALL" + term 'Falling edge of bit0(UPD)
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
GoTo GPIBError
End If
Sleep 1000
List1.Clear
'Read and display the measurement data (It is repeated 10 times in this program)
For cnt = 1 To 10
'Clear the extended event register (Read and trash the response)
msg = "STATUS:EESR?" + term
sts = ilwrt(Dev, msg, Len(msg))
sts = ilrd(Dev, qry, Len(qry))
'Wait for the completion of the data updating
msg = "COMMUNICATE:WAIT 1" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
GoTo GPIBError
End If
'Read out the measurement data
msg = "MEASURE:NORMAL:VALUE?" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
GoTo GPIBError
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
GoTo GPIBError
End If
'Extract items that are separated by commas(,) from the received data
List1.AddItem "Measurement - " + CStr(cnt)
List1.ListIndex = List1.Lis 1
For item = 1 To 13
length = Len(qry)
comma = InStr(qry, ",")
If (comma = 0) Then comma = InStr(qry, term)
If (comma = 0) Then Exit For
Query(item) = Left(qry, comma - 1)
If item < 10 Then
List1.AddItem " " + CStr(item) + " " + Query(item)
Else
List1.AddItem CStr(item) + " " + Query(item)
End If
qry = Mid(qry, comma + 1)
List1.ListIndex = List1.Lis 1
Next item
List1.AddItem ""
List1.ListIndex = List1.Lis 1
qry = Space$(200)
Dummy = DoEvents()
Next cnt
List1.AddItem " All end"
List1.ListIndex = List1.Lis 1
Call ibonl(Dev, 0)
GpibNormal = 0
Exit Function
GPIBError:
Call DisplayGPIBError(sts, msg)
GpibNormal = 1
End Function
---------------------------------------------------------------------------------------------------
14.8 Sample Program (Output of Normal Measurement Data)