列车时刻表VB课程设计.docx

1、列车时刻表VB课程设计VB课程设计(论文)任务书土木建筑 学院给排水排水 专业 2 班一、课程设计(论文)题目 ： 列车时刻查询 二、课程设计(论文)工作自 2012 年 6 月 11 日起至 2012 年 6 月 17 日止。三、课程设计(论文) 地点: 8-502 四、课程设计(论文)内容要求：1本课程设计的目的1. 综合Visual Basic相关知识制作简单的可视化应用程序2. 灵活对程序代码进行利用，修改和编写；3. 熟练将Visual Basic所学知识和其它知识相结合 2课程设计的任务及要求1）基本要求： （1）分析系统各功能模块 ；（2）选用合适的控件及算法；（3）提出系统的设

2、计方案； （4）对所设计程序进行调试。2）创新要求： 在基本要求达到后，可进行创新设计，如增加功能，算法优化等；3）课程设计论文编写要求（1）要按照书稿的规格打印誊写论文；（2）论文包括目录、绪论、正文、小结、参考文献、谢辞、附录等；（3）论文装订按学校的统一要求完成；(5) 参考文献（1） Visual basic程序设计实验教程【M】 吴昊 杜玲玲（人民邮电出版社。2011.3）（2） Visual basic程序设计【M】 熊李艳 周美玲（人民邮电出版社。2011.(6) 课程设计进度安排内容 天数7地点系统分析及收集资料 2图书馆编写与调试程序 2计算中心撰写论文 3图书馆、计算中心

3、设计要求：设计一个列车时刻查询系统第一启动程序，同时显示七个控件。第二控件一选择经停车站然后在控件二显示经过这个车站的车次，再控件二选择车次就会在控件三四五六分别显示起点站，终点站，发车时刻，到达时刻和经停站的地点和相应的时刻。 学生签名： 2012年 6月 11 日课程设计（论文）评阅意见序号项 目等级优秀良好中等及格不及格1课程设计态度评价2出勤情况评价3任务难度评价4工作量饱满评价5设计中创新性评价6论文书写规范化评价综合评定等级 评阅人 周美玲 职称 讲师 2012年6月17 日 目录程序设计语言（VB）课程设计 4一、设计目的 4二、环境配置要求 4三、设计题目 列车时刻查询 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章 系统概要铁路

5、运输具有经济、安全、准时、舒适、快捷等特点，社会对于铁路运输的需求量在逐年增大。近几年来，随着国家交通基础建设投资的加大及铁路部门市场意识的加强，铁路新修线路增加、列车提速、车次增多，导致铁路客货运输信息的相应变化。为了加强铁路运输信息建设，以及铁路部门更好地为旅客服务，让广大旅客能够及时有效地得到客、货运输信息，开发出全国铁路列车信息综合应用系统。本系统可提供多种查询方式以满足不同用户的需求。基于本系统数据库的可扩充性及在线更新功能，用户还可根据实际需要增加其他数据信息,并实时更新从而为用户提供更全面的火车时刻服务。1.1功能大概介绍 （1）启动程序，同时显示七个控件，第一个控件显示选择经停

6、车站，第二个控件显示车次，第三个控件显示起点站，第四个控件显示终点站，第五个控件显示发车时刻，第六个控件显示到达时刻，第七个控件显示经停站及时刻。（2）控件一选择经停车站然后在控件二显示经过这个车站的车次，再控件二选择车次就会在控件三四五六分别显示起点站，终点站，发车时刻，到达时刻和经停站的地点和相应的时刻。（3）本题目提供了两个数据文件：content.txt和detail.txt，程序中用到的车次信息均来自于这两个文件。如果本程序启动时在可执行文件所在的文件夹下未找到其中任何一个文件，则显示出错信息并自动关闭程序。要求编程时不能改变这两个文件的存储格式。第2章 总体设计2.1设计思路通过控

7、制窗口一和二来查询列车的时刻，整体流程图如图2.2 属性窗口控件作用功能Form1列车时刻查询表Frame1经停站及时刻显示经停站及时刻Frame2车次显示车次Label2经停车站显示经停车站Label4起点站显示起点站Label5终点站 显示终点站Label6发车时刻显示发车时刻Label7到达时刻显示到达时刻Label9站台显示站台Label10到达时刻显示到达时刻Label11发车时刻显示发车时刻Command1全部车次显示全部车次第3章 源程序代码3.1 Form1窗口上的代码Option ExplicitOption Base 1Dim strContent() As String

8、车次概况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

9、 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 End If NextEnd SubPrivate Sub cmdShowAll_Click() 显示全部车次 Dim i As Integer, j As Integer Lstid.Clear 清除当前显示的车次 For i = 1 To intNumber Lstid.AddItem strC

10、ontent(1, i) & 次 添加车次名称 Lstid.ItemData(Lstid.NewIndex) = i 记录列表框中每一项是所有车次中的第几项 Next cboQuPrivate Sub Form_Load() Dim str1 As String Dim i As Integer, j As Integer, k As Integer 存入列车时刻表到数组 Dim list Open App.Path & content.txt For Input As 1 Do While Not EOF(1) intNumber = intNumber + 1 Line Input #1,

11、 str1 ReDim Preserve strContent(6, intNumber) i = InStr(str1, ,) strContent(1, intNumber) = Left(str1, i - 1) j = i i = InStr(i + 1, str1, ,) strContent(2, intNumber) = Mid(str1, j + 1, i - j - 1) j = i i = InStr(i + 1, str1, ,) strContent(4, intNumber) = Mid(str1, j + 1, i - j - 1) j = i i = InStr(

12、i + 1, str1, ,) strContent(3, intNumber) = Mid(str1, j + 1, i - j - 1) strContent(5, intNumber) = Right(str1, Len(str1) - i - 1) Lstid.AddItem strContent(1, intNumber) & 次 Lstid.ItemData(Lstid.NewIndex) = Lstid.NewIndex + 1 cboQuery.AddItem strContent(2, intNumber) Loop Close 1 存入经由数据到数组中 Open App.P

13、ath & detail.txt For Input As 1 Do While Not EOF(1) Line Input #1, str1 If str1 = * Then Line Input #1, str1 k = k + 1 strContent(6, k) = intNumDetail + 1 Else intNumDetail = intNumDetail + 1 ReDim Preserve strDetail(3, intNumDetail) i = InStr(str1, ,) strDetail(1, intNumDetail) = Left(str1, i - 1)

14、j = i i = InStr(i + 1, str1, ,) strDetail(2, intNumDetail) = Mid(str1, j + 1, i - j - 1) strDetail(3, intNumDetail) = Right(str1, Len(str1) - i - 1) End If Loop Close 1 End SubPrivate Sub lstID_Click() Dim i As Integer, j As Integer Dim str1 As String txtStart3 = Trim(strContent(2, Lstid.ItemData(Ls

15、tid.ListIndex) txtEnd1 = Trim(strContent(4, Lstid.ItemData(Lstid.ListIndex) txtStart2 = Trim(strContent(3, Lstid.ItemData(Lstid.ListIndex) txtEnd2 = Trim(strContent(5, Lstid.ItemData(Lstid.ListIndex) 把具体经由列出代码 txtDetail = If Lstid.ItemData(Lstid.ListIndex) = intNumber Then For i = strContent(6, Lsti

16、d.ItemData(Lstid.ListIndex) To intNumDetail txtDetail = txtDetail & strDetail(1, i) & Space(2 * (8 - Len(strDetail(1, i) + 4 - Len(strDetail(2, i) & strDetail(2, i) & Space(18 - Len(strDetail(3, i) & strDetail(3, i) & Chr(13) & Chr(10) Next Else For i = strContent(6, Lstid.ItemData(Lstid.ListIndex)

17、To strContent(6, Lstid.ItemData(Lstid.ListIndex) + 1) - 1 txtDetail = txtDetail & strDetail(1, i) & Space(2 * (8 - Len(strDetail(1, i) + 4 - Len(strDetail(2, i) & strDetail(2, i) & Space(18 - Len(strDetail(3, i) & strDetail(3, i) & Chr(13) & Chr(10) Next End IfEnd SubPrivate Sub List1_Click()End Sub

18、Private Sub Text6_Change()End Sub第4章 运行结果及分析4.1 1运行程序，点击显示全部车次，如图运行结果2.选中某一车次，出现该车次的始发站、始发时间、终点站、到站时间及经停站和时刻，如图3.如需查询经过某一车站的车次，点击经停战中的下拉菜单，出现如图4.选中需查询的车站，如图第5章 心得体会在课程设计中，在收获知识的同时，还收获了阅历，收获了成熟，在此过程中，我们通过查找大量资料，请教老师，以及不懈的努力，不仅培养了独立思考、动手操作的能力，在各种其它能力上也都有了提高。更重要的是，在课设上，我们学会了很多学习的方法。而这是日后最实用的，真的是受益匪浅。要面

19、对社会的挑战，只有不断的学习、实践，再学习、再实践。 之所以做这个课设不仅是考试要求也是锻炼自己的VB 语言编程能力，养成良好的VB语言编程风格。不管怎样，这些都是一种锻炼，一种知识的积累，能力的提高。完全可以把这个当作基础东西，只有掌握了这些最基础的，才可以更进一步，取得更好的成绩。很少有人会一步登天吧。永不言弃才是最重要的。 而且，这对于我们的将来也有很大的帮助。以后，不管有多苦，我想我们都能变苦为乐，找寻有趣的事情，发现其中珍贵的事情。就像中国提倡的艰苦奋斗一样，我们都可以在实验结束之后变的更加成熟，会面对需要面对的事情。与队友的合作更是一件快乐的事情，只有彼此都付出，彼此都努力维护才能将作品做的更加完美。而团队合作也是当今社会最提倡的。致谢语：我要感谢老师在我学习上的指导、关心和帮助，使我能够顺利地、优质地完成我的课程设计，使我可以获得更多的知识，得到更多的经验。参考文献（1） Visual basic程序设计实验教程【M】 吴昊 杜玲玲（人民邮电出版社。2011.3）（2） Visual basic程序设计【M】 熊李艳 周美玲（人民邮电出版社。2011.3