Keysight E4990A - Page 339

Programming
329
dim userMenu
dim bNo
dim mkrNo
set userMenu = WScript.CreateObject("E4990.UserMenu", "UserMenuButton_")
set ana = CreateObject("E4990.Application")
for bNo=1 to 5
select case bNo
case 1, 2, 3
UserMenu.item(cint(bNo)).caption = "Marker" & bNo
case 4
UserMenu.item(cint(bNo)).caption = "Max"
case 5
UserMenu.item(cint(bNo)).caption = "Min"
end select
next
Do Until False
WScript.Sleep 500
Loop
Sub UserMenuButton_OnPress(bNo)
Select case bNo
case 1, 2, 3
mkrNo=bNo
ana.scpi.calculate.selected.marker(mkrNo).state = true
ana.scpi.calculate.selected.marker(mkrNo).activate
case 4
ana.scpi.calculate.selected.marker(mkrNo).function.type ="maximum"
ana.scpi.calculate.selected.marker(mkrNo).function.execute
case 5
ana.scpi.calculate.selected.marker(mkrNo).function.type ="minimum"
ana.scpi.calculate.selected.marker(mkrNo).function.execute
end select
End Sub
Using Form
•
Overview
• Sample Program
Other topics about Using Macro