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

1、级VB程序设计期末课程设计重庆机电职业技术学院课程设计说明书设计名称： VB程序课程设计 题 目： 学生姓名： X X 专 业： 计算机应用软件工程 班 级： 1班 学 号： XXXXXXXXXXXXX 指导教师： X X X 日 期： 2012 年 6 月 21 日重庆机电职业技术学院课程设计任务书 经济管理系 专 业 计算机 年级 2011级 班 1班 一、设计题目课题一:记事本程序设计课题二:画图板程序设计课题三：模拟交通灯程序设计二、主要内容利用所学和自学VB知识完成以下课题程序设计（课题一、二、三为必做课题，课题四、五为选做课题）课题一:记事本程序设计课题二:画图板程序设计课题三：模

2、拟交通灯程序设计注意：1、课程设计内容含源程序代码电子档和课程设计说明书电子档及打印档，缺少任何一样均视作总分不及格处理。2、所交设计中，缺少任意一道必做课题均视作总分不及格处理，选作课题可根据个人情况选作。三、具体要求课题一:记事本程序设计（共25分）1.1 程序功能 要求用VB设计类似Windows记事本的程序,至少应包含如下功能: 菜单功能 （1）文件(新建、打开、保存、打印，退出) （2）编辑（剪切、复制、粘贴、删除、全选、日期/时间） （3）格式（字体） （4）帮助（关于） 工具栏功能：同菜单功能1.2 程序界面（10分） 要求设计界面美观大方，控件布局合理、属性设置正确1.3 程序

3、代码（10分） 要求代码编写规范，逻辑清晰，代码描述准确，添加适当注释1.4 程序设计体会（5分） 要求从：在该设计中遇到了哪些问题？如何解决的问题？通过该设计学习到了什么？三个方面出发，写出自己在设计过程中的心得体会。课题二:画图板程序设计（25分）2.1 程序功能 要求用VB设计类似Windows画图板的程序,至少应包含如下功能: 菜单功能：文件(新建、打开、保存、打印，退出)、帮助（关于） 工具栏功能：画任意曲线、画直线、画圆、擦除功能，设置画线颜色。2.2 程序界面（10分） 要求设计界面美观大方，控件布局合理、属性设置正确2.3 程序代码（10分） 要求代码编写规范，逻辑清晰，代码描

4、述准确，添加适当注释2.4 程序设计体会（5分） 要求从：在该设计中遇到了哪些问题？如何解决的问题？通过该设计学习到了什么？三个方面出发，写出自己在设计过程中的心得体会。课题三: 模拟交通灯程序设计（共25分）1.1 程序功能功能设计说明：可以在四种方案建议中任选一种或可自行设计一种方案，在此基础上完善其功能。1、车道：初级模式：可先考虑解决单车道问题高级模式：再考虑解决多车道问题2、场景：初级模式：可先考虑无汽车移动场景高级模式：再考虑有汽车移动场景。（也可考虑实景布局）3、计时：初级模式：可先考虑固定倒计时时间模式中级模式：再考虑自由配置倒计时时间模式高级模式：以及根据某条车道某时间段车流

5、量统计智能调整倒计时时间模式（某条车道某时间段车流量，可考虑由随即函数产生）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

6、节4课时注意：需提交作业含:1、课程设计说明书电子档及打印档各一份 2、程序源代码文件电子档一份（请将课程设计说明书电子档及程序源代码文件电子档压缩后命名为学号+姓名，并发送至546707831） 3、课程设计说明书打印档一份，由班长收齐后统一交指导老师处。五、成绩评定指导教师 签名 日期 年 月 日系主任 审核 日期 年 月 日目 录课题一:红绿灯程序设计061.1 程序功能说明061.2 程序界面说明061.3 程序代码说明061.4 程序设计体会08课题二:记事本程序设计082.1 程序功能说明082.2 程序界面说明082.3 程序代码说明092.4 程序设计体会10课题三:画图板程序

7、设计103.1 程序功能说明103.2 程序界面说明103.3 程序代码说明113.4 程序设计体会14一、设计任务分析本课题主要的目的是为了*。二、*总体方案的设计21*设计课题一:红绿灯程序设计1.1 程序功能说明 红绿灯程序是按照单行道交通规则设计而成，能清楚的反应红灯停绿灯行和靠右行的原则。程序启动后自动运行，不能最大化和最小化。1.2 程序界面说明 程序由一个主窗体组成，程序启动后自动运行。不能最大化和最小化。退出程序直接按右上角的。1.3 程序代码说明Private Sub Timer1_Timer() Label1.Caption = Label1.Caption - 1 If

8、Label1.Caption = -1 And Label1.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 End If If Label1.Ca

9、ption = -1 And Label1.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 End If If Label1.ForeColor =

10、 &HFF00& Then Image9.Top = Image9.Top + 500 End If If Label1.ForeColor = &HFF& Then Image9.Top = 240 End If If Label1.ForeColor = &HFF& Then Image10.Left = Image10.Left - 580 Image11.Left = Image11.Left + 580 End If If Label1.ForeColor = &HFF00& Then Image10.Left = 12120 Image11.Left = 2520 End If I

11、f Label1.ForeColor = &HFF& Then Image12.Visible = False End If If Label1.ForeColor = &HFF00& Then Image12.Visible = True End If If Label1.ForeColor = &HFF00& Then Image12.Top = Image12.Top - 500 End If If Label1.ForeColor = &HFF& Then Image12.Top = 8520 End IfEnd SubPrivate Sub Timer2_Timer()Dim a A

12、s Integer For a = 0 To 9 Text1(a).BackColor = QBColor(a + Rnd(16) Text1(a).ForeColor = QBColor(a + Rnd(16) Next aEnd Sub1.4 程序设计体会在程序设计中，遇到了很多的问题，如何让红绿灯切换？如何让人行车停和车行人停？都是一个个的问题。然而当掌握了书上相关的知识点的时候，这个一个个的问题变迎刃而解。红绿灯程序是实训中最简单的一个程序，但要是想要做得很好也不是很容易。这个程序也是我们实训中的第一个程序，这个程序让我明白，很多知识都是来源于书本。当我们对某个技能不明白的时候，可以从

13、书本中获得答案。这也体现了当代大学生自主学习的习惯和能力。课题二:记事本程序设计2.1 程序功能说明 简单记事本程序是按Windows记事本编写而来，有新建、打开、保存、退出、复制、剪切和粘贴功能。2.2 程序界面说明 程序由一个主窗体组成，里面包含菜单栏和内容框，菜单栏由文件和编辑组成，文件下有新建、打开、保存和退出，编辑下有复制、剪切和粘贴。2.3 程序代码说明Private Sub editcop_Click() Clipboard.SetText Text1.SelText texttmp = Text1.SelTextEnd SubPrivate Sub editcut_Click(

14、) Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = End SubPrivate Sub editpaste_Click() Text1.SelText = Clipboard.GetTextEnd SubPrivate Sub filenew_Click() Text1.Text = End SubPrivate Sub fileopen_Click() On Error GoTo abc CommonDialog1.Filter = 文本文件(*.txt) | *.txt CommonDialog1.Cance

15、lError = True CommonDialog1.ShowOpen Text1.Text = Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1 Exit Subabc: If Err.Number = 32755 Then Exit SubEnd SubPrivate Sub filesave_Click() CommonDialog1.Canc

16、elError = True CommonDialog1.Filter = 文本文件(*.txt)|*.txt CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As 1 Print #1, Text1.Text Close #1End SubPrivate Sub fileexit_Click() EndEnd SubPrivate Sub Form_Load() Text1.Height = Form1.Height Text1.Width = Form1.WidthEnd Sub Private Sub Form_

17、Resize() Text1.Height = Form1.Height Text1.Width = Form1.WidthEnd Sub2.4 程序设计体会记事本程序是实训中的第二个程序，有了前面红绿灯程序的经验，做起来比较得心应手，并且让我明白知识点都来源于书本，只要能将书本中的知识掌握就能运用自如。在程序设计中，如何打开、保存文件？如何复制？为什么复制和剪切都一样了？如何粘贴到指定的位置？摆在了面前这么多的问题，不得不让人头疼，然而，这些问题都反应了一个问题，对课本知识不够熟悉，课本上的技能没有掌握牢固，于是我开始铺天盖地的查阅书本和资料，开始向老师和同学求助，这一个个的问题便慢慢的解决

18、。我相信，有问题存在，就有解决问题的办法存在。这也体现了当代大学生如何寻求帮助，解决问题的能力。课题三:画图板程序设计3.1 程序功能说明画图板程序是按照Windows画图板仿制而来，有画笔功能，能随意画线条、直线、空心圆、实心圆、空心矩形和实心矩形，并且能更改线条的粗细。而且能更改画图板背景颜色和图形颜色。3.2 程序界面说明画图板程序由工具栏、调色板和画图框组成。工具栏里有画笔、直线、空心矩形、实心矩形、空心圆和实心圆按键，而且有线条的粗细按钮；3.3 程序代码说明Option ExplicitDim x0%, y0%, drawflag%Dim a As IntegerDim b As

19、IntegerPrivate Sub Form_Load() picMain.Width = Form1.ScaleWidth - pictools.Width For a = 0 To 15 Label1(a).BackColor = QBColor(a) Next a For b = 0 To 15 Label2(b).BackColor = QBColor(b) Next bEnd SubPrivate Sub Form_Resize() picMain.Width = Form1.ScaleWidth - pictools.WidthEnd SubPrivate Sub Image1_

20、Click(Index As Integer) 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 End IfEnd SubPriv

21、ate Sub Image2_Click(Index As Integer) picMain.DrawWidth = Index + 1End SubPrivate Sub label1_Click(Index As Integer) picMain.ForeColor = Label1(Index).BackColor Label3.BackColor = Label1(Index).BackColorEnd SubPrivate Sub Label2_Click(Index As Integer) picMain.BackColor = Label2(Index).BackColor La

22、bel4.BackColor = Label2(Index).BackColorEnd SubPrivate Sub mnxImport_Click() Dim picfile$ cd1.ShowOpen picfile = cd1.FileName picsrc.Picture = LoadPicture(picfile)End SubPrivate Sub mnxLeftToRight_Click() Dim dw%, i% dw = picsrc.Width / picMain.ScaleWidth For i = 1 To picMain.ScaleWidth picMain.Pain

23、tPicture picsrc.Picture, 0, 0, i, picMain.ScaleHeight, picsrc.Width - i * dw, 0, i * dw, picsrc.Height, vbSrcCopy DoEvents Next iEnd SubPrivate Sub mnxSave_Click() cd1.ShowSave SavePicture picMain.Image, cd1.FileNameEnd SubPrivate Sub picMain_MouseDown(Button As Integer, Shift As Integer, X As Singl

24、e, Y As Single)If Button = 1 Then x0 = X y0 = YEnd IfEnd SubPrivate Sub picMain_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then picMain.AutoRedraw = False picMain.Cls Select Case drawflag Case 1 picMain.Line (x0, y0)-(X, Y) Case 2 picMain.Line (x0, y0)-(X,

25、 Y), , B Case 3 picMain.Line (x0, y0)-(X, Y), , BF Case 4 picMain.AutoRedraw = True picMain.Line (x0, y0)-(X, Y) x0 = X y0 = Y Case 5 picMain.FillStyle = 1 picMain.Circle (x0, y0), Sqr(X - x0) 2 + (Y - y0) 2) Case 6 picMain.FillStyle = 0 picMain.FillColor = picMain.ForeColor picMain.Circle (x0, y0),

26、 Sqr(X - x0) 2 + (Y - y0) 2) End Select End IfEnd SubPrivate Sub picMain_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then picMain.AutoRedraw = True Select Case drawflag Case 1 picMain.Line (x0, y0)-(X, Y) Case 2 picMain.Line (x0, y0)-(X, Y), , B Case 3 picMai

27、n.Line (x0, y0)-(X, Y), , BF Case 5 picMain.FillStyle = 1 picMain.Circle (x0, y0), Sqr(X - x0) 2 + (Y - y0) 2) Case 6 picMain.FillStyle = 0 picMain.FillColor = picMain.ForeColor picMain.Circle (x0, y0), Sqr(X - x0) 2 + (Y - y0) 2) End Select End IfEnd Sub3.4 程序设计体会画图板程序是实训必做三个程序中较难的一个，做这个程序要有严谨的思维。不光将课本上的知识记住，而且要能加以运用。这个程序让我体会到只有基础牢固了，才能更好的去最求和学习更高的技术。在画图板程序中，如何用鼠标控制线条？如何让线条的粗细按钮需要时出现？如何设置调色板并且应用到前景色和背景色中？如何画空心和实心图案？这些都是上课时老师讲过的知识，也是课本上的知识，只有将基础的知识掌握了，才能设计出更加完美的程序。