如何解决E3640A通过RS232读取电流时出现的问题

我正在使用为E3631A提供的示例代码“Diode Test”。
我能够成功地向E3640A发送命令。
但是，在查询中，例如“Meas：Curr？”
我得到一个VI_ERROR_TMO（80040015）。
请帮忙！下面是部分代码：使用Pwr .WriteString“Syst：Rem”.WriteString“* RST”'重置电源.WriteString“* CLS”'清除所有错误消息.WriteString“Curr”＆amp;
Str $（范围（“E2”）。值）'设置当前MaX为1amp对于i = 5到15回复=单元格（i，1）.WriteString“Volt”＆amp;
Str $（Cells（i，1））。WRriteString“Output on”'打开输出Pwr.WriteString“Meas：Curr？”
delay（0.5）reply = .readstring .WriteString“Output off”'关闭电源



     以下为原文

  I'm using the sample code "Diode Test" provided for E3631A. I'm able to send commands to the E3640A successfully. However, on inquires, for example "Meas:Curr?" I get a VI_ERROR_TMO (80040015). Please help!
Below is partial code:
With Pwr
        .WriteString "Syst:Rem"
        .WriteString "*RST"                               ' Reset the power supply
        .WriteString "*CLS"                               ' Clear any error messages
        .WriteString "Curr " & Str$(Range("E2").Value)                              ' Set current MaX To 1amp
        For i = 5 To 15
            reply = Cells(i, 1)
            .WriteString "Volt " & Str$(Cells(i, 1))
            .WriteString "Output on"                      ' Turn on the output
            Pwr.WriteString "Meas:Curr?"
            delay (0.5)
            reply = .readstring
            .WriteString "Output off"                     ' Turn off power supply