GPIB错误提示

superliu_2007 2008-03-05 04:29:46
编程菜鸟,遇到有关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
...全文
156 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
superliu_2007 2008-03-15
To crystal:这段命令是GPIB自带的,格式应该不会有问题。*IDN? *CLR这些命令试过还是出现同样的提示。
To chenjl: “vbYesNo + SystemModel”这个是何意思?请高人能否详细说明!如果屏蔽这段命令则可正常运行,但我担心这样会对后面的运行有影响。
回复
Mr-Chen 2008-03-12
你发的GPIB命令格式可能有问题!
回复
东方之珠 2008-03-12
那一行错误提示是 Ret=MsgBox("Send failed [ " & DeviceAddr & " ] <- [ " & Str & " ] ", vbYesNo, "Continue?") 的效果,没什么奇怪的。
将vbYesNo改成:vbYesNo + SystemModel即可,查一下MSDN,后一个可能我写得有误
回复
Mr-Chen 2008-03-12
仔细看看说明书,或者试试通用命令*IDN? *CLR等
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-05 04:29
社区公告
暂无公告