《我爱做算数——幼儿园算数游戏程序设计报告书》由会员分享，可在线阅读，更多相关《我爱做算数——幼儿园算数游戏程序设计报告书（26页珍藏版）》请在金锄头文库上搜索。
1、 我爱做算数幼儿园算数游戏程序设计书单 位 交通运输学院分院(系)专 业 交通运输 学 号 20091712 学生姓名 田静雅 指导教师 李中华 石家庄铁道大学课程设计完成日期 2010 年 7 月 14 日摘 要本次小学期课程设计是学生学习的重要部分之一。平时的学习只能使学生掌握书本上的基本内容，并不能激发学生的自主创新能力。本次小学期的课程设计从选题到完成设计报告，可以使学生对 Visual Basic6.0 软件有更深一步的了解和掌握。“我爱做算数幼儿园算数游戏程序设计”的课程设计使学生掌握软件开发过程的问题分析、程序设计、程序编码、测试等基本方法和技能；掌握利用 VB开发多媒体系统的方
2、法以及掌握 VB 绘图的方法。本软件运用到了一些常用控件，基本语句中的赋值、数据输入、结束语句，运用到了 Msgox() 函数，设计结构中的 if 条件语句和 select case 语句，数组中的控件数组的建立和应用，界面设计中的计时器控件和图形框控件等。本次课程设计以 3 到 6 岁儿童为应用对象，整个程序生动、活泼，插有图片、动画，并设置背景音乐，符合幼儿的水平。软件主要包括练习题和考试卷部分，可以帮助幼儿园小朋友练习算术并进行水平测试，形式多样，寓教于乐。论文首先介绍了程序开发涉及的相关知识点，主要包括随机变量、多媒体系统开发、控件数组的应用、图片和文字的动态效果、设置文字的阴影效果等
3、；其次，介绍了“我爱做算数幼儿园算数程序设计”程序的总体分析与设计，包括窗体间转换、随机练习题和考试题等。最后对幼儿园算数游戏程序进行了实现，并作了详细描述，主要采用图片与代码结合的方式详细地叙述了程序功能的实现。关 键 词 ： 我爱做算数幼儿园算数游戏程序，多媒体，VB 绘图方法，随机变量目 录1.选题的意义12.系统功能需求分析2.1 系统概述2.2 系统的组成及各模块的功能2.3 系统的运行环境3.系统设计3.1 总体结构设计4.系统实现4.1 模块的设计与实现5.总结5.1 总结5.2 存在的主要问题参考文献我爱做算术幼儿园算术游戏1选题的意义我爱做算术幼儿园算术游戏课程设计使学生掌握
4、软件开发过程的问题分析、程序设计、程序编码、测试等基本方法和技能；掌握利用 VB 开发多媒体系统的方法以及掌握 VB 绘图的方法。可以使学生对 Visual Basic6.0 软件有更深一步的了解和掌握。这个题目内容新颖引人注目，并且可应用性较强，寓教于乐，主要以练习题和考试题两种形式对幼儿园小朋友的学习起到了很大帮助。2、系统功能需求分析2、1 系统概述我爱做算术幼儿园算术游戏系统涉及到了软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能；该游戏系统以3到6岁儿童为应用对象，整个程序生动、活泼，插有图片、动画，并设置背景音乐，符合幼儿的水平。软件主要包括练习题和考试卷部分，可以
5、帮助幼儿园小朋友练习算术并进行水平测试，形式多样，寓教于乐。2、2 系统的组成及各模块的功能该系统主要包括四部分，即首页、选项页、练习题部分和考试卷部分。其中练习题部分包括1套选择题练习和3套填空题练习，考试卷部分包括1套以图形为主的简单试卷一和易算式为主的试卷二。为了符合幼儿的心理，系统中每个窗体上都用到了Timer()控件以实现字体颜色改变和图片的移动，以此吸引小朋友的注意力，尽量完成题目。系统中的题目包括随机题目和固定题目两种，均给出了正确答案，并以图片和文字的形式进行完成情况的提示，练习题和考试卷部分均具有评分功能。2、3系统的运行环境我爱做算术幼儿园算术游戏课程设计，是利用 Visu
6、al Basic 6.0 软件编写的一款软件。3、系统设计3.1 总体结构设计我爱做算数幼儿园算数游戏程序设计流程图注释： 表示窗体表示窗体间可转换表示按钮 command首页选项页练习题页 考试题页选择题练习填空题练习一填空题练习二填空题练习三考试卷一考试卷二退出退出4、系统实现4、1 模块设计与实现本系统一共有 4 个部分，12 个模块4、1、1 首页1、界面首页是本软件的脸面。载入首页时，同时载入背景音乐春天在哪里 ；文字“我爱做算术”应用了用 label 设置文字的阴影效果，同时在 Timer 控件的作用下，文字和阴影均随机变色；文本“幼儿算数游戏”除设置随机色外还设置了从右向左滚动，
7、重复出现；软件设计者条同样应用了随机色的知识点。整个首页具有动画效果，基本能吸引小朋友的注意力。2、用到的主要控件及其属性设置控件名称 属性 属性值Label1 Caption 我爱做算术Label4 Caption 我爱做算术Label2 Caption 幼儿算术游戏Command1 Caption 进入3、主要代码Private Sub form_load()Set c = CreateObject(wmplayer.ocx)c.url = App.Path & 音频春天在哪里 .mp3c.settings.playCount = 1 打开首页的背景音乐Label1.ForeColor =
8、 vbGreenLabel4.ForeColor = vbRedLabel4.Left = Label1.Left + 100Label4.Top = Label1.Top - 100Label2.ForeColor = vbBlue 设置文字的阴影效果End SubPrivate Sub Timer1_Timer()If Label2.Left + Label2.Width 0 ThenLabel2.Move Label2.Left - 20ElseLabel2.Left = sy.ScaleWidthEnd If 文字向左移动Label2.ForeColor = RGB(Rnd * 256
9、, 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_Cl
10、ick()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 ThenImage1.Move Image1.Left - 20ElseImage1.Left = xx.ScaleWidth 图片向左移动End IfEnd Sub4、1、3 练习题页1、界面 Private Sub label1_click()Lo
11、ad lxxzlxxz.Showlxt1.Visible = False 窗体由练习题页切换到选择练习页End SubPrivate Sub Timer1_Timer()If Image1.Top + Image1.Height 0 ThenImage1.Top = Image1.Top - 40ElseImage1.Top = lxt1.ScaleHeight 设置图片向上移动End IfEnd Sub（一）选择题Dim ss As String, jg As IntegerDim zq As Integer, cw As Integer 声明变量Private Sub Command3_C
12、lick()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 0 ThenImage1.Top = Image1.Top - 20ElseImage1.Top = lxt1.ScaleHeightEnd IfEnd SubPrivate Sub Timer2_Timer()Label1.ForeColor = RGB(Rnd * 25
13、6, 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 + 1
