级VB程序设计期末课程设计.docx
- 文档编号:594455
- 上传时间:2023-04-29
- 格式:DOCX
- 页数:19
- 大小:149.27KB
级VB程序设计期末课程设计.docx
《级VB程序设计期末课程设计.docx》由会员分享,可在线阅读,更多相关《级VB程序设计期末课程设计.docx(19页珍藏版)》请在冰点文库上搜索。
级VB程序设计期末课程设计
重庆机电职业技术学院
课程设计说明书
设计名称:
VB程序课程设计
题目:
学生姓名:
XX
专业:
计算机应用软件工程
班级:
1班
学号:
XXXXXXXXXXXXX
指导教师:
XXX
日期:
2012年6月21日
重庆机电职业技术学院
课程设计任务书
经济管理系专业计算机年级2011级班1班
一、设计题目
课题一:
记事本程序设计
课题二:
画图板程序设计
课题三:
模拟交通灯程序设计
二、主要内容
利用所学和自学VB知识完成以下课题程序设计(课题一、二、三为必做课题,课题四、五为选做课题)
课题一:
记事本程序设计
课题二:
画图板程序设计
课题三:
模拟交通灯程序设计
注意:
1、课程设计内容含源程序代码电子档和课程设计说明书电子档及打印档,缺少任何一样均视作总分不及格处理。
2、所交设计中,缺少任意一道必做课题均视作总分不及格处理,选作课题可根据个人情况选作。
三、具体要求
课题一:
记事本程序设计(共25分)
1.1程序功能
要求用VB设计类似Windows记事本的程序,至少应包含如下功能:
菜单功能
(1)文件(新建、打开、保存、打印,退出)
(2)编辑(剪切、复制、粘贴、删除、全选、日期/时间)
(3)格式(字体)
(4)帮助(关于)
工具栏功能:
同菜单功能
1.2程序界面(10分)
要求设计界面美观大方,控件布局合理、属性设置正确
1.3程序代码(10分)
要求代码编写规范,逻辑清晰,代码描述准确,添加适当注释
1.4程序设计体会(5分)
要求从:
在该设计中遇到了哪些问题?
如何解决的问题?
通过该设计学习到了什么?
三个方面出发,写出自己在设计过程中的心得体会。
课题二:
画图板程序设计(25分)
2.1程序功能
要求用VB设计类似Windows画图板的程序,至少应包含如下功能:
菜单功能:
文件(新建、打开、保存、打印,退出)、帮助(关于)
工具栏功能:
画任意曲线、画直线、画圆、擦除功能,设置画线颜色。
2.2程序界面(10分)
要求设计界面美观大方,控件布局合理、属性设置正确
2.3程序代码(10分)
要求代码编写规范,逻辑清晰,代码描述准确,添加适当注释
2.4程序设计体会(5分)
要求从:
在该设计中遇到了哪些问题?
如何解决的问题?
通过该设计学习到了什么?
三个方面出发,写出自己在设计过程中的心得体会。
课题三:
模拟交通灯程序设计(共25分)
1.1程序功能
功能设计说明:
可以在四种方案建议中任选一种或可自行设计一种方案,在此基础上完善其功能。
1、车道:
初级模式:
可先考虑解决单车道问题
高级模式:
再考虑解决多车道问题
2、场景:
初级模式:
可先考虑无汽车移动场景
高级模式:
再考虑有汽车移动场景。
(也可考虑实景布局)
3、计时:
初级模式:
可先考虑固定倒计时时间模式
中级模式:
再考虑自由配置倒计时时间模式
高级模式:
以及根据某条车道某时间段车流量统计智能调整倒计时时间模式(某条车道某时间段车流量,可考虑由随即函数产生)
1.2程序界面(10分)
要求设计界面美观大方,控件布局合理、属性设置正确
1.3程序代码(10分)
要求代码编写规范,逻辑清晰,代码描述准确,添加适当注释
1.4程序设计体会(5分)
要求从:
在该设计中遇到了哪些问题?
如何解决的问题?
通过该设计学习到了什么?
三个方面出发,写出自己在设计过程中的心得体会。
四、进度安排
进度
课时
内容
17周二
第3、4、5、6节
4课时
1、安排课程设计任务
2、进行记事本程序设计
3、进行画图板程序设计
4、进行模拟交通灯程序设计
5、撰写课程设计说明书
17周三
第1、2节
2课时
17周四
第1、2、3、4节
4课时
注意:
需提交作业含:
1、课程设计说明书电子档及打印档各一份
2、程序源代码文件电子档一份(请将课程设计说明书电子档及程序源代码文件电子档压缩后命名为学号+姓名,并发送至546707831@)
3、课程设计说明书打印档一份,由班长收齐后统一交指导老师处。
五、成绩评定
指导教师签名日期年月日
系主任审核日期年月日
目录
课题一:
红绿灯程序设计……………………………………………………………06
1.1程序功能说明………………………………………………………………06
1.2程序界面说明………………………………………………………………06
1.3程序代码说明………………………………………………………………06
1.4程序设计体会………………………………………………………………08
课题二:
记事本程序设计……………………………………………………………08
2.1程序功能说明………………………………………………………………08
2.2程序界面说明………………………………………………………………08
2.3程序代码说明………………………………………………………………09
2.4程序设计体会………………………………………………………………10
课题三:
画图板程序设计……………………………………………………………10
3.1程序功能说明………………………………………………………………10
3.2程序界面说明………………………………………………………………10
3.3程序代码说明………………………………………………………………11
3.4程序设计体会………………………………………………………………14
一、设计任务分析
本课题主要的目的是为了*****************************************。
二、************************总体方案的设计
2.1*******************设计
课题一:
红绿灯程序设计
1.1程序功能说明
红绿灯程序是按照单行道交通规则设计而成,能清楚的反应红灯停绿灯行和靠右行的原则。
程序启动后自动运行,不能最大化和最小化。
1.2程序界面说明
程序由一个主窗体组成,程序启动后自动运行。
不能最大化和最小化。
退出程序直接按右上角的
。
1.3程序代码说明
PrivateSubTimer1_Timer()
Label1.Caption=Label1.Caption-1
IfLabel1.Caption=-1AndLabel1.ForeColor=&HFF00&Then
Label1.ForeColor=&HFF&
Label1.Caption=15
Image1.Visible=True
Image2.Visible=False
Image3.Visible=True
Image4.Visible=False
Image5.Visible=True
Image6.Visible=False
Image7.Visible=True
Image8.Visible=False
EndIf
IfLabel1.Caption=-1AndLabel1.ForeColor=&HFF&Then
Label1.ForeColor=&HFF00&
Label1.Caption=15
Image1.Visible=False
Image2.Visible=True
Image3.Visible=False
Image4.Visible=True
Image5.Visible=False
Image6.Visible=True
Image7.Visible=False
Image8.Visible=True
EndIf
IfLabel1.ForeColor=&HFF00&Then
Image9.Top=Image9.Top+500
EndIf
IfLabel1.ForeColor=&HFF&Then
Image9.Top=240
EndIf
IfLabel1.ForeColor=&HFF&Then
Image10.Left=Image10.Left-580
Image11.Left=Image11.Left+580
EndIf
IfLabel1.ForeColor=&HFF00&Then
Image10.Left=12120
Image11.Left=2520
EndIf
IfLabel1.ForeColor=&HFF&Then
Image12.Visible=False
EndIf
IfLabel1.ForeColor=&HFF00&Then
Image12.Visible=True
EndIf
IfLabel1.ForeColor=&HFF00&Then
Image12.Top=Image12.Top-500
EndIf
IfLabel1.ForeColor=&HFF&Then
Image12.Top=8520
EndIf
EndSub
PrivateSubTimer2_Timer()
DimaAsInteger
Fora=0To9
Text1(a).BackColor=QBColor(a+Rnd(16))
Text1(a).ForeColor=QBColor(a+Rnd(16))
Nexta
EndSub
1.4程序设计体会
在程序设计中,遇到了很多的问题,如何让红绿灯切换?
如何让人行车停和车行人停?
都是一个个的问题。
然而当掌握了书上相关的知识点的时候,这个一个个的问题变迎刃而解。
红绿灯程序是实训中最简单的一个程序,但要是想要做得很好也不是很容易。
这个程序也是我们实训中的第一个程序,这个程序让我明白,很多知识都是来源于书本。
当我们对某个技能不明白的时候,可以从书本中获得答案。
这也体现了当代大学生自主学习的习惯和能力。
课题二:
记事本程序设计
2.1程序功能说明
简单记事本程序是按Windows记事本编写而来,有新建、打开、保存、退出、复制、剪切和粘贴功能。
2.2程序界面说明
程序由一个主窗体组成,里面包含菜单栏和内容框,菜单栏由文件和编辑组成,文件下有新建、打开、保存和退出,编辑下有复制、剪切和粘贴。
2.3程序代码说明
PrivateSubeditcop_Click()
Clipboard.SetTextText1.SelText
texttmp=Text1.SelText
EndSub
PrivateSubeditcut_Click()
Clipboard.Clear
Clipboard.SetTextText1.SelText
Text1.SelText=""
EndSub
PrivateSubeditpaste_Click()
Text1.SelText=Clipboard.GetText
EndSub
PrivateSubfilenew_Click()
Text1.Text=""
EndSub
PrivateSubfileopen_Click()
OnErrorGoToabc
CommonDialog1.Filter="文本文件(*.txt)|*.txt"
CommonDialog1.CancelError=True
CommonDialog1.ShowOpen
Text1.Text=""
OpenCommonDialog1.FileNameForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,inputdata
Text1.Text=Text1.Text+inputdata+vbCrLf
Loop
Close#1
ExitSub
abc:
IfErr.Number=32755ThenExitSub
EndSub
PrivateSubfilesave_Click()
CommonDialog1.CancelError=True
CommonDialog1.Filter="文本文件(*.txt)|*.txt"
CommonDialog1.ShowSave
OpenCommonDialog1.FileNameForOutputAs1
Print#1,Text1.Text
Close#1
EndSub
PrivateSubfileexit_Click()
End
EndSub
PrivateSubForm_Load()
Text1.Height=Form1.Height
Text1.Width=Form1.Width
EndSub
PrivateSubForm_Resize()
Text1.Height=Form1.Height
Text1.Width=Form1.Width
EndSub
2.4程序设计体会
记事本程序是实训中的第二个程序,有了前面红绿灯程序的经验,做起来比较得心应手,并且让我明白知识点都来源于书本,只要能将书本中的知识掌握就能运用自如。
在程序设计中,如何打开、保存文件?
如何复制?
为什么复制和剪切都一样了?
如何粘贴到指定的位置?
摆在了面前这么多的问题,不得不让人头疼,然而,这些问题都反应了一个问题,对课本知识不够熟悉,课本上的技能没有掌握牢固,于是我开始铺天盖地的查阅书本和资料,开始向老师和同学求助,这一个个的问题便慢慢的解决。
我相信,有问题存在,就有解决问题的办法存在。
这也体现了当代大学生如何寻求帮助,解决问题的能力。
课题三:
画图板程序设计
3.1程序功能说明
画图板程序是按照Windows画图板仿制而来,有画笔功能,能随意画线条、直线、空心圆、实心圆、空心矩形和实心矩形,并且能更改线条的粗细。
而且能更改画图板背景颜色和图形颜色。
3.2程序界面说明
画图板程序由工具栏、调色板和画图框组成。
工具栏里有画笔、直线、空心矩形、实心矩形、空心圆和实心圆按键,而且有线条的粗细按钮;
3.3程序代码说明
OptionExplicit
Dimx0%,y0%,drawflag%
DimaAsInteger
DimbAsInteger
PrivateSubForm_Load()
picMain.Width=Form1.ScaleWidth-pictools.Width
Fora=0To15
Label1(a).BackColor=QBColor(a)
Nexta
Forb=0To15
Label2(b).BackColor=QBColor(b)
Nextb
EndSub
PrivateSubForm_Resize()
picMain.Width=Form1.ScaleWidth-pictools.Width
EndSub
PrivateSubImage1_Click(IndexAsInteger)
drawflag=Index+1
If(Index=0)Then
picLineWidth.Visible=True
ElseIf(Index=1)Then
picLineWidth.Visible=True
ElseIf(Index=3)Then
picLineWidth.Visible=True
ElseIf(Index=4)Then
picLineWidth.Visible=True
Else
picLineWidth.Visible=False
EndIf
EndSub
PrivateSubImage2_Click(IndexAsInteger)
picMain.DrawWidth=Index+1
EndSub
PrivateSublabel1_Click(IndexAsInteger)
picMain.ForeColor=Label1(Index).BackColor
Label3.BackColor=Label1(Index).BackColor
EndSub
PrivateSubLabel2_Click(IndexAsInteger)
picMain.BackColor=Label2(Index).BackColor
Label4.BackColor=Label2(Index).BackColor
EndSub
PrivateSubmnxImport_Click()
Dimpicfile$
cd1.ShowOpen
picfile=cd1.FileName
picsrc.Picture=LoadPicture(picfile)
EndSub
PrivateSubmnxLeftToRight_Click()
Dimdw%,i%
dw=picsrc.Width/picMain.ScaleWidth
Fori=1TopicMain.ScaleWidth
picMain.PaintPicturepicsrc.Picture,0,0,i,picMain.ScaleHeight,picsrc.Width-i*dw,0,i*dw,picsrc.Height,vbSrcCopy
DoEvents
Nexti
EndSub
PrivateSubmnxSave_Click()
cd1.ShowSave
SavePicturepicMain.Image,cd1.FileName
EndSub
PrivateSubpicMain_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
x0=X
y0=Y
EndIf
EndSub
PrivateSubpicMain_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
picMain.AutoRedraw=False
picMain.Cls
SelectCasedrawflag
Case1
picMain.Line(x0,y0)-(X,Y)
Case2
picMain.Line(x0,y0)-(X,Y),,B
Case3
picMain.Line(x0,y0)-(X,Y),,BF
Case4
picMain.AutoRedraw=True
picMain.Line(x0,y0)-(X,Y)
x0=X
y0=Y
Case5
picMain.FillStyle=1
picMain.Circle(x0,y0),Sqr((X-x0)^2+(Y-y0)^2)
Case6
picMain.FillStyle=0
picMain.FillColor=picMain.ForeColor
picMain.Circle(x0,y0),Sqr((X-x0)^2+(Y-y0)^2)
EndSelect
EndIf
EndSub
PrivateSubpicMain_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
picMain.AutoRedraw=True
SelectCasedrawflag
Case1
picMain.Line(x0,y0)-(X,Y)
Case2
picMain.Line(x0,y0)-(X,Y),,B
Case3
picMain.Line(x0,y0)-(X,Y),,BF
Case5
picMain.FillStyle=1
picMain.Circle(x0,y0),Sqr((X-x0)^2+(Y-y0)^2)
Case6
picMain.FillStyle=0
picMain.FillColor=picMain.ForeColor
picMain.Circle(x0,y0),Sqr((X-x0)^2+(Y-y0)^2)
EndSelect
EndIf
EndSub
3.4程序设计体会
画图板程序是实训必做三个程序中较难的一个,做这个程序要有严谨的思维。
不光将课本上的知识记住,而且要能加以运用。
这个程序让我体会到只有基础牢固了,才能更好的去最求和学习更高的技术。
在画图板程序中,如何用鼠标控制线条?
如何让线条的粗细按钮需要时出现?
如何设置调色板并且应用到前景色和背景色中?
如何画空心和实心图案?
这些都是上课时老师讲过的知识,也是课本上的知识,只有将基础的知识掌握了,才能设计出更加完美的程序。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 期末 课程设计