YOKOGAWA 765501 - Page 224

16-52
IM 765501-01E
‘ Read the measure event
Function CommMeasureEvent(dev As Integer) As Integer
Dim msg As String * 64
msg = CommQuery(dev, “:STAT:SENS:EVEN?”)
If (msg = “ERROR”) Then
CommMeasureEvent = -1
Else
CommMeasureEvent = Val(msg)
End If
End Function
16.4 Sample Programs