1. VB和单片机串口通信
下面是我做的一个测试程序：
'TextReceive =
' 初始化程序：主要完成对串口的设置，包括选择串口、设置波特率、设置数据格式、打开串口等。
' 注意：在程序开始之前，必须清空发送和接收缓冲区，以免出错。
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1" ' 设置波特率和发送字符格式
MSComm1.CommPort = 1 ' 设置通讯串口
MSComm1.InputLen = 0 ' 设置或返回一次从接收缓冲区中读取字节数，0表示一次读取所有数据
MSComm1.InBufferSize = 2 ' 设置接收缓冲区2Byte
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 2 ' 设置发送缓冲区2Byte
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1 ' 每个字符到接收缓冲区都触发接收事件
MSComm1.SThreshold = 1
MSComm1.InputMode = comInputModeBinary '采用二进制传输
MSComm1.PortOpen = True ' 打开串口
End Sub
Private Sub Command1_Click()
Dim number As Integer
Dim outbyte(0) As Byte
number = Val(170)
outbyte(0) = CByte(number)
MSComm1.Output = outbyte
Label4 = outbyte(0)
Print outbyte(0)
End Sub
2. 如何用VB通过串口和51单片机通讯使得单片机能够在IO口产生脉冲，脉冲的数量和频率由VB设定
这个需要分步来完成
1、实现单片机串口通讯
2、编写VB程序，添加串口控件，实现VB与单片机串口通讯
3、写单片机IO驱动，实现脉冲输出
4、VB发数据给单片机，实现脉冲数量和频率控制
5、更详细的可以私信我完成
3. 利用VB实现串口接收单片机数据
InputModeBinary
=
1
'通过
Input
属性以二进制方式检取回数据
写法有错，正确写法:
MSComm1.InputMode
=
comInputModeBinary
'以二进制方式接收
或:
MSComm1.InputMode
=
1
'以二进制方式接收