Keysight B2980 Series, Руководство по программированию

Страница: 59 / 64

Keysight B2980 Programming Guide, Edition 1 2- 31
Programming Examples
Reading Binary Data
Table 2-8 Example to Read Binary Data
’ Select measure data elements

ioObj.WriteString(":form:elem:sens volt,curr,time,stat") ’2


’ Retrieve measurement result & Output measurement result(Ascii format)

ioObj.WriteString(":form asc") ’5

ioObj.WriteString(":fetch:arr?")

Dim numOfElem As Integer = 4 'V, I, Time, Status

Dim data(numOfElem * trigCount - 1)

data = ioObj.ReadList(Ivi.Visa.Interop.IEEEASCIIType.ASCIIType_Any, ",")


Dim value As String = "V (V), I (A), Time (sec), Status: "

s = value

Console.WriteLine("ASCII format")

Console.WriteLine(value)

For i = LBound(data) To UBound(data)

If (i + 1) Mod numOfElem = 0 Then

Console.WriteLine(data(i).ToString())

s = s + data(i).ToString()

Else

Console.Write(data(i).ToString() + ",")

s = s + data(i).ToString() + ","

End If

Next


Console.WriteLine()


’ Retrieve measurement result & Output measurement result(Real64 format)

Console.WriteLine("REAL64 format") ’28

Console.WriteLine(value)

ioObj.WriteString(":form real,64")

ioObj.WriteString(":fetch:arr?")

Dim data64

data64 = ioObj.ReadIEEEBlock(Ivi.Visa.Interop.IEEEBinaryType.BinaryType_R8, False,
True)

For i = LBound(data64) To UBound(data64)

If (i + 1) Mod numOfElem = 0 Then

Console.WriteLine(data64(i).ToString())

Else

Console.Write(data64(i).ToString() + ",")

End If

Next

Console.WriteLine()

Line Description
2 Specifies the data to return. This example selects voltage measurement data, current
measurement data, time data, and status data.
5 to 23 Reads the measurement result data in the ASCII format.
28 to 44 Reads the measurement result data in the REAL,64 format.