Agilent Technologies InfiniiVision 3000 X-Series

To Next Page

To Previous Page

:ACQuire Commands 7

Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide 237

For lngI = lngSegments To 1 Step -1

' Set the segmented memory index.

myScope.WriteString ":ACQuire:SEGMented:INDex " + CStr(lngI)

myScope.WriteString ":ACQuire:SEGMented:INDex?"

strQueryResult = myScope.ReadString

Debug.Print "Acquisition memory segment index: " + strQueryResult

' Display the segment time tag.

myScope.WriteString ":WAVeform:SEGMented:TTAG?"

dblTimeTag = myScope.ReadNumber

Debug.Print "Segment " + CStr(lngI) + " time tag: " _

+ FormatNumber(dblTimeTag, 12)

Next lngI

Exit Sub

VisaComError:

MsgBox "VISA COM Error:" + vbCrLf + Err.Description

End Sub

Other manuals for Agilent Technologies InfiniiVision 3000 X-Series