级VB程序设计期末课程设计.docx

级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程序设计体会

画图板程序是实训必做三个程序中较难的一个，做这个程序要有严谨的思维。

不光将课本上的知识记住，而且要能加以运用。

这个程序让我体会到只有基础牢固了，才能更好的去最求和学习更高的技术。

在画图板程序中，如何用鼠标控制线条？

如何让线条的粗细按钮需要时出现？

如何设置调色板并且应用到前景色和背景色中？

如何画空心和实心图案？

这些都是上课时老师讲过的知识，也是课本上的知识，只有将基础的知识掌握了，才能设计出更加完美的程序。