VB课程设计-背单词

1、华东交通大学课程设计VB 课程设计(论文)任务书 土木建筑土木建筑 学院 建筑环境与能源应用工程建筑环境与能源应用工程 专业 2 2班一、课程设计(论文)题目 ： 背单词背单词二、课程设计(论文)工作自 年 月 日起至 年 月 日止 三、课程设计(论文) 地点: 计算中心计算中心 四、课程设计(论文)内容要求：1.1. 本课程设计的目的本课程设计的目的（1）进一步巩固和加深对“VB 程序设计”课程基本知识的理解和掌握，了解VB 语言在项目开发中的应用。（2）学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。（3）通过对标

2、准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。 2.2. 课程设计的任务及要求课程设计的任务及要求2.12.1 基本要求：基本要求：(1) 对系统功能进行需求分析；(2) 使用 Visual basic 开发环境进行程序开发；(3) 提出系统的设计方案；(4) 提出系统的设计方案；(5) 编写源程序代码并进行调试。2.22.2 创新要求创新要求在基本要求达到后，可进行创新设计。2.32.3 课程设计报告撰写及装订要求课程设计报告撰写及装订要求课程设计报告的撰写要求表述简明，图表准确。报告按如下内容和顺序用 A4 纸进行打印并装订成册。（1）封面采用统一的课程设计封面，并按要

3、求填写好封面要求的个人信息和选题。（2）设计任务书（3）评阅书（4）目录（5）正文（6）主要参考文献2.42.4 课程设计评分标准：课程设计评分标准： （1）达到课程设计的目的与要求，程序的可读性较好，并调试正确，60 分；（2）能正确回答设计的中老师所提问题，可增加 10 分；（3）课程设计报告书写规范整齐，可增加 10 分；（4）心得体会认真总结，可增加 10 分；华东交通大学课程设计（5）程序有创新性，可增加 10 分；成绩评定实行优秀、良好、中等、及格和不及格五个等级。不及格者需重做。2.52.5 课程设计进度安排课程设计进度安排华东交通大学课程设计（1）准备阶段（6 学时）：选择设计

4、题目、了解设计目的要求、查阅相关资料。（2）程序模块设计分析阶段（8 学时）：程序总体设计、详细设计。(3) 代码编写调试阶段（10 学时）：程序模块代码编写、调试、测试。(4) 撰写论文阶段（6 学时）：总结课程设计任务和设计内容，撰写课程设计论文。学生签名： 20 年 月 日华东交通大学课程设计课程设计（论文）评阅意见课程设计（论文）评阅意见等级序号项 目优秀良好中等及格不及格1课程设计态度评价2出勤情况评价3任务难度评价4工作量饱满评价5设计中创新性评价6论文书写规范化评价综合评定等级评阅人评阅人 职称职称 2020 年年 月月 日日 华东交通大学课程设计目录第 1 章系统概要.11.1

5、 窗体概要 .11.2 窗体运行顺序 .1第 2 章总体设计.22.1 设计思路 .22.2 窗体功能及控键 .2第 3 章 码.4第 4 章 运行程序代结果及分析.9第 5 章 心得体会.11参考文献 .12华东交通大学课程设计1第 1 章系统概要1.1 窗体概要图 1-1本窗体包含了多个控件。整个窗体最上方是用来显示单词的 text 控件；左下方用了一个 Frame，其中是两个 Label 和三个 Combo 控件，用来选择单词词库以及单词显示范围；这个框架下方是两个 Check 和三个 Command 控件，用来选择单词显示方式以及控制单词的显示；右边也用了一个 Frame，其中有对于显

6、示单词的一些其他设置，使用了六个 Label、两个 Option 和四个Hscroll 控件，分别控制显示单词的字体大小、显示速度以及显示单词背景的颜色设置。1.2 窗体运行顺序控件是应用程序非常重要的组成部分，通过各种控件，应用程序可以实现不同的功能，通过本系统的设计，可以实现如下功能：1. 选择词库可以切换四级词汇和六级词汇。2. 选择范围可以从 A 到 Z 自由切换范围。3. 选择随机可随机播放单词，并且循环变得不可选，选择循环可以循环播放单词，并且随机变得不可选。4. 播放的单词可以选择字体大小、显示速度、颜色设置。5. 点击开始可开始播放单词，点击暂停可暂停播放。6. 运行结束可在程

7、序主窗体中点击“退出”按钮即可结束运行程序。华东交通大学课程设计2第 2 章总体设计2 2.1 设计思路背单词软件是英语学习类软件的分支，是专门针对用户背诵英语单词，掌握词汇量而制作的辅助学习软件。由于媒介为个人电脑，所以背单词软件有着其它背单词工具无法达到的智能化与互动性，但相对应的，过于依赖电脑和较差的便携性成为其缺陷。所以作为背单词的软件的设计思路应该简单为原则。用户操作必须简单、方便为原则。1. 本题目提供了“大学英语四级词汇”和“大学英语六级词汇”两个词库文件，通过“词库设置”中的“词库”组合框可以选择想要的词库。默认的词库是“大学生英语四级词汇” 。2. 为了便于用户使用，程序允许

8、选择想要记忆的单词范围，默认的单词范围是“A”至“Z” ，即全部单词。如果选择的范围是“A 至 C” ，那么程序只显示以 A,B 和 C 字母开头的单词。程序应保证“起始字母”在“终止字母”之前，即不会出现类似于“C 至 A”的情况。3. 据需要选择“随机”或“循环”复选框。如果不选择“随机” ，则显示单词是以单词在词库中的顺序显示的，否则以随机顺序显示，如果不选择“循环”复选框，单词显示一遍之后会自动从头开始显示。在随机方式之下，循环是没有意义的，所以当“随机”复选框选定时， “循环”复选框应变为无效且呈现为选定状态。4. 毕后，单机“开始”按钮，窗口最上方显示区域从右向左以字幕方式动态显示

9、所选的单词，包括词性和词义。在相爱你是过程中可以改变字体大小，滚动速度和背景显示颜色。单击“暂停”按钮可以暂停滚动，这是“暂停”按钮变为“继续” ，单击会继续滚动。单机“退出”按钮退出主界面。本程序在主窗体设置有“开始” 、 “ 暂停” 、 “ 结束” 、三个子窗体控件。2.2 窗体功能及控键主窗体提供开始、暂停和结束三个快捷按钮。当程序运行时，显示主窗体，当用户点击相应的控制按钮时，程序进入相应的运行窗体。在不同的运行窗体根据控件属性值的相关提示进行下一步操作各窗体控件及其属性值与属性名见下列表（表 2-1） 。表 2-1背单词界面控键控件名属性名属性值Commamd1Caption开始Co

10、mmamd2Caption暂停Commamd3Caption结束Frame1Caption词库设置Frame2Caption其他设置Text1TextLabel1Caption词库华东交通大学课程设计3Label2Caption范围Label3Caption字体大小Label4Caption显示速度Label5Caption颜色设置Label6CaptionRLabel7CaptionGLabel8CaptionBCombo1ComboBoxCombo2ComboBoxCombo3ComboBoxCheck1CheckBoxCheck2CheckBoxOption1ValueFalseOpti

11、on2ValueFalse华东交通大学课程设计4第 3 章 程序代码Private s() As String, t() As String, r%Private Sub Check1_Click()Check2.Value = 0If Check1.Value = 1 ThenCheck2.Enabled = FalseElseCheck2.Enabled = TrueEnd IfEnd SubPrivate Sub Check2_Click()Check1.Value = 0If Check2.Value = 1 ThenCheck1.Enabled = FalseElseCheck1.E

12、nabled = TrueEnd IfEnd Sub实现随机与循环复选框的选择，选择了随机框则循环框呈不可选择状态，选择了循环框则随机框呈不可选择状态。Private Sub Combo3_Click()If Combo3.ListIndex Combo2.ListIndex + 96 Thenr = r + 1ReDim Preserve t(r)t(r) = s(m)End IfIf Asc(Left(s(m), 1) Combo3.ListIndex + 97 ThenExit DoEnd IfLoop将词库每行数据存入 s(m)中，下标对应行号，实现范围选择，并将范围内的每行数据存入

13、t(r)中，下标对应行号。Close #1Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()If Timer1.Enabled = True ThenCommand2.Caption = 继续: Timer1.Enabled = FalseElseCommand2.Caption = 暂停: Timer1.Enabled = TrueEnd IfEnd SubPrivate Sub Command3_Click()If MsgBox(您确定要退出吗？, 4 + 32, 系统提示) = vbNo Then Exit SubUnload

14、 Form1End SubPrivate Sub Form_Load()Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2窗口显示居中Combo1.List(0) = 大学英语四级词汇Combo1.List(1) = 大学英语六级词汇Command2.Enabled = FalseCombo1.Text = Combo1.List(0)For i = 1 To 26Combo2.List(i - 1) = Chr(64 + i)华东交通大学课程设计6Next iCombo2.Text = Combo2.List(0)Com

15、bo2.ListIndex = 0For i = 1 To 26Combo3.List(i - 1) = Chr(64 + i)Next iCombo3.Text = Combo3.List(25)Combo3.ListIndex = 25Option1.Value = TrueCheck1.Value = 0Check2.Value = 0HScroll2.Value = 0HScroll3.Value = 0HScroll4.Value = 0Timer1.Enabled = FalseTimer1.Interval = HScroll1.Max - HScroll1.ValueEnd S

16、ubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.Max - HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll2_Change()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Text1.BackColor = Not CLng(Text1.ForeColor) And &

17、amp;HFFFFFFEnd SubPrivate Sub HScroll2_Scroll()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub HScroll3_Change()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Text1.BackColor = N

18、ot CLng(Text1.ForeColor) And &HFFFFFFEnd Sub华东交通大学课程设计7Private Sub HScroll3_Scroll()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub HScroll4_Change()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.

19、Value, HScroll4.Value)Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub HScroll4_Scroll()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub Option1_Click()If Option1.Value =

20、True ThenText1.FontSize = 20End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True ThenText1.FontSize = 33End IfEnd SubPrivate Sub Timer1_Timer()Static n%, f As BooleanOn Error Resume NextSelect Case Check1.ValueCase 0If n = r And Check2.Value = 1 Thenn = 0ElseIf n = r And Check2.Value = 0

21、Thenf = FalseTimer1.Enabled = FalseExit SubEnd IfIf f = False Then Text1.Text = Space(46) & t(n + 1)If Len(Text1.Text) 0 ThenText1.Text = Right(Text1.Text, Len(Text1.Text) - 1): f = True华东交通大学课程设计8Elsef = False: n = n + 1End IfCase 1Randomize TimerIf f = False Then Text1.Text = Space(46) & t

22、(Int(r - 1) * Rnd + 1)If Len(Text1.Text) 0 ThenText1.Text = Right(Text1.Text, Len(Text1.Text) - 1): f = TrueElsef = FalseEnd IfEnd Select终止默认循环End Sub华东交通大学课程设计9第 4 章 运行结果及分析4. 主窗体运行分析图 4-1 图 4-2首先选择词库，可选大学英语四级词汇和大学英语六级词汇，然后选择范围，以首字母为范围，从 A 到 Z，不可前边的首字母先于后边的首字母，否则系统会提示“起始字母必须在终止字母前” ，下边可以选择单词的显示方法，可

23、选随机和循环，选定了其中一个另一个复选框就会变成不可被选中模式。若选择的是随机，则单词显示的顺序是随机的；若选择的是循环，则单词会在所选的范围内按照所选词库内的顺序循环显示。点击开始，单词会默认按华东交通大学课程设计10照在文本中的顺序逐一显示，或者选择了随机后会在所选择的单词词库之中随机显示单词，另外可以选择显示单词的字体大小。滑动显示速度右边的滚动条可以调节单词显示的速度，默认是以最慢的速度显示；下边可以设置显示的背景颜色，提供了 RGB 三色自由配合，同样是滑动滚动条，调节当前滑动条所控制的颜色深度，往右边滑动是加深所选颜色，默认是三原色均最浅，即白色背景显示。点击暂停，显示的单词会停下，此时“暂停”这以控件会变成“继续” ，再次点击，单词会继续显示，控件名称会改变回“暂停” ，点击退出，系统会提示“真的要退出本程序吗” ，点击是退出，点击否回到程序。整个窗体运行流畅，各个控件正常