å¿«é€Ÿå ¥é—¨æŒ‡å—R&S FSL - Rohde & Schwarz

R&S FSL详 细 的 编 程 实 例配 置 和 开 始 打 印 输 出下 面 的 例 子 说 明 在 打 印 输 出 一 个 测 量 屏 幕 时 , 如 何 配 置 输 出 格 式 和 输 出 设 备 。 该 过 程 如 下 :1. 设 置 你 要 打 印 输 出 的 测 量 结 果 。2. 查 看 在 仪 器 上 可 使 用 哪 些 输 出 设 备 。3. 选 择 一 个 输 出 设 备 。4. 选 择 输 出 接 口 。5. 配 置 输 出 格 式 。6. 开 始 同 步 打 印 输 出 直 至 完 成 。在 此 假 设 需 要 设 置 一 个 100 MHz、 功 率 为 –20 dBm 的 信 号 。 同 时 假 设 你 所 需 要 的 打 印 机 是 列出 的 可 用 打 印 机 中 的 第 6 个 。 首 先 打 印 输 出 到 选 择 的 打 印 机 , 接 着 输 出 到 一 个 文 件 中 。REM ***********************************************************************Public Sub HCopy()Dim retCount as LongDim SRQWaitTimeout As LongDim eventType As LongDim eventVi As LongDim statusSRQ As LongDIM Devices(100) as string ' 创 建 打 印 机 名 称 的 缓 冲 区 。FOR i = 0 TO 49Devices$(i) = Space$(50)' 预 先 分 配 打 印 机 名 称 的 缓 冲 区NEXT i'––––––––– R&S FSL 的 默 认 设 置 –––––––––––––––––––––––––––-----------------––––CALL SetupStatusReg' 配 置 状 态 寄 存 器CALL InstrWrite(analyzer,"*RST") ' 重 设 仪 器CALL InstrWrite(analyzer,"INIT:CONT OFF")' 单 次 扫 描 模 式CALL InstrWrite(analyzer,"SYST:DISP:UPD ON")' 打 开 屏 幕 显 示'––––––––– 测 量 设 置 –––––––––––––––––––––––––––––––––––--------------–––––––CALL InstrWrite(analyzer,"FREQ:CENT 100MHz;SPAN 10MHz")' 频 率 设 置CALL InstrWrite(analyzer,"DISP:TRAC:Y:RLEV –10dBm")' 参 考 电 平CALL InstrWrite(analyzer,"INIT;*WAI") ' 执 行 测 量'––––––––– 查 询 可 用 的 输 出 设 备 ––––––––––––––––--------------------------––––––CALL InstrWrite(analyzer,"SYST:COMM:PRIN:ENUM:FIRSt?")' 读 出 并 显 示 第 一 个 输 出 设 备CALL InstrRead(analyzer,Devices$(0), 50, retCount)Debug.Print "Printer 0: "+Devices$(0)For i = 1 to 99CALL InstrWrite(analyzer,"SYST:COMM:PRIN:ENUM:NEXT?")' 读 出 下 一 个 打 印 机 名 称CALL InstrRead(analyzer,Devices$(i)IF Left$(Devices$(i),2) = "''" THEN GOTO SelectDevice' 在 列 表 末 端 终 止Debug.Print "Printer"+Str$(i)+": " Devices$(i)' 显 示 打 印 机 名 称NEXT iSelectDevice:1300.2519.69 6.21 ZH-4