用VB编写上位机实例

1、标签：无标签VB编写上位机实例用VB编写上位机实例16:14:22 UTC+0800Sun Apr 1 2007用VB6.0编写第一个串口通信上位机程序Visual Basic6.0是一个可视化窗口环境的编程软件，目前使用Visual Basic6.0可以快速简单编写单片机中的串口通信上位机程序。电子制作 HPOOF面我们以一个完整的通信试验为例子完成如何用Visual Basic6.0编写单片机串口通信程序。打开安装好后的Visual Basic6.0主程序界面。选择标准EXE”。如图1显示,建立Visual Basic的编程环境。ActiveX DLLActiveX数据工程外接程序IIS冒

2、用程在菜单的工程选项中选择部件，如图2。把Visual Basic的串口通信控件Microsoft Comm control 6.0 调入工作菜单。工程(E)格式(0)调试( 0忝加宙儆E)S忝加MDI窗体媲忝加複块勉芒赛加类模烘(0滋忝加用户控件(固慕加雇性更迥吩剧U用戶文裆慕加 WebClass粛加 Data Report恭加 DHTML Page誰加 Data Environmerit更彗ActiveX设计器(.恭加文件(Ctrl+D移除 FormlfR)住引用部件(Q).,Ctrl+T在打开部件对话框中，选择Microsoft Comm control 6.0的选项框，点击确定。图3f

3、t叮Q竺崭|凶 揑件I设计器I可插入对象I FPDTC 1.0 TYPE LI0RARYjJ i-dropType Library Kodaks編辑控制 Kodak图像莒理控制 Kodak图像扫描控制 Kodak缩略图控制 Microsoft ActiveX Plugin Microsoft ADO Data Control 6.0 (OLEDS) I Microsoft Agent Control 2.0 Microsoft Chart Control 6.0 (OLEDB)列 Microsofi Common Dialog Control 6.0J| iTMicrosoft Comm Co

4、ntrol 6.0lr&E Al仁同 o-护浏览二一 I厂只显示选定项Mi crosoft Commi Control 6.0-定位：C: WimTEyStern32NSC0MM32- OCX确定取消应用迦可以在图示3中可以看通信控件Microsoft Comm control 6.0的文件是在C:WINNTsystem32MSCOMM32.OCX 文件。如果大家在首次调用通信控件Microsoft Comm con trol 6.0 控件时无法在控件 对话框中找到，请直接在系统目录中搜索名为 MSCOMM32.OCX 文件。然后通过浏览加入VB的工作界面中。添加完控件回到编程界面。如下图4文

5、件（日舖锁町视團凶工程（日格式（调应谨行查询翻妙曹為噩已関丿k II 翳2S1JTimer定时控件Commandbulton 控件停止并退出A FS:iiiDiziEQ &Projectl - Forml (Form)二1口1、Gener alTextlMSC0MM通信控件a匡suj冠串口赏程单片机学习与设订Projectl - Microsoft Visual Basic Timer控件图4通过右边的菜单把一些必要的控件放在窗体中。然后点击窗体中的按F4弹出属性窗口进行设置。其具体设置如下:展性-TimerlTiarl Timrt|按字母厚|按曲类序（名称）Tim&rlEnabledTrue

6、Interval100Left1560TigTcp39E0Timer定时器控件设置属性，（通过按F4键可弹出此窗口）Mscomm通信控件参数属性设置（通过单击控件的右键属性可弹出此窗口）本文用到的其他控件：CommandButton 控件和TextBox控件按默认属性设置不变。单片机编程器 HPOO以上设置完成，回到编程窗体区中，任意双击。会显示Visual Basic的程序窗体的Load事件程序。在代码窗口中输入：单片机编程器 HPOOPrivate Sub Form_Load（）MSComm1.PortOpe n = True窗体的加载时，就打开通信端口，通信端口的参数也可以在此指定Tim

7、er1.E nabled = Timer1.E nabled窗体的加载时，同时定时器控件事件End Sub这样设置目的是当程序在打开是，首先打开通信控件 MSComm ,注意这里的串口通信参数中的波特率设置是默认参数的。即：波特率：9600bps ;校验位：无；数据位：8位；停止位：1。电子元件邮 购网双击定时器控件Timerl同样在定时器窗体的事件程序中，输入相关代码：Private Sub Timer1_Timer()If MSComm1.lnBufferCount 0 Then程序检查输入缓冲区中是否有数据，若有数据Text1.Text = Text1.Text + MSComm1.l

8、nput则将此数据读取后，指定给文本框的Text属性End IfEnd Sub此事件会在每一个Interval属性值的循环计数间隔内被调用一次，这样就可以 一直读取串口中有无数据发送。定时器一直按设置速度循环读取串口数据。直 到串口的程序缓冲区中有数据就把他发给Text1文本框显示出来。杭州电子元件邮购网地址：最后双击CommandButton 控件，在弹出的程序窗口事件中输入如下代码：Private Sub Comma nd1_Click()MSComm1.PortOpe n = False关闭通信端口End结束系统End Sub在这个窗口中 MSComm1.Port

9、Ope n = False是当程序停止或者关闭软件时都应该加上关闭串口。通过以上简单的代码就实现了VB串口接收程序。编辑完成后，我们通过 Visual Basic菜单文件中的编译来生产可执行文件。如下图:文件编辑 视图 工程（日 格去CtrH-N匚 trl+O忝加工程（ 移除工程（町a保存工程（刃工程另存炯保存Forml斤mCtrl+5Forml.frnn另存为（閱保存选捧（0保存更改的脚本（切匚MI+P昌打印（E）0打印设置生成 Pgjxtl .exe(O.生成工程组（IPrcjectLvbp2 .I转速计Projec11,vbp2 I电功率计ProjectLvbpAlt+Q生旺D自动滚屏功能I工程Xbp 退出（幻YB串口 flg程单片机孚习与曲働曲Iwww.hpoo.n Et welcome www.hpoo net welcome www.hpoo net welcome welcome www.hpoo net welcome www.hpoo net welcome j welcome welcome www.hpoo net welcome ww