自动文本阅读器vb

《自动文本阅读器vb》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、河北联合大学2011-2012第2学期《软件设计基础-VB.Net》课程设计报告设计名称：自动文本阅读器姓名：南文奇学号：201114230303专业班级：过程装备与控制工程3班学院：机械工程学院设计时间：2012年5月1日到2012年6月1日设计地点：学校机房成绩：指导教师评语：15127519061指导教师签字：年月日《软件设计基础-VB.Net》课程设计报告第17页，共17页目录1.课程设计目的32.课程设计任务与要求33.课程设计说明书44.课程设计成果95.程序调试过程146.设计问题的不足和改进方案157.课程设计心得168.附录179.参考文献17《软

2、件设计基础-VB.Net》课程设计报告第17页，共17页1．课程设计目的《软件设计基础-VB.Net》课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB.Net的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB.Net这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2．课程设计任务与要求：要求：本次课程设计利用《软件设计基础-VB.Net》课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的

3、程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务：基本要求：（1）能够在客户区自动显示文件的内容（2）可以调整自动滚屏的速度（3）支持显示参数的设定(字体诸属性及文字色彩)（4）可以随时停止滚动和继续滚动(通过点击标签)（5）内容全部显出后自动停止滚动（6）在文本滚动时诸按钮自动隐去，暂停或停止滚动时按钮出现以便进行设置《软件设计

4、基础-VB.Net》课程设计报告第17页，共17页3．课程设计说明书⑴功能描述能够在客户区自动显示文件内容，通过点击按钮可以调节播放速度的快慢。文件显示完可以自动停止。运行时按钮自动隐去。单击标签程序停止，按钮显示。再次单击标签程序运行。⑵概要设计模块结构图：根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系。调用调用调用调用完成要求TIMER事件通用对话框Enabled等属性字体的设置打开文件退出字体设置速度加快速度减慢字形字号效果字体颜色⑶详细设计总体流程图：各功能模块流程图：《软件设计基础-VB.Net》课程设计

5、报告第17页，共17页⑷代码实现详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。如：本系统总共10个窗体：form1~form10详细如下：form1—首页作用：进入程序所用控件：一个标签，一个时钟，5个commonbutton按钮，一个通用对话框。设计思路：通过时钟控制标签，达到滚动效果。利用通用对话框打开文件，设置字体。详细内容：属性较特殊的需要说明。代码如下：DimmAsIntegerDimnAsIntegerDiminfileAsStringDimlinesAsIntegerDimtxt()AsString'声明各个变量PrivateSubC

6、ommand1_Click()'打开文件CommonDialog1.Filter="text(*.txt)

7、*.txt

8、CommonDialog1.ShowOpeninfile=CommonDialog1.FileNamelines=0'文件行数总计OpeninfileForInputAs#1'变量中存放的是文本的名字DoWhileNotEOF(1)ReDimPreservetxt(lines+1)'开辟空间一存放新一行内容lines=lines+1LineInput#1,txt(lines)'读入一行并存放内容LoopClose#1'关闭文件'把文本的内容赋给标签

9、的Caption属性'建立动态数组DimiAsInteger《软件设计基础-VB.Net》课程设计报告第17页，共17页m=linesFori=1TomLoadLabel1(i)Label1(i).Visible=TrueLabel1(i).Top=Label1(0).Top+i*Label1(0).HeightNexti'把文本的内容赋给标签的Caption属性Fori=0TomLabel1(i).Caption=txt(i)NextEndSub'加快速度PrivateSubCommand2_Click()IfTimer1.Interval>100ThenTi