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

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

DimBufferAsVariant

DimHexbuffer（）AsByte

IfMSComm1。PortOpen=TrueThen

SelectCaseMSComm1。CommEvent

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

MSComm1。InputLen=0

MSComm1。InputMode=comInputModeBinary

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

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

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

4結(jié)論

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