收藏 分销(赏)

VB记单词课设论文报告格式-打印稿-—张春源解析.doc

上传人:Fis****915 文档编号:554732 上传时间:2023-12-08 格式:DOC 页数:18 大小:270.50KB
下载 相关 举报
VB记单词课设论文报告格式-打印稿-—张春源解析.doc_第1页
第1页 / 共18页
VB记单词课设论文报告格式-打印稿-—张春源解析.doc_第2页
第2页 / 共18页
VB记单词课设论文报告格式-打印稿-—张春源解析.doc_第3页
第3页 / 共18页
VB记单词课设论文报告格式-打印稿-—张春源解析.doc_第4页
第4页 / 共18页
VB记单词课设论文报告格式-打印稿-—张春源解析.doc_第5页
第5页 / 共18页
点击查看更多>>
资源描述

1、课程设计(论文)任务 机电工程 学院 物流管理 专业 一 班 一、课程设计(论文)题目 背单词 二、课程设计(论文)工作自 2014 年 6月10日起至 2014 年 6 月 16 日止。三、课程设计(论文) 地点: 8-605、606 四、课程设计(论文)内容要求:1本课程设计的目的1. 综合Visual Basic相关知识制作简单的可视化应用程序2. 灵活对程序代码进行利用,修改和编写;3. 熟练将Visual Basic所学知识和其它知识相结合2课程设计的任务及要求1)基本要求:1、目的是进一步培养学生综合应用VB的各种编程知识和技巧进行程序设计的能力。通过课程设计,学生能达到具备设计功

2、能较为复杂的Windows应用程序的能力。2、至少多窗体界面(3-5个窗体)3、使用循环、菜单、数组、文件操作、图形操作等知识点。;4、对运算结果的正、误分析原因。2)课程设计论文编写要求(1)要按照书稿的规格打印誊写毕业论文(2)论文包括目录、绪论、正文、小结、参考文献、谢辞、附录等(3)毕业论文装订按学校的统一要求完成3)参考文献:1:Visual Basic程序设计教程 作者: 刘炳文、许蔓舒编著。清华大学出版社2:Visual Basic程序设计教程(第二版)作者: 刘瑞新等编著,电子工业出版社3:新编Visual Basic程序设计教程 作者: 梁普选主编 , 电子工业出版社4)课程

3、设计进度安排内容 天数地点 查阅资料 2 图书馆 系统设计 2 8-605、606 编程与调试 1 8-605、606 检查程序及提问(考核) 1 8-605、606学生签名: 2014 年 6 月 11 日课程设计(论文)评审意见(1)完成分析(20分):优()、良()、中()、一般()、差(); (2)设计过程(40分):优()、良()、中()、一般()、差(); (3)完成调试(20分):优()、良()、中()、一般()、差();(4)回答问题(20分):优()、良()、中()、一般()、差();(5)格式规范性及考勤是否降等级:是()、否()评阅人: 职称: 2014 年 月 日目 录

4、第1章 系统概要11.1功能大概介绍1第2章总体设计12.1设计思路12.2 属性的设置1第3章源程序代码1第4章 运行结果及分析14.1 运行结果14.2程序分析14.3运行程序使用说明1第5章 心得体会1参考文献1第1章 系统概要1.1功能大概介绍 记忆单词是学习外语的必经之路。本题目要求编制一个能够帮助用户背单词的实用程序,具有滚动字幕功能,使同学们能有效的利用程序背单词。字母的背景颜色、字体大小、滚动速度可随时调整,在浏览过程中可暂停和继续。1、如图所示,设计这样的界面。最上面的Picture1中有个label12.picture1是用显示单词的,而且单词在图片框中随时间定时向左移动。

5、 2、左边有个框架1,用来选中单词题库和所要查找单词的首字母范围。从左边首字母开始,右边首字母单词结束 3.框架1下面有两个复选框,用来产生单词的形式是随机或者循环。4.右边有一个框架2,可以改变图片框中字体的大小,小字体是十六号字,大字体是24号字;有单词流动速度的功能,通过滚动条实现,点击滚动条右边,加快单词流动,点击左边减慢,移动滚动条也是;有改变图片框背景色的功能,是一个红绿蓝调色板 5、最下面有三个命令按钮,第一个是开始显示单词,第二个是暂停和继续,如果显示是暂停,点击一次后就是继续,反之。第三个是退出系统。 第2章总体设计2.1设计思路1.首先用input打开四级或者六级单词:通过

6、combo1的list属性下标值来实现,如果是0打开四级单词库,如果是1,打开六级单词词库2.用line input逐行读文件1 ,并且用EOF数提取文件1的行数,将读出的,并且用doloop循环确定行数n。3.确定picture1的label12中出现的单词是符合搜索范围:字符串变量words中有单词,用ASCII将单词变成ASCII码数字,即有相同开头字母单词有一个数代表,再用chr函数转换成字母。用Lcase函数将combo2和comno3中字母变成小写字母。如果两个会相等,就可以把符合要求范围的单词找出来4.显示在picture1的label12中:单词是显示在label12的capt

7、ion属性中,所以直接用label12.caption=words()就可以显示出单词在picture1 5.随机产生单词或循环产生:首先根据复选框的value属性值来选择是随机还是循环。如果复选框chkrand的属性值是1,则表示选中,用RND函数随机返回值,计算出的值代表一个单词,就可以执行随机的命令。因此复选框chkloop的属性值为0,表示未选中。反之效果也成立。6设计字体大小:通过设计option的value逻辑性的属性值来实现选中哪种字体,true表示选中,则再用fontsize赋值就可以,赋给label12.fontsize=16就是小字体,label12.fontsize=24

8、就是大字体。7.设置单词流动速度:用滚动条实现,滚动条1的value值,反映了滚动条的当前值,每个值都与timer计时器的interval值相对应,就能使计时器触发事件的时间间隔发生改变。8. 改变picture1的背景色:也是通过滚动条来实现的。是RGB三原色改变。RGB(a,b;c)其中abc是0255的整数,返回颜色。9.以上大多数都是写在命令控件中的,所以点击command时,就能发生相应的事件。单击Command1,就能打开文件,并且找到符合范围的单词,command2可以使单词暂停流动,或继续流动。Command3使程序停止。2.2 属性的设置第3章源程序代码Option Expl

9、icit Option Base 1 Dim words$(), X$ Dim n%, j%, k% Dim i% Dim hb%, tb%, xn% Private Sub chkRand_Click() If chkRand.Value = 1 Then chkLoop.Value = 0 chkLoop.Enabled = False Else chkLoop.Enabled = True End If End Sub Private Sub command1_Click() Label12.Left = Picture1.Left + Picture1.Width If Combo1.

10、Text = Combo1.List(0) Then Open App.Path & grade4.txt For Input As #1 Else Open App.Path & grade6.txt For Input As #1 End If n = 0 Do Until EOF(1) n = n + 1 ReDim Preserve words(n) Line Input #1, words(n) Loop Close #1 tb = 1 Do Until Chr(Asc(words(tb) = LCase(Combo2.Text) tb = tb + 1 Loop xn = n Do

11、 Until Chr(Asc(words(xn) = LCase(Combo3.Text) xn = xn - 1 Loop hb = tb Timer1.Enabled = True Timer2.Enabled = True command2.Enabled = True command2.Caption = 暂停 End Sub Private Sub command2_Click() If command2.Caption = 暂停 Then command2.Caption = 继续 Timer1.Enabled = False Timer2.Enabled = False Else

12、 command2.Caption = 暂停 Timer1.Enabled = True Timer2.Enabled = True End If End Sub Private Sub command3_Click() End End Sub Private Sub Combo2_click() If Combo2 Combo3 Then Combo3 = Combo2 End Sub Private Sub Combo3_Click() If Combo2.ListIndex Combo3.ListIndex Then Combo3.ListIndex = Combo2.ListIndex

13、 End Sub Private Sub Form_Load() Dim i% For i = 0 To 25 Combo2.AddItem Chr(65 + i) Combo3.AddItem Chr(65 + i) Next Combo1.ListIndex = 0 Combo2.ListIndex = 0 Combo3.ListIndex = 25 End Sub Private Sub HScroll1_Change() Timer2.Interval = HScroll1.Value End Sub Private Sub HScroll2_Change() Picture1.Bac

14、kColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF End Sub Private Sub HScroll2_scroll() Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF End

15、Sub Private Sub HScroll3_Change() Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF End Sub Private Sub HScroll3_scroll() Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Label12.ForeColor =

16、Not CLng(Picture1.BackColor) And &HFFFFFF End Sub Private Sub HScroll4_Change() Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF End Sub Private Sub HScroll4_scroll() Picture1.BackColor = RGB(HScroll2.Value, HScrol

17、l3.Value, HScroll4.Value) Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF End Sub Private Sub Option1_Click() If Option2.Value = True Then Label12.FontSize = 24 Else Label12.FontSize = 16 End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Label12.FontSize = 24 Else

18、 Label12.FontSize = 16 End If End Sub Private Sub Timer2_Timer() If command2.Caption = 继续Then Exit Sub End If Label12.Left = Label12.Left - 100 If hb Picture1.Left Then Label12.Caption = words(hb) Else If chkRand.Value = 1 Then hb = Rnd * (xn - tb) + tb Else hb = hb + 1 End If Label12.Left = Picture

19、1.Left + Picture1.Width + 1000 End If Else If chkLoop.Value = 1 Then hb = tb Else Timer1.Enabled = False Timer2.Enabled = False command2.Enabled = False command2.Caption = 暂停 End If End If End Sub第4章 运行结果及分析4.1 运行结果 4.2程序分析1.开始界面2、运行界面选好要查找单词范围,随机或循环可以自由选择,拖动滚动条,选择字体大小,单击开始就产生单词,单击暂停就停止,继续单击就继续产生单词,

20、单击退出就退出界面3,、存在问题(解决方法)A.无法打开文件,因为用了output,应该用input B.计时器无法停止工作,开始设置它的enable属性为true,开始应该设置为false ,因为后面有在代码中用到。4.3运行程序使用说明本题目共提供了“大学英语四级词汇”和“大学英语六级词汇”两个词库文件(分别是grade4.txt和grade6.txt),通过“词库设置”中的“词库”组合框可以选择想要的词库,如图7.2所示。默认的词库是“大学英语四级词汇”。 图7.2 选择词库 图7.3 选择单词范围为了便于用户使用,程序允许选择想要记忆的单词范围(如图7.3所示)。默认的单词范围是“A至

21、Z”,即全部单词。如果选择的范围是“A至C”,那么程序只显示以A、B和C字母开头的单词。程序应保证“起始字母”在“终止字母”之前,即不会出现类似于“C至A”的情况。通过“其他设置”中的“字体大小”单选框可以选择滚动单词时的字体大小。通过操作“显示速度”滚动条可以设置字母的滚动速度;通过设置R(红)、G(绿)、B(蓝)可以调节显示区域的背景颜色。根据需要选择“随机”或“循环”复选框。如果不选择“随机”,则显示单词时是单词在词库中的顺序(即字母的顺序)显示的,否则以随机顺序显示。如果不选择“循环”复选框,单词显示一遍之后自动停止回到起始状态。如果选择了“循环”复选框,显示一遍之后会自动从头开始显示

22、课件,在随机方式之下,循环是没有意义的,所以当“随机”复选框选定时,“循环”复选框应变为无效且呈现未选定状态。 设置完毕后,单击“开始”按钮,窗口最上方显示区域从右向左以字幕方式动态显示所选的单词,包括词性和词义,在显示过程中可以改变字体大小、滚动速度和显示颜色。单击“暂停”按钮可以暂停滚动,这时“暂停”按钮变为“继续”,单击会继续滚动。单击“退出”按钮关闭程序。第5章 心得体会VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在 程序入门阶段还是应该重视概念的学习.程序设计入门阶段要经

23、常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.(1) 保持良好的学习心态(2) 要有自信自强积极主动学习(3) 克服畏难情绪树立学好程序设计的信心(4) 要有良好的学习习惯(5) 课前预习认真听课并适当做些笔记课后要认真复习消化所学内容完成作业(6) 由于课程设计整体偏难,一个人无法独立完成,所以团队合作很重要(7) VB程序设计在生活中较常用,如果能学好,会便利我们的生活参考文献1:Visual Basic程序设计教程 作者: 刘炳文、许蔓舒编著。清华大学出版社2:Visual Basic程序设计教程(第二版)作者: 刘瑞新等编著,电子工业出版社3:新编Visual Basic程序设计教程 作者: 梁普选主编 , 电子工业出版社

展开阅读全文
相似文档                                   自信AI助手自信AI助手
猜你喜欢                                   自信AI导航自信AI导航
搜索标签

当前位置:首页 > 行业资料 > 其他

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        获赠5币

©2010-2024 宁波自信网络信息技术有限公司  版权所有

客服电话:4008-655-100  投诉/维权电话:4009-655-100

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :gzh.png    weibo.png    LOFTER.png 

客服