小弟要用VB的MSComm控件通过RS232控制SR830锁相放大器，用下面的代码发现计算机不能与锁相放大器通信。Command1_Click()程序是根据锁相的说明书发的指令，但是不知什么原因锁相的一些参数根本不改变，特请教各位大侠下面的代码有什么问题。先谢谢各位了，焦急等待中。

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = 9600,n,8,1
MSComm1.InBufferSize =1024
MSComm1.OutBufferSize =1024
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub

Private Sub Command1_Click()
MSComm1.Output =“ *RST ”+ Chr$(13) ’设置缺省配置
MSComm1.Output = “OUTX0;LOCL1” + Chr$(13) ’设置传输协议，“0”为RS232，“1”为GPIB
MSComm1.Output = “DDEF1,1,0;DDEF2,1,0” + Chr$(13) ’设置所用通道
MSComm1.Output = "FPOP1,0;FPOP2,0" + Chr$(13) ’设置通道的显示面板
MSComm1.Output = SENSIT$ + Chr$(13) ’设置灵敏度
MSComm1.Output = PHA_SHIFT + Chr$(13) ’设置参考相位偏移
MSComm1.Output = OUT_AMPLIT + Chr$(13) ’设置正弦信号幅度
MSComm1.Output = "SEND0" + Chr$(13) ’设置缓冲区存储数据的模式
MSComm1.Output = SAMRATE$ + Chr$(13) ’设置采样率
End Sub

[此贴子已经被作者于2007-9-26 11:25:56编辑过]

MSComm1.Output = *RST + Chr$(13) ’设置缺省配置
MSComm1.Output = OUTX0;LOCL1 + Chr$(13) ’设置传输协议，“0”为RS232，“1”为GPIB
MSComm1.Output = DDEF1,1,0;DDEF2,1,0 + Chr$(13) ’设置所用通道
MSComm1.Output = FPOP1,0;FPOP2,0 + Chr$(13) ’设置通道的显示面板
MSComm1.Output = SENSIT$ + Chr$(13) ’设置灵敏度
MSComm1.Output = PHA_SHIFT + Chr$(13) ’设置参考相位偏移
MSComm1.Output = OUT_AMPLIT + Chr$(13) ’设置正弦信号幅度
MSComm1.Output = SEND0 + Chr$(13) ’设置缓冲区存储数据的模式
MSComm1.Output = SAMRATE$ + Chr$(13) ’设置采样率

OUTX0;LOCL1
DDEF1,1,0;DDEF2,1,0
这些都是什么东西

“ MSComm1.Output = "*RST "+ Chr$(13) ’设置缺省配置
MSComm1.Output = "OUTX0;LOCL1" + Chr$(13) ’设置传输协议，“0”为RS232，“1”为GPIB
MSComm1.Output = "DDEF1,1,0;DDEF2,1,0" + Chr$(13) ’设置所用通道
MSComm1.Output = "FPOP1,0;FPOP2,0" + Chr$(13) ’设置通道的显示面板
MSComm1.Output = SENSIT$ + Chr$(13) ’设置灵敏度
MSComm1.Output = PHA_SHIFT + Chr$(13) ’设置参考相位偏移
MSComm1.Output = OUT_AMPLIT + Chr$(13) ’设置正弦信号幅度
MSComm1.Output = "SEND0" + Chr$(13) ’设置缓冲区存储数据的模式
MSComm1.Output = SAMRATE$ + Chr$(13) ’设置采样率”
‘＝号’后面的都是SR830说明书上的指令（也即通信协议），请问能不能这样发指令？

[此贴子已经被作者于2007-9-26 11:33:42编辑过]

肯定不能这样发.
你要了解SR830默认(有的可以发送命令设置.)能接受16进制指令还是字符串还是二进制
然后再来发送.你这样写肯定不行,在VB里面什么都不是,连变量都不是.

谢谢"随风逐流".假如可以发字符串指令的话，请问是否可用output命令来连续发指令？

可以.每一次命令有个结束符就行Chr$(13).

非常感谢"随风逐流”！
再请问一下如果可以以字符串形式发指令的话，这个程序代码是不是就没什么问题？

加上双引号
最好看看返回信息

谢谢！不好意思本人VB刚入门，很多东西都不懂。请问要看返回信息是不是用Input命令把缓冲区的数据读出来就可以了？

我认为是,不好意思,我没用过控件哦.