列车时刻表VB课程设计

VB课程设计(论文)任务书

土木建筑学院给排水排水专业

2 班

一、课程设计(论文)题目：列车时刻查询

二、课程设计(论文)工作自 2012 年 6 月 11 日起至 2012 年

6 月 1

7 日止。

三、课程设计(论文) 地点: 8-502

四、课程设计(论文)内容要求：

1．本课程设计的目的

1. 综合Visual Basic相关知识制作简单的可视化应用程序

2. 灵活对程序代码进行利用，修改和编写；

3. 熟练将Visual Basic所学知识和其它知识相结合

2．课程设计的任务及要求

1）基本要求：

（1）分析系统各功能模块；

（2）选用合适的控件及算法；

（3）提出系统的设计方案；

（4）对所设计程序进行调试。

2）创新要求：

在基本要求达到后，可进行创新设计，如增加功能，算法优化等；

3）课程设计论文编写要求

（1）要按照书稿的规格打印誊写论文；

（2）论文包括目录、绪论、正文、小结、参考文献、谢辞、附录等；

（3）论文装订按学校的统一要求完成；

(5) 参考文献

（1）Visual basic程序设计实验教程【M】吴昊杜玲玲（人民邮电出版社。2011.3）

（2）Visual basic程序设计【M】熊李艳周美玲（人民邮电出版社。

2011.

(6) 课程设计进度安排

内容天数7地点

系统分析及收集资料2图书馆

编写与调试程序2计算中心

撰写论文3图书馆、计算中心

设计要求：设计一个列车时刻查询系统

第一启动程序，同时显示七个控件。

第二控件一选择经停车站然后在控件二显示经过这个车站的车次，再控件二选择车次就会在控件三四五六分别显示起点站，终点站，发车时刻，到达时刻和经停站的地点和相应的时刻。

学生签名：

2012年6月11 日

课程设计（论文）评阅意见

评阅人周美玲职称讲师

2012年6月17 日

目录

《程序设计语言（VB）》课程设计..................... 错误！未定义书签。

一、设计目的 (4)

二、环境配置要求 (4)

三、设计题目列车时刻查询 (4)

（一）系统概要……………………………………………...错误！

未定义书签。

(二) 总体设计 (6)

(三) 流程图 (6)

（四）详细设计 (8)

（五）部分程序代码 (8)

四、设计体会 (17)

《程序设计语言（VB）》课程设计

一、设计目的

1、进一步掌握程序的三大基本结构；

2、进一步掌握算法设计；

3、进一步理解程序调试；

4、综合利用上述知识，学习设计并编写简单应用程序；

二、环境配置要求

硬件配置：586以上PC兼容机或品牌机，配有彩色显示器、鼠标、键盘，内存不小于64MB，硬盘自由空间不少于200MB。推荐配置为内存128MB 或256MB（或以上），硬盘自由空间500MB以上。

操作系统：Windows2000/NT/Xp、VB集成开发环境。

三、设计题目列车时刻查询

第1章系统概要

铁路运输具有经济、安全、准时、舒适、快捷等特点，社会对于铁路运输的需求量在逐年增大。近几年来，随着国家交通基础建设投资的加大及铁路部门市场意识的加强，铁路新修线路增加、列车提速、车次增多，导致铁路客货运输信息的相应变化。为了加强铁路运输信息建设，以及铁路部门更好地为旅客服务，让广大旅客能够及时有效地得到客、货运输信息，开发出全国铁路列车信息综合应用系统。本系统可提供多种查询方式以满足不同用户的需求。

基于本系统数据库的可扩充性及在线更新功能，用户还可根据实际需要增加其他数据信息,并实时更新从而为用户提供更全面的火车时刻服务。

1.1功能大概介绍

（1）启动程序，同时显示七个控件，第一个控件显示选择经停车站，第二个控件显示车次，第三个控件显示起点站，第四个控件显示终点站，第五个控件显示发车时刻，第六个控件显示到达时刻，第七个控件显示经停站及时刻。

（2）控件一选择经停车站然后在控件二显示经过这个车站的车次，再控件二选择车次就会在控件三四五六分别显示起点站，终点站，发车时刻，到达时刻和经停站的地点和相应的时刻。

（3）本题目提供了两个数据文件：content.txt和detail.txt，程序中用到的车次信息均来自于这两个文件。如果本程序启动时在可执行文件所在的文件夹下未找到其中任何一个文件，则显示出错信息并自动关闭程序。要求编程时不能改变这两个文件的存储格式。

第2章总体设计

2.1设计思路

通过控制窗口一和二来查询列车的时刻，整体流程图如图

2.2 属性窗口

第3章源程序代码

3.1 Form1窗口上的代码

Option Explicit

Option Base 1

Dim strContent() As String ' 车次概况

Dim strDetail() As String ' 停靠站

Dim intNumber As Integer '车次数

Dim intNumDetail As Integer '详细信息的条数

Private Sub cboQuery_Click()

Dim i As Integer, j As Integer

Dim str1 As String

'查询代码'

str1 = Trim(cboQuery.Text)

Lstid.Clear

txtDetail.Text = "" 'Exit Sub

For i = 1 To intNumDetail

If strDetail(1, i) = str1 Then

For j = 1 To intNumber

If i < strContent(6, j) Then

Lstid.AddItem strContent(1, j - 1) & "次"

Lstid.ItemData(Lstid.NewIndex) = j - 1

Exit For

End If

Next