Teledyne LeCroy WaveRunner Automation Command - Manual (Page 99)

Automation Command and Query Reference Manual - Control Reference
' Visual Basic Script
Set app = CreateObject("LeCroy.WaveMasterApplication.1")
'Select an stadard, run the test and get results after a while
app.ElectricalTelecom.Standard = "E1Tp"
app.ElectricalTelecom.Source = "C2"
app.ElectricalTelecom.Setup
app.ElectricalTelecom.Run
app.Sleep 10000
app.ElectricalTelecom.Pause
passed = CStr(app.ElectricalTelecom.NumPass)
tested = CStr(app.ElectricalTelecom.NumTested)
MsgBox passed + " passed of " + tested + " tests"
Example
ClearSweeps Action
The ClearSweeps allows you to reset the sweep count and start testing over again.
Description
' Visual Basic Script
Set app = CreateObject("LeCroy.WaveMasterApplication.1")
'Select an stadard, run the test and clear the counter after a while
app.ElectricalTelecom.Standard = "E1Coax"
app.ElectricalTelecom.Setup
app.ElectricalTelecom.Run
app.Sleep 5000
app.ElectricalTelecom.Pause
app.Sleep 5000
app.ElectricalTelecom.ClearSweeps
Example
Standard Enum
Stop Action
StopAfter Integer
StopTesting Bool
VerticalAlign Action
1-91
918500 RevA