Teledyne-lecroy SAS_SATA Tracer_Trainer Automation API Manual Instrukcja Użytkownika Pobierz pdf (Strona 63)

LeCroy Corporation Automation API for SAS/SATATracer/Trainer Manual Version 1.11

Example

VBScript:

<OBJECT

ID = Analyzer

CLASSID = "clsid: 0B179BB7-DC61-11d4-9B71-000102566088"

</OBJECT>

<!--

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

StatusText.innerText = "Packet ( " & NumberOfUnits & " bytes ): " & PacketStr

End If

End Sub

-->

</SCRIPT>

1 2 ... 58 59 60 61 62 63 64 65 66 67 68 ... 93 94

Komentarze do niniejszej Instrukcji

Brak uwag

Teledyne-lecroy SAS_SATA Tracer_Trainer Automation API Manual Instrukcja Użytkownika Strona 63

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Ekwipunek Teledyne-lecroy SAS_SATA Tracer_Trainer Automation API Manual