VB课程设计第一次改动.docx
- 文档编号:11204507
- 上传时间:2023-05-29
- 格式:DOCX
- 页数:30
- 大小:202.52KB
VB课程设计第一次改动.docx
《VB课程设计第一次改动.docx》由会员分享,可在线阅读,更多相关《VB课程设计第一次改动.docx(30页珍藏版)》请在冰点文库上搜索。
VB课程设计第一次改动
吉林工程技术师范学院
《VB.NET2005》
课程设计报告书
设计题目:
文本编辑器
专业:
计算机科学与技术班级:
C-0842
学生姓名:
吕东鹤学号:
16
指导教师:
段君炜
2010年7月
信息工程学院
目录
摘要………………………………………………2
第一章绪论………………………………………3
第二章系统分析…………………………………4
第三章总体设计与详细设计……………………6
第四章编码实现…………………………………8
第五章调试与测试………………………………10
第六章总结与心得………………………………13
附录:
1源代码……………………………………………15
2参考资料…………………………………………29
摘要
vb是VisualBasic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发Windows环境下的各类应用程序。
它简单易学、效率高,且功能强大可以与Windows专业开发工具SDK相媲美。
在VisualBasic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数据连接(ODBC)等技术,可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。
在计算机软件技术飞速发展和不断变化的今天,普通高等学校计算机专业如何选择编程语言来完成应用层次的教育是决定教学质量和促进学生就业的关键所在。
VisualBasic.NET在快速软件开发和中小型软件开发中具有明显的优势,业界使用VisualBasic.NET的程序员占有很大的比例,社会需求较大。
借助VisualBasic.NET不仅可以使学生快速掌握程序设计基本方法,又能使学生全面了解面向对象程序设计的原理和.NET的集成编辑环境,可谓一举多得。
“VisualBasic.NET程序设计“简单易学的特性尤其适合应用型本科的教学特点,是程序设计入门的首选课程。
VisualBasic.NET本身具有强大的功能,内容十分丰富,设计Windows应用程序开发、Web应用程序开发和只能移动设备应用开发等诸多方面。
系统介绍了BASIC语言语法、面向对象程序设计原理、.NET集成编辑环境用法、图形用户界面的设计、事件驱动模式、文件和数据库访问技术、错误处理技术、GDI+及输出方法等方面的知识。
力求全方位地介绍VisualBasic.NET应用程序开发过程,使学生通过学习可以在程序设计和应用程序开发两个方面同时得到锻炼
经过一个学期对《VB程序设计》的学习,同学们都认为学到了真正有用知识,可能有一些人学的不够理想,但无论如何,这些知识都对我门的下一步学习打下了坚实的基础。
做这么一个课程设计,一方面是为了检查我们一个学期来我们学习的成果,另一方面也是让我们进一步的掌握和运用它,同时也让我们认清自己的不足之处和薄弱环节,加以弥补和加强。
本程序是文本记录器,可以实现对文字的记录,保存,搜索,更改字体及颜色,等各种操作。
关键字:
TEXTRECORDSAVESEARCH
第一张绪论
1.1记事本:
一个桌面快捷编辑器
1.2目的:
将理论教学中涉及到的知识点贯穿起来,对不同的数据类型、程序控制结构、数据结构作一比较和总结,结合设计题目进行综合性练习,以达到对所学知识熟练掌握、灵活应用的目的。
通过课程设计,学生在下述各方面的能力应该得到锻炼:
1.对于给定的设计题目,如何进行分析、理解,以做到思路清晰。
2.掌握自顶而下的设计方法,将大问题进行模块化分解,领会结构化程序设计的方法,同时深刻认识到面向对象程序设计与面向过程程序设计的根本区别。
3.熟练掌握VB常用控件的使用,灵活运用各种数据类型。
4.进一步掌握在集成环境下调试程序和修改程序的方法和技巧
1.3意义:
对以后程序的开发,理解有了更进一步的认识。
1.4设计实施方案:
主要是对VB的编写,测试,应用等
1.5主要设计研究手段:
运用VB相关知识,达到所需目的。
1.6预期达到的效果:
使该程序在实际中得到广泛应用。
第二章系统分析
2.12.1问题分析
一、课程的设计的目的主要是在于:
1,掌握递归算法的应用;
2,掌握鼠标的应用;
3,掌握数组指针的概念及其应用;
4,培养团队合作精神;
二、课程内容的分析:
扫雷游戏主要用了一个10行10列的二维数组,刚开始随机布雷。
每一个程序最主要的是算法。
扫雷游戏算法的重点是一开始统计好每个格子周围有多少雷,当鼠标左键点在格子上时做出判断,如果周围8个格子有雷则显示出雷数,如果没有雷则显示空白格(在四个角的格子显示周围3个格子,其它边缘的格子显示周围5个的状态),我们在主函数中用两个for语句来判断周围雷数。
我们还加了鼠标处理函数。
如果格子上有雷则调用函数over(),将所有的雷都显示出来,游戏结束。
若所有的雷都标出,且所有的格子都处理过,则调用函数gamewin(),显示“youwin”,游戏结束。
游戏结束后,按任意键出去,也可按笑脸重来。
第三章总体设计与详细设计
总体设计:
1功能模块设计
–为实现系统功能,本程序主要分为五个主要功能。
–它们分别为:
–文件
–编辑
–格式
–搜索
–帮助
详细设计:
新建一个标准EXE工程,将其Caption属性改为“记事本”,点击Icon属性给它找个合适的Icon图标。
单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到MicrosoftRichTextBox6.0和公共对话框MicrosoftCommonDialog6.0并选中它们,单击“确定”按钮。
这时左边的工具栏上出现了刚才新添的两个控件。
在窗体上绘制RichTextBox和CommnDialog,其中RichTextBox的大小和位置可不用理睬,可以在代码中处理它,要把它的ScrollBar属性设为2-rtfVertical,这样在打开和编辑文件时垂直滚动条才可用。
(1)Form1和Form2的属性设置表
(2)记事本程序菜
调出菜单编辑器,做如下几个菜单:
一.文件菜单:
文件(第一层)mnuFile
新建(第二层)mnuNew
打开(第二层)mnuOpen
保存(第二层)mnuSave
-(第二层)mnuFileSep(分隔线)
退出(第二层)mnuExit
二.编辑菜单:
编辑(第一层)mnuEdit
复制(第二层)mnuCopy
剪切(第二层)mnuCut
粘贴(第二层)mnuPaste
全选(第二层)SelectionLength
-(第二层)mnuEditSep()
全选(第二层)mnuSelecAll
三.搜索菜单:
搜索(第一层)mnuSearch
查找(第二层)mnuFind
四.帮助菜单:
帮助(第一层)
使用说明(第二层)
关于(第二层)
第四章编码实现
1.欢迎界面设计
(1)添加定时器设计滚动字
PrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Label1.Text=""
Label1.Text="欢迎使用"
Timer1.Interval=50
EndSub
(2)Form2进入Form1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimfAsNewForm1
Me.Hide()
f.Show()
EndSub
2.实现新建功能
PrivateSubMenuItem2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem2.Click
RichTextBox1.Text=""'清空文本框
filename="未命名"
Me.caption=filename
EndSub
3.实现打开功能
PrivateSubMenuItem3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem3.Click
Dimstr,captionAsString
OpenFileDialog1.DefaultExt="txt"
OpenFileDialog1.Filter="文本文件(*.txt)|*.txt"
OpenFileDialog1.ShowDialog()
str=OpenFileDialog1.FileName
Me.caption="超级记事本:
"&filename
EndSub
4.实现保存的功能
PrivateSubMenuItem4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem4.Click
Dimstr1AsString
SaveFileDialog1.DefaultExt="txt"
SaveFileDialog1.Filter="文本文件(*.txt)|*.txt"
SaveFileDialog1.ShowDialog()
str1=SaveFileDialog1.FileName
Me.caption="超级记事本:
"&filenameEndSub
5.退出
PrivateSubMenuItem6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem6.Click
End
EndSub
5.复制
PrivateSubMenuItem8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem8.Click
RichTextBox1.Copy()
EndSub
6.剪切
PrivateSubMenuItem9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem9.Click
RichTextBox1.Cut()
EndSub
7.粘贴
PrivateSubMenuItem10_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem10.Click
RichTextBox1.Paste()
EndSub
8.全选
PrivateSubMenuItem12_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem12.Click
RichTextBox1.SelectionStart=0
RichTextBox1.SelectionLength=Len(RichTextBox1.Text)
EndSub
9.查找
PrivateSubMenuItem14_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem14.Click
sFind=InputBox("请输入要查找的字、词:
","查找内容",sFind)
RichTextBox1.Find(sFind)
EndSub
10.字体修改
PrivateSubMenuItem20_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem20.Click
FontDialog1.ShowDialog()
RichTextBox1.SelectionFont=FontDialog1.Font
EndSub
11.颜色
PrivateSubMenuItem21_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem21.Click
ColorDialog1.ShowDialog()
RichTextBox1.SelectionColor=ColorDialog1.Color
EndSub
12.对齐方式
PrivateSubMenuItem22_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem22.Click
RichTextBox1.SelectionAlignment=HorizontalAlignment.Left
EndSub
PrivateSubMenuItem23_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem23.Click
RichTextBox1.SelectionAlignment=HorizontalAlignment.Right
EndSub
PrivateSubMenuItem24_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem24.Click
RichTextBox1.SelectionAlignment=HorizontalAlignment.Center
EndSub
13.关于
PrivateSubMenuItem17_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem17.Click
MsgBox("超级记事本Ver1.0版权所有:
吕东鹤交流群:
",vbOKOnly,"关于")
EndSub
14.使用说明
PrivateSubMenuItem16_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem16.Click
OnErrorGoTohandler
RichTextBox1.LoadFile("Readme.txt",rtftext)'请写好Readme.txt文件并存入程序所在文件夹中
Me.caption="超级记事本:
"&"使用说明"
ExitSub
第五章调试与测试
(1)生成EXE文件打击进入界面
(2)单击进入进入到编辑界面
(3)实现打开
(4)字体改变
(5)查找
(6)关于
第六章总结与心得
课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.随着科学技术发展的日新日异,当今计算机应用在生活中可以说得是无处不在。
因此作为二十一世纪的大学来说掌握计算机开发技术是十分重要的。
回顾起此次课程设计,至今我仍感慨颇多,的确,从从拿到题目到完成整个编程,从理论到实践,在整整半个月的日子里,可以学到很多很多的的东西,同时不仅可以巩固了以前所学过的知识,而且学到了很多在书本上所没有学到过的知识。
通过这次课程设计使我懂得了理论与实际相结合是很重要的,只有理论知识是远远不够的,只有把所学的理论知识与实践相结合起来,从理论中得出结论,才能真正为社会服务,从而提高自己的实际动手能力和独立思考的能力。
在设计的过程中遇到问题,可以说得是困难重重,这毕竟第一次做的,难免会遇到过各种各样的问题,同时在设计的过程中发现了自己的不足之处,对以前所学过的知识理解得不够深刻,掌握得不够牢固,比如说结构体……通过这次课程设计之后,一定把以前所学过的知识重新温故。
通过这次的课程设计过程,我进一步了解VB.NET懂得怎么样去制定计划,怎么样去实现这个计划,并掌握了在执行过程中怎么样去克服心理上的不良情绪,黑夜过去了,我们收获的是黎明。
谢谢老师的那句话,她说:
人力有所不能及,然而,人的精神是不会败倒的。
我鼓起勇气,到处问,到处查资料,黄天不负有心人,终于看到了我所特别要求的函数,我实现了组合是关键的理论。
不得不说这是精神的胜利,是永不言败的精神让我的程序重见天日。
课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.随着科学技术发展的日新日异,当今计算机应用在生活中可以说得是无处不在。
因此作为二十一世纪的大学来说掌握计算机开发技术是十分重要的。
回想学习VB.NET的过程中,既有快乐又有烦恼,从领到书的那一刻,我就很郁闷,VB.NET到底事学什么的,有什么用。
刚开始上课时,还在迷茫这门课程是用来做什么的。
不过,这些感受都是在对这门课程不了解的情况下产生的。
后来慢慢的接触多了,听老师讲的多了,了解多了,渐渐的产生了兴趣。
尤其是学到类与对象和多态机制时,上机操作程序,经过编译,调试和运行后,出现界面,当时觉得很好奇,想真正的学好这门课程。
通过半个学期的学习,我掌握了基本知识。
下学期开始时,被通知要进行三周的课程设计。
当时有点懵,感觉学的东西很少,很零散,不知该怎么练到一起,就要课程设计,是不是太难为我们了。
第一天基本上都是在看书,把基本知识再熟悉一边。
到了下午的时候,老师发过来三道练习题,从这几道练习题上我得到了不少启发,然后我们组把整个程序的思路理清了,开始着手写程序。
第一周结束的时候,我感觉自己收获挺大的,从一开始的迷茫,不知道从何下手到把程序中的几个模块编写出来,心里挺开心的。
但是,到了第二周,我们由不得不再次陷入困境。
在整个程序的编写过程中。
最难的就是修改和删除这两个模块,这也是我们第二周要解决的重点问题。
开始编写修改和删除时,很头疼,去向其他人寻求帮助,在别人的帮助和提示下,我编完了修改程序,但编译时老出错,修改后的内容将文本内的信息全部覆盖了。
困难之时,我们组的其他人,帮助了我,完成了修改和删除。
这样的话,整个程序基本上全部完成了,就剩下完善工作了。
起此次课程设计,至今我仍感慨颇多,的确,自从拿到题目到完成整个编程,从理论到实践,在两个星期的日子里,可以学到很多很多的的东西,同时不仅可以巩固了以前所学过的知识,而且学到了很多在书本上所没有学到过的知识。
通过这次课程设计使我懂得了理论与实际相结合是很重要的,只有理论
知识是远远不够的,只有把所学的理论知识与实践相结合起来,从理论中得出结论,才能真正为社会服务,从而提高自己的实际动手能力和独立思考的能力。
在设计的过程中遇到问题,这毕竟独立做的,难免会遇到过各种各样的问题,同时在设计的过程中发现了自己的不足之处,对以前所学过的知识理解得不刻,掌握得不够牢固,通过这次课程设计之后,一定把以前所学过的知识重新温故。
附录一
源代码
PublicClassForm1
InheritsSystem.Windows.Forms.Form
#Region"Windows窗体设计器生成的代码"
PublicSubNew()
MyBase.New()
'该调用是Windows窗体设计器所必需的。
InitializeComponent()
'在InitializeComponent()调用之后添加任何初始化
EndSub
'窗体重写dispose以清理组件列表。
ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)
IfdisposingThen
IfNot(componentsIsNothing)Then
components.Dispose()
EndIf
EndIf
MyBase.Dispose(disposing)
EndSub
'Windows窗体设计器所必需的
PrivatecomponentsAsSystem.ComponentModel.IContainer
'注意:
以下过程是Windows窗体设计器所必需的
'可以使用Windows窗体设计器修改此过程。
'不要使用代码编辑器修改它。
FriendWithEventsMainMenu1AsSystem.Windows.Forms.MainMenu
FriendWithEventsMenuItem1AsSystem.Windows.Forms.MenuItem
FriendWithEventsMenuItem2AsSystem.Windows.Forms.MenuItem
FriendWithEventsMenuItem3AsSystem.Windows.Forms.MenuItem
FriendWithEventsMenuItem4AsSystem.Windows.Forms.MenuItem
FriendWithEventsMenuItem5AsSystem.Windows.Forms.MenuItem
FriendWithEventsMenuItem6AsSystem.Windows.Forms.MenuItem
FriendWithEventsMenuItem7AsSystem.Windows.Forms.MenuItem
FriendWithEventsMenuItem8AsSystem.Windows.Forms.MenuItem
FriendWithEventsMenuItem9AsSystem.Windows.Forms.MenuItem
FriendWithEventsMe
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课程设计 第一次 改动