基于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結論

本系統以計算機作為主機，單片機作為從機，實現了計算機和單片機的串行通訊，并能夠通過鍵盤向計算機輸入字符顯示在液晶顯示屏上。系統結構設計簡單，具有一定實用性。