求助VB编程测试ADAM-4017模块，接收数据！

显示全部楼层 · 2011-6-22 11:54:34

通过VB编程PrivateSubCommand1_Click()\'缓冲区来保存输入的字符串
DimInstringAsString\'使用端口COM1.
MSComm1.CommPort=1\'9600波特，无奇偶校验，8个数据，1停止位。
MSComm1.Settings=\"9600,N,8,1\"\'控件来读取输入整个缓冲区
MSComm1.InputLen=0\'打开端口
MSComm1.PortOpen=True
EndSub

PrivateSubCommand2_Click()\'在地址为01H发送命令到ADAM-4017模块

MSComm1.Output=\"#01\"defds123Chr$(13)\'等待数据回来到串行端口。

Do
DoEvents
Buffer$=Buffer$defds123MSComm1.Input
LoopUntilInStr(Buffer$,vbCr)\'读取数据直到回车符响应。

Text1.Text=Buffer$\'显示读数.
EndSub

PrivateSubCommand3_Click()\'关闭串口.
MSComm1.PortOpen=False
EndSub

中间修改成ADAM-4017的测试的部分，不会修改！请高手指点！只要中间修改成可以输入数据后有个数据返回的就可以！谢谢！做毕业设计用的比较急在线等的！

千问 · 2011-6-22 11:54:34

ADAM4017模块有00-FF的地址即0-256要求输入输入#AAN命令后读取指定通道的数据。AA范围是（00-FF）N指的是通道（0-7）....编中间的那块程序用#AAN命令获取地址中的数据...不知道怎么编好！用MSComm控件部分编的不知道怎么弄！

千问 · 2011-6-22 11:54:34

Com_return函数不是需要带一个str参数吗，你把你的地址带进去就是啊
读指定通道需要底层做好了才行，根据其返回信息（你call上面的函数的返回值)然后分析，至于怎么分析设计底层的有说明

求助VB编程测试ADAM-4017模块，接收数据 ！

求助VB编程测试ADAM-4017模块，接收数据！