向串口写数据 VB 源码

VB用MSCOMM控件与单片机经RS232串口实现通讯。一方为主发，一方为应答。规定好通讯格式。VB程序利用MSCOMM的ONCOMM事件进行接收。
Output 属性示例
下面的例子说明如何将用户键入的每一个字符送到串行端口：

Private Sub Form_KeyPress (KeyAscii As Integer)
Dim Buffer as Variant
' 设置并打开串口
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Buffer = Chr$(KeyAscii)
MSComm1.Output = Buffer
End Sub
同样在串口打开时,给MSCOMM的属性Output赋值,就向串口写入数据.
串口传送数据实质是传送ASCII码,对于数值数据的处理:通常以16位二进制数字传递,而小数点不传递,仅乘一定倍率来实现.同时16位二进制数字按两个8位(ASCII码值)输送,上位机通过程序代码处理成10进制数. 串口通信中数制转换必须相当重视。

详细请参阅MSDN和人民邮电出版社的"UISUAL BASIC 串口通讯工程开发实例导航"一书.其中有详细介绍.重点第一章“串口调试精灵”。其代码修改后可用作通讯模块。

如果是98系统，很容易，如果是NT（包括2000和XP）系统，那就不是一句两句说得清的了，因为NT系统禁止对串口直接进行读写操作。网上有插件可以完成这种功能，试着找一个叫max7300的插件吧，可以实现。不过说实在的，里面具体的代码我没看明白。