GPIB错误提示

[superliu_2007]

编程菜鸟，遇到有关GPIB编程问题如下：设备通信接口由USB变成了现在的GPIB接口，编写相应代码后运行程式就出现“send failed[28]<-[*RST]"的错误提示（28是设备地址）。但不理会它继续运行程式电脑也能控制仪器。不知为何？请高手指点！

问题可能出现在以下GPIB代码中，
If ENABLE_TEST_EQUIPEMNT = False Then Exit Function

On Error GoTo ErrHandler

Ret = GpBoardsts(&H8, MyAddr)
cmd(0) = 2
cmd(1) = MyAddr
cmd(2) = DeviceAddr

Srbuf = Str
Srlen = Len(Str)
Ret = GpTalk(cmd(0), Srlen, Srbuf)
If (Ret <> 0) Then
GpibPrint = 1
RetTmp = CheckRet("GpTalk", Ret, ErrText)
Ret = MsgBox("Send failed [ " & DeviceAddr & " ] <- [ " & Str & " ] ", vbYesNo, "Continue?")
If Ret = vbNo Then GpibPrint = 1
If Ret = vbYes Then GpibPrint = 0
End If

[Mr-Chen]

仔细看看说明书，或者试试通用命令*IDN? *CLR等

[东方之珠]

那一行错误提示是 Ret=MsgBox("Send failed [ " & DeviceAddr & " ] <- [ " & Str & " ] ", vbYesNo, "Continue?") 的效果，没什么奇怪的。
将vbYesNo改成：vbYesNo + SystemModel即可，查一下MSDN，后一个可能我写得有误！

[Mr-Chen]

你发的GPIB命令格式可能有问题！

[superliu_2007]

To crystal：这段命令是GPIB自带的，格式应该不会有问题。*IDN? *CLR这些命令试过还是出现同样的提示。
To chenjl： “vbYesNo + SystemModel”这个是何意思？请高人能否详细说明！如果屏蔽这段命令则可正常运行，但我担心这样会对后面的运行有影响。