FAQs from Rohde & Schwarz

Загрузка файла S-параметров с ПК в память

Вопрос

У меня есть файл S-параметров на своем ПК, и я хочу загрузить его в память своего анализатора цепей.

Как это сделать с помощью дистанционного управления?

Ответ

Вам необходима прилагаемая программа, написанная в среде Visual Basic for Applications для EXCEL.

Если у вас есть установленный драйвер NI-VISA и GPIB- или TCP/IP-соединение с анализатором цепей, программу можно запускать самостоятельно.

Программа ищет файл TEST.S1P в каталоге 'C:\Work\'

Важная часть:

Rem Open the S-parameter file Test.S1P and read the content (Открыть файл S-параметров Test.S1P и прочитать содержимое)

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("C:\work\Test.S1P")

Rem s is the number of bytes with data Test.S1P file (s — количество байтов с файлом данных Test.S1P)

s = f.Size

Open "C:\work\Test.S1P" For Input As #1

Do While Not EOF(1)

Text1 = Input(s, #1)

Loop

Close #1

Rem Create the data to send to the ZVL (Создать данные для отправки в ZVL)

Rem l is the number of bytes needed for the length information of the data (l — количество байтов, необходимое для передачи объема данных)

l = Len(s)

Text2 = "#" + CStr(l) + CStr(s) + Text1

Rem Send the data in a file to the ZVL (Отправить данные в файле на ZVL)

commandStr = "MMEMory:DATA 'C:\Temp\Test.S1P', " + Text2

countsend = Len(commandStr)

status = viWrite(vinstr, commandStr, countsend, count)

Rem Open the file in a memory trace (Открыть файл в памяти)

commandStr = "MMEM:LOAD:TRAC 'TRC1','c:\temp\test.s1p'"

countsend = Len(commandStr)

status = viWrite(vinstr, commandStr, countsend, count)

Name
Type
Version
Date
Size
XLS_VISA_LAN_GPIB_ZVL_Transmit_S1P_From_PC-MEM.xls
Type
Вопросы и ответы
Version
Date
Dec 05, 2012
Size
242 kB
Test.s1p
Type
Вопросы и ответы
Version
Date
Dec 05, 2012
Size
15 kB