我爱做算数——幼儿园算数游戏程序设计报告书.doc

石家庄铁道大学课程设计 我爱做算数幼儿园算数游戏程序设计书单 位 交通运输学院分院(系)专 业 交通运输 学 号 20091712 学生姓名 田静雅 指导教师 李中华 完成日期 2010 年 7月 14 日摘 要本次小学期课程设计是学生学习的重要部分之一。平时的学习只能使学生掌握书本上的基本内容，并不能激发学生的自主创新能力。本次小学期的课程设计从选题到完成设计报告，可以使学生对Visual Basic6.0软件有更深一步的了解和掌握。“我爱做算数幼儿园算数游戏程序设计”的课程设计使学生掌握软件开发过程的问题分析、程序设计、程序编码、测试等基本方法和技能；掌握利用VB开发多媒体系统的方法以及掌握VB绘图的方法。本软件运用到了一些常用控件，基本语句中的赋值、数据输入、结束语句，运用到了Msgox() 函数，设计结构中的if条件语句和select case语句，数组中的控件数组的建立和应用，界面设计中的计时器控件和图形框控件等。本次课程设计以3到6岁儿童为应用对象，整个程序生动、活泼，插有图片、动画，并设置背景音乐，符合幼儿的水平。软件主要包括练习题和考试卷部分，可以帮助幼儿园小朋友练习算术并进行水平测试，形式多样，寓教于乐。论文首先介绍了程序开发涉及的相关知识点，主要包括随机变量、多媒体系统开发、控件数组的应用、图片和文字的动态效果、设置文字的阴影效果等；其次，介绍了“我爱做算数幼儿园算数程序设计”程序的总体分析与设计，包括窗体间转换、随机练习题和考试题等。最后对幼儿园算数游戏程序进行了实现，并作了详细描述，主要采用图片与代码结合的方式详细地叙述了程序功能的实现。关键词：我爱做算数幼儿园算数游戏程序，多媒体，VB绘图方法，随机变量目 录1.选题的意义12.系统功能需求分析2.1系统概述2.2系统的组成及各模块的功能2.3系统的运行环境3.系统设计3.1总体结构设计4.系统实现4.1模块的设计与实现5.总结5.1总结5.2存在的主要问题参考文献我爱做算术幼儿园算术游戏1选题的意义我爱做算术幼儿园算术游戏课程设计使学生掌握软件开发过程的问题分析、程序设计、程序编码、测试等基本方法和技能；掌握利用VB开发多媒体系统的方法以及掌握VB绘图的方法。可以使学生对Visual Basic6.0软件有更深一步的了解和掌握。这个题目内容新颖引人注目，并且可应用性较强，寓教于乐，主要以练习题和考试题两种形式对幼儿园小朋友的学习起到了很大帮助。2、系统功能需求分析2、1 系统概述我爱做算术幼儿园算术游戏系统涉及到了软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能；该游戏系统以3到6岁儿童为应用对象，整个程序生动、活泼，插有图片、动画，并设置背景音乐，符合幼儿的水平。软件主要包括练习题和考试卷部分，可以帮助幼儿园小朋友练习算术并进行水平测试，形式多样，寓教于乐。2、2 系统的组成及各模块的功能该系统主要包括四部分，即首页、选项页、练习题部分和考试卷部分。其中练习题部分包括1套选择题练习和3套填空题练习，考试卷部分包括1套以图形为主的简单试卷一和易算式为主的试卷二。为了符合幼儿的心理，系统中每个窗体上都用到了Timer()控件以实现字体颜色改变和图片的移动，以此吸引小朋友的注意力，尽量完成题目。系统中的题目包括随机题目和固定题目两种，均给出了正确答案，并以图片和文字的形式进行完成情况的提示，练习题和考试卷部分均具有评分功能。2、3系统的运行环境我爱做算术幼儿园算术游戏课程设计，是利用Visual Basic 6.0软件编写的一款软件。3、系统设计3.1总体结构设计我爱做算数幼儿园算数游戏程序设计流程图首页选项页考试题页练习题页考试卷一考试卷二填空题练习三填空题练习二选择题练习填空题练习一退出 注释： 表示窗体 表示窗体间可转换退出 表示按钮command 4、系统实现4、1 模块设计与实现本系统一共有4个部分，12个模块 4、1、1首页1、界面首页是本软件的脸面。载入首页时，同时载入背景音乐春天在哪里；文字“我爱做算术”应用了用label设置文字的阴影效果，同时在Timer控件的作用下，文字和阴影均随机变色；文本“幼儿算数游戏”除设置随机色外还设置了从右向左滚动，重复出现；软件设计者条同样应用了随机色的知识点。整个首页具有动画效果，基本能吸引小朋友的注意力。2、用到的主要控件及其属性设置控件名称属性属性值Label1Caption我爱做算术Label4Caption我爱做算术Label2Caption幼儿算术游戏Command1Caption进入3、主要代码Private Sub form_load()Set c = CreateObject(wmplayer.ocx) c.url = App.Path & 音频春天在哪里.mp3 c.settings.playCount = 1 打开首页的背景音乐Label1.ForeColor = vbGreenLabel4.ForeColor = vbRedLabel4.Left = Label1.Left + 100Label4.Top = Label1.Top - 100Label2.ForeColor = vbBlue 设置文字的阴影效果End SubPrivate Sub Timer1_Timer() If Label2.Left + Label2.Width 0 Then Label2.Move Label2.Left - 20 Else Label2.Left = sy.ScaleWidth End If 文字向左移动Label2.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) 设置随机色End SubPrivate Sub Timer2_Timer()Label4.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) 设置随机色End Sub4、1、2选项页1、界面Private Sub Command4_Click()Load lxt1lxt1.Showxx.Visible = False 显示到练习题页End SubPrivate Sub command5_Click()Load ksj1ksj1.Showxx.Visible = False 显示考试卷页End SubPrivate Sub label1_click()Load sysy.ShowUnload xx 返回首页End SubPrivate Sub Timer3_Timer() If Image1.Left + Image1.Width 0 Then Image1.Move Image1.Left - 20 Else Image1.Left = xx.ScaleWidth 图片向左移动 End IfEnd Sub4、1、3练习题页1、界面 Private Sub label1_click()Load lxxzlxxz.Showlxt1.Visible = False 窗体由练习题页切换到选择练习页End SubPrivate Sub Timer1_Timer() If Image1.Top + Image1.Height 0 Then Image1.Top = Image1.Top - 40 Else Image1.Top = lxt1.ScaleHeight 设置图片向上移动 End IfEnd Sub（一）选择题Dim ss As String, jg As IntegerDim zq As Integer, cw As Integer 声明变量Private Sub Command3_Click()Dim num1 As Integer, num2 As IntegerDim t As IntegerDim ysf As Integer, jj As String * 1 声明变量num1 = Int(51 * Rnd)num2 = Int(51 * Rnd) 产生两个100以内的随机数If num1 num2 Then t = num1: num1 = num2: num2 = t 调整减数和被减数ysf = Int(2 * Rnd) 确定运算符号Select Case ysf Case 1 jj = + jg = num1 + num2 Case 0 jj = - jg = num1 - num2 End Select 确定运算式ss = num1 & jj & num2 & = ?Label5.Caption = ss 将算式显示在label5中 Option1.Caption = Val(jg) + 1 Option2.Caption = Val(jg) Option3.Caption = Val(jg) - 1 Option4.Caption = Val(jg) + 2 显示选项End SubPrivate Sub Command4_Click()If Option2.Value = True Then Set f = CreateObject(wmplayer.ocx) f.url = App.Path & 音频掌声.mp3 加载音频文件掌声 f.settings.playCount = 1 音频文件播放一次 Form1.Show Image1.Visible = True Image2.Visible = FalseElse Set g = CreateObject(wmplayer.ocx) g.url = App.Path & 音频乌鸦叫.mp3 加载音频文件乌鸦叫 g.settings.playCount = 1 音频文件播放一次 Form2.Show Image2.Visible = True Image1.Visible = FalseEnd IfLabel1.Caption = jg label1显示正确答案End SubPrivate Sub Command1_Click()Unload Form1End SubPrivate Sub Timer1_Timer()Label1.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)End Sub（二）填空题一Dim num1 As Integer, num2 As IntegerDim ss As String, jg As IntegerDim zq As Integer, cw As Integer 声明变量Private Sub form_load()Dim t As IntegerDim ysf As Integer, jj As String * 1 声明变量num1 = Int(21 * Rnd)num2 = Int(21 * Rnd) 产生两个20以内的随机数If num1 num2 Then t = num1: num1 = num2: num2 = t 调整减数和被减数ysf = Int(2 * Rnd) 确定运算符号Select Case ysf Case 1 jj = + jg = num1 + num2 Case 0 jj = - jg = num1 - num2 End Select 确定运算式ss = num1 & jj & num2 & =Label1.Caption = ss 将算式显示在label1中End SubPrivate Sub Command3_Click()If Text1.Text = Then Text1.Text = 0 不输入结果则认为输入数值0 If Val(Text1.Text) = jg Then Picture1.Print ss; Text1; o(_)o 把算式和结果显示在picture1中 zq = zq + 1 若判断结果正确，计数 Picture2.Visible = True Picture3.Visible = False Else Picture1.Print ss; Text1; _ 把算式和结果显示在picture1中 cw = cw + 1 如果判断结果错误，计数 Picture3.Visible = True Picture2.Visible = False End If Label2.Caption = jg Text1.Text = text1清空 Text1.SetFocus 获得焦点 form_load 重新出题End SubPrivate Sub Command1_Click()MsgBox 小朋友，你计算了 & (zq + cw) & 道题哦o(_)o & 做对了 & zq _& 道题o(_)o & ， & 做错了 & cw & 道题_ & 得分 & Int(zq / (zq + cw) * 100) & _分，加油！, vbOK, 看看你的分数吧 评分End Sub（三）填空题二Dim num1 As Integer, num2 As IntegerDim ss1 As String, ss2 As String, jg As IntegerDim zq As Integer, cw As Integer 声明变量Private Sub form_load()Dim t As IntegerDim ysf As Integer, jj As String * 1 声明变量num1 = Int(21 * Rnd)num2 = Int(21 * Rnd) 产生两个20以内的随机数ysf = Int(2 * Rnd) 确定运算符号Select Case ysf Case 1 jj = + If num2 num1 Then t = num2: num1 = num2: num2 = t jg = num2 - num1 Case 0 jj = - If num1 num2 Then t = num1: num1 = num2: num2 = t jg = num1 - num2 End Selectss1 = num1 & jjss2 = = & num2Label1.Caption = ss1Label2.Caption = ss2End Sub（四）填空题三Dim num1 As Integer, num2 As IntegerDim ss As String, jg As IntegerDim zq As Integer, cw As Integer 声明变量Private Sub form_load()Dim t As IntegerDim ysf As Integer, jj As String * 1 声明变量num1 = Int(21 * Rnd)num2 = Int(21 * Rnd) 产生两个20以内的随机数ysf = Int(2 * Rnd) 确定运算符号Select Case ysf Case 1 jj = + If num2 0 Then Image1.Top = Image1.Top - 20 Else Image1.Top = lxt1.ScaleHeight End IfEnd SubPrivate Sub Timer2_Timer()Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) 设置随机色End Sub（一）试卷一Private score As IntegerPrivate Sub Command3_Click()Label6.Caption = 1.A 显示正确答案Label7.Caption = 2.CLabel8.Caption = 3.BLabel9.Caption = 4.DLabel10.Caption = 5、9Label11.Caption = 6、13Label12.Caption = 7、7If Text1.Text = Then Text1.Text = 0If Text2.Text = Then Text2.Text = 0If Text3.Text = Then Text3.Text = 0If Option1.Value = True Then 判断正误并计分Label13.Caption = score = score + 10ElseLabel13.Caption = score = score + 0End IfIf Option7.Value = True ThenLabel14.Caption = score = score + 10ElseLabel14.Caption = score = score + 0End IfIf Option10.Value = True ThenLabel15.Caption = score = score + 10ElseLabel15.Caption = score = score + 0End IfIf Option16.Value = True ThenLabel16.Caption = score = score + 10ElseLabel16.Caption = score = score + 0End IfIf Text1.Text = Val(9) ThenLabel17.Caption = score = score + 20ElseLabel17.Caption = score = score + 0End IfIf Text2.Text = Val(13) ThenLabel18.Caption = score = score + 20ElseLabel18.Caption = score = score + 0End IfIf Text3.Text = Val(7) ThenLabel19.Caption = score = score + 20ElseLabel19.Caption = score = score + 0End IfLabel20.Caption = score & 分 显示得分和评语If score = 100 ThenLabel25.Caption = 小朋友，你真聪明，太棒啦！Image1.Visible = TrueElseIf score = 90 ThenLabel25.Caption = 小朋友，不错哦，你很聪明！Image2.Visible = TrueElseIf score = 80 ThenLabel25.Caption = 小朋友，还不错，加油！Image3.Visible = TrueElseIf score = 70 ThenLabel25.Caption = 小朋友，要继续努力呀！Image4.Visible = TrueElseLabel25.Caption = 小朋友，要多做练习哦！Image5.Visible = TrueEnd IfCommand3.Enabled = FalseEnd SubPrivate Sub Command2_Click()Load ksj1ksj1.ShowUnload sj1 切换窗体到考试卷页End Sub（二）试卷二Dim a(1 To 20) As Integer, b(1 To 20) As IntegerDim jj As String * 1, score As IntegerDim t As Integer, ysf As Integer, jgj(1 To 20) As Integer, jgo(1 To 20) As IntegerDim ss1 As String, ss2 As String, ss3 As String, ss4 As String, ss5 As String 声明变量Private Sub form_load()score = 0 For i = 1 To 20 a(i) = Int(Rnd() * 21) b(i) = Int(Rnd() * 21) Next i Randomize 随机数生成器 ysf = Int(Rnd() * 2) 随机生成0和1两个数 For i = 1 To 5 出题15题a+b=？形式 Select Case ysf Case 1 jj = + jgj(i) = a(i) + b(i) Case 0 If a(i) b(i) Then t = a(i): a(i) = b(i): b(i) = t jj = - jgj(i) = a(i) - b(i)End Select ss1 = a(1) & jj & b(1) & = ss3 = a(3) & jj & b(3) & =ss5 = a(5) & jj & b(5) & =Label1.Caption = ss1Label3.Caption = ss3Label5.Caption = ss5Select Case ysf Case 0 jj = + jgo(i) = a(i) + b(i) Case 1 If a(i) b(i) Then t = a(i): a(i) = b(i): b(i) = t jgo(i) = b(i) - a(i)Case 0 jj = - If a(i) b(i) Then t = a(i): a(i) = b(i): b(i) = t jgj(i) = b(i) - a(i)Case 1 jj = - If a(i) b(i) Then t = a(i): a(i) = b(i): b(i) = t jgj(i) = a(i) - b(i)End Selectss71 = a(7) & jjss72 = = & b(7)Label12.Caption = ss71Label17.Caption = ss72ss91 = a(9) & jjss92 = = & b(9)Label14.Caption = ss91Label19.Caption = ss92Next iFor i = 11 To 15 出题1115题（）+a=b形式Select Case ysf Case 1 jj = + If b(i) a(i) Then t = b(i): a(i) = b(i): b(i) = t jgj(i) = b(i) - a(i) Case 0 jj = - jgj(i) = a(i) + b(i) End Selectss11 = jj & a(11) & = & b(11)ss13 = jj & a(13) & = & b(13)ss15 = jj & a(15) & = & b(15)Label6.Caption = ss11Label8.Caption = ss13Label10.Caption = ss15Select Case ysf Case 0 jj = + If b(i) a(i) Then t = b(i): a(i) = b(i): b(i) = t jgo(i) = b(i) - a(i) Case 1 jj = - jgo(i) = a(i) + b(i) End Selectss12 = jj & a(12) & = & b(12)ss14 = jj & a(14) & = & b(14)Label7.Caption = ss12Label9.Caption = ss14Next i For i = 16 To 20 1620题 ，选择题形式Select Case ysfCase 1jj = +jgo(i) = a(i) + b(i)Case 0If a(i) b(i) Then t = a(i): a(i) = b(i): b(i) = tjj = -jgo(i) = a(i) - b(i)End