VB6（精选九篇）
VB6 篇1
近20多年来, 我国餐饮业发展迅猛, 日新月异, 各种风味特色, 各种经营形式, 各种组织结构的餐饮企业星罗密布。目前, 我国餐饮消费额正以每年17%以上的速度递增。与此同时, 国外餐饮业也加快了进入国内市场的步伐, 如"麦当劳"、"肯德基"等外国餐饮企业在近十年已经占据了一定的市场份额。在与国外餐饮业的激烈竞争中, 民族餐饮业由于经营方式和管理手段落后, 在竞争中处于劣势。随着现代信息技术、通信技术及计算机技术的高速发展, 传统的管理思想、管理模式、管理手段受到了巨大的挑战, 如何有效地利用这些先进技术来提升企业的竞争力已成为企业最关注的事。因此, 发展餐饮业尤其是小型餐饮业管理系统对提高我国民营餐饮业的科技含量, 提高劳动生产率, 节约成本, 取得经营优势有着重要意义。
本餐饮管理系统是一款专业的餐饮管理软件, 集前台营业、仓库管理、会员管理、预订管理、系统设置等功能的综合性管理系统于一身。系统界面简洁优美, 操作直观简单, 无需专业培训即可熟练使用。
1、主要设计
本餐饮管理系统不仅具有功能完善、安全可靠、配置灵活、操作简单、模块组合简易的优点, 而且具有友好的用户界面, 能实时快速地收集、传递、加工、处理管理信息和数据。用户使用餐饮信息管理系统, 可以把业务管理的井井有条, 使用户获得更大的社会效益和经济效益。根据需求分析可得出系统的模块功能图, 如下所示:
本餐饮管理系统主要由以下几个模块组成:
a) 用户登陆模块
设置用户权限登陆, 在不同的权限中输入相应的用户名及密码后点击"进入"后登陆。
b) 系统设置模块
由添加用户, 修改密码及退出三个功能组成。
c) 前台营业模块
前台营业模块中包括三部分:开台、点菜、结账。其中开台即为餐桌状态查询, 可以查询各个房台的当前状态, 为有客或为空闲。查询完毕后即可在指定餐桌上点菜就餐, 即进入了点菜窗体, 点菜完毕后可把客人的点菜信息, 譬如桌号, 点的菜品名称, 菜品数量, 对菜品的要求等打印到厨房。结账时也可打印消费凭条。
d) 库存管理模块
包含两部分, 分别为入库和库存信息查询。在入库窗体中, "进货"和"入库"是两个不同的概念。确认进货后可以取消进货, 但一旦选择了入库操作就不可以再取消进货。库存信息查询可以对库中的各种不同种类的菜品或酒水餐具等进行详细的查询, 并可以显示查询物品的库存数量, 以便及时调整进货。
e) 预定管理模块
预定模块中的预定部分可以在查询餐桌状态后预定指定的桌号, 此时餐桌状态由空闲变为有客。而取消预定部分则可以取消预定的餐桌, 使餐桌状态由有客变回空闲。
f) 会员管理模块
在会员管理模块中, 包含会员列表、修改会员信息、添加/删除会员三个部分。有浏览会员信息, 添加会员, 修改会员信息, 删除会员等功能。
2、系统的实施与应用
在系统分析中, 本着经济效益和可行性等问题, 具体讨论了一个实际的酒店餐饮管理信息系统应该具有的功能及实现, 并进行了可行性分析与需求分析, 系统满足了用户需求, 能够完成登记、点菜、结帐、以及数据查询、打印报表等功能。随着以后互联网的发展, 可以将此系统设计成B/S的模式, 会更加满足餐饮管理的快捷方便管理需求。
参考文献
[1].《软件工程导论》张海潘主编清华大学出版社1998
[2].《Visual Basic 6.0信息管理系统开发实例导航》求是科技主编人民邮电出版社2005
[3].《Visual Basic 6.0信息系统设计与开发实例》黄明, 梁旭等主编机械工业出版社2005
[4].《Visual Basic 6.0数据库开发技术与工程实践》求是科技主编人民邮电出版社2004
VB6 篇2
----在VB6专业版或者企业版中,LISTVIEW控件并不是默认的工具箱的配置项目,你必须要手工添加---单击“工程”菜单项目,选择“部件”,在部件对话框的“控件”栏目中选择“MICROSOFT WINDOWS COMMON CONTROLS 6.0”,确认在它前面的复选框中有一个黑色的对号,单击“确认” 按钮,这时你的工具箱中便添加了几个控件,其中,有五个空心圆圈的便是LISTVIEW控件了, 当然怎么把它添加到窗体上就不用我多说了吧。
----我个人认为,作为一个增强功能的列表框,它的本质是用来显示更多的信息的.因此, 在这篇文章中,我着重介绍它VIEW属性的LVWREPORT(报表)值的使用.至于它的外观怎样设计,诸位当然可以随心所欲了.为了直观一点,我举一个应用实例来说明。
----设计完成后的主界面参见图一,它实际上是一个增强功能的文件浏览器。
----首先新建一个标准EXE工程,主窗体名称为FRMMAIN,添加一个驱动器列表框DRIVE1,一个文件列表框FILE1（设置VISIBLE属性FALES，PATTERN属性(*.EXE；*.DLL)），一个目录列表框DIR1,一个增强列表框LISTVIEW1,一个IMAGE控件IMAGE1和一个IMAGELIST控件IMALIST1，在IMALIST1控件上单击右键,设计IMAGELIST控件，添加一个你最喜欢的图标（最好使用ICON图标），索引为一。在主窗体FRMMAIN的通用声明段输入以下代码： Dim clmX As ColumnHeader；标题栏 Dim itmX As ListItem；列表项目 Dim Counter As Long；计数器 Dim Fname As String；读取文件名
Dim dname As String；增强列表框完整路径名称 Public CurrentDir As String；完整的目录名称 在主窗体的LOAD事件中写入以下代码： Private Sub Form_Load()Me.Caption = App.Title;窗体的标题为生成可执行文件的标题 Me.Left =(Screen.WidthMe.Height)/ 2； 窗体位置在屏幕中间
ListView1.ColumnHeaders.Add , , “文件名称”,ListView1.Width / 3, 0 ’第一个标题栏是“文件名称“,长度为ListView1 宽度的三分之一,文字左对齐
Set clmX = ListView1.ColumnHeaders.Add(, , “序号”, ListView1.Width / 5, 2)’第二个标题栏是“序号“ 依次往下
Set clmX = ListView1.ColumnHeaders.Add(, , “文件大小 ”, ListView1.Width / 4, 1)Set clmX = ListView1.ColumnHeaders.Add(, , “创建时间”, ListView1.Width / 3, 0)ListView1.BorderStyle = ccFixedSingle；边界类型 ListView1.SmallIcons = ImageList1 ；
关联图标仓库ImageList1 For Counter = 0 To File1.ListCount1 Fname = File1.List(Counter)Set itmX = ListView1.ListItems.Add(, , Fname);添加文件名
itmX.SubItems(1)= CStr(Counter + 1)+ “/” + CStr(File1.ListCount)itmX.SubItems(2)= CStr(FileLen(CurrentDir & Fname))itmX.SmallIcon = 1 itmX.SubItems(3)= Format(FileDateTime(CurrentDir & Fname), “HH:MM YYYY/MMMM/DD”)Next Counter；添加增强列表框的各个项目
Dir1.ToolTipText = “当前目录是:” & Dir1.Path；提示 End Sub----通过以下代码取得鼠标单击增强列表框返回的项目名称： Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)allfname = Item;文件名
dname= CurrentDir& Item;完整的路径和文件名
VB6 篇3
关键词：串口通信；监控；VB6.0
中图分类号：TP393文献标识码：A文章编号：1009-3044(2007)18-31487-01
VB6.0 Equipment with Serial Communication and Monitoring Capabilities
GU Huan-yu
(Shanghai Telecom Technology Development Ltd.,Shanghai 200065,China)
Abstract:In practical applications,the computer serial port and external serial devices commonly used data transmission channel.This paper introduces the basic principles of serial communication function and presented in windows environment serial communication under the general methods and steps, and Visual Basic 6.0 programming under.
Key words:Serial Communication;Monitor;VB6.0
1 引言
计算机串口是通过串行通讯方式进行通信，即一条信息的各位数据被逐位按顺序传送。串行通讯的特点是：数据位传送按位顺序进行，最少只需一根传输线即可完成，成本低、速度较慢，距离可以从几米到几千米。数据通讯量不是很大时，在工控领域广泛地使用串口通信对设备进行监控。
2 问题描述
为了完成对IP网关相应设备是否正常的监视，包括监视输入线路馈电是否正常，控制前端机完成对使用线路与备用线路之间的切换，随时查询控制状态和监视结果，设计计算机串口通信程序。
通讯指标：通信方式为波特率9600bps的主从半双工串行方式，数据包内字节间最大时隙1.5ms，前端机对主站下行指令的最大响应时间为10ms。
数据包格式为：
(3)校验字为长度字和数据字符段的模256算术和。
3 设计思路
系统主要实现以下功能，即对设备发送读指令，读取设备状态；对设备发送控制指令，控制设备动作。下面以N=0（设备号为0）为例，简单说明程序设计的思想。
(1)系统初始化，系统对N=0的设备发出写控制字命令，所有线路走A路。监测前端机返回状态。
(2)监测线路状态，向前端机发出读状态字命令，分析前端机返回状态，并通过可视界面即时显示。
(3)控制设备：如切换电路等，由系统向设备发出写控制字命令，控制设备动作，通过监测前端机返回状态，判断动作是否成功完成。
4 系统实现
随着Windows的广泛应用，越来越多的微机用户已习惯于Windows操作系统。现在有诸多应用软件都可以帮助我们比较方便实现以上功能，编程工作量相对较小，只需进行主要应用功能的编程和少量界面控制的编程。VB的通讯控件友好、功能强大，编程速度快，加上VB的易学、易用，快速开发等特点，数据通讯量不是很大时，在单片机通讯领域广泛地使用VB开发PC上层通讯软件。下面以VB6.0为例简要说明串口通信的实现。
在VB的控件工具箱中，提供了一个使用非常方便的串行通讯控件MSComm，它全面的提供了使用RS-232串行通讯上层开发的所有细则，它既可以使用查询方式又可以使用事件驱动方式来完成串行通讯。在窗体中加入MSComm控件, 取名为MSComm1, 加入Command命令按钮并取名为initialize. 写入以下代码实现系统初始化：
Private Sub initialize_Click()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.InBufferSize = 40 '设置MSComm1接收缓冲区为40字节
MSComm1.CommPort = 1
'设定Com1
If MSComm1.PortOpen = False Then
MSComm1.Settings = "9600,n,8,1"
'9600波特率，无校验，8位数据位，1位停止位
MSComm1.PortOpen = True
'打开串口
End If
MSComm1.OutBufferCount = 0
'清空发送缓冲区
MSComm1.InBufferCount = 0
'清空接收缓冲区
outL(0) = "10"（十进制）
outL(1) = "18"
outL(2) = "208"
outL(3) = "0"
……
outL(19) = "0"
outL(20) = "226"
outL(21) = "13" （outL数组设为Byte 数据类型，存储为单精度型、无符号整型、8 位（1个字节）的数值形式，范围在 0 至 255 之间。）
MSComm1.Output = outL
With MSComm1
.InputMode = comInputModeBinary '设置接收数据模式为二进制形式
'为了实现实时监测功能，接收数据的读取要尽可能的快速，则设置MSComm1的属性如下：
.RThreshold = 1'设置接收一个字节产生OnComm事件
.InputLen = 1 '设置Input 一次从接收缓冲读取字节数为1
.OutBufferCount = 0 '清除发送缓冲区
MaxW = -99 '最大值赋初值
MinW = 99 '最小值赋初值
w = 0 '数据个数计数器清零
If .PortOpen = False Then'判断通信口是否打开
.PortOpen = True '打开通信口
If Err Then'错误处理
MsgBox "串口通信无效"
Exit Sub
End If
End If
End With
End Sub
控件MSComm提供了一个事件OnComm，该事件可以截取串口的任何消息，转入事件处理程序。OnComm可以扑获通讯时发生的串口事件和错误信息，当有串口事件或错误发生时，VB会立刻触发一个OnComm事件，程序就会自动转入OnComm事件处理程序中。MSComm1_OnComm的事件处理程序只处理 comEvReceive事件，首先判断帧数据的开始字节，关闭OnComm接收事件，然后接收数据字节。具体源代码如下：
Dim ab(6) As Byte '字节数据类型数组，用来存储接收到的一组字节数据
Dim av As Variant '用来从接收缓冲区读取数据
Private Sub MSComm1_OnComm()
With MSComm1
Select Case .CommEvent'判断MSComm1通信事件
Case comEvReceive'收到Rthreshold个字节产生的接收事件
av = .Input'读取一个接收字节
ab(1) = av(0)'转换保存到字节数据类型数组
If ab(1) = 10 Then'判断是否为数据开始标志
RThreshold = 0'关闭OnComm事件接收
Do
Loop Until .InBufferCount >= 5
'循环等待MSComm1接收缓冲区>=5个字节
w = w + 1 '计数器累加计数
For i = 2 To 6
av = .Input '读取第二个数据字节（BCD码高位字节）
ab(i) = av(0)'转换保存到字节数据类型数组
Next i
Else
MsgBox "接收数据错误", vbOKOnly, "提示"
Exit Sub
End If
.InBufferCount = 0'清除接收缓冲区
.OutBufferCount = 0 '清除发送缓冲区
End With
End Sub
读状态，响应状态的程序设计也是相似的，但接收到响应状态字需要分析数据。
5 结论
本系统利用VB6.0下的ActiveX控件的串行通信功能，实现了在Windows环境下用单台PC机监控的任务，完成对IP网关相应设备是否正常的监视，监视输入线路馈电是否正常，控制前端机完成对使用线路与备用线路之间的切换，可随时查询控制状态和监视结果。且可结合数据库，纪录通话时间等，模拟交换机功能。整个控制系统灵活方便，具有很大的实用性。
参考文献：
[1]范逸之,陈立元.Visual Basic与RS-232串列通信控制(最新版).清华大学出版社,2002.
[2]Evangelos Petroutsos,Kevin Hough. Visual Basic 6高级开发指南.电子工业出版社,1999.
基于VB6.0的考试系统设计初探 篇4
目前,国内针对各门计算机课程的考试形式大体分为两种:客观题型和实际操作题型。其中,客观题型自动出卷与自动阅卷的技术已经日趋成熟,通常采用数据库的技术,随机的从题库中选择符合要求的题目完成自动出卷。自动阅卷则通过将各题的标准答案以字段值的方式存放在数据库中,直接与学生的答案比对,一致则正确。然而实际操作题型还大都以人工出卷和人工阅卷为主,不但费时、费力,而且易出错。本文探讨基于VB 6.0与Access 2000的考试系统开发原理及过程。为了方便起见,以计算机基础知识中的Excel 2003考试为例进行详细介绍。
2 开发环境
本系统基于VB 6.0结合Access数据库开发而成。具有使用方便,简单易学,功能丰富等特点,提供了程序设计、编辑、运行和调试等一体化的开发环境。同时还具备了强大的数据管理功能,可以通过数据管理器、数据控件和数据访问对象等多种方法对数据库进行增加、修改、删除、查询等操作。
3 功能结构
当参加考试的学生登录后,首先进行3个科目的考试,如Word 2003部分,PPT 2003部分,Excel 2003部分。然后系统会自动出卷,自动评分。当教师登陆后,可以对考试题目及学生的个人信息进行管理。软件的系统功能结构如图1所示。
4 流程分析
学生在登陆考试系统后,选择需要考核的内容,然后进行答卷。答完考卷后提交考试试卷,系统会自动给出相应的分数并存入数据库。教师登陆后,可以进行考题数目和考题内容的修改,输入考题要求,然后由系统自动出题。本系统的流程如图2所示。
5 数据库设计
本系统采用以下几个主要的数据库表:
(1)教师信息表主要字段有:教师登陆ID,教师登陆密码、教师姓名。
(2)学生信息表主要字段有:学生姓名、学生学号、学生所学专业、学生的考试成绩、学生登陆密码、Word 2003部分成绩、PPT 2003部分成绩、Excel 2003部分成绩。
(3)Excel 2003试题信息表(选择题部分)主要字段有:题目编号、考试题目内容、选项A、选项B、选项C、选项D、题目内容、题目的标准答案。
(4)Excel 2003试题信息表(填空题部分)主要字段有:题目编号、考试题目内容、题目的标准答案。
(5)Excel 2003试题信息表(操作题部分)主要字段有:题目编号、包含题目要求的文本文件名称、包含题目要求的xls文件名称、包含答案的xls文件名称。
(6)选题信息表主要字段有:编号、题目类型、题目编号、标准答案(如果是操作题,则是包含答案的xls文件名)、考生答案(如果是操作题,则是包含考生操作结果的xls文件名称)。
6 主要模块设计
这里主要介绍Excel部分考试系统实现的关键技术。首先产生互不相同的随机数,将产生的随机数与题库中的第一个字段(题目编号)进行比较,如果两者相同,则抽取该题;如果两者不一致,则与下一个记录再进行比较。这样就可以生成合乎要求的试卷。抽取到主观题目后,需将包含题目要求的文本文件和指定的xls文件显示出来,显示xls文档代码为:
客观题的评分相对简单,即比较数据表中相应字段的值即可。操作题的评分,要先在考生答题情况表中取出包含标准答案的xls文件名称和保存考生操作结果的xls文件名称,分别存入字符串变量Answer和Operation中。主要代码为:
然后执行下述VB语句,此时变量a获取的是答案文档中的所有对象、属性等信息。变量b获取的是考生操作文档中的所有对象、属性等信息。
最后,比较a、b相对应的属性值是否相同。如果a、b相对应的属性值相同,说明考生的操作正确;如果a、b相对应的属性值不相同,则考生对这个Excel文档的该项操作错误,应相减分。核心代码如下:
7 结语
以Excel 2003考试为例,论述了采用Visual Basic 6.0与Access 2000开发考试系统的原理及过程,重点突出了自动出卷与自动阅卷功能的实现。从内容上看,是VB程序程序设计在数据库方面的典型应用,为VB语言在处理该领域问题提供了良好的示范作用。
参考文献
[1]郭伟刚,等.计算机基础课无纸化考试模型初探[J].佛山科学技术学院学报(自然科学版),2004.
[2]晶辰工作室.Excel 2003 VBA开发实例指南[M].北京:电子工业出版社,2006.
VB6 篇5
如图1是我院备课纸的部分截图, 从图中可以看出, 备课纸2和备课纸3的很多内容和备课纸1的内容是相同。
经过分析, 可以利用VB6.0编程, 利用程序完成备课中的部分工作。教师只要先准备好备课纸1, 然后利用程序自动产生备课纸2和备课纸3。
1 VB6.0处理Word文档的语法要点
VB6.0是一门面向对象的可视化程序设计语言, 而Word程序是由对象模型构成的, VB设计语言可以通过操作Word对象模型去操作Word文档。Word对象模型是一个文件名称为MSWORD.OLB的文件, 在Word2010中的默认安装目录是C:Program FilesMicrosoft OfficeOffice14。VB程序要能操作Word对象模型, 必须从菜单【工程/引用】中加载Word对象模型, 否则不能操作对象模型。其引用名称是Microsoft Word 14.0 Object Library。
1.1 Word.Application对象
要操作Word程序, 应先声明一个Word程序对象, 并实例化, 程序结束时释放对象变量, 代码如下:
1.2 Document对象的建立与释放
要操作Word文档, 应先声明Document对象并实例化, 程序结束时应释放, 代码如下:
1.3 Word文档的新建、打开、保存、另存、关闭、
新建一个新的Word文档:Set wd Doc=wd App.Documents.Add
打开现有Word文档:Set wd Doc=wd App.Documents.Open (文件路径字符串)
保存word文档:wd Doc.Save
另存word文档:wd Doc.Saveas File Name:=被另存的文件路径字符串
Word文档关闭:wd Doc.Close
1.4 操作word表格
得到表格单元的值:
变量=wd Doc.Tables (表格序号) .Cell (行号, 列号) .Range.Text
给表格某单元格赋值:
wd Doc.Tables (表格序号) .Cell (行号, 列号) .Range.Text=变量
1.5 处理Selection对象
Selection对象指向当前选定的文本或插入点, 一个Word.Application只有一个Selection对象, 利用Selection对象可以在当前插入点插入文本、插入文件、设置当前选定文本的格式等。
插入文本:Selection.Insert After Text:="new text"
插入文件:Selection.Insert File File Name:=被插入的文件路径字符串
插入一个退格键:Selection.Type Backspace
设置被选定文本为12号字:Selection.Font.Size=12
这里仅列出了备课助手程序相关的语法要点, VB程序操作Word文档的详细语法, 请参阅相关资料。
2 备课助手的设计与实现
2.1 备课助手使用说明及运行界面
因我系绝大部分课程是每周四节课, 2节课上课, 2节上机的课程, 因此本程序仅支持这类课程, 其它类型课程暂不支持。程序预先准备好备课1样本文件、备课纸2空表、备课纸3空表。备课教师首先按备课纸1样本文件填写相应的课程内容, 准备好备课纸1文件, 然后拖入文本框中, 如图2, 单击按钮产生备课纸2和备课纸3, 打开备课纸2和备课纸3, 进行必要的修改与补充即可。操作非常简单。
2.2 备课助手设计思路与代码实现
1) 获得备课纸1的计划周次
2) 利用备课纸空表和备课纸空表产生新的备课纸和新的备课纸, 其表格的数量为备课纸的计划周次
3) 将备课纸1的相关内容复制到备课纸2和备课纸3的对应位置
4) 如教师没有使用标准的备课纸, 系统将报错, 并停止程序运行
5) 为保证程序运行时窗口总是在其它窗口上面, 需要用到API函数并设置参数:
6) 程序每次运行, 应检查是否还有没关闭的word进程, 如果有, 应先关闭, 否则会影响备课助手程序的运行:
3 结束语
以程序员的视角, word程序本身就是一个对象模型, VB程序可以通过操作word对象模型来操作word文档, 从而实现对word文档的处理。
摘要：VB6.0是一种面向对象的可视化程序设计语言, 它可以操作word对象模型, 从而实现对word文档的处理。该文是笔者根据教师备课需求设计出备课助手程序, 介绍其程序的设计与实现。文章首先指出教师在备课中所遇到的问题, 提出可以编写程序协助教师备课, 然后介绍了VB6.0处理Word文档的语法要点, 最后详细阐述了备课助手的设计与实现。
关键词：VB6.0,程序设计,Word文档,教师备课
参考文献
[1]博彦科技.Office VBA编程高手[M].北京:北京大学出版社, 2001.
[2]陈军民.浅析利用VB6.0将Access数据表转换为Word文档[J].电脑知识与技术, 2010 (6) .
VB6 篇6
随着各行各业现代化水平的提高,需要实时监测的数据种类杂、数量多,如环境参数温度、湿度、二氧化碳、一氧化碳、氧气、电参数电压、电流等。用于监测这些参数的智能仪表,虽然能实时测量、显示数据,但通常不能保存较长时间内的大量数据,为此有时还需要人工抄表。运用计算机软硬件技术和RS-232/RS485转换器,将分布在各处的智能仪表连接成监测网(系统),不仅可以解决这些问题,还可以实现数据的集中管理、深加工处理、数据共享,还可以节省人力,实现监测自动化。
2 系统组成
监测系统主要由监测软件、微机(PC或工控机)、RS-232/RS485转换器、多台智能仪表(各仪表地址不能有相同者)、通信线缆等组成。微机与监测软件先向各智能仪表轮流发送读数据命令、然后接收和处理来自相应智能仪表的数据。RS-232/RS-485转换器,把微机串口的RS-232信号转换为智能仪表广泛采用的RS-485信号,这样既可以多台仪表共用RS-485总线构成监测网,又可以实现数据的远距离传输。智能仪表负责采集和处理被测信号、接收微机命令、向微机发送采集的数据等。监测系统的电路原理图如图1所示。
3 智能仪表与微机的通信协议
设计的监测软件必须符合智能仪表与微机的通信协议,不同类型、不同厂家的智能仪表,与微机的通信协议是不同的,这里使用的JCJ300B温湿度测量仪为例。
串行口:RS-485通信方式,波特率9600bps,字节格式为1个起始位、8位数据位、1个停止位、无校验位。
读指令格式:仪表地址00H~1FH+读控制字00H+前两字节异或校验(1个字节)
读指令返回数据:依次为仪表地址、温度采样值低8位、温度采样值高8位、湿度采样值低8位、湿度采样值高8位、前5个字节异或校验(1个字节)。注意,读指令和返回数据中的各个字节均为16进制。
微机读取采样值的过程:每次要读某JCJ300B中的数据时,微机必须先向他发送读指令。若该JCJ300B接收到的读指令正确,则发送采样数据给微机;若该JCJ300B接收到的读指令错误(通过异或校验判别),则不应答,微机应重发读指令。
实际测量值的计算:测量值=10进制采样值×(量程上限-量程下限)/1024+量程下限。若温度范围为0~50℃,则温度测量值=10进制采样值×50/1024;若湿度范围为0~100%,则湿度测量值=10进制采样值×100/1024。
4 VB6.0程序设计
监测程序主要由初始化程序、发送读指令程序、接收和处理数据程序等组成。程序运行效果图如图2所示。
初始化程序:设置串口参数与智能仪表一致、把记录测量数据的表格设置为5列600行等。
发送读数指令程序:循环向各个智能仪表发送读数指令,不同的仪表地址发送不同的读指令。该程序使用的控件有Timer1、MSComm1。在Command1的Click事件中,允许Timer1计时,计时器Timer1的Interval设置为500,即每500毫秒发生1次Timer事件。在Timer事件中,先把读指令按顺序放在Byte型的数组中,然后把数组内容赋值给MSComm1.Output,实现读指令的发送。
接收和处理数据程序:接收来自各个仪表的采样数据,计算、显示和记录温湿度测量值。该程序使用的控件主要有MSComm1、4个Text Box(取名Text1t、Text1h、Text2t、Text2h)、MSHFlex Grid(取名Grid1)。先用MSComm1.Input接收来自仪表的采样数据并存入动态数组,然后计算求得实际测量值,并把测量值分别送到Text1t、Text1h、Text2t、Text2h中显示和存入Grid1.Text中。
程序清单如下:
5 结语
上述监测系统已应用于某人防工程项目中,实践证明其性能可靠。该系统虽然是针对JCJ300B温湿度测量仪设计的,但是只要将部分程序段稍加修改,就符合其他智能仪表的通信协议,可推广使用。因此,该系统具有较好的借鉴作用。
参考文献
[1]许永和,张丹.Visual Basic接口设计与工程实践[M].北京:人民邮电出版社,2007.
[2]工控产品选型手册(2009-2010)[Z].北京九纯健科技发展有限公司,2009.
VB6 篇7
1 系统硬件组成及测试原理
按照JJG 173-2003信号发生器检定规程的要求, 信号发生器检定参数有:频率准确度、频谱纯度、功率电平以及调制参数。根据检定参数确定检定所需的硬件来配置自动检定系统, 信号发生器自动检定系统硬件组成有:计量标准仪表 (频率计、功率计、频谱分析仪、测量接收机、频稳测试仪) 、程控计算机、GPIB-USB接口卡、GPIB电缆以及其他检定需要的标准设备组成, 如图1所示。
在自动检定过程中, 计算机通过GPIB-USB接口卡对被检信号发生器和标准仪表进行软件控制;频率计用于信号发生器频率准确度的检定;功率计用于信号发生器输出功率准确度/平坦度、最大稳幅功率电平的检定;频谱分析仪用于频谱参数检定;测量接收机用于低电平准确度和调制参数的检定。
2 系统软件功能
信号发生器自动检定系统软件部分是基于Visual Basic平台开发的。所使用的软件为Visual Basic 6.0。VB6.0是Microsoft公司推出的一个可视化、面向对象且基于事件驱动的集成开发环境, 用户可以通过使用它高效快捷地创建各种Windows应用程序。其继承了Basic语言简单易学的优点, 采用了事件驱动的编程机制, 是易学实用、功能强大的Windows应用程序开发工具。
系统软件采用模块化的开发模式, 每个模块实现独立的系统功能, 软件主要包括仪器驱动、测试设置与初始化、自动检定、数据采集与存储四大模块, 功能结构流程图如图2所示。仪器驱动模块用于对检定所用仪表进行标准仪器状态控制;测试设置与初始化模块是针对待测信号发生器进行测试设置, 并对测试状态进行设备初始化操作;自动检定模块则按照检定规程控制仪表状态, 进行自动计量检定;数据采集与存储模块, 通过GPIB总线采集仪表计量检定数据, 并对采集的数据进行报表填写、指标判定、误差计算, 最终实现EXCEL格式的报表输出。
3 关键技术
3.1 多型号兼容技术
当前市场主流的信号发生器厂家有:Agilent公司、R&S公司、安立公司以及中国电子科技集团公司第41所。不同厂家不同型号的信号发生器的仪器控制SPCI命令不同, 给自动检定的仪器控制带来困难。本系统建立了程控指令数据库, 可通过选择仪器型号来选择对应的仪器指令, 实现多型号仪器的兼容。
3.2 多参数技术
不同信号发生器工作的频段范围、技术指标都不相同, 本系统同样采用建立参数数据库的方式, 根据信号发生器型号和选件不同进行选择, 方便测试过程中调用, 大大节约了编程时间。
结束语
信号发生器自动检定系统是一个能兼容多型号的信号发生器检定平台。系统的开发和实现保证了测试结果的准确性, 提高了日常的检定校准工作效率, 提升了自动检定系统软件开发能力, 也提高了计量站服务能力。该系统已应用到日常计量检定工作中, 取得很好效果, 在其他自动测试方面具有借鉴意义。
摘要：本文介绍了基于VB6.0平台搭建的信号发生器自动检定系统, 详细介绍了系统的软硬件组成和原理, 实现对信号发生器的自动检定。目前, 该系统已实际应用, 并取得较好的效果。
关键词：自动检定系统,VB6.0,信号发生器
参考文献
[1]陶成忠, 汪振科.基于GPIB总线的信号发生器自动检定系统[J].国外电子测量技术, 2007, 26 (6) :65-67.
VB6 篇8
随着学校规模的不断扩大，学生数量急剧增加。有关学生的各种信息量也成倍增长。面对庞大的信息量，就需要有学生信息管理系统来提高学生管理工作的效率。通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而提高管理的工作效率。本文通过对学生管理信息系统的分析与设计，介绍了该系统的设计思想、设计方法和开发的步骤。
1、系统设计
1.1 系统设计目标与功能
系统设计的目标是实现学生信息关系的数据化、智能化、系统化、规范化、无纸化和自动化。针对我校实际，需要完成的主要功能有： (1) 有关学籍等信息的输入，包括学生基本信息、所在班级等。 (2) 学生信息的查询，包括学生基本信息、所在班级、已学课程和成绩等。 (3) 学生信息的修改。 (4) 考试类型的设置。 (5) 班级管理信息的输入，包括班级设置、年级信息等。 (6) 班级管理信息的查询。 (7) 班级管理信息的修改。 (8) 学校基本课程信息的输入、修改。对上述各项功能进行分析，按照结构化程序设计要求，有图1所示的功能模块图。 (9) 各班级课程的设置和修改。 (10) 学费的设置、查询和修改。 (11) 学生成绩信息的输入、查询和修改、 (12) 学生成绩信息的统计。
对上述各项功能进行分析，按照结构化程序设计要求，有图1所示的功能模块图。
1.2 数据库设计
本设计通过对数据库需求分析, 概念结构设计得到数据库的逻辑结构。然后在SQL Sever2000数据库系统中通过SQL查询分析器实现该逻辑结构。创建了用户登录表，学籍档案表 (如图2所示) ，班级设置表，学生成绩表，交费表，学费设置表，考试类型表，班级课程设置表。在VB6.0中通过ADO来对数据进行操作，数据库在SQL Sever2000中创建成功后，ADO通过ODBC创建与数据库的连接。
2、系统的实现
Visual Baisc提供了功能强大的数据库管理功能，能灵活、方便地完成数据库应用中涉及的诸如建立数据库、查询及更新等各种基本操作。由于篇幅关系，这里仅给出本系统的几个关键模块，其余的模块不作详细说明。
2.1 系统主窗口的实现
系统主界面采用MDI (多文档界面) ，可使程序美观、整齐有序，如图2所示。
在系统实现过程中利用ToolBar控件结合ImageList控件实现图标式快捷菜单，应用直观，方便，快捷。在主界面的工作空间中，对鼠标的右键进行捕获，通过右键菜单来实现对系统各功能模块的快速选择。
2.2 成绩信息管理模块
学籍及成绩信息管理模块中，通过综合运用ToolBar, TreeView, MSFlexGrid控件，使浏览界面直观，有较强的操作性。在此界面中可分年级、分班级 (成绩浏览时分班级、分课程) 浏览相关信息，也可对学籍及成绩信息进行查找、修改、删除，以及将所浏览或查找到的信息进行导出或打印。
2.3 程序代码
2.3.1 ADO的数据连接代码（部分）
在ADO中使用连接对象创建和管理连接，选择ADO中的Connection的连接对象，如果要连接一个SQL Server数据库，可使用以下的连接字符串：
ADO与SQL Server数据库的连接可以选择以下三种方式：从服务器资源管理器中连接到SQL Server；从"工具箱"的"数据"选项创建连接；以编程方式在应用程序和SQL Server数据库之间创建连接。
2.3.2 主窗体代码（部分）
3. 结束语
该系统制作完成后在本校进行了使用测试。自使用以来，系统稳定可靠，界面美观，操作简便，有效的提高了工作效率，体现了学生信息管理的系统化、规范化和自动化，基本满足学生科对学生工作的需要。
参考文献
[1]郭瑞军, 唐邦民, 谢晗.Visual Basic[M]数据库开发实例精粹北京:电子工业出版社, 2005.1
[2]林卓然.VB语言程序设计 (第2版) [M]北京:电子工业出版社, 2009.1
VB6 篇9
关键词：并行口,VB6.0,竞赛程序
1 引言
为活跃文化生活、宣传党政方针、普及科学文化、巩固所学知识、增强竞争意识,电视台、学校、机关、部队、企业等单位希望经常组织各类竞赛活动,但往往因为没有理想的竞赛装置而不能如愿或活动效果不佳。其实,运用本单位现有的微型计算机和微机投影仪,把抢答按钮接在微机并行口上,再运行本文设计的VB6.0竞赛程序就构成了简便实用的竞赛系统。
2 并行口及其与按钮的连接
打印机并行口电路主要由数据口(数据寄存器基地址:378H)、控制信号输出口(控制寄存器地址:37AH)和状态输入口(状态寄存器地址:379H)等组成。并行打印口钢针插口的2～9号孔为8位数据输入输出孔,分别对应内部数据线的D0～D7;1、14、16、17号孔为控制信号输出孔,分别对应内部数据线的D0～D3;11、10、12、13、15号孔为状态输入孔,分别对应内部数据线的D7～D3,不过11号孔反相后才接到内部数据线D7上;18～25孔为公共端GND。并行口电路具有SPP(标准并行口)、EPP(增强并行口)、ECP(扩展性能端口)等多种工作模式(其模式的设置可在微机BIOS SET-UP中进行),不同类型的微机所具有的工作模式有多有少。数据口的功能与工作模式有关,当工作在SPP模式时,数据端口只能输出数据,当工作在EPP和ECP模式时,数据口既能输出数据还能输入数据。
为了使竞赛系统能在多种工作模式下使用,可不用数据口输入数据,而用控制信号输出口和状态输入口输入数据。虽然控制信号输出口主要是用于输出控制信号的,但经理论分析和实践证明,可以用来输入数据或信号。方法为:先从地址37AH输出04H,使并行口的1、14、16、17号孔输出全为逻辑1,然后就可以从地址37AH输入4位数据。但要注意从1、14、17号孔输入到内部数据线D0、D1、D3上的数据是经过取反(反相)的。
并行口与6个按钮的连接电路如图1所示。1台、2台按钮接在并行口的1、14号插孔上,通过控制口(37AH)输入1台、2台按钮的状态,当某个按钮按下时,该按钮所接插孔的输入信号为逻辑0,但因1、14号孔输入到内部数据线D0、D1上的数据是经过反相的,故D0或D1上的有效数据为逻辑1。若从地址37AH输入的数据,逻辑与01H等于1说明1台按钮按下,逻辑与02H等于2说明2台按钮按下。3台～6台按钮分别接在并行口的15、13、12、10号插孔(对应内部数据线D3～D6)上,当某个按钮按下时,该按钮所接插孔的输入信号为逻辑0,通过状态口(379H)输入这4个按钮的状态。若从地址379H输入的数据,逻辑与08H等于0说明3台按钮按下,逻辑与10H等于0说明4台按钮按下,逻辑与20H等于0说明5台按钮按下,逻辑与40H等于0说明6台按钮按下。
3 VB6.0竞赛程序设计
程序主要由初始化程序、抢答处理程序、加扣分与成绩显示程序、倒计时程序、引用inpout32.dll动态链接库程序等组成。程序运行效果如图2所示。
初始化程序:主要为Text、Timer、Combo等控件设置初始值,如通过设置Text1()控件组的Text属性为各台设置初始分数且显示在屏幕上、同时把初始分数保存在成绩数组fen()中。
抢答处理程序:单击“开始”后,每10毫秒读一次6个按钮的状态,当发现某个按钮按下时,显示该按钮所属台号、音乐提示、Timer1暂停计时。该程序使用的控件有Command1、Timer1、Text2、Combo1、MMControl1、Frame3。在Command1(开始)的Click事件中,允许Timer1计时。计时器Timer1的Interval设置为10,即每10毫秒发生1次Timer事件,在该事件中读取6个按钮的状态并做出相应处理。Text2和Combo1用于显示抢答台号,Text2、Combo1的Font属性设置为初号粗黑体,Text2的Locked属性设置为True,Combo1的List属性设置为1～6。MMControl1用于播放音乐,其Visible属性设置为False。
加扣分与显示成绩程序:先人工或自动(抢答时)选择台号、输入该台得分(扣分:数字前必须有减号),再单击“确认”,随后自动计算出该台当前的总成绩并显示出来。该程序使用的控件有Command2、Combo1、Text3、Text1()数组、Frame2。在Command2(确认)的Click事件中,计算某台当前的总成绩并显示出来。Combo1、Text3的Font属性设置为初号粗黑体,Combo1用于选择或显示台号,Text3用于输入加分或扣分的分值。Text1()数组的Font属性设置为初号粗黑体、Locked属性设置为True,Text1()数组用于显示各台的成绩。
倒计时程序:先选择倒计时时间,再单击“开始”,随后程序把时间值每秒减1一次并显示出来。当时间值为0时,播放音乐、停止计时。根据选手答题情况,可随时单击“停止”,中断计时。该程序使用的控件有Command3(开始)、Timer2、Command4(停止)、Combo2、Frame4。计时器Timer1的Interval设置为1000,即每1秒发生1次Timer事件,在该事件中时间值减1并显示出,当时间值为0时,播放音乐、停止计时。Combo2用于选择和显示倒计时时间,Combo2的Font属性设置为初号粗黑体,Combo2的List属性设置为20、30、40、50、60。MMControl2用于播放音乐,其Visible属性设置为False。
引用inpout32.dll动态链接库程序:以Windows2000/XP操作系统为平台的应用程序,若要从并行打印口输入或输出数据,必须使用有关的动态链接库(DLL文件)或API函数。本文使用了http://www.logix4u.cjb.net/网站提供的inpout32.dll动态链接库。引用库中的输入函数Inp32并命名为Inp、引用输出过程Out32并命名为Out。从微机并行口的控制口(地址:&H37A)和状态口(地址:&H379)输入数据时,使用Inp函数;从微机并行口的控制口(地址:&H37A)输出数据时,使用Out过程。
程序清单如下:
4 结语
基于并行口和VB6.0的竞赛系统,运用了本单位现有设备,方法简便、实用,效果好,有利于促进竞赛活动的开展。本文对并行口在测量与控制方面的应用也有一定的借鉴作用。
参考文献
[1]许永和.Visual Basic接口设计与工程实践[M].北京:人民邮电出版社,2007.