vb课程设计报告书.docx
- 文档编号:29826635
- 上传时间:2023-07-27
- 格式:DOCX
- 页数:38
- 大小:4.47MB
vb课程设计报告书.docx
《vb课程设计报告书.docx》由会员分享,可在线阅读,更多相关《vb课程设计报告书.docx(38页珍藏版)》请在冰豆网上搜索。
vb课程设计报告书
石家庄铁道学院课程设计
Visualbasic课程设计
——我爱做算术-幼儿算术游戏
单位材料科学与工程分院(系)
专业材料类
学号20112423
学生姓名徐亢亢
指导教师胡畅霞
完成日期2012年6月28日
摘要
幼儿教育愈来愈被现代人所关注。
传统的幼儿教育父母或老师手教口传大都提不起小朋友们的兴趣,教育成果不太显著。
随着计算机和网络技术的迅速发展及当代教育的创新,所以设计出寓教于乐的教育方法愈来愈成为现代迫切所需,用游戏来学习更为儿童所接受,幼儿算术游戏系统应运而生。
幼儿算术游戏系统,它有许多优点,例如:
趣味性,学习性。
它分为选择题,填空题,和测试题三个部分,以游戏的形式出算术题目,可以让小朋友在玩乐中学到了知识,大大增加学习的效率。
本文基于visualbasic平台,设计并实现了幼儿算术游戏系统的实用性。
论文首先介绍了幼儿学习游戏的意义,然后介绍系统的需求分析及设计过程,接着介绍系统实现方式,主要采用图片与代码结合的方式详细地叙述了幼儿算术游戏系统功能的实现。
关键词:
幼儿算术游戏,选择,填空,测试
目录
1.选题的意义4
2.系统功能需求分析5
2.1系统概述5
2.2系统组成及各模块功能5
3.系统设计6
3.1总体结构设计6
3.2数据库设计6
3.2中心代码及算法6
4.系统实现7
4.1主界面设计与实现7
4.2选择游戏模块界面设计与实现9
4.3游戏规则界面设计与实现10
4.4泡泡园界面功能设计与实现13
4.5填填园界面功能设计与实现15
4.6测测园界面功能设计与实现17
5.总结21
5.1独特设计21
5.2设计收获21
5.3设计中遇到的困难和问题21
5.4设计题目与功能改进意见21
5.5课程设计建议22
6.致谢词及参考文献22
第一章选题意义
·1.1自我介绍
班级:
材1104-7班
学号:
20112423
姓名:
徐亢亢
专业:
材料类
·1.2选择题目的名称
我爱做算术-幼儿算数游戏程序
·1.3选择题目的原因
我爱做算术-幼儿算数游戏是一款针对3-6岁学龄前儿童的学习游戏系统,现代社会越来越重视早期教育,但对于儿童来说枯燥的课本不能提起他们的兴趣,所以学习游戏应运而生,而对于我来说,设计游戏是一大挑战,不仅是我所学得到充分运用,并且提高我的操作能力。
更好的将理论与实践相结合。
·1.4数据材料和知识点
数据材料:
图片、音乐、算术题目、文件、设计代码
知识点:
窗体转换、加载图片、音乐播放、字幕滚动、随机出题、打开文件、if循环、定义变量
·1.5完成此题的时间安排
1.第1天:
选题、查阅资料
2.第2天:
确定设计方案;
3.3-8天:
方案的实现、调试与验证;
4.9-10天:
撰写课程设计报告初稿并修改
·1.6参考资料、文献及网站
1.《VisualBasic6.0课程设计与系统开发案例》,伍俊良,清华大学出版社
2.《VisualBasic6.程序设计语言与课程设计指导》,杨树林,科学出版社
3.《VisualBasic课程设计案例精编》,张勇,中国水利水电出版社
4.MSDN
5.
6.《全国计算机等级考试二级教程——VisualFoxPro程序设计》,教育部考试中心,高等教育出版社。
·1.7系统运行环境
该游戏系统是通过visualbasic设计编译的,可以在任何windows窗体下运行。
第二章系统功能需求分析
·2.1系统的概述
我爱做算术-幼儿算数游戏系统,是一款针对3-6岁的学龄前儿童的学习游戏。
该系统主体共分为三个部分:
选择题部分、填空题部分及测试题部分。
通过不同的游戏形式激发孩子的兴趣,从而达到学习的目的,提高学习效率。
该系统以游戏的形式出算术题。
更能使小朋友们掌握算数能力及反应能力。
·2.2系统的组成及各模块的功能
2.2.1主界面(我爱做算术):
打开游戏系统即进入了主界面,通过点击主界面上的“进入游戏”按钮就可进入选择游戏界面。
2.2.2选择游戏模块(欢迎宝贝)
该界面时该系统的枢纽界面,通过点击不同的主题按钮,即可进入不同的主题界面。
2.2.3游戏规则界面(游戏小规则)
进入该界面后通过点击不同的主题按钮即可查看不同游戏的游戏规则。
2.2.4泡泡园
该界面是以选择题的游戏形式锻炼小朋友们的算数能力。
2.2.5填填园
该界面是以填空题的游戏形式锻炼小朋友们的算数能力。
2.2.6测测园
该界面是以测试题的游戏形式锻炼小朋友们的综合算数能力。
第三章系统设计
·3.1总体结构设计
返回主页
进入游戏
返回
返回
回去做别的题吧
测测园
填填园
返回
泡泡园
游戏小规则
·3.2数据库设计
主界面及其控件代码设计
选择游戏模块界面及控件代码设计
泡泡园界面、控件及程序运行操作代码设计
填填园界面、控件及程序运行操作代码设计
测测园界面、控件及程序运行操作代码设计
游戏小规则界面及其控件代码设计
·3.3中心代码算法说明
DimtempnumAsInteger
DimnopAsInteger,opAsString*1
n1=Int(Rnd*99+1)
n2=Int(Rnd*99+1)`产生两个随机数
Ifn1 n1=n2: n2=tempnum`较大的数在较小的数之前 nop=Int(2*Rnd+1) SelectCasenop Case1 op="+" res=n1+n2 Case2 op="-"`随机出运算符号并计算出结果 res=n1-n2 EndSelect sexp=n1&op&n2&"="`显示题目 Label1=sexp EndIf 第四章系统实现 ·4.1主界面的设计与实现 4.1.1主界面代码 PrivateSubForm_Load() 幼儿算术游戏.Left=3600 幼儿算术游戏.Top=1500 DimfullpathAsString IfRight(App.Path,1)="\"Then' fullpath=App.Path+"樱桃小丸子.mp3" Else fullpath=App.Path+"\"+"樱桃小丸子.mp3" EndIf WindowsMediaPlayer1.URL=fullpath WindowsMediaPlayer1.settings.playCount=999`使用windowsmediaplayer控件播放音乐 ChuShiWeiZhi=Label1.Top Label1.Caption="欢"&vbCrLf&"迎"&vbCrLf&"进"&vbCrLf&"入"&vbCrLf&","&vbCrLf&"玩"&vbCrLf&"得"&vbCrLf&"愉"&vbCrLf&"快"`label1中文字纵排 Image1.Stretch=True Timer1.Enabled=True Timer2.Enabled=True EndSub PrivateSubForm_Resize() Image1.Height=Me.Height Image1.Width=Me.Width`窗体背景随窗体大小改变而改变 EndSub PrivateSubTimer1_Timer() Label1.Top=Label1.Top-200 IfLabel1.Top+Label1.Height<0Then Label1.Top=ChuShiWeiZhi EndIf Label2.Left=Label2.Left+200 IfLabel2.Left+Label2.Width>幼儿算术游戏.WidthThen Label2.Left=5000`使用timer控件使字幕滚动 EndIf PrivateSubCommand1_Click() End EndSub PrivateSubCommand2_Click() Unload幼儿算术游戏 欢迎宝贝.Show EndSub 4.12系统使用、实现效果说明 字幕滚动 退出系统 点击进入欢迎宝贝界面 ·4.2选择游戏模块界面设计与实现 4.2.1选择游戏模块界面代码 PrivateSubCommand1_Click() Unload欢迎宝贝 测测园.Show EndSub PrivateSubCommand2_Click() Unload欢迎宝贝 填填园.Show EndSub PrivateSubCommand3_Click() Unload欢迎宝贝 泡泡园.Show EndSub PrivateSubCommand4_Click() Unload欢迎宝贝 幼儿算术游戏.Show EndSub PrivateSubCommand5_Click() Unload欢迎宝贝 游戏小规则.Show EndSub PrivateSubForm_Load() 欢迎宝贝.Top=1600 欢迎宝贝.Left=3800 Image1.Stretch=True DimfullpathAsString IfRight(App.Path,1)="\"Then' fullpath=App.Path+"春天在哪里.mp3" Else fullpath=App.Path+"\"+"春天在哪里.mp3" EndIf WindowsMediaPlayer1.URL=fullpath WindowsMediaPlayer1.settings.playCount=999 ChuShiWeiZhi=Label1.Top EndSub PrivateSubForm_Resize() Image1.Height=Me.Height Image1.Width=Me.Width EndSub PrivateSubImage3_Click() EndSub PrivateSubTimer1_Timer() Label1.Top=Label1.Top+200 IfLabel1.Top+Label1.Height>欢迎宝贝.HeightThen Label1.Top=ChuShiWeiZhi EndIf EndSub 4.2.2系统使用、实现效果说明 进入填空题模块 进入选择题模块 返回主界面 进入填空题模块 进入游戏规则界面 进入选择题模块 滚动字幕 进入测试题模块 ·4.3游戏规则界面设计与实现 4.3.1游戏规则界面代码 PrivateSubCommand1_Click() Unload游戏小规则 欢迎宝贝.Show EndSub PrivateSubCommand2_Click() DimstrnameAsString Open"E: \泡泡园.txt"ForInputAs#1 FontSize=15 ForeColor=vbRed FontBold=True WhileNotEOF (1) LineInput#1,strname`用文件方式打开文本显示游戏规则 Printstrname Wend Close#1 EndSub PrivateSubCommand3_Click() DimstrnameAsString Open"E: \测测园.txt"ForInputAs#1 FontSize=15 ForeColor=vbBlue FontBold=True WhileNotEOF (1) LineInput#1,strname Printstrname Wend Close#1 EndSub PrivateSubCommand4_Click() DimstrnameAsString Open"E: \填填园.txt"ForInputAs#1 FontSize=15 ForeColor=vbGreen FontBold=True WhileNotEOF (1) LineInput#1,strname Printstrname Wend Close#1 EndSub PrivateSubForm_Load() 游戏小规则.Top=1500 游戏小规则.Left=2000 Image1.Stretch=True DimfullpathAsString IfRight(App.Path,1)="\"Then' fullpath=App.Path+"童年.mp3" Else fullpath=App.Path+"\"+"童年.mp3" EndIf WindowsMediaPlayer1.URL=fullpath EndSub PrivateSubForm_Resize() Image1.Height=Me.Height Image1.Width=Me.Width EndSub 4.3.2系统使用、实现效果说明 打开泡泡园游戏规则 返回欢迎宝贝界面 打开测测园游戏规则 打开填填园游戏规则 以文件形式打开 ·4.4泡泡园界面功能设计与实现 4.4.1泡泡园界面代码 Randomize DimtempnumAsInteger DimnopAsInteger,opAsString*1 n1=Int(Rnd*99+1) n2=Int(Rnd*99+1) Ifn1 n1=n2: n2=tempnum nop=Int(2*Rnd+1) SelectCasenop Case1 op="+" res=n1+n2 Case2 op="-" res=n1-n2 EndSelect sexp=n1&op&n2`随机出题 Label3=sexp PrivateSubOption1_Click() Timer1.Interval=500 EndSub PrivateSubOption2_Click() Timer1.Interval=250 EndSub PrivateSubOption3_Click()`改变速度 Timer1.Interval=100 EndSub PrivateSubCommand2_Click() Label2.Caption=res Label1.Caption=Int(Rnd*100+1) Timer1.Enabled=True Frame1.Visible=False Label4.Visible=False`点击开始按钮设置速度隐藏,产生两个选项 IfVal(Label1.Caption)>Val(Label2.Caption)Then Label1.Top=3000 Image2.Top=3000 Label2.Top=5760 Image3.Top=5760 Else Label1.Top=5760 Image2.Top=5760 Label2.Top=3000 Image3.Top=3000`答案随机出现位置 显示选项 音乐播放与调节 设置速度 暂停游戏 在游戏途中可以调节速度 开始游戏 返回欢迎宝贝界面 令泡泡重新从初始位置运动 随机出题 判断答错或对 设置速度消失 泡泡移动 4.5填填园界面功能设计与实现 4.5.1填填园界面代码 PrivateSubCommand1_Click() Frame1.Visible=False Timer1.Enabled=True Text1.Visible=True Label5.Visible=False Randomize DimtempnumAsInteger DimnopAsInteger,opAsString*1 n1=Int(Rnd*99+1) n2=Int(Rnd*99+1) Ifn1 n1=n2: n2=tempnum nop=Int(2*Rnd+1) SelectCasenop Case1 op="+" res=n1+n2 Case2 op="-" res=n1-n2 EndSelect`点开始按钮随机出题 sexp=n1&op&n2&"=" Label1=sexp Text1.SetFocus EndSub PrivateSubCommand2_Click() Timer1.Enabled=False`点暂停按钮暂停游戏 EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger) Frame1.Visible=False IfKeyAscii=13Then`敲回车键确定答题 IfText1.Text=resThen Image2.Visible=True Label2.Visible=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`判断错或对 EndIf Text1.Top=cswz Label1.Top=cswz Randomize DimtempnumAsInteger DimnopAsInteger,opAsString*1 n1=Int(Rnd*99+1) n2=Int(Rnd*99+1) Ifn1 n1=n2: n2=tempnum nop=Int(2*Rnd+1) SelectCasenop Case1 op="+" res=n1+n2 Case2 op="-" res=n1-n2 EndSelect sexp=n1&op&n2&"=" Label1=sexp`重新出题 Text1.Text="" EndIf 4.5.2系统使用、实现效果说明 其他按钮与泡泡园中功能相同 开始游戏 判断对错 滚动题目 键盘输入答题 4.6测测园界面功能设计与实现 4.6.1测测园界面代码 Check1.Value=0 Check2.Value=0 Check3.Value=0 Check4.Value=0 Check5.Value=0 Check6.Value=0 Check7.Value=0`复选框未选中状态 Check8.Value=0 Check9.Value=0 Check10.Value=0 Label22.Caption="得分为"&0 Randomize DimtempnumAsInteger DimnopAsInteger,opAsString*1 n1=Int(Rnd*99+1) n2=Int(Rnd*99+1) Ifn1 n1=n2: n2=tempnum nop=Int(2*Rnd+1) SelectCasenop Case1 op="+" res=n1+n2 Case2 op="-" res=n1-n2 EndSelect sexp=n1&op&n2&"=" Label1=sexp`随机出题 Label12.Caption=res`赋予答案 PrivateSubCommand4_Click() sc=0 IfText1.Text=Label12.CaptionThen sc=sc+5 EndIf IfText2.Text=Label13.CaptionThen sc=sc+5 EndIf IfText3.Text=Label14.CaptionThen sc=sc+5 EndIf IfText4.Text=Label15.CaptionThen sc=sc+5 EndIf IfText5.Text=Label16.CaptionThen sc=sc+5 EndIf IfText6.Text=Label17.CaptionThen sc=sc+5 EndIf IfText7.Text=Label18.CaptionThen sc=sc+5 EndIf IfText8.Text=Label19.CaptionThen sc=sc+5 EndIf If
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 课程设计 报告书