VB实验报告Word格式文档下载.docx
- 文档编号:4792595
- 上传时间:2023-05-04
- 格式:DOCX
- 页数:20
- 大小:604.74KB
VB实验报告Word格式文档下载.docx
《VB实验报告Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB实验报告Word格式文档下载.docx(20页珍藏版)》请在冰点文库上搜索。
VB不但提供了良好的界面设计能力,而且在微机串口通信方面也有很强的功能。
实时数据采集系统过去在DOS操作系统下一般是采用汇编语言开发制作。
Windows操作系统的普及应用,尤其是可视化软件开发平台的出现,为软件开发提供了强大的图形界面功能,使得开发出来的应用程序具有良好的人机交互功能。
汇编语言的特点是难调试,而高级语言具有良好的可读性及方便的调试手段。
采用VB开发Winodws下的数据采集和工业控制应用软件十分方便,尤其软件界面设计非常便捷,编程工作量较小,开发周期短,特别适合非计算机专业的工程技术人员掌握和使用。
2.设计项目:
a.(VB编程)WINXP下数字量输出实验(PCI总线)
b.(VB编程)WINXP下程控循环灯实验(PCI总线)
3.设计思想:
在WINDOWS环境下利用VB6.0实现开关量输出实验、程控循环灯试验,并给出程序代码,对其稍加改动便可以改变循环的快慢和背景色以及其它视图效果。
下面通过图文的形式给予说明
首先,将PCI-7483数据采集卡插入至PC总线工控机内一个空PCI插槽中,再把10芯连接电缆的DB37头插入PCI7438数据采集卡侧的插座上,把另一头插入BH5105-PCI7483实验板的SX1中;
最后把20芯连接线的DB37头插入PCI7483数据采集卡的另一插座上,将另一头插入自制的BH5105-PCI7483实验板上的XS2中,此时XS3不能插入连接电缆。
最后,开机进入WINXP状态,再进入VB,运行实验程序将看到实验程序的主界面窗口,用鼠标点击“数字量输出”按钮,将看到数字量输出实验界面窗口。
在此窗口的两个数据输入框中输入数字量,再点击“确定”按钮,观察自制的BH5105-PCI7483实验板上16个LED发光二极管(D1-D16)DE亮/灭状态是否与预期相同(“1”亮,“0”灭)。
以下为数字量输出实验的主程序:
'
do_data
(2)为DO输出数据
Dimdo_data
(2)AsByte
改变DO量显示区函数
PrivateSubdiodata_Click(IndexAsInteger)
'
改变开关量显示区
Ifdiodata(Index).Caption="
关"
Then
diodata(Index).ForeColor=RGB(255,0,0)
diodata(Index).Caption="
开"
Else
diodata(Index).ForeColor=RGB(0,0,255)
DimX(16)AsInteger
Fori=0To15
Ifdiodata(i).Caption="
X(i)=1
X(i)=0
EndIf
Nexti
do_data(0)=0
do_data
(1)=0
Fori=0To7
do_data(0)=X(i)*2^i+do_data(0)
Fori=8To15
do_data
(1)=X(i)*2^(i-8)+do_data
(1)
doedit(0)=Hex(do_data(0))
doedit
(1)=Hex(do_data
(1))
EndIf
EndSub
PrivateSubDoCom_Click()
根据开关量显示区确定DO转换数据
Fori=0To1
X=0
Forj=0To7
Ifdiodata(i*8+j).Caption="
X=X+2^j
Nextj
do_data(i)=X
X1=do_data(0)
X2=do_data
(1)
Callpci7483do(hplx,False,0,X1)
Callpci7483do(hplx,False,1,X2)
DO数据编辑函数
PrivateSubDoEditCom_Click()
j=1
判断DO输入数据是否为空
Ifdoedit(i)="
"
k=MsgBox("
DO数据为空,请重新输入,范围在(0--FFH)!
vbQuestion,"
DO数据输入"
)
j=0
i=3
k=Val("
&
h"
&
doedit(i))
判断DO输入数据是否有错
Ifk<
0Ork>
HFFThen
DO数据输入错误,请重新输入,范围在(0--FFH)!
输入DO数据正确
Ifj=1Then
根据输入DO数据更新开关量显示区
X=Val("
If(XMod2^(j+1))=2^jThen
X=X-2^j
diodata(i*8+j).ForeColor=RGB(255,0,0)
diodata(i*8+j).Caption="
diodata(i*8+j).ForeColor=RGB(0,0,255)
PrivateSubExit_Click()
Ifhplx<
>
1Then
hplx=pci7483close(hplx)
UnloadDoForm
主界面.Show
开关量输出初始化函数
PrivateSubForm_Load()
设置为DO方式
doedit(0)=0
doedit
(1)=0
DoCom.Enabled=True
DoInput.Enabled=True
hplx=0
hplx=pci7483check(0,0,False,1)
开关量输出操作帮助函数
PrivateSubHelpCom_Click()
DoHelpForm.Show
图片见下
最后,开机进入WINXP状态,再进入VB,运行实验程序将看到实验程序的主界面窗口,用鼠标点击“程控循环灯”按钮,将看到程控循环灯实验界面窗口。
再点击“开始”按钮,观察自制的BH5105-PCI7483实验板上16个LED发光二极管(D1-D16)LDE亮/灭状态。
①运行软件启动程序
②双击界面在其中输入下列程序循环灯界面对应的代码:
Dimdt0AsInteger,dt1AsInteger,jAsInteger‘定义变量
PrivateSubCommand1_Click()‘对应于“开始”
Timer1.Enabled=True‘定时器启动
PrivateSubCommand2_Click()对应于“停止”
Timer1.Enabled=False
dt0=&
H1
dt1=&
H0
PrivateSubCommand3_Click()‘对应于“返回”
Ifhplx<
hplx=pci7483close(hplx)
Unload走马灯
PrivateSubForm_Load()‘在窗口调入时执行
hplx=pci7483check(0,0,False,1)‘选择板卡
dt0=&
HFF
dt1=&
HFF
Callpci7483do(hplx,False,0,dt0)‘赋值给通道
Callpci7483do(hplx,False,1,dt1)
H1‘赋初值
PrivateSubTimer1_Timer()‘在定时时间到时执行
Fori=1To16
Label(i).BackColor=&
HFF00&
Callpci7483do(hplx,False,0,dt0)'
0组输出dt0
Callpci7483do(hplx,False,1,dt1)'
1组输出dt1
Ifdt0<
0Then
SelectCasedt0
Case1
Label
(1).BackColor=&
HFF&
Case2
Label
(2).BackColor=&
Case4
Label(3).BackColor=&
Case8
Label(4).BackColor=&
Case16
Label(5).BackColor=&
Case32
Label(6).BackColor=&
Case64
Label(7).BackColor=&
Case128
Label(8).BackColor=&
EndSelect
Ifdt1<
SelectCasedt1
Label(9).BackColor=&
Label(10).BackColor=&
Label(11).BackColor=&
Label(12).BackColor=&
Label(13).BackColor=&
Label(14).BackColor=&
Label(15).BackColor=&
Label(16).BackColor=&
Ifdt1=0Then
dt0=dt0*2‘右移循环
dt1=dt1*2
Ifdt0=256Then‘达到FF清零开始下次循环
dt0=0
dt1=1
Ifdt1=256Then
dt0=1
dt1=0
如图所示:
编辑再运行。
通过此程序可以实现走马灯的效果,还可以通过子界面改变走马灯的循环时间以及灯的背景色。
程序运行效果
③退出程序,改变Timer1_Timer()函数可以来改变循环时间
点击图中时钟符号,再其右侧出现一个任务框在里面改动Interval对应的数字,该数字是毫秒级的如图为500表示从第一个开始循环到第二个需要0.5秒,如果改为2000那循环时间变为2s,
④还可以改变灯的背景色
点击灯在右侧出现选择框,可以随便改变自己喜欢的颜色设置为灯的背景色,还可以改变背景色,字的颜色,按钮的颜色等等。
⑤如要实现一次多盏灯的亮灭,比如三盏灯的循环亮灭,修改后的程序如下:
Ifdt0<
0Then
End
修改前:
程序运行截图:
三、实验总结:
通过这几天的专业技术学习,能够掌握VB的一般语法、简单应用、能够编写简单的程序。
通过学些发现VB语言有他的优点也有他的缺点。
优点就是编辑环境简洁、学习起来比较容易,能够即时编译较比c++简单一些。
缺点就是程序较大、运行时需要进行动态链接。
移植性能也没C++好。
但在工业上,VB已成为Windows系统开发的主要语言,VB具有良好的图形用户接口并支持面向对象的程序设计和具有结构化的事件驱动编程模式,使编程效率提高,应用功能增强,采用VB开发工业测控系统的应用软件,只要处理好实时串口通信部分,就能在短时间内开发出交互界面友好的、功能易扩展的、面向对象的工业测控系统。
虽然学习VB语言比较枯燥,但是经过这次学习,也锻炼了我的意志,磨练了我的耐性,更重要的是让我学习到了一种新的编程知识,让我受益匪浅。
附:
参考文献
[1]李罡.VisualBasic5.0编程实例详解.电子工业出版社,1998
[2]王章瑞.数据采集与接口技术实验指导书西南石油大学,2011
通过此次的专业技术实习,自己或多或少的了解到了VB语言的知识与其魅力。
尤其是它的控件用起来很方便,功能很强大,队界面开发十分方便强大。
VB学习简单,在电脑上运行速度快,效率高。
VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
在工业上VB已成为Windows系统开发的主要语言,VB具有良好的图形用户接口并支持面向对象的程序设计和具有结构化的事件驱动编程模式,使编程效率提高,应用功能增强,交互界面友好、功能易扩展。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 报告