自动文本阅读器vb.doc

河北联合大学2011-2012第2学期 软件设计基础-VB.Net课程设计报告设计名称： 自动文本阅读器 姓 名： 南文奇 学 号： 201114230303 专业班级： 过程装备与控制工程 3 班 学 院： 机械工程学院 设计时间： 2012年5月1日到2012年6月1日 设计地点： 学校机房 成绩：指导教师评语指导教师签字： 年 月 日软件设计基础-VB.Net课程设计报告 第 17 页，共 17 页目 录1.课程设计目的32.课程设计任务与要求33.课程设计说明书44.课程设计成果95.程序调试过程146.设计问题的不足和改进方案157.课程设计心得168.附录179.参考文献171课程设计目的软件设计基础-VB.Net课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB.Net的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB.Net这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2课程设计任务与要求：要求：本次课程设计利用软件设计基础-VB.Net课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务：基本要求：（1） 能够在客户区自动显示文件的内容 （2） 可以调整自动滚屏的速度 （3） 支持显示参数的设定(字体诸属性及文字色彩)（4） 可以随时停止滚动和继续滚动(通过点击标签)（5） 内容全部显出后自动停止滚动（6） 在文本滚动时诸按钮自动隐去，暂停或停止滚动时按钮出现以便进行设置3课程设计说明书功能描述能够在客户区自动显示文件内容，通过点击按钮可以调节播放速度的快慢。文件显示完可以自动停止。 运行时按钮自动隐去。单击标签程序停止，按钮显示。再次单击标签程序运行。 概要设计模块结构图： 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系。调用调用调用调用完成要求TIMER事件通用对话框Enabled等属性字体的设置 打开文件退出字体设置速度加快速度减慢字形字号效果字体颜色详细设计 总体流程图：各功能模块流程图：代码实现详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。如：本系统总共10个窗体：form1form10详细如下：form1首页作用：进入程序所用控件：一个标签，一个时钟，5个commonbutton按钮，一个通用对话框。 设计思路：通过时钟控制标签，达到滚动效果。利用通用对话框打开文件，设置字体。详细内容：属性较特殊的需要说明。代码如下：Dim m As IntegerDim n As IntegerDim infile As StringDim lines As IntegerDim txt() As String 声明各个变量 Private Sub Command1_Click() 打开文件 CommonDialog1.Filter = text(*.txt)|*.txt| CommonDialog1.ShowOpen infile = CommonDialog1.FileName lines = 0 文件行数总计 Open infile For Input As #1 变量中存放的是文本的名字 Do While Not EOF(1) ReDim Preserve txt(lines + 1) 开辟空间一存放新一行内容 lines = lines + 1 Line Input #1, txt(lines) 读入一行并存放内容 Loop Close #1 关闭文件 把文本的内容赋给标签的Caption属性 建立动态数组 Dim i As Integer m = lines For i = 1 To m Load Label1(i) Label1(i).Visible = True Label1(i).Top = Label1(0).Top + i * Label1(0).Height Next i把文本的内容赋给标签的Caption属性 For i = 0 To m Label1(i).Caption = txt(i) NextEnd Sub 加快速度Private Sub Command2_Click() If Timer1.Interval 100 Then Timer1.Interval = Timer1.Interval - 50 Else Timer1.Interval = 100 速度上限 End IfEnd Sub减慢速度Private Sub Command3_Click() If Timer1.Interval 1100 Then Timer1.Interval = Timer1.Interval + 50 Else Timer1.Interval = 1100 速度下限 End IfEnd SubPrivate Sub Command4_Click() 设置文字的颜色及字体 Dim i As Integer CommonDialog1.Flags = &H1 Or &H100 CommonDialog1.ShowFont m = lines For i = 0 To m Label1(i).FontName = CommonDialog1.FontName Label1(i).FontBold = CommonDialog1.FontBold Label1(i).FontSize = CommonDialog1.FontSize Label1(i).FontStrikethru = CommonDialog1.FontStrikethru Label1(i).FontUnderline = CommonDialog1.FontUnderline Label1(i).FontItalic = CommonDialog1.FontItalic Label1(i).ForeColor = CommonDialog1.ColorNextEnd Sub结束Private Sub Command5_Click()EndEnd SubPrivate Sub Form_Load() Timer1.Enabled = FalseEnd SubPrivate Sub Label1_Click(Index As Integer)设置按钮的显示与隐藏 Command1.Visible = Not Command1.Visible Command2.Visible = Not Command2.Visible Command3.Visible = Not Command3.Visible Command4.Visible = Not Command4.Visible Command5.Visible = Not Command5.Visible Timer1.Enabled = Not Timer1.Enabled End SubPrivate Sub Timer1_Timer()通过改变标签的Top属性实现文本的滚动 Dim i As Integer m = lines For i = 0 To m Label1(i).Top = Label1(i).Top - 100 Next 到达文件尾自动停止滚屏并显示命令按钮If Label1(m).Top + Label1(m).Height = Form1.Height - 3000 ThenTimer1.Enabled = FalseCommand1.Visible = TrueCommand2.Visible = TrueCommand3.Visible = TrueCommand4.Visible = TrueCommand5.Visible = TrueEnd IfEnd Sub4课程设计成果打开文件 自动阅读单击“速度加快”或“速度减慢”调节阅读速度单击字体设置，进行相关设定单击标签继续阅读阅读完毕，自动停止单击退出，退出程序5.程序调试过程（1）调试单击“打开文件”按钮相关的过程。由于动态数组建立的不完善，会出现下标越界错误。（2）调试单击“速度加快”和“速度减慢”按钮相关模块儿。开始由于无法清晰时钟快慢出现文本阅读过快或过慢的问题。（3）调试单击标签相关模块儿。（4）调试单击“字体设置”按钮相关模块儿。出现无法设定字号问题。（5）调试单击“退出”按钮相关模块儿。6.设计问题的不足和改进方案存在问题： 1无法进行手动翻页功能 2未增加程序倒回功能改进方案： 1增加按钮用于对文本“自动阅读”与“手动阅读”进行切换。可以利用时钟的enabled属性进行编写代码。 2可以通过调节标签的top属性使文章重新回到首页。7.课程设计心得通过这次对“自动文本阅读器”程序的编写，使我认识到Vb的强大的实用性。同时，也发现自身知识掌握程度不佳。日后更应加以自学提高。通过这次实践，我在其中收获了很多乐趣。开始真正的对它产生了兴趣。在设计过程中，有许多控件无法正确使用，于是在查询资料的过程中真真正正地掌握了其功能用法。在实践中不断地提高自我。 虽然在设计地过程中遇到很多困难，但通过查资料，问老师同学最终顺利完成了。这使我受到很大鼓舞。8.附录有些需要说明的部分。如添加ActiveX等非不标准部件，或使用文件操作时对路径有特殊要求等。若没有特殊要求，此处为“无”。1、