VB编写上位机实例.doc
VB编上位机编例写
用VB编上位机编例写
;编编,
用VB6.0编第一串口通信上位机程序写个
Visual Basic6.0是一可编化口编境的编程编件~目前使用个窗Visual Basic6.0可以快速编编编编片机中的串口通信上位机程序。 写
下面我编以一完整的通信编编编例子完成如何用个Visual Basic6.0编编片机串口通写
信程序。 编片机编 学HPOO
打编安好后的装Visual Basic6.0主程序界面。编编“编准EXE”。如编1编示~建立Visual Basic的编程编境。
编1
在菜编的[
工程
路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理
]编编中编编[部件]~如编2。把Visual Basic的串口通信控件Microsoft
Comm control 6.0编入工作菜编。
编2
在打编[部件]编编中~编编框Microsoft Comm control 6.0的编编~点编框[定确]。编3
编3
可以在编示3中可以看通信控件Microsoft Comm control 6.0的文件是在C:\WINNT\system32\MSCOMM32.OCX文件。
如果大家在首次编用通信控件Microsoft Comm control 6.0控件编无法在控件编编框找中到~编直接在系编目编中搜索名编MSCOMM32.OCX文件。然后通编编编加入VB的工作界面中。添加完控件回到编程 界面。如下编4。
编4
通编右编的菜编把一些必要的控件放在中。然后点编中的窗体窗体Timer控件按F4编出性口编行编置。其具编置如下, 编编属窗体FM编射编筒制作套件
Timer定编器控件编置性~;通编按属F4编可编出此口,窗
Mscomm通信控件性编置;通编编编控件的右编性可编出此口, 参数属属窗
编片机编编
本文用到的其他控件,CommandButton控件和TextBox控件按默编性编置不编。属
以上编置完成~回到编程中~任意编。编示窗体区双会Visual Basic的程序的窗体Load事件程序。在代编口中编入, 窗
Private Sub Form_Load()
MSComm1.PortOpen = True
'的加编编~就打编通信端口~通信端口的也可以在此指定窗体参数
Timer1.Enabled = Timer1.Enabled'的加编编~同编定编器控件事件窗体
End Sub 编子元件编编 网
编编编置目的是程序在打编是~首先打编通信控件当MSComm~注意编里的串口通信参数参数中的波特率编置是默编的。
即,波特率,9600bps~校编位,无~据位,数8位~停止位,1。 双编定编器控件Timer1同编在定编器的事件程序中~编入相编代编, 编子元件编编窗体
Private Sub Timer1_Timer()
If MSComm1.InBufferCount > 0 Then'程序编编编入编中是否有据~若有据冲区数数
Text1.Text = Text1.Text + MSComm1.Input
'编此据编取后~指定编文本的将数框Text性属End If
End Sub 编片机编程器 HPOO '此事件在每一会个Interval性编的循编编编隔被编用一次~编编就可以一直编取属数内
串口中有无据编送。定编器一直按编置速度循编编取串口据。 直到串口的程序编数数
冲区数中有据就把他编编Text1文本编示出。 框来
www.hpoo.net
最后编双CommandButton控件 ~在编出的程序口事件中编入如下代编, 编子元件窗编编
Private Sub Command1_Click()
MSComm1.PortOpen = False'编编通信端口
End
'编束系编
End Sub 编片机编程器 HPOO 在编口中个窗MSComm1.PortOpen = False是程序停止或者编编编件编都编编加上编编当串口。通编以上编编的代编就编编了VB串口接收程序。编编完成后~我编通编Visual
Basic菜编[文件]中的编编生编可编行文件。如下编,来
编编就编生完成程序整步编工作。下面介编通编编片机编程编编串口编送据到上位机个将数
程序的口中编示出。同编通编窗来PROTEUS编件的示波器编 看串口据编送仿真来数
情。况