Teledyne LeCroy SAS_SATA Automation API manual User Manual
Page 106
Teledyne LeCroy
SASPacket Object
100
Automation API for Teledyne LeCroy SAS/SATA Protocol Suite
If Param - Int(Param) > 0 Then
Res = CStr(1) + Res
Else
Res = CStr(0) + Res
End If
Param = Int(Param)
Wend
DecToBin = Replace( Space(NeedLen - Len(Res)), " ",
"0") & Res
End Function
Sub BtnGetPacket_OnClick
ClearStatus()
On Error Resume Next
Set Packet = CurrentTrace.GetBusPacket
(TextPacketNumber.value)
If Err.Number <> 0 Then
MsgBox "GetBusPacket:" & Err.Number & ":" &
Err.Description
Else
Timestamp = Packet.GetTimestamp()
If Err.Number <> 0 Then
MsgBox "GetTimestamp:" & Err.Number & ":" &
Err.Description
End If
NumberOfUnits = Packet.GetPacketData (
PACKETFORMAT_BYTES,
PacketData)
If Err.Number <> 0 Then
MsgBox "GetPacketData:" & Err.Number & ":" &
Err.Description
Else
For Each PacketByte In PacketData
PacketStr = PacketStr & DecToBin(PacketByte, 8) & " "
NBytes = NBytes + 1
Next
StatusText.innerText =
"Packet ( " & NumberOfUnits & " bytes
): " & PacketStr
End If
End If
End Sub
-->