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

详 细 的 编 程 实 例R&S FSLDim retCount as LongasciiResult$ = Space$(25000)'ASCII 迹 线 数 据 的 缓 冲 区result$ = Space$(100)' 简 单 结 果 的 缓 冲 区startFreq$ = Space$(100)' 开 始 频 率 的 缓 冲 区span$ = Space$(100)' 频 率 跨 度 的 缓 冲 区'––––––––– R&S FSL 的 默 认 设 置 ––––––––––––––––––––––––––––––---------------–––CALL SetupInstrument' 默 认 设 置CALL InstrWrite(analyzer,"INIT:CONT OFF")' 切 换 到 单 次 扫 描CALL InstrWrite(analyzer,"INIT;*WAI") ' 执 行 同 步 扫 描'––––––––– 定 义 输 出 的 频 率 范 围 ––––––––––––––––––––––-----------------------–––CALL InstrWrite(analyzer,"FREQ:STARt?") ' 读 出 开 始 频 率CALL InstrRead(analyzer,startFreq$, 100, retCount)startFreq = Val(startFreq$)CALL InstrWrite(analyzer,"FREQ:SPAN?") ' 读 出 频 率 跨 度CALL InstrRead(analyzer,span$, 100, retCount)span = Val(span$)'––––––––– 二 进 制 格 式 的 读 出 ––––––––––––––––––––––––––––--------------––––––––CALL InstrWrite(analyzer, "FORMAT REAL,32")' 设 置 二 进 制 格 式CALL InstrWrite(analyzer, "TRAC1? TRACE1")' 读 出 迹 线 1CALL InstrRead(analyzer, result$, 2, retCount)' 读 出 和 存 储 长 度 值digits = Val(Mid$(result$, 2, 1)) ' 字 符 数 的 说 明result$ = Space$(100)' 重 新 初 始 化 缓 冲 区CALL InstrRead(analyzer, result$, digits, retCount)' 读 出 和 存 放 长 度 值traceBytes = Val(Left$(result$, digits))' 说 明CALL InstrRead(analyzer, BinBuffer, traceBytes, retCount)' 把 迹 线 数 据 读 入 到 缓 冲 区 中CopyMemory traceData(0), ByVal BinBuffer, traceBytes' 把 数 据 拷 贝 到 浮 点 数 组 中'––––––––– 以 频 率 / 电 平 对 应 的 形 式 输 出 二 进 制 数 据 ––––––––––––----------------–––––traceValues = traceBytes/4' 单 精 度 = 4 个 字 节stepsize = span/traceValues' 计 算 频 率 步 长For i = 0 To traceValues – 1Debug.Print "Value["; i; "] = "; startFreq+stepsize*i; ", "; traceData(i)Next i'––––––––– 0 频 率 跨 度 下 的 默 认 设 置 –––––––––––––––––––––––––––––––––---------–––CALL InstrWrite(analyzer,"FREQ:SPAN 0Hz")' 切 换 到 零 频 率 跨 度CALL InstrWrite(analyzer,"INIT;*WAI") ' 执 行 同 步 扫 描11300.2519.69 6.18 ZH-4