YOKOGAWA TA720 User Manual page 116

If (sts < 0) Then
End If
msg = "MEMORY:FORMAT BINARY" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
msg = "MEMORY:BYTEORDER LSBFIRST" + term
Little Endian)
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
msg = "MEMORY:START 1;END 100" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
eos = 0
sts = ileos(Dev, eos)
If (sts < 0) Then
End If
msg = "MEMORY:SEND?" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
sts = ilrd(Dev, qry, 10)
If (sts < 0) Then
End If
num = Val(Mid$(qry, 3, 8)) / 4
sts = ilrdi(Dev, idata(), 1000)
For i = 0 To num - 1
Next i
eos = &HC0A
sts = ileos(Dev, eos)
If (sts < 0) Then
End If
Call ibonl(Dev, 0)
GetBinaryData = 0
End Function
————————————————————————————————————————————————————————————————————————————————————————
IM 704510-17E
6.7 Querying the Measured Data of A-to-B Time Interval Measurement (for GP-IB)
Call DisplayGPIBError(sts, msg)
GetBinaryData = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetBinaryData = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetBinaryData = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetBinaryData = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetBinaryData = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetBinaryData = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetBinaryData = 1
Exit Function
data_h = idata(i * 2 + 1)
data_l = idata(i * 2)
If data_h >= 0 And data_l >= 0 Then
data = (data_h * 65536#) + data_l
ElseIf data_h >= 0 And data_l < 0 Then
data = (data_h * 65536#) + (data_l + 65536#)
ElseIf data_h < 0 And data_l >= 0 Then
data = (data_h + 65536#) * 65536# + data_l
data = data - (65536# * 65536#)
Else ' data_h < 0 And data_l < 0
data = (data_h + 65536#) * 65536# + (data_l + 65536#)
data = data - (65536# * 65536#)
End If
Query(i) = Format(data * 0.000000000025)
Call DisplayGPIBError(sts, msg)
GetBinaryData = 1
Exit Function
'Data Format = Binary
'Send Command
'Data Byte order = LSB First(for
'Send Command
'START 1, END 100
'Send Command
'Terminator = None(for Binary Data)
'Send Command
'Receive Header(#8********)
'Receive Binary Data + LF
'Terminator = LF
6
6-15