VF实训报告.docx
《VF实训报告.docx》由会员分享，可在线阅读，更多相关《VF实训报告.docx（27页珍藏版）》请在冰点文库上搜索。
VF实训报告
《VB程序设计》
实
训
报
告
专业：
班级：
姓名：
指导教师：
时间：
摘要
幼儿教育愈来愈被现代人所关注。
传统的幼儿教育父母或老师手教口传大都提不起小朋友们的兴趣，教育成果不太显著。
随着计算机和网络技术的迅速发展及当代教育的创新，所以设计出寓教于乐的教育方法愈来愈成为现代迫切所需，用游戏来学习更为儿童所接受，幼儿算术游戏系统应运而生。
幼儿算术游戏系统，它有许多优点，例如：
趣味性，学习性。
它分为选择题，填空题，和测试题三个部分，以游戏的形式出算术题目，可以让小朋友在玩乐中学到了知识，大大增加学习的效率。
本文基于visualbasic平台，设计并实现了幼儿算术游戏系统的实用性。
论文首先介绍了幼儿学习游戏的意义，然后介绍系统的需求分析及设计过程，接着介绍系统实现方式，主要采用图片与代码结合的方式详细地叙述了幼儿算术游戏系统功能的实现。
关键词：
幼儿算数游戏，填空题，选择题，测试题
目录
第一章选题的意义3
1.1选择题目的名称3
1.2选择题目的原因3
第二章系统功能需求分析3
2.1系统概述3
2.2系统的组成及各模块的功能3
2.2.2主窗体3
2.2.3选择游戏模块界面3
2.2.4泡泡园界面4
2.2.5填填园界面4
2.2.6测测园界面4
2.2.7游戏规则界面4
第三章系统设计4
3.1总体结构设计4
3.2数据库设计4
3.3中心代码的实现5
第四章系统实现5
4.1用户登陆窗体的设计与实现5
4.2主窗体设计与实现6
4.3选择游戏模块界面分析设计与实现7
4.4泡泡园界面功能设计与实现8
4.5填填园界面功能设计与实现9
4.6测测园界面功能设计与实现11
4.7游戏规则界面设计与实现12
第五章实训总结14
第一章选题意义
1.1选择题目的名称
我爱做算术-幼儿算数游戏
1.2选择题目的原因
我爱做算术-幼儿算数游戏是一款针对3-6岁学龄前儿童的学习游戏系统，现代社会越来越重视早期教育，但对于儿童来说枯燥的课本不能提起他们的兴趣，所以学习游戏应运而生，而对于我来说，设计游戏是一大挑战，不仅是我所学得到充分运用，并且提高我的操作能力。
更好的将理论与实践相结合。
第二章系统功能需求分析
2.1系统的概述
我爱做算术-幼儿算数游戏系统，是一款针对3-6岁的学龄前儿童的学习游戏。
该系统主体共分为三个部分：
选择题部分、填空题部分及测试题部分。
通过不同的游戏形式激发孩子的兴趣，从而达到学习的目的，提高学习效率。
该系统以游戏的形式出算术题。
更能使小朋友们掌握算数能力及反应能力。
2.2系统的组成及各模块的功能.
2.2.1用户登陆窗体
启动窗体之后即进入了登录窗体,通过输入用户名及密码,然后点击"进入系统"按钮就可以进入主界面.
2.2.2主窗体
通过点击主界面上的“我要游园”按钮就可进入选择游戏界面。
2.2.3选择游戏模块
该界面是该系统的枢纽界面，通过点击不同的主题按钮，即可进入不同的主题界面。
2.2.4泡泡园
该界面是以选择题的游戏形式锻炼小朋友们的算数能力。
2.2.5填填园
该界面是以填空题的游戏形式锻炼小朋友们的算数能力。
2.2.6测测园
该界面是以测试题的游戏形式锻炼小朋友们的综合算数能力。
2.2.7游戏规则界面
进入该界面后通过点击不同的主题按钮即可查看不同游戏的游戏规则。
第三章系统设计
3.1总体结构设计
3.2数据库设计
登录窗体及其控件代码设计
主界面及其控件代码设计
选择游戏模块界面及控件代码设计
泡泡园界面、控件及程序运行操作代码设计
填填园界面、控件及程序运行操作代码设计
测测园界面、控件及程序运行操作代码设计
游戏小规则界面及其控件代码设计
3.3中心代码的实现
PrivateSubTimer2_Timer（）
Callprc
SelectCasestr
Case"A"
IfVal（Label4.Caption）+Val（Label5.Caption）=Val（Text1.Text）Then
score=score+1
EndIf
Case"B"
IfVal（Label4.Caption）+Val（Label5.Caption）=Val（Text2.Text）Then
score=score+1
EndIf
EndSelect
EndSub'过程的调用
PrivateSubprc（）
ch1.Value=0
ch2.Value=0
X=Int（Rnd（）*99+1）
Label4.Caption=X
Y=Int（Rnd（）*99+1）
Label5.Caption=Y
c=X+Y
SelectCaseX
CaseIs>80
Text1=c
Text2=c-1
CaseIs>50
Text1=c+1
Text2=c
CaseIs>20
Text1=c-10
Text2=c
CaseIs<=20
Text1=c
Text2=c+10
EndSelect
EndSub'产生随机数
第四章系统实现
4.1登录窗体代码
DimnAsInteger
PrivateSubCommand1_Click（）
IfText1="111111"AndText2="111111"Then
frm1.Show
Frm7.Hide
Else
n=n+1
Ifn<=3Then
Else
MsgBox"密码错误,请再次输入密码"
Text2=""
EndIf
MsgBox"三次密码错误.没有访问权"
Command1.Enabled=False
EndIf
EndSub
4.2主界面代码
PrivateSublabl1_Click（）
frm1.Hide
frm2.Show
EndSub
PrivateSubTimer1_Timer（）
IfLabel2.Left<=frm1.WidthThen
Label2.Left=Label2.Left+10
Else
Label2.Left=10
EndIf
EndSub
4.3选择游戏模块界面代码
PrivateSubLabel1_Click（）
frm2.Hide
frm6.Show
EndSub
PrivateSubLabel2_Click（）
frm2.Hide
frm5.Show
EndSub
PrivateSubLabel3_Click（）
frm4.Hide
frm3.Show
EndSub
PrivateSubLabel4_Click（）
frm3.Hide
frm4.Show
EndSub
PrivateSubLabel5_Click（）
frm2.Hide
frm1.Show
EndSub
PrivateSubTimer1_Timer（）
IfLabel6.Left<=frm2.WidthThen
Label6.Left=Label6.Left+10
Else
Label6.Left=10
EndIf
EndSub
4.4泡泡园界面功能设计与实现
DimcAsInteger,scoreAsInteger,nAsInteger
DimstrAsString
PrivateSubprc（）
Check1.Value=0
Check2.Value=0
x=Int（Rnd（）*99+1）
Label10.Caption=x
y=Int（Rnd（）*99+1）
Label7.Caption=y
c=x+y
SelectCasey
CaseIs<=10
Text1=c+10
Text2=c
CaseIs<=20
Text1=c
Text2=c-10
CaseIs<=30
Text1=c
Text2=c+10
CaseIs<=40
Text1=c-10
Text2=c
CaseIs<=50
Text1=c
Text2=c-10
CaseIs<=60
Text1=c
Text2=c-10
CaseIs<=70
Text1=c
Text2=c-10
CaseIs<=80
Text1=c
Text2=c-20
CaseIs<=90
Text1=c+10
Text2=c
CaseIs<=10
Text1=c
Text2=c-15
Text2=c
CaseIs>=90
EndSelect
EndSub
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
str="A"
EndIf
EndSub
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
str="B"
EndIf
EndSub
PrivateSubForm_Load（）
Opt（0）.Value=False
Opt
（1）.Value=False
Opt
（2）.Value=False
MMControl1.FileName=App.Path+"\海阔天空.mp3"
MMControl1.Command="open"
MMControl1.Command="play"
MMControl1.Visible=False
EndSub
PrivateSubLabel11_Click（）
score=0
Timer2.Enabled=True
Label14.Caption=0
EndSub
PrivateSubLabel12_Click（）
Label14.Caption=score
EndSub
PrivateSubLabel2_Click（）
frm2.Show
EndSub
PrivateSubOpt1_Click（）
frm2.Show
frm3.Hide
EndSub
PrivateSubOpt_Click（IndexAsInteger）
Timer2.Enabled=False
IfOpt（0）.Value=TrueThen
Timer2.Interval=2000
ElseIfOpt
（1）.Value=TrueThen
Timer2.Interval=1000
ElseIfOpt
（2）.Value=TrueThen
Timer2.Interval=500
EndIfEndSub
PrivateSubTimer1_Timer（）
IfLabel17.Left<=frm5.LeftThen
Label17.Left=Label17.Left+10
Else
Label17.Left=0
EndIf
EndSub
PrivateSubTimer2_Timer（）
Callprc
SelectCasestr:
Case"A"
Ifc=Val（Text1.Text）Then
score=score+1
EndIf
Case"B"
Ifc=Val（Text2.Text）Then
score=score+1
EndIf
EndSelect
IfCheck1.Value=1Andc=Val（Text1.Text）Then
score=score+1
EndIf
IfCheck2.Value=1Andc=Val（Text2.Text）Then
EndIf
EndSub
4.5填填园界面功能设计与实现
PrivateSubLabel11_Click（）
Label6.Caption=score
IfVal（Text1.Text）=cThen
Label4.Caption="恭喜你答对了"
Else
Label4.Caption="加油"
EndIf
EndSub
PrivateSubLabel2_Click（）
frm3.Hide
frm2.Show
EndSub
PrivateSubLabel7_Click（）
Timer2.Enabled=True
EndSub
PrivateSubLabel8_MouseDown（ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）
Ifi<=2Then
i=i+1
EndIf
Ifi=3Then
i=0
EndIf
Opt（i）.Value=Ture
EndSub
EndSub
PrivateSubOpt_Click（IndexAsInteger）
Timer2.Enabled=True
IfOpt（0）.Value=TrueThen
Timer2.Interval=3000
ElseIfOpt
（1）.Value=TrueThen
Timer2.Interval=2000
ElseIfOpt
（2）.Value=TrueThen
Timer2.Interval=500
EndIf
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
Ifc=Val（Text1.Text）Then
score=score+1
EndIf
EndSub
PrivateSubTimer1_Timer（）
IfLabel3.Left<=frm3.WidthThen
Label3.Left=Label3.Left+10
Else
Label3.Left=10
EndIf
EndSub
PrivateSubTimer2_Timer（）
x=Int（Rnd（）*99+1）
y=Int（Rnd（）*99+1）
c=x+y
Label12.Caption=str（x）&"+"&str（y）&"="
Text1.Text=""
EndSub
PrivateSubTimer3_Timer（）
IfLabel12.Top<=Frame2.HeightThen
Label12.Top=Label12.Top+10
Else
Label12.Top=0
EndIf
IfText1.Top<=Frame2.HeightThen
Text1.Top=Text1.Top+10
Else
Text1.Top=0
EndIf
EndSub
4.6测测园界面功能设计与实现
DimiAsInteger
Dima（7）AsInteger
Dimb（7）AsInteger
DimxAsInteger
DimyAsInteger
Dimc（7）AsInteger
Dimctr（7）AsString
Dimq（7）AsInteger
Dimw（7）AsInteger
Dime（7）AsInteger
DimgAsInteger
DimhAsInteger
PrivateSubCheck1_Click（IndexAsInteger）
Fori=0To7
IfCheck1（i）.Value=1Then
ctr（i）="A"
EndIf
Nexti
EndSub
PrivateSubCheck2_Click（IndexAsInteger）
Fori=0To7
IfCheck2（i）.Value=1Then
ctr（i）="B"
EndIf
Nexti
EndSub
PrivateSubLabel10_Click（）
score=0
Fori=0To7
Ifa（i）+b（i）=Val（Text1（i）.Text）Then
score=score+1
EndIf
Nexti
Label8.Caption=score
Fori=0To7
SelectCasectr（i）
Case"A"
Ife（i）=Val（Label6（i）.Caption）Then
score=score+1
EndIf
Case"B"
Ife（i）=Val（Label7（i）.Caption）Then
score=score+1
EndIf
EndSelect
Nexti
Label8.Caption=score
EndSub
PrivateSubLabel2_Click（）
frm4.Hide
frm2.Show
EndSub
PrivateSubLabel9_Click（）
Fori=0To7
Label8.Caption=""
Label4（i）.Caption=""
Label5（i）.Caption=""
Label5（i）.Caption=""
Label7（i）.Caption=""
Text1（i）.Text=""
Next
Fori=0To7
Callpro
a（i）=x
b（i）=y
c（i）=Val（a（i））+Val（b（i））
Label4（i）.Caption=str（a（i））+"+"+str（b（i））+"="
Next
Fori=0To7
Callpro
q（i）=g
w（i）=h
e（i）=Val（q（i））+Val（w（i））
Label5（i）.Caption=str（q（i））+"+"+str（w（i））+"="
Nexti
Fori=0To7
Label6（i）.Caption=e（i）Ore（i）-2
Nexti
Fori=0To7
IfLabel6（i）.Caption=e（i）Then
Label7（i）.Caption=e（i）-2
Else
Label7（i）.Caption=e（i）
EndIf
Nexti
EndSub
PrivateSubTimer1_Timer（）
IfLabel3.Left<=frm4.WidthThen
Label3.Left=Label3.Left+10
Else
Label3.Left=10
EndIf
EndSub
PrivateSubpro（）
x=Int（Rnd（）*99+1）
y=Int（Rnd（）*99+1）
g=Int（Rnd（）*99+1）
h=Int（Rnd（）*99+1）
EndSub
4.7游戏规则界面设计与实
PrivateSubcc_Click（）
Image3_Click
EndSub
PrivateSubImage2_Click（）
IfImage2.Visible=TrueThen
Text1="泡泡园游戏规则"+vbCrLf+"进入泡泡园首先要选择难易程度"+vbCrLf+"单击开始做题"+vbCrLf+"单击结束可以查看分数"+vbCrLf+"单击我做完了回到欢迎界面"
EndIf
EndSub
PrivateSubImage3_Click（）
IfImage3.Visible=TrueThen
Text1="测测园游戏规则"+vbCrLf+"单击抽题会随机抽出8道选择题和8道填空题"+vbCrLf+"小朋友们做完题可单击查分就可以看到自己的分数"+vbCrLf+"然后单击抽题可重新开始"+vbCrLf+"最后单击哈哈出园了,回到欢迎界面"
EndIf
EndSub
PrivateSubImage4_Click（）
IfImage4.Visible=TrueThen
Text1="填填园游戏规则"+vbCrLf+"单击开始会随机出题"+vbCrLf+"单击调节速度可以进行速度的转换"+vbCrLf+"单击看看结果可以查分"+vbCrLf+"单击重新开始会重新开始随机出题"+vbCrLf+"单击再见了可以返回到欢迎界面"
EndIf
EndSub
PrivateSubImage5_Click（）
frm6.Hide
frm2.Show
EndSub
PrivateSubpp_Click（）
Image2_Click
EndSub
PrivateSubtc_Click（）
Image5_Click
EndSuPrivateSubTimer2_Timer（）IfLabel1.Left<=frm6.WidthThen
Label1.Left=Label1.Left+10
Else
Label1.Left=10
EndIf
EndSub
PrivateSubtt_Click（）
Image4_Click
EndSub
实训总结
忙碌的两周时间不经意间结束了，在这两周实训中，我们紧张、忙碌、快乐的成长着、同学之间相互交流、相互帮助，然而不经意间老师也悄然成了我们的知己知友，我们师生相互团结、相互帮助、不断地在解决在实训中遇到的困难。
这次VB实训给我带来了生活的快乐，让人警醒，更加清楚自己的水平和重量，心里总有种被大石头压着的无力感，但是又凭着一种坚持，奋力的抗争着。
所以也得出个结论，那就是——
升级会员 