基于VB6.0 的MSP430 单片机与PC 机串口通信设计

Sub Command1_Click ()

Dim Number As Integer ' 发送的数据变量

Dim OutByte (0) As Byte ' 发送字节数组

Number = Val (Text1.text) ' 类型转换

OutByte (0) =CByte (Number) ' 转换为二进制

MSComm1.OutBufferCount=0' 清空发送缓冲

MSComm1.Output = OutByte ' 发送数据

End Sub

接收功能代码：

Private Sub MSComm1_OnComm ()

Dim InData As Variant ' 变体变量

Dim Arr (0) As Byte ' 接收字节数组

Select Case MSComm1.CommEvent

Case comEvReceive ' 触发接收事件

InData = MSComm1.Input ' 接收数据

Arr (0) = AscB (InData) ' 类型转换

Text2.text = Arr (0) ' 显示数据

MSComm1.InBufferCount = 0 ' 清空接收缓

End Select

End Sub

(2) MSP430 单片机的部分程序

单片机的编程包括： 设置串行口的工作方式; 波特率的设置; 发送数据并接收数据。以下为串行口的初始化程序：

CKCSH MOV1B # SWRST, U 1CT L; 先在SWRST= 1 时，

设置串口

BIS. B # CHAR, U 1CTL

MOV. B # SSEL1+ SSEL0, U 1TCTL;

MOV. B # 045H, U1BR0; 波特率为9600

MOV. B # 00H, U1BR1;

MOV. B # 055H, U1MCT L;

BIS. B # U TXE1+ U RXE1, ME2;

BIC. B # SWRST, U1CTL;

4 结语

串口通信是一项广泛应用到各个领域的通信技术， 尤其是单片机与PC 机间的通信。在实践中VB6.0 以其好学易用性得到广泛的应用，MSP430 系列单片机以低功耗等特点被应用在测控系统中，两者结合能够快速构筑以单片机采集数据和计算机快速处理的系统