VB课程设计报告--英语词汇游戏.doc

VB课程设计报告题目：英语词汇游戏 姓 名： xxx 学 号：xxxxx 院 系： xxxx 指导老师： xxxx目录1. 课程设计目的.12. 课程设计题目及简介.13. 设计方法简介.14. 部分源代码实现.25. 运行结果截图显示.76. 心得与体会.。.15一 课程设计目的： 随着计算机、计算机应用技术的不断发展，计算机应用已经深入到政治、经济、军事、教育、生活的各个领域，计算机软件是计算机应用的核心内容，作为开发计算机软件的程序设计显得尤为重要。VB程序开发语言以其简单易学的特性，在全社会得到广泛的使用和推广，各行各业的人员通过学习VB程序开发语言，能够很快的成为计算机和信息技术应用的开发者。 本次课程设计为学生提供了一个既动手又动脑的，独立实践的机会，将课本上的理论知识和实践有机的结合起来，锻炼学生的分析解决实际问题的能力，提高学生适应实际，实践编程的能力。二课程设计题目及简介： 英语词汇连接游戏通过在给出的英语单词和中文含义之间进行连接来学习英语。游戏按照英语字典的顺序，系统地安排从A到Z的不同游戏小局，用户可以根据自己的情况选择进行娱乐学习，并给出学习效果评价。通过反复游戏，用户可以提高英语单词词汇量，在用户从A到Z地选择不同游戏小局后，将在显示界面上出现10个英语单词的英文及对应中文卡片，同时进行10s计时，时间到了，将出现下一组10个英语单词的英文及对应的中文卡片，直至游戏小局结束。同时，对连接正确的进行计数，给出学习效果。3 设计方法简介： 本次课程设计英语单词按照文件进行组织，从A到Z组织成26个文件。每个文件每一行由单词英文，单词中文构成，例如：单词1英文、单词1中文、单词2英文、单词2中文、.、单词n英文，单词n中文。 数据流程图如下： 功能结构图如下：4 部分源代码实现如下：ublic Class wordlink Dim currentgame As String = Dim gamenow As String = 0 Dim gameover As Boolean = False Dim words(10, 2) As String Dim wordscoor(10, 2) As String Dim first As Integer = -1 Dim second As Integer = -1 Dim nums As Integer = 0 Dim totalwords As String = Dim wordstring As String = Dim currentwords As Integer = 1 Dim openmidi As Boolean = False Dim seconds As Integer = 0 Private Declare Function mciExecute Lib winmm.dll Alias mciExecute () Private Sub game_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles game.SelectedIndexChanged Dim filename As String currentgame = game.GetItemText(game.SelectedItem) filename = currentgame + .text If readwords(filename) Then nums = 0 matchnum.Text = nums.ToString ProgressBar1.Value = 0 checkclear(0) checkclear(3) first = -1 second = -1 wordstring = getwords() splitword() ProgressBar1.Step = Int(550 / (5 * currentwords / 2) checkclear(2) Timer2.enabled = True End If End Sub Private Function readwords(ByVal file As String) As Boolean readwords = False If System.IO.File.Exists(file) Then totalwords = System.IO.File.ReadAllText(file) If totalwords.Trim.Length = 0 Then MsgBox(file + 文件没有内容！, MsgBoxStyle.Exclamation, 请检查文件！) gameover = True Else gameover = False readwords = True End If Else MsgBox(file + 文件不存在！, MsgBoxStyle.Exclamation, 请检查文件！) gameover = True End If End Function Private Function getwords() As String Dim mystr As String = Dim temp As String = Dim i As Integer = 0 Do While i = 0 And temp.Trim.Length 1 Then mystr = mystr + temp currentwords = i + 1 Else mystr = mystr + , End If Loop If totalwords.Trim.Length 0 Then gameover = False Else gameover = True End If getwords = mystr End Function Private Sub splitword() Dim aword() As String Dim i, j As Integer Dim splitchar() As String = , Dim gen As New System.Random Dim ok As Boolean = False Dim tempstr As String tempstr = wordstring For i = 0 To 9 wordscoor(i, 0) = wordscoor(i, 1) = Next i = 0 j = 0 aword = tempstr.Split(splitchar(0) For i = 0 To 9 words(i, 0) = aword(2 * i) words(i, 1) = aword(2 * i + 1) Next For i = 0 To 9 ok = False Do While Not ok j = Int(gen.NextDouble * 10) tempstr = wordscoor(j, 0) If System.String.IsNullOrEmpty(tempstr) Then wordscoor(j, 0) = words(i, 0) ok = True End If Loop Next For i = 0 To 9 ok = False Do While Not ok j = Int(gen.NextDouble * 10) tempstr = wordscoor(j, 1) If System.String.IsNullOrEmpty(tempstr) Then wordscoor(j, 1) = words(i, 1) ok = True End If Loop Next Me.Label1.Text = wordscoor(0, 0) Me.Label2.Text = wordscoor(1, 0) Me.Label3.Text = wordscoor(2, 0) Me.Label4.Text = wordscoor(3, 0) Me.Label5.Text = wordscoor(4, 0) Me.Label6.Text = wordscoor(5, 0) Me.Label7.Text = wordscoor(6, 0) Me.Label8.Text = wordscoor(7, 0) Me.Label9.Text = wordscoor(8, 0) Me.Label10.Text = wordscoor(9, 0) Me.Label11.Text = wordscoor(0, 1) Me.Label12.Text = wordscoor(1, 1) Me.Label13.Text = wordscoor(2, 1) Me.Label14.Text = wordscoor(3, 1) Me.Label15.Text = wordscoor(4, 1) Me.Label16.Text = wordscoor(5, 1) Me.Label17.Text = wordscoor(6, 1) Me.Label18.Text = wordscoor(7, 1) Me.Label19.Text = wordscoor(8, 1) Me.Label20.Text = wordscoor(9, 1) End Sub Private Sub musicplay_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles musicplay.CheckedChanged End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If openmidi And musicplay.Checked Then mciExecute(close sound) mciExecute(open ) mciExecute(play sound) End If End Sub Private Sub wordlink_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer2.Enabled = True End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Dim wd As String = Dim i As Integer wd = Label1.Text.Trim If wd.Length 0 Then If first = 0 Or second = 0 Then If first = 0 Then If words(first, 1).ToString.Trim = wd Then nums = nums + 1 matchnum.Text = nums.ToString Label1.Enabled = False first = -1 second = -1 checkclear(1) End If Else If words(second, 0).ToString.Trim = wd Then nums = nums + 1 Label1.Enabled = False matchnum.Text = nums.ToString first = -1 second = -1 checkclear(1) End If End If Else For i = 0 To 9 If words(i, 0).ToString.Trim = wd Then Label1.Enabled = False first = 1 Exit For ElseIf words(i, 1).ToString.Trim = wd Then second = i Label1.Enabled = False Exit For End If Next End If End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ProgressBar1.Value + 1 = 100 Then seconds = seconds + 1 secnum.Text = seconds.ToString Else Timer1.Enabled = False ProgressBar1.Value = 0 checkclear(2) checkclear(0) checkclear(3) first = -1 second = -1 If Not gameover Then wordstring = getwords() ProgressBar1.Step = Int(550 / (5 * currentwords / 2) splitword() checkclear(2) Timer1.Enabled = True Else nums = 0 seconds = 0 End If End If End Sub Private Sub allover_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles allover.Click Application.Exit() End SubEnd Class5 运行结果截图显示 主窗体效果如图窗体main添加进度控件效果窗体mian添加时间按钮控件效果窗体mian添加多个标签控件效果实例全局变量初始化 代码设计窗口输入生成单词文件名称的代码效果输入读取文件内容代码效果变量，控制赋初值代码输入后效果变量,控件赋初值代码输入后效果单词序列分组，排列和游戏计时设置代码输入效果6 心得与体会： VB程序设计的入门学习并不难,但却是一个十分重要的