列车时刻表VB课程设计

VB课程设计( 论文 政研论文下载论文大学下载论文大学下载关于长拳的论文浙大论文封面下载 )任务书 土木建筑    学  院　　给排水排水    专  业    2  　班 一、课程设计(论文) 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 目 ：   列车时刻查询                                        二、课程设计(论文)工作自   2012 年 6 月  11 日起至 2012    年  6 月   17  日止。 三、课程设计(论文) 地点:  8-502                                    四、课程设计(论文)内容要求： 1．本课程设计的目的 1. 综合Visual Basic相关知识制作简单的可视化应用程序 2. 灵活对程序代码进行利用，修改和编写； 3. 熟练将Visual Basic所学知识和其它知识相结合 2．课程设计的任务及要求 1）基本要求：    （1）分析系统各功能模块 ； （2）选用合适的控件及算法； （3）提出系统的设计 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 ； （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 日 课程设计（论文）评阅意见 序号 项 目 等 　级 优秀 良好 中等 及格 不及格 1 课程设计态度评价           2 出勤情况评价           3 任务难度评价           4 工作量饱满评价           5 设计中创新性评价           6 论文书写 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 化评价           综合评定等级                 评阅人  周美玲  职称  讲师  2012年6月17 日 目录 《程序设计语言（VB）》课程设计    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章 系统概要 铁路运输具有经济、安全、准时、舒适、快捷等特点，社会对于铁路运输的需求量在逐年增大。近几年来，随着国家交通基础建设投资的加大及铁路部门市场意识的加强，铁路新修线路增加、列车提速、车次增多，导致铁路客货运输信息的相应变化。为了加强铁路运输信息建设，以及铁路部门更好地为旅客服务，让广大旅客能够及时有效地得到客、货运输信息，开发出全国铁路列车信息综合应用系统。本系统可提供多种查询方式以满足不同用户的需求。 基于本系统数据库的可扩充性及在线更新功能，用户还可根据实际需要增加其他数据信息,并实时更新从而为用户提供更全面的火车时刻服务。 1.1功能大概介绍 （1）启动程序，同时显示七个控件，第一个控件显示选择经停车站，第二个控件显示车次，第三个控件显示起点站，第四个控件显示终点站，第五个控件显示发车时刻，第六个控件显示到达时刻，第七个控件显示经停站及时刻。 （2）控件一选择经停车站然后在控件二显示经过这个车站的车次，再控件二选择车次就会在控件三四五六分别显示起点站，终点站，发车时刻，到达时刻和经停站的地点和相应的时刻。 （3）本题目提供了两个数据文件：content.txt和detail.txt，程序中用到的车次信息均来自于这两个文件。如果本程序启动时在可执行文件所在的文件夹下未找到其中任何一个文件，则显示出错信息并自动关闭程序。要求编程时不能改变这两个文件的存储格式。 第2章    总体设计 2.1设计思路 通过控制窗口一和二来查询列车的时刻，整体流程图如图 2.2 属性窗口 控件 作用 功能 Form1 列车时刻查询表   Frame1 经停站及时刻 显示经停站及时刻 Frame2 车次 显示车次 Label2 经停车站 显示经停车站 Label4 起点站 显示起点站 Label5 终点站 显示终点站 Label6 发车时刻 显示发车时刻 Label7 到达时刻 显示到达时刻 Label9 站台 显示站台 Label10 到达时刻 显示到达时刻 Label11 发车时刻 显示发车时刻 Command1 全部车次 显示全部车次       第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 End If Next End Sub Private Sub cmdShowAll_Click()                  '显示全部车次 Dim i As Integer, j As Integer Lstid.Clear                                '清除当前显示的车次 For i = 1 To intNumber Lstid.AddItem strContent(1, i) & "次"  '添加车次名称 Lstid.ItemData(Lstid.NewIndex) = i      ' 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 列表框中每一项是所有车次中的第几项 Next cboQu Private 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, 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(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.Path & "\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) 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 Sub Private Sub lstID_Click() Dim i As Integer, j As Integer Dim str1 As String txtStart3 = Trim(strContent(2, Lstid.ItemData(Lstid.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, Lstid.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)) 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 If End Sub Private Sub List1_Click() End Sub Private Sub Text6_Change() End Sub 第4章  运行结果及分析 4.1 1运行程序，点击显示全部车次，如图运行结果 2.选中某一车次，出现该车次的始发站、始发时间、终点站、到站时间及经停站和时刻，如图 3.如需查询经过某一车站的车次，点击经停战中的下拉菜单，出现如图 4.选中需查询的车站，如图 第5章  心得体会 在课程设计中，在收获知识的同时，还收获了阅历，收获了成熟，在此过程中，我们通过查找大量资料，请教老师，以及不懈的努力，不仅培养了独立思考、动手操作的能力，在各种其它能力上也都有了提高。更重要的是，在课设上，我们学会了很多学习的方法。而这是日后最实用的，真的是受益匪浅。要面对社会的挑战，只有不断的学习、实践，再学习、再实践。 之所以做这个课设不仅是考试要求也是锻炼自己的VB 语言编程能力，养成良好的VB语言编程风格。不管怎样，这些都是一种锻炼，一种知识的积累，能力的提高。完全可以把这个当作基础东西，只有掌握了这些最基础的，才可以更进一步，取得更好的成绩。很少有人会一步登天吧。永不言弃才是最重要的。 而且，这对于我们的将来也有很大的帮助。以后，不管有多苦，我想我们都能变苦为乐，找寻有趣的事情，发现其中珍贵的事情。就像中国提倡的艰苦奋斗一样，我们都可以在实验结束之后变的更加成熟，会面对需要面对的事情。 与队友的合作更是一件快乐的事情，只有彼此都付出，彼此都努力维护才能将作品做的更加完美。而团队合作也是当今社会最提倡的。 致谢语：我要感谢老师在我学习上的指导、关心和帮助，使我能够顺利地、优质地完成我的课程设计，使我可以获得更多的知识，得到更多的经验。 参考文献 （1） Visual basic程序设计实验教程【M】 吴昊  杜玲玲（人民邮电出版社。2011.3） （2） Visual basic程序设计【M】 熊李艳  周美玲（人民邮电出版社。2011.3