求助！！！用VB通过VISA读CMU200的值为什么不行呢？？？

awp666

Dim status
Dim txPower
Dim ret
status = viOpenDefaultRM(Defrm)
status = viOpen(Defrm, "GPIB0::10::2::INSTR", 0, 0, Equip)
status = viVPrintf(Equip, "READ:POWer:EPSK?" & Chr$(10), 0)
status = viVScanf(Equip, "%t", ret)
CMU已经显示出POwer的值了，但是ret却为0，我是想把功率值存在ret里
哪里有问题？？？

awp666

补充一下
如果dim ret
返回ret=empty

dim ret as long
返回ret=0

我用VISA interactive control中的Viwrite和Viread可以读出数据。
如果我想用viwrite和Viread来写命令，该怎么写？
请给个example，谢谢了

lijohnsbyp

你用VISA工具控制仪器的时候,其中有一个选项是可以把整句的代码列出在下面对话框的,按照它的那个去写就可以了

awp666

谢谢斑竹，你说的那个选项在VISA interactive control哪里能找到？
现在就卡在这了，搞不定。[em03]

cuijw

我一般用：
Declare Function viRead Lib "VISA32.DLL" Alias "#256" (ByVal vi As Long, ByVal Buffer As String, ByVal count As Long, retCount As Long) As Long
Declare Function viWrite Lib "VISA32.DLL" Alias "#257" (ByVal vi As Long, ByVal Buffer As String, ByVal count As Long, retCount As Long) As Long
Declare Function viVQueryf Lib "VISA32.DLL" Alias "#280" (ByVal vi As Long, ByVal writeFmt As String, ByVal readFmt As String, params As Any) As Long

cuijw

Dim temp1 As String * 500
    temp1 = ""
    cmdoutput = "READ:POW:MPR?"
    status = viWrite(testsetrmd, cmdoutput, Len(cmdoutput), temp)
    status = viRead(testsetrmd, temp1, 100, temp)

你的数据类型定义不对吧？

cuijw

就可以得到字符串temp1，再从中抽出你需要的数据

pp_boby

斑竹，我觉得你可以做以下的尝试，你程序在逻辑上没有问题，但是你所用的仪器？老化程度怎样？我建议你没有程序延时0.1秒。这样看下，而且你写的程序不敢恭维。愿意和你交流。
hua.w@sim.com

awp666

我的主业是RF工程师，做程序是因为有趣，很多基本概念不明还请多包涵阿