下面的程序是實現(xiàn)通訊的代碼。其中Label1控件用于串口通訊成功時的提示標簽。

PrivateSubMSComm1_OnComm（）'串口設(shè)置

DimBufferAsVariant

DimHexbuffer（）AsByte

IfMSComm1。PortOpen=TrueThen

SelectCaseMSComm1。CommEvent

CasecomEvReceive'有接受事件發(fā)生

MSComm1。InputLen=0

MSComm1。InputMode=comInputModeBinary

'數(shù)據(jù)收發(fā)采用二進制

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窗體界面中還設(shè)置了左右移動兩個按鈕，通過添加兩個定時器timer1和timer2，在定時器的timer事件里更改控件的位置屬性，從而實現(xiàn)字符的在窗體上的移動。圖5為通過虛擬串口和Proteus軟件仿真效果。圖5中，左圖為VB窗體界面，右圖是液晶顯示仿真圖。在窗體文本框控件中輸入字符，點擊發(fā)送按鈕后可以在液晶顯示屏中進行顯示，點擊左右移按鈕，液晶顯示屏的內(nèi)容也可以同時進行移動。

圖5VB控制的液晶顯示仿真

4結(jié)論

本系統(tǒng)以計算機作為主機，單片機作為從機，實現(xiàn)了計算機和單片機的串行通訊，并能夠通過鍵盤向計算機輸入字符顯示在液晶顯示屏上。系統(tǒng)結(jié)構(gòu)設(shè)計簡單，具有一定實用性。