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

R&S FSL详 细 的 编 程 实 例'––––––––– Measuring the noise ––––––––––––––––––––––––––––––––––––––––––––CALL InstrWrite(analyzer,"CALC:MARK:X 99.96MHz")' 定 位 标 记 1CALL InstrWrite(analyzer,"CALC:MARK:FUNC:NOIS:RES?")' 查 询 和 输 出 结 果result$ = Space$(100)CALL InstrRead(analyzer, result$, 100, retCount)Print "Noise [dBm/Hz]: "; result$END SUBREM************************************************************************读 出 迹 线 数 据在 下 面 例 子 中 , 说 明 了 如 何 从 仪 器 中 读 取 默 认 设 置 下 获 得 的 迹 线 数 据 , 并 将 数 据 显 示 在 屏 幕上 的 一 个 列 表 中 。 首 先 在 频 率 跨 度 >0 时 以 二 进 制 格 式 读 出 , 接 着 在 频 率 跨 度 =0 时 以 ASCII 格式 读 出 。在 二 进 制 格 式 中 , 会 对 带 有 长 度 说 明 的 消 息 头 部 进 行 分 析 并 用 于 计 算 x 轴 的 值 。在 ASCII 格 式 中 , 只 输 出 电 平 值 列 表 。按 照 以 下 三 个 步 骤 读 出 二 进 制 数 据 :1. 读 出 长 度 说 明 中 的 数 字 位 数 。2. 读 出 长 度 说 明 本 身 。3. 读 出 迹 线 数 据 本 身 。在 编 程 语 言 只 支 持 相 同 数 据 类 型 的 结 构 时 ( 数 组 , 如 对 于 Visual Basic), 需 要 该 过 程 , 因 为头 部 和 数 据 部 分 的 数 据 类 型 在 二 进 制 数 据 中 是 不 同 的 。VISA 库 仅 提 供 了 一 个 读 入 字 符 串 缓 冲 区 的 机 制 。 为 了 把 数 据 转 换 成 单 精 度 值 的 数 组 , 字 符 串内 容 必 须 被 复 制 到 一 个 该 类 型 的 缓 冲 区 中 。 下 面 的 例 子 使 用 了 一 个 操 作 系 统 函 数 完 成 该 复 制操 作 。 该 函 数 声 明 必 须 添 加 到 一 个 模 块 中 (.bas), 如 下 所 示 :Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any,pSource As Any, ByVal ByteLen As Long)用 于 存 储 测 量 数 据 的 数 组 是 按 如 下 方 式 定 义 其 维 数 的 , 即 这 些 数 组 必 须 为R&S FSL 的 迹 线 数 据 提 供 足 够 的 空 间 (501 个 测 量 点 )。REM************************************************************************Public Sub ReadTrace()'––––––––– 创 建 变 量 ––––––––––––––––––––––––––––––––––––––––––----------––––Dim traceData(1250) As Single' 浮 点 二 进 制 数 的 缓 冲 区Dim digits As Byte' 在 长 度 说 明 中 的 字 符 数Dim traceBytes As Integer' 迹 线 数 据 的 长 度 (bytes)Dim traceValues As Integer' 在 缓 冲 区 中 测 量 值 的 数 目Dim BinBuffer as String * 5000 ' 二 进 制 数 据 的 字 符 串 缓 冲 区1300.2519.69 6.17 ZH-4