Visual basic 课程设计我爱做算术-幼儿算术游戏.doc

1、摘 要幼儿教育愈来愈被现代人所关注。传统的幼儿教育父母或老师手教口传大都提不起小朋友们的兴趣，教育成果不太显著。随着计算机和网络技术的迅速发展及当代教育的创新，所以设计出寓教于乐的教育方法愈来愈成为现代迫切所需，用游戏来学习更为儿童所接受，幼儿算术游戏系统应运而生。幼儿算术游戏系统，它有许多优点，例如：趣味性，学习性。它分为选择题，填空题，和测试题三个部分，以游戏的形式出算术题目，可以让小朋友在玩乐中学到了知识，大大增加学习的效率。本文基于visual basic平台，设计并实现了幼儿算术游戏系统的实用性。论文首先介绍了幼儿学习游戏的意义，然后介绍系统的需求分析及设计过程，接着介绍系统实现方式

2、，主要采用图片与代码结合的方式详细地叙述了幼儿算术游戏系统功能的实现。关键词：幼儿算术游戏，选择，填空，测试目录1.选题的意义42系统功能需求分析52.1系统概述52.2系统组成及各模块功能53系统设计63.1总体结构设计63.2数据库设计63.2中心代码及算法64系统实现74.1主界面设计与实现74.2 选择游戏模块界面设计与实现94.3 游戏规则界面设计与实现104.4 泡泡园界面功能设计与实现134.5 填填园界面功能设计与实现154.6 测测园界面功能设计与实现175总结215.1独特设计215.2 设计收获215.3 设计中遇到的困难和问题215.4 设计题目与功能改进意见215.5

3、 课程设计建议226.致谢词及参考文献22 第一章 选题意义1.1自我介绍 班级：材1104-7班 学号：20112423 姓名：徐亢亢 专业：材料类1.2 选择题目的名称 我爱做算术-幼儿算数游戏程序1.3 选择题目的原因我爱做算术-幼儿算数游戏是一款针对3-6岁学龄前儿童的学习游戏系统，现代社会越来越重视早期教育，但对于儿童来说枯燥的课本不能提起他们的兴趣，所以学习游戏应运而生，而对于我来说，设计游戏是一大挑战，不仅是我所学得到充分运用，并且提高我的操作能力。更好的将理论与实践相结合。1.4 数据材料和知识点数据材料：图片、音乐、算术题目、文件、设计代码知识点：窗体转换、加载图片、音乐播放

4、、字幕滚动、随机出题、打开文件、if循环、定义变量1.5 完成此题的时间安排1. 第1天：选题、查阅资料2. 第2天： 确定设计方案；3. 3 -8天：方案的实现、调试与验证； 4. 9-10天：撰写课程设计报告初稿并修改1.6 参考资料、文献及网站1.Visual Basic 6.0课程设计与系统开发案例， 伍俊良，清华大学出版社2.Visual Basic 6.程序设计语言与课程设计指导，杨树林，科学出版社3.Visual Basic课程设计案例精编，张勇，中国水利水电出版社4. MSDN5. 6. 全国计算机等级考试二级教程Visual FoxPro 程序设计， 教育部考试中心，高等教育

5、出版社。1.7系统运行环境该游戏系统是通过visual basic设计编译的，可以在任何windows窗体下运行。第二章 系统功能需求分析 2.1系统的概述我爱做算术-幼儿算数游戏系统，是一款针对3-6岁的学龄前儿童的学习游戏。该系统主体共分为三个部分：选择题部分、填空题部分及测试题部分。通过不同的游戏形式激发孩子的兴趣，从而达到学习的目的，提高学习效率。该系统以游戏的形式出算术题。更能使小朋友们掌握算数能力及反应能力。2.2系统的组成及各模块的功能游戏规则（游戏小规则）填空题部分（填填园）园）测试题部分（测测园）选择题部分（泡泡园）打开系统主界面（我爱做算术）选择游戏模块部分（欢迎宝贝）2.

6、2.1主界面（我爱做算术）：打开游戏系统即进入了主界面，通过点击主界面上的“进入游戏”按钮就可进入选择游戏界面。2.2.2选择游戏模块（欢迎宝贝）该界面时该系统的枢纽界面，通过点击不同的主题按钮，即可进入不同的主题界面。2.2.3游戏规则界面（游戏小规则）进入该界面后通过点击不同的主题按钮即可查看不同游戏的游戏规则。2.2.4泡泡园 该界面是以选择题的游戏形式锻炼小朋友们的算数能力。2.2.5填填园该界面是以填空题的游戏形式锻炼小朋友们的算数能力。2.2.6测测园该界面是以测试题的游戏形式锻炼小朋友们的综合算数能力。 第三章 系统设计3.1总体结构设计主界面（我爱做算术）返回主页进入游戏选择游

7、戏模块部分返回返回回去做别的题吧测测园填填园返回泡泡园游戏小规则游戏规则测试题填空题选择题3.2 数据库设计主界面及其控件代码设计选择游戏模块界面及控件代码设计泡泡园界面、控件及程序运行操作代码设计填填园界面、控件及程序运行操作代码设计测测园界面、控件及程序运行操作代码设计游戏小规则界面及其控件代码设计3.3中心代码算法说明Dim tempnum As IntegerDim nop As Integer, op As String * 1n1 = Int(Rnd * 99 + 1)n2 = Int(Rnd * 99 + 1) 产生两个随机数If n1 n2 Then tempnum = n1:

8、 n1 = n2: n2 = tempnum 较大的数在较小的数之前nop = Int(2 * Rnd + 1)Select Case nopCase 1op = +res = n1 + n2Case 2op = - 随机出运算符号并计算出结果res = n1 - n2End Selectsexp = n1 & op & n2 & = 显示题目Label1 = sexp End If第四章 系统实现4.1主界面的设计与实现4.1.1 主界面代码Private Sub Form_Load()幼儿算术游戏.Left = 3600幼儿算术游戏.Top = 1500Dim fullpath As St

9、ring If Right(App.Path, 1) = Then fullpath = App.Path + 樱桃小丸子.mp3 Else fullpath = App.Path + + 樱桃小丸子.mp3 End IfWindowsMediaPlayer1.URL = fullpathWindowsMediaPlayer1.settings.playCount = 999 使用windowsmediaplayer控件播放音乐ChuShiWeiZhi = Label1.TopLabel1.Caption = 欢 & vbCrLf & 迎 & vbCrLf & 进 & vbCrLf & 入 &

10、 vbCrLf & , & vbCrLf & 玩 & vbCrLf & 得 & vbCrLf & 愉 & vbCrLf & 快 label1中文字纵排Image1.Stretch = True Timer1.Enabled = TrueTimer2.Enabled = TrueEnd SubPrivate Sub Form_Resize() Image1.Height = Me.Height Image1.Width = Me.Width 窗体背景随窗体大小改变而改变End SubPrivate Sub Timer1_Timer()Label1.Top = Label1.Top - 200If

11、 Label1.Top + Label1.Height 幼儿算术游戏.Width Then Label2.Left = 5000 使用timer控件使字幕滚动End IfPrivate Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()Unload 幼儿算术游戏欢迎宝贝.ShowEnd Sub4.12系统使用、实现效果说明字幕滚动退出系统点击进入欢迎宝贝界面4.2选择游戏模块界面设计与实现4.2.1选择游戏模块界面代码Private Sub Command1_Click()Unload 欢迎宝贝测测园.ShowEnd SubPr

12、ivate Sub Command2_Click() Unload 欢迎宝贝填填园.ShowEnd SubPrivate Sub Command3_Click()Unload 欢迎宝贝泡泡园.ShowEnd SubPrivate Sub Command4_Click()Unload 欢迎宝贝幼儿算术游戏.ShowEnd SubPrivate Sub Command5_Click()Unload 欢迎宝贝游戏小规则.ShowEnd SubPrivate Sub Form_Load() 欢迎宝贝.Top = 1600欢迎宝贝.Left = 3800Image1.Stretch = TrueDim

13、fullpath As String If Right(App.Path, 1) = Then fullpath = App.Path + 春天在哪里.mp3 Else fullpath = App.Path + + 春天在哪里.mp3 End IfWindowsMediaPlayer1.URL = fullpath WindowsMediaPlayer1.settings.playCount = 999ChuShiWeiZhi = Label1.TopEnd SubPrivate Sub Form_Resize()Image1.Height = Me.Height Image1.Width

14、= Me.WidthEnd SubPrivate Sub Image3_Click()End SubPrivate Sub Timer1_Timer()Label1.Top = Label1.Top + 200If Label1.Top + Label1.Height 欢迎宝贝.Height ThenLabel1.Top = ChuShiWeiZhiEnd IfEnd Sub4.2.2系统使用、实现效果说明进入填空题模块进入选择题模块返回主界面进入填空题模块进入游戏规则界面进入选择题模块滚动字幕进入测试题模块4.3游戏规则界面设计与实现4.3.1游戏规则界面代码Private Sub Comm

15、and1_Click()Unload 游戏小规则欢迎宝贝.ShowEnd SubPrivate Sub Command2_Click()Dim strname As StringOpen E:泡泡园.txt For Input As #1FontSize = 15ForeColor = vbRedFontBold = TrueWhile Not EOF(1)Line Input #1, strname 用文件方式打开文本显示游戏规则Print strname WendClose #1End SubPrivate Sub Command3_Click()Dim strname As String

16、Open E:测测园.txt For Input As #1FontSize = 15ForeColor = vbBlueFontBold = TrueWhile Not EOF(1)Line Input #1, strnamePrint strnameWendClose #1End SubPrivate Sub Command4_Click()Dim strname As StringOpen E:填填园.txt For Input As #1FontSize = 15ForeColor = vbGreenFontBold = TrueWhile Not EOF(1)Line Input #

17、1, strnamePrint strnameWendClose #1End SubPrivate Sub Form_Load()游戏小规则.Top = 1500游戏小规则.Left = 2000Image1.Stretch = TrueDim fullpath As String If Right(App.Path, 1) = Then fullpath = App.Path + 童年.mp3 Else fullpath = App.Path + + 童年.mp3 End IfWindowsMediaPlayer1.URL = fullpathEnd SubPrivate Sub Form_

18、Resize()Image1.Height = Me.Height Image1.Width = Me.WidthEnd Sub4.3.2系统使用、实现效果说明打开泡泡园游戏规则返回欢迎宝贝界面打开测测园游戏规则打开填填园游戏规则以文件形式打开4.4泡泡园界面功能设计与实现4.4.1泡泡园界面代码RandomizeDim tempnum As IntegerDim nop As Integer, op As String * 1n1 = Int(Rnd * 99 + 1)n2 = Int(Rnd * 99 + 1)If n1 Val(Label2.Caption) ThenLabel1.Top

19、 = 3000Image2.Top = 3000Label2.Top = 5760Image3.Top = 5760ElseLabel1.Top = 5760Image2.Top = 5760Label2.Top = 3000Image3.Top = 3000 答案随机出现位置显示选项音乐播放与调节设置速度暂停游戏在游戏途中可以调节速度开始游戏返回欢迎宝贝界面令泡泡重新从初始位置运动随机出题判断答错或对设置速度消失泡泡移动4.5填填园界面功能设计与实现4.5.1填填园界面代码Private Sub Command1_Click()Frame1.Visible = FalseTimer1.Ena

20、bled = TrueText1.Visible = TrueLabel5.Visible = FalseRandomizeDim tempnum As IntegerDim nop As Integer, op As String * 1n1 = Int(Rnd * 99 + 1)n2 = Int(Rnd * 99 + 1)If n1 n2 Then tempnum = n1: n1 = n2: n2 = tempnumnop = Int(2 * Rnd + 1)Select Case nopCase 1op = +res = n1 + n2Case 2op = -res = n1 - n2

21、End Select 点开始按钮随机出题sexp = n1 & op & n2 & =Label1 = sexpText1.SetFocusEnd SubPrivate Sub Command2_Click()Timer1.Enabled = False 点暂停按钮暂停游戏End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Frame1.Visible = False If KeyAscii = 13 Then 敲回车键确定答题 If Text1.Text = res Then Image2.Visible = True Label2.V

22、isible = True Image3.Visible = False Image4.Visible = False Label3.Visible = False Label4.Visible = False Else Image3.Visible = True Label3.Visible = True Label2.Visible = False Label4.Visible = False Image2.Visible = False Image4.Visible = False 判断错或对 End If Text1.Top = cswz Label1.Top = cswz Rando

23、mizeDim tempnum As IntegerDim nop As Integer, op As String * 1n1 = Int(Rnd * 99 + 1)n2 = Int(Rnd * 99 + 1)If n1 n2 Then tempnum = n1: n1 = n2: n2 = tempnumnop = Int(2 * Rnd + 1)Select Case nopCase 1op = +res = n1 + n2Case 2op = -res = n1 - n2End Selectsexp = n1 & op & n2 & =Label1 = sexp 重新出题 Text1.

24、Text = End If4.5.2系统使用、实现效果说明其他按钮与泡泡园中功能相同开始游戏判断对错滚动题目键盘输入答题4.6测测园界面功能设计与实现4.6.1测测园界面代码Check1.Value = 0Check2.Value = 0Check3.Value = 0Check4.Value = 0Check5.Value = 0Check6.Value = 0Check7.Value = 0 复选框未选中状态Check8.Value = 0Check9.Value = 0Check10.Value = 0Label22.Caption = 得分为 & 0RandomizeDim tempn

25、um As IntegerDim nop As Integer, op As String * 1n1 = Int(Rnd * 99 + 1)n2 = Int(Rnd * 99 + 1)If n1 n2 Then tempnum = n1: n1 = n2: n2 = tempnumnop = Int(2 * Rnd + 1) Select Case nopCase 1op = +res = n1 + n2Case 2op = -res = n1 - n2End Selectsexp = n1 & op & n2 & =Label1 = sexp 随机出题Label12.Caption = r

26、es 赋予答案Private Sub Command4_Click()sc = 0If Text1.Text = Label12.Caption Thensc = sc + 5End IfIf Text2.Text = Label13.Caption Thensc = sc + 5End IfIf Text3.Text = Label14.Caption Thensc = sc + 5End IfIf Text4.Text = Label15.Caption Thensc = sc + 5End IfIf Text5.Text = Label16.Caption Thensc = sc + 5

27、End IfIf Text6.Text = Label17.Caption Thensc = sc + 5End IfIf Text7.Text = Label18.Caption Thensc = sc + 5End IfIf Text8.Text = Label19.Caption Thensc = sc + 5End IfIf Text9.Text = Label20.Caption Thensc = sc + 5End IfIf Text10.Text = Label21.Caption Thensc = sc + 5End IfIf Check1.Value = 1 Thensc =

28、 sc + 10End IfIf Check3.Value = 1 Thensc = sc + 10End IfIf Check5.Value = 1 Thensc = sc + 10End IfIf Check7.Value = 1 Thensc = sc + 10End IfIf Check9.Value = 1 Thensc = sc + 10End IfLabel22.Caption = 得分为 & Val(sc) 计分Label22.Visible = TruePrivate Sub 笑话1_Click()Label54.Visible = TrueLabel55.Visible =

29、 FalseImage3.Visible = True 出笑话，隐藏其他得出成绩点击选择录入作答随机出题显示答案笑话两则，隐藏测试题得出答案得分笑话显示第五章 总结5.1独特设计在泡泡园里点击泡泡答题，答对答错或不答均有不同的图片与文字显示在测测园里以试卷形式答题，最后给出分数和答案5.2设计收获通过这次课程设计，我充分锻炼了我的实际操作能力，运用自己所学，完成了一项元游戏设设计，增加了我的自信心，同时也学到了很多知识，例如：我学会了让字幕滚动，学会以文件打开文本，学会播放音乐，学会了窗体转换等等。只有；理论与实践相结合，才能熟练掌握vb知识5.3设计中遇到的困难和问题 选择题中让正确选项出现

30、位置随机不好实现. 测试题窗体中label等控件太多，编写代码繁琐。控件数组应用困难5.4设计题目与功能改进意见游戏设计针对性狭窄，可以设计出学龄儿童也可应用的游戏系统。出题形式多样化5.5课程设计建议在做课程设计时尽量多创新，耐心设计，遇到不会的要多做参考。第六章 致谢词及参考文献致谢词：在做vb课程设计过程中我得到了不少同学及老师的帮助，没有他们的帮助我恐怕没能这么快时间完成，在此整成感谢他们。另外感谢学校给我们提供这样的实践机会，机房里氛围很好，温度不高不低，让我们在这种舒服的条件下进行设计，更能充分发挥我们最大能力完成设计，还要感谢同桌在我遇到困难是的鼓励因此课程设计的圆满完成不是我一个人的功劳，再次感谢所有为我们做设计提供服务于帮的人。参考文献：1.Visual Basic 6.0课程设计与系统开发案例， 伍俊良，清华大学出版社2.Visual Basic 6.程序设计语言与课程设计指导，杨树林，科学出版社3.Visual Basic课程设计案例精编，张勇，中国水利水电出版社4. MSDN5. 6. 全国计算机等级考试二级教程Visual FoxPro 程序设计， 教育部考试中心，高等教育出版社。21