Teledyne LeCroy Automation API for Teledyne LeCroy PETracer_PETrainer - Manual (Page 109)

Teledyne LeCroy Automation API for PETracer/PETrainer
104
Example
VBScript:
<OBJECT
ID = Analyzer
CLASSID = "clsid: 297CD804-08F5-4A4F-B3BA-779B2654B27C "
>
</OBJECT>
<INPUT TYPE=TEXT NAME="TextPacketNumber">
<P ALIGN=LEFT ID=StatusText></P>
<SCRIPT LANGUAGE="VBScript">
<!--
Function DecToBin(Param, NeedLen)
While Param > 0
Param = Param/2
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
-->
</SCRIPT>