Tenho um arquivo de parâmetros S em meu PC e desejo carregá-lo em um rastro de memória do meu analisador de rede.
Como fazer isso via controle remoto?
Você precisa do programa anexado escrito em VisualBasicApplication no EXCEL.
Se tiver um driver NI-VISA instalado e uma conexão GPIB ou TCP/IP com o analisador de rede, você mesmo poderá executar o programa.
O programa pesquisa pelo arquivo TEST.S1P em "C:\Work\"
A parte importante é a seguinte:
Rem Abra o arquivo de parâmetros S Test.S1P e leia o conteúdo
Defina fs = CreateObject("Scripting.FileSystemObject")
Defina f = fs.GetFile("C:\work\Test.S1P")
Rem s é o número de bytes com o arquivo Test.S1P de dados
s = f.Size
Abra "C:\work\Test.S1P" Para entrada como #1
Do While Not EOF(1)
Text1 = Input(s, #1)
Loop
Fechar #1
Rem Crie os dados para enviar ao ZVL
Rem l é o número de bytes necessários para a informação de comprimento dos dados
l = Len(s)
Text2 = "#" + CStr(l) + CStr(s) + Text1
Rem Envie os dados em um arquivo ao ZVL
commandStr = "MMEMory:DATA 'C:\Temp\Test.S1P', " + Text2
countsend = Len(commandStr)
status = viWrite(vinstr, commandStr, countsend, count)
Rem Abra um arquivo em um rastro de memória
commandStr = "MMEM:LOAD:TRAC 'TRC1','c:\temp\test.s1p'"
countsend = Len(commandStr)
status = viWrite(vinstr, commandStr, countsend, count)
