用VB编写上位机实例.doc

标签: 无标签
VB编写上位机实例

用VB编写上位机实例
16:14:22 UTC+0800Sun Apr 1 2007

Visual ,目前使用Visual 。电子制作 HPOO
下面我们以一个完整的通信试验为例子完成如何用Visual 。
打开安装好后的Visual 。选择“标准EXE”。如图1显示,建立Visual Basic的编程环境。

图1
在菜单的[工程]选项中选择[部件],如图2。把Visual m control 。

图2
在打开[部件]对话框中,m control ,点击[确定]。图3
图3
m control :\WINNT\system32\。
m control ,。然后通过浏览加入VB的工作界面中。添加完控件回到编程界面。如下图4。
图4
通过右边的菜单把一些必要的控件放在窗体中。然后点击窗体中的Timer控件按F4弹出属性窗口进行设置。其具体设置如下:
Timer定时器控件设置属性,(通过按F4键可弹出此窗口)
m通信控件参数属性设置(通过单击控件的右键属性可弹出此窗口)
mandButton控件和TextBox控件按默认属性设置不变。单片机编程器 HPOO
以上设置完成,回到编程窗体区中,任意双击。会显示Visual Basic的程序窗体的Load事件程序。在代码窗口中输入: 单片机编程器 HPOO
Private Sub Form_Load()
= True
'窗体的加载时,就打开通信端口,通信端口的参数也可以在此指定
=
'窗体的加载时,同时定时器控件事件
End Sub
这样设置目的是当程序在打开是,m,注意这里的串口通信参数中的波特率设置是默认参数的。
即:波特率:9600bps;校验位:无;数据位:8位;停止位:1。电子元件邮购网
双击定时器控件Timer1同样在定时器窗体的事件程序中,输入相关代码:
Private Sub Timer1_Timer()
If > 0 Then
'程序检查输入缓冲区中是否有数据,若有数据
= Text