beautypg.com

Teledyne LeCroy SierraFC Automation API User Manual

Page 34

background image

LeCroy Corporation

SierraFC M8-4 API Reference Manual

Manual Version 1.00

34

Sub BtnGetPacket_OnClick

On Error Resume Next
Dim Packet
NumberOfBits = CurrentTrace.GetPacket (TextPacketNumber.value, Packet)
If Err.Number <> 0 Then

MsgBox "GetPacket:" & Err.Number & ":" & Err.Description

Else

For Each PacketByte In Packet

PacketStr = PacketStr & DecToBin(PacketByte, 8) & " "
NBytes = NBytes + 1

Next
PacketStr = Left( PacketStr, NumberOfBits )

StatusText.innerText = "Packet ( " & NumberOfBits &
" bits ): " & PacketStr

End If

End Sub
-->