天堂口百度云:vb和单片机通讯

，在简体Form1中加入Command命令按钮并取名为CmdTest，MSComm控件取名为MSComm1，加入如下程序代码。
Private Sub cmdTestClick ( ) '打开串口
MSComml.CommPort =2 '设定Com2
If MSComml.PortOpen = False Then
MSComm1.Settings = "9600,n,8,1" '9600波特率，无校验，8位数据位，1位停止位
MSComm1.PortOpen = True '打开串口
End if
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0 '滑空接收缓冲区

'发送字符数据时注意必须用回车符（vbcr）结束
MSComm1.Output="This is a qood book ! " &vbCr

'泼打电话号码或发送AT命令
MSComm1.Output = "ATDT 05778191898 , & vbCr

'发送字符数组数据时注意ByteArray必须事先定义赋值
Dim ByteArray as byte( )

'定义动态数组
ReDim ByteArray(1)

'重定义数组大小
ByteArray ( 0 ) =0
ByteArray ( 1 ) = 1
MSComm1.Output = ByteArray
End Sub

private Sub MScommEvent( )
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
MSComm1.InputLen = 0
'接收二进制数据
MSComm1.InputMode= ComInputModeBinary
Buffer=MSComm1.Input
'接收字符数据
MSComm1.InputMode=comInputModeText
Buffer = MSComml.Input
Case else
End Select
End sub

关注