13
LET Trigger_source$=UPC$(TRIM$(Trigger_source$))
LET Trigger_source$=Trigger_source$[1:4]
IF FNGet_model$(@Dca)=”83480A” THEN
SELECT Trigger_source$
CASE “RMOD”
LET Mnemonics$=”:TRIG:SOUR TRIG4;SWE TRIG”
CASE “FRUN”
LET Mnemonics$=”:TRIG:SWE FRE”
CASE ELSE ! Default to the Left Module
LET Mnemonics$=”:TRIG:SOUR TRIG2;SWE TRIG”
END SELECT
ELSE ! Must be “86100A”
SELECT Trigger_source$
CASE “LMOD”
LET Mnemonics$=”:TRIG:SOUR LMOD”
CASE “RMOD”
LET Mnemonics$=”:TRIG:SOUR RMOD”
CASE “FRUN”
LET Mnemonics$=”:TRIG:SOUR FRUN”
CASE ELSE ! Default to the Front Panel
LET Mnemonics$=”:TRIG:SOUR FPAN”
END SELECT
END IF ! “83480A”
OUTPUT @Dca;Mnemonics$ ! Send the code
SUBEND
Adjusting the Trigger Bandwidth
SUB Set_trigger_bandwidth(Bandwidth$,@Dca)
!
! {HIGH | LOW | DIVIDED}
!
DIM Source$[15],Mnemonics$[255]
LET Bandwidth$=UPC$(TRIM$(Bandwidth$))
IF FNGet_model$(@Dca)=”83480A” THEN
OUTPUT @Dca;”:SYST:LONG OFF;HEAD OFF”
OUTPUT @Dca;”:TRIG:SOUR?” ! Get the active source, should be “TRIG2” or “TRIG4”
ENTER @Dca;Source$
SELECT Bandwidth$[1;3]
CASE “DIV”
LET Mnemonics$=”:”&Source$&”:BWL DIV”
CASE “LOW”,”ON”,”1”
LET Mnemonics$=”:”&Source$&”:BWL ON”
CASE ELSE ! Default - HIGH
LET Mnemonics$=”:”&Source$&”:BWL OFF”
END SELECT
ELSE ! Must be an 86100A
SELECT Bandwidth$[1:3]
CASE “DIV”
LET Mnemonics$=”:TRIG:BWL DIV”
CASE “LOW”
LET Mnemonics$=”:TRIG:BWL LOW”
CASE ELSE ! Default - HIGH
LET Mnemonics$=”:TRIG:BWL HIGH”
END SELECT
END IF ! “83480A”
OUTPUT @Dca;Mnemonics$ ! Send the code
SUBEND
Comentários a estes Manuais