Teledyne LeCroy SAS_SATA Tracer_Trainer Automation API Manual - Manual (Page 38)

LeCroy Corporation Automation API for SAS/SATATracer/Trainer Manual Version 1.11
38
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
-->
</SCRIPT>