基于VB 6.0 液晶显示系统的设计

下面的程序是实现通讯的代码。其中Label1控件用于串口通讯成功时的提示标签。

PrivateSubMSComm1_OnComm（）'串口设置

DimBufferAsVariant

DimHexbuffer（）AsByte

IfMSComm1。PortOpen=TrueThen

SelectCaseMSComm1。CommEvent

CasecomEvReceive'有接受事件发生

MSComm1。InputLen=0

MSComm1。InputMode=comInputModeBinary

'数据收发采用二进制

Buffer=MSComm1。Input

Label1。Caption=Buffer

Hexbuffer（）=Buffer

DimIAsInteger

ForI=0ToUBound（Hexbuffer）

IfHex（Hexbuffer（I））=1Then

Label1。Caption=Label1。Caption0Hex（Hexbuffer（I））

Else

Label1。Caption=Label1。CaptionHex（Hexbuffer（I））

EndIf

NextI

EndSelect

EndIf

EndSub

在VB窗体界面中还设置了左右移动两个按钮，通过添加两个定时器timer1和timer2，在定时器的timer事件里更改控件的位置属性，从而实现字符的在窗体上的移动。图5为通过虚拟串口和Proteus软件仿真效果。图5中，左图为VB窗体界面，右图是液晶显示仿真图。在窗体文本框控件中输入字符，点击发送按钮后可以在液晶显示屏中进行显示，点击左右移按钮，液晶显示屏的内容也可以同时进行移动。

图5VB控制的液晶显示仿真

4结论

本系统以计算机作为主机，单片机作为从机，实现了计算机和单片机的串行通讯，并能够通过键盘向计算机输入字符显示在液晶显示屏上。系统结构设计简单，具有一定实用性。