HP E1340A User Manual page 33

33 Getting Started with the HP E1340A
Info$ = SPACE$(Max.Length%)
CALL IOOUTPUTS(ADDR&, "SYST:ERR?", 9) ' Query error register
CALL IOENTERS(ADDR&, Info$, Max.Length%, Actual.Length%)
Info$ = LEFT$(Info$, Actual.Length%)
IF VAL(Info$) <> 0 THEN
CLS
WHILE VAL(Info$) <> 0
PRINT : PRINT Info$; " in function: "; FuncType$
Actual.Length% = 0
CALL IOOUTPUTS(ADDR&, "SYST:ERR?", 9)
CALL IOENTERS(ADDR&, Info$, Max.Length%, Actual.Length%)
Info$ = LEFT$(Info$, Actual.Length%)
WEND
END
END IF
END SUB
SUB CmdExe (Commands$(), Length%)
FOR I = 1 TO Length%
CALL IOOUTPUTS(ADDR&, Commands$(I), LEN(Commands$(I)))
NEXT I
END SUB
SUB GenSeg
DIM SetCommands$(1 TO 2)
DIM OutCommands$(1 TO 2)
DIM WaveSeg!(1 TO 4096)
SetCommands$(1) = "SOUR:ROSC:SOUR INT;" '
SetCommands$(1) = SetCommands$(1) + ":SOUR:FREQ:FIX 1e3;" ' Set
SetCommands$(1) = SetCommands$(1) + ":SOUR:FUNC:SHAP USER;"
Continued on next page
Select the Ref. Oscillator
waveform frequency
' Select user function
Chapter 1