指针式时钟设计报告可以有程序

1、吉林工程技术师范学院VB课程设计报告 设计题目： 指针式时钟 专 业： 计算机科学与技术 班 级： XXX 学生姓名： XXX 学 号： XXXXXXXXX 指导教师： 2014年6月信息工程学院目 录第一章 系统分析11.1 技术分析1第二章 总体设计22.1 设计流程图2第三章 编码实现43.2 文本编辑器部分代码设计63.3 数字游戏部分代码设计13第四章 系统调试154.1 程序运行结果154.2 调试过程中的问题与对策18第五章 使用说明19总结20致 谢22附录231.源代码232.参考资料27信息工程学院<<VB语言课程设计>>报告摘 要Visual Ba

2、sic是以结构化Basic语言为基础，以事件驱动作为运行机制的新一代可视化程序设计语言，它继承了Basic语言易学易用的特点，特别适合于初学者学windows系统编程。随着21世纪信息社会的到来,人类生活的节奏越来越快,生活模式也越来越简洁。对时间的需求也是越来越苛刻，越来越明显，计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户在繁忙的日程工作中得到放松,于是出现了各种各样的休闲软件,如聊天工具,游戏等等。我们这次用到的软件是Visual Basic 6.0 企业版，它具有面向对象的可视化设计工具，硬件驱动的编程机制，使用方便简单的集成开发环境，最简单的程序设计语

3、言和强大的数据库与文件系统等多种优点。 本程序采用Command、lable、Text、timer、image等控件配合程序核心文件系统, 设计并实现了时钟。我们本着方便、实用、简介的设计理念设计，尽量符合大众的习惯与需求。于是我着手设计开始一个这样的时钟软件。关键词：软件编程；Visual Basic6.0；时钟13信息工程学院<<VB语言课程设计>>报告第1章 系统分析1.1 技术分析 技术分析是程序设计的第一步，其目的理解了对程序的一些简单要求，在Visual Basic .Net的运行环境下。问题分析的基本内容包括确定。程序的功能主要针对与迷你文本编辑器的测试。

4、使用方式非常简单，快捷。通过运用Visual Basic .Net的运行环境下的各种控件和方法，能对文字进行复制、粘贴、剪切、改变字体颜色等操作的简单执行,同时在文字编辑器中还加入数字滚小动游戏。程序所占用系统资源的数量、对输入命令的响应速度等非常良好。visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了用户更加方便的，更加有舒适的心情，设计出一个比较舒心的时钟显示。1.2 设计平台VB全称Visual Basic,它是以Basic语言作为其基

5、本语言的一种可视化编程工具。它继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户更加地使用舒心。通过这学期来Visual Basic的学习，我初步掌握了Visual Basic语言的最基本的知识，于是在张老师的指导下动手用Visual Basic编写了这款时钟软件。第二章 总体设计2.1系统分析 首先界面设计3个Timer、2个Label、1个Image、1个Textbox、控件实现电子时钟的查看时间以及日期的功能。设置好主要控件后，然后用这些控件来实现模拟时

6、钟的功能，通过vb代码实现。最后达到一个窗体模块，完成模拟现实时钟的功能。设置符合现实每60秒走一分钟，每60分钟走一个小时，同时添加显示完整日期的功能。2.2界面设计思路我们在设计各个界面时，本着简介，清晰，和谐，美观，实用的设计理念设计，例如时钟，以简洁图片为背景，使得整体效果和谐，清新。我们以文件系统为核心设计理念，以大量函数与循环将程序结构建立起来，使得整个程序完整，连贯。功能符合一般应用的要求，非常实用方便，且符合大众思路，使得大众使用时得心应手。2.3各部分功能1、 时钟功能：指针式时钟，添加一个Image控件，将设计好的时钟图片放到窗体上，然后更改窗体的大小，使得窗体的长和宽相等

7、。在添加一个Image控件，在代码中调用函数建立坐标系，调用函数依次画出时针分针秒针。2、 获取当前系统时间: 添加一个Lable标签，再添加一个Textbox文本框控件，使动态时间出现在窗体上，方便人们对照时钟查看时钟是否正确。3、 显示动态文字：添加一个Lable标签，在添加一个Image控件，增加程序美观性。4、 双击图片控件退出程序：增强程序的可读性。系统文本框界面结构设计图如2-2所示文本编辑器文件格式对齐娱乐编辑打开保存退出新建字体设置颜色设置左对齐居中右对齐数字滚动游戏复制粘贴剪切撤销 图2-2 系统文本框界面设计流程图第三章 编码实现 3.1 时钟部分代码设计 1、配置环境变量

8、 Const PI = 3.1415926532、 建立坐标系 Private Sub Form_Load() Scale (-14, 14)-(14, -14) Label1.FontSize = 12 Label2.FontSize = 18 Label2.FontBold = True Label1.FontBold = True Label2.ForeColor = vbGreen Text1.FontSize = 12End Sub3、 时钟主程序代码 Private Sub Timer1_Timer() Dim x, y As Integer Dim s, m, h As Inte

9、ger s = Second(Time) m = Minute(Time) h = Hour(Time) Cls DrawWidth = 8 h = h + m / 60 x = 6 * Sin(h * PI / 6) y = 6 * Cos(h * PI / 6) Line (0, 0)-(x, y), vbYellow DrawWidth = 5 x = 8 * Sin(m * PI / 30) y = 8 * Cos(m * PI / 30) Line (0, 0)-(x, y), vbRed DrawWidth = 3 x = 9 * Sin(s * PI / 30) y = 9 *

10、Cos(s * PI / 30) Line (0, 0)-(x, y), vbBlue End Sub4、 显示当前系统时间代码 Private Sub Timer2_Timer() Text1.Text = Format(Now, "HH:MM:SS")End Sub 3.2 滚动文字部分代码设计 Private Sub Timer3_Timer() If Label2.Left > Me.ScaleWidth Then Label2.Left = -Label2.Width Else: Label2.Left = Label2.Left + 3 End IfEnd

11、 Sub 第四章 系统调试第3章 设计目的与要求3.1 设计目的1. 通过设计实践,将理论教学中涉及到的知识点贯穿起来，对不同的数据类型、程序控制结构、数据结构作一比较和总结，结合设计题目进行综合性练习，以达到对所学知识熟练掌握、灵活应用的目的。2. 培养学生查阅专业资料，工具书或参考书,了解有关工业标准，掌握现代设计手段和软件工具，并能以图纸和说明书表达设计思想和结果的能力。 要求掌握常用控件的属性、事件、方法，理解事件驱动的概念。掌握界面的基本设计方法。3. 掌握图形、图像程序设计方法4. 课程设计结合是实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的

12、综合训练，培养我们学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目的是通过课程设计这种形式， 课程设计是这门课程的实践性教学环节之一，通过这次课程设计帮助我们系统的掌握VB这课程的主要内容，养成良好的变成习惯，更好的完成学习任务。 3.2 设计要求通过课程设计指导书提供的课题，设计一个完整的时钟应用程序，要求根据规定设计系统的具体要求，按照应用程序的设计步骤，和VB基本知识应用程序的分析与实现。根据基本学时分配合理分配设计时间，并独立完成各方面的设计。选择同一题目的同学，可以共同协作完成同一应用程序的开发任务。要求写详细的设计说明书。在界面设计中，漏出每个窗体的布局，进行属性说明，

13、杜绝雷同。第5章 开发工具简介5.1 VisualBasic6.0简介Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的非常实用的应用软件系统。6.2 运用的控件和主要对象我们在设计过程

14、中主要用到的控件有：Form，Commandbutton，MsgBox，Label，Frame，PictureBox等控件。1、窗体（Form）窗体就是平时所说的窗口，它是VB编程中最常见的对象，也是程序设计的基础。各种控件对象必须建立在窗体上，即窗体是所有控件的容器。一个窗体对应一个窗体模块。2、 命令按钮(Commandbutton)命令按钮是VB应用程序中使用最多的控件之一，它常常用来接受用户的操作信息，激发相应的事件过程，是用户与程序交互的最简便的方法之一。3、 消息框（MsgBox）在Windows中，如果操作失误，通常会在屏幕上显示一个对话框，提示用户进行选择，然后系统根据选择确定

15、其后的操作。VB提供了MsgBox函数就可以实现此功能，它可以向用户传送信息，并可以接收用户在对话框上的选择，以次作为程序继续执行的依据。4、标签（Label）VB提供的标签控件只能显示文本，而不能对文本进行编辑。标签通常用于标注本身不具有Caption属性的控件。5、框架（Frame）框架主要用做控件的容器，也用于修饰界面。6、图片框（PictureBox）该控件可以用来显示图象，包括位图文件、图标文件、光标文件、元文件、增强的元文件、JPEG文件、GIF文件。7、Timer控件Windows 应用程序中常常要用到时间控制的功能，如在程序界面上显示当前时间，或者每隔多长时间触发一个事件，等等

16、。而 Visual Basic 中的 Timer（时间）控制器就是专门解决这方面问题的控件。选中时钟控制器，将鼠标移到界面设计区，在窗体中拖出一个矩形就可以创建一个 Timer 控件了。跟其他控件不同的是，无论你绘制的矩形有多大，Timer 控件的大小都不会变外，Timer 控件只有在程序设计过程中看得见，在程序运行时是看不见的Timer事件：当Timer控件设置为有效时，计时总是从其Interval属性的设置值开始，每当计时时间到达时产生Timer事件，可以在该事件过程中编写代码，以高诉Visual Basic在每次计时时间到时该做什么。(1)Timer 控件的属性：Timer 控件可以使用

17、 Name 属性与 Enabled 属性，但最重要的是 Interval 即时间间隔属性。Interval 属性决定了时钟事件之间的间隔，以毫秒为单位，取值范围为 0 65535 ，因此其最大时间间隔不能超过 65 秒，即一分钟多一点的时间。如果把 Interval 属性设置为 1000 ，则表示每秒钟触发一个 Timer 事件。其语法格式：Timer.Interval = X ，其中，X 代表具体的时间间隔。(2)Timer 控件的 Timer （定时）事件：当一个 Timer 控件经过预定的时间间隔，将激发计时器的 Timer 事件。使用 Tim标签控件（Label）的主要事件：所谓的事件

18、，其实就是用户对应用程序的操作，如第一章中用鼠标点击命令按钮触发的 Click 事件。事件的作用在于触发程序的执行，如第一章中的 Click 事件改变了标签控件的 Caption 属性。标签控件的主要作用在于显示文本信息，但也支持一些为数不多的事件。I、Click 事件（鼠标单击）：用鼠标点击标签时触发的事件，如改变标签的字体属性：Private Sub LblShow_Click()LblShow.FontName = "隶书"End SubII、DbClick 事件（鼠标双击）：鼠标双击引发的事件，如改变标签的可见性：Private Sub LblShow_DbClic

19、k()LblShow.Visible = FalseEnd Sub(3)文件操作控件在一个应用程序中，对文件的处理是一个比较常用的操作，如打开文件、保存文件，等等操作。Visual Basic 提供了三个控件对磁盘文件夹与文件进行显示与操作，它们分别是：DriveListBox（磁盘列表框）控件、DirListBox（文件夹列表框）控件，以及 FileListBox（文件列表框）控件 。事件可以完成许多比较实用功能，例如显示系统时钟、制作动画，等等(4)三个控件的连接：DriveListBox（磁盘列表框）控件DirListBox（文件夹列表框）控件FileListBox（文件列表框）控件I、

20、在程序中，它们全都是互不关连的，并不是只要在窗体中创建了它们，然后对某个控件（如磁盘列表框）进行操作，其他控件就会自动显示相应的磁盘下的文件，这需要用程序进行实现。将磁盘列表框的操作赋值给文件夹列表框的 Path 属性，在磁盘列表框的 Change 事件中输入如下代码：Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub、II、对文件夹列表框控件进行的操作，直接影响文件列表框所显示的内容：Private Sub Dir1_Change()File1.Path = Dir1.Path8、Label 控件任何一个 VB 程序都是由操作

21、界面及与之相应的程序代码组成，而操作界面则是由诸如“命令按钮控件”、“标签控件”等控件以及窗体共同组成。 Label（标签控件）是图形控件，主要作用在于显示文字信息，如大家比较熟悉的程序安装界面：在某个软件安装过程中，常常会显示一些帮助信息或与产品相关的介绍信息等消息，而这些，大多全都是用标签控件来制成的。与以后我们要学到的文本框控件（TextBox）不同的是，标签控件显示的文字不能直接进行修改，要修改的话只能在设计阶段进行；文本框既可以用来显示文本，还能够在文本框中输入文本。用法比较前者也更加的灵活多变。在 Visual Basic 工具箱中，标签控件的图标如图一所示。标签的默认名称（Nam

22、e）和标题（Caption）为 LabelX（X为1、2、3，等等），规范的命名方式为：LblX（X为自己定义的詞，如 LblShow 、LblRed ，等等）(1)标签控件的主要属性：I、Caption（标题）属性：此属性用来设置在标签上显示的文本信息，可以在创建界面时设置，也可以在程序中改变文本信息，如第一章的例子中，通过点击按钮改变标签显示的字样。如果要在程序中修改标题属性，代码规则如下：标签名称.Caption = "欲显示的文本"LblShow.Caption = "跟我来学 VB 神童教程"但是请注意，上面的代码应该写入供触发的控件对应的程序

23、代码区才正确。II、BorderStyle（边框）属性：本属性用来设置标签的边框类型，有两种值可选：0，代表标签无边框；1，代表标签有边框，并且具有三维效果，如图二显示的两个标签： BorderStyle 属性可以在设计界面时指定标签名.BorderStyle = 0/1（0或1，两者取一）击一下，标签有边框，再点一下，标签边框消除，再点一下，边框又出现，以此类推。回答、Font（字体）属性：本属性用来设置标签显示的字体，既可以在创建界面时设定，也可以在程序中改变。在创建界面时设定 在图四的设置界面中，除了可以选择字体，还可以设置显示文字是否为粗体、斜体、下划等。在程序中改变 Font 属性，

24、程序代码书写规则如下：字体改变：标签名.FontName = "字体类型"，其中，“字体类型”可以是中文，如“宋体”、“隶书”、“黑体”、“新宋体”等等也可以是英文名，如“Arial”、“Times New Roman”，等等，不过，这些字体名称必须是电脑上有的。字体大小改变：标签名.FontSize = X ，其中，X 是阿拉伯数字，代表字体是几号字。如：LblShow.FontSize = 11 。粗体（FontBold）、斜体（FontItalic）、下划线（FontUnderline）、删除线（FontStrikethru）属性的设置值是代表真/假的逻辑判断值 Tr

25、ue/False ，如下：LblShow.FontBold = True/FalseLblShow.FontItalic = True/False、Alignment（对齐）属性：此属性用来设置标签上显示的文本的对齐方式，分别是：左对齐，0；右对齐，1；居中显示，2。可以在界面设置时设定， 也可以在程序中改变，代码如下：标签名.Alignment = 0/1/2 第6章 设计实现用Load命令建立原始Line控制的14个拷贝(因为表盘有12个点和时、分、秒共15个Line)，该控制数组每一个实例的端点坐标属性设置为每条线在时钟表盘上的适当位置。这些拷贝中大多数只放置一次，而3个Line控制每秒

26、钟更新一次，产生时钟指针移动的感觉。在应用程序代码中并没有直接擦除任何一条线。当我们改变每一个Line控制的端点时，每一根针在移动时擦除和重画的所有技术工作都由VB来处理。 通过调整代码中的属性设置，可以改变时钟的形状。例如:通过改变每一个Line控制的Borderwidth属性设置，可以建立更细或更粗的线。3.1添加image控件3.2修改时针的形状 3.3计时器的Interval(间距)属性设置计时器的Interval属性设置为100，即为1/10秒。 程序的编写与执行 （1） 新建工程 先新建一个工程（工程类型为标准EXE），然后用“工具箱”中的工具加入一个Timer1（计时器）和lin

27、e1（直线），其index（指针）分别设置为空和、0。一、打开程序：点击桌面上的 Visual Basic 图标，在弹出的如图一的窗中选择“创建标准 EXE”按钮。图3.1 新建工程窗口 确定后的状态如下图。图3.2 创建的新工程（2）编辑时钟软件的工程窗口，可执行为一个“标准 EXE”文件。具体代码如下。图3.3 时钟编辑窗口 （3）时钟软件的运行界面，此图中时间为18点。图3.4 时钟界面（一）下图即为时钟软件的运行界面，此图中时间为20点。滚动字幕位置有所变化。系统时间也有变化。图3.5时钟界面（二）（4） 窗体属性值设置图3.6窗体属性值窗口（5） 图片属性值 图3.6窗体属性值窗口（

28、7） 时钟属性值窗口 图3.7时钟属性值窗口（8）标签属性值图3.8标签属性值窗口（9） 文本框属性值图3.9文本框属性值窗口3.4关键软件代码1、配置环境变量 Const PI = 3.1415926533、 建立坐标系 Private Sub Form_Load() Scale (-14, 14)-(14, -14) Label1.FontSize = 12 Label2.FontSize = 18 Label2.FontBold = True Label1.FontBold = True Label2.ForeColor = vbGreen Text1.FontSize = 12End

29、Sub5、 时钟主程序代码 Private Sub Timer1_Timer() Dim x, y As Integer Dim s, m, h As Integer s = Second(Time) m = Minute(Time) h = Hour(Time) Cls DrawWidth = 8 h = h + m / 60 x = 6 * Sin(h * PI / 6) y = 6 * Cos(h * PI / 6) Line (0, 0)-(x, y), vbYellow DrawWidth = 5 x = 8 * Sin(m * PI / 30) y = 8 * Cos(m * PI

30、 / 30) Line (0, 0)-(x, y), vbRed DrawWidth = 3 x = 9 * Sin(s * PI / 30) y = 9 * Cos(s * PI / 30) Line (0, 0)-(x, y), vbBlue End Sub6、 显示当前系统时间代码 Private Sub Timer2_Timer() Text1.Text = Format(Now, "HH:MM:SS")End Sub7、 滚动文字代码 Private Sub Timer3_Timer() If Label2.Left > Me.ScaleWidth Then

31、 Label2.Left = -Label2.Width Else: Label2.Left = Label2.Left + 3 End IfEnd Sub8、 双击退出程序代码 Private Sub Picture1_DblClick() Unload Me End Sub第7章 总 结1、做钟表的一般步骤如下： /钟表窗口类 clock.h /钟表窗口类实现 clock.cpp /构造函数 画时针 画分针 画秒针 画刻度 画大刻度 画小刻度 /或取当前系统系统时间，秒针+，构造函数里秒针动一下然后分针，时针按照一定规则走动 /显示滚动字幕 /双击图片退出 /设置窗体的属性2、程序的编译和

32、执行 点击VB“运行”菜单中的“启动”或“全面编译”命令，即可对程序编译并运行！第8章 实训心得经过了这几天的程序设计后，使我对VB由渐渐模糊逐有变的渐变的清晰起来，特别是在对vb面向对象概念的加深和知识点的了解上更加运用自如了。这也大大增加了我对VB编程的了解，VB强大的编程功能需要我们一步步去学习，即使今后我们不会在课堂上学习VB了，但平时对VB的深入研究也将使我们受益匪浅。用VB课程设计的思想非常重要，没有做不到只有想不到，这次的课程设计就是一个很好的例子。在这 5 天的实训中，给我们 更大的感觉是设计的任务繁重。 更大的感觉是设计的任务繁重。程序设计的严密性， 程序设计的严密性， 让我

33、们清楚的了 这一课程。只有亲身经历过，才知道其中的滋味。 解了 VB 这一课程。只有亲身经历过，才知道其中的滋味。VB 设计 实训，对我们各方面的要求更是提高了一大步。 实训，对我们各方面的要求更是提高了一大步。 “要想为事业多添一把火， 要想为事业多添一把火， 要想为事业多添一把火 自己就得多添一捆材”。 通过此次实自己就得多添一捆材 。 训，我深深体会到了积累知识的重要性。有些题目书本上没有提及， 我深深体会到了积累知识的重要性。有些题目书本上没有提及， 所以我就没有去研究过， 做的时候突然间觉得自己真的有点无知， 虽然现在去看依然可以解决问题， 但还是浪费了许多时间， 这一点是我必须在以

34、后的学习中加以改进的。另外一点,也是在每次实也是在每次实训中必不可少的部分， 就是不懂的同学间可以互相帮助，有些东西感觉自己做 的是时候明明没什么错误， 偏偏最后运行时候就是有错误，让其同学 帮忙看了一下，发现其实是个很小的错误。所以说，相互帮助是很重要的一点。这在以后的工作或生活中也很关键的。 实训让收获颇丰，总的来说我对这次实训还是比较满意的，它使我学到了很多东西，虽说有点头疼，但是真的很感谢学校能够给学生这样实训的机会，让我们明白了，只有多做才能熟能 生巧，才能游刃有余。我深刻理解了什么是程序设计，它不仅仅是份职业，更是一份细心 一份耐心 一份责任心=人生价值的诠释 一份耐心+一份责任心

35、 人生价值的诠释。同时我也认识到要做一个合格的设计工作者并非我以前想像的那么容易，最重要的还是细致严谨。 总而言之，这次实训 让我对程序设计工作有了比较清晰的认识， 让我对程序设计工作有了比较清晰的认识，对程序设计工作有了比较清晰的认识并在实际操作过程中找出 自身存在的不足，对今后的会计学习有了一个更为明确的方向和目 标。 只有经历过，才知道其中的滋味” 对我而言，可以说通这几 天的实训课， 天的实训课，真真切切的让我了解了什么是 VB， 通过实训，我对 本课程的认识进一步加强。 总的来说，这次实训还是比较成功的。最后出来的系统，大家都很有成就感，这是我们一步步设计、一步步完善、辛苦付出后得到

36、的成果。小组合作、帮助队友，无论是团队合作这方面还是个人动手这方面，我们都得到了很好的锻炼。当然实训不仅使我们学到了知识，也帮助我们缩小了实践和理论的差距，通过这次实训让我们更深一步的对vb这门课程的知识有更进一步的渴望，同时对自己的专业，对自己的能力，对自己所学的有正确的认识，并且能在以后的学习工作中不断提高和完善自己。此我要感谢我的指导老师张立霞对我细心地指导，感谢老师对我的帮助。在设计的过程中，我通过查过大量的资料与同学交流经验和自学，使自己得到了不少知识。通过这学期来Visual Basic的学习，我初步掌握了Visual Basic语言的最基本的知识，主要包括VB基础知识、常用程序结构和算法、Windows用户界面设计基础、文件处理和程序调试技术基础等内容。于是在张老师的指导下动手用Visual Basic编写了这款时钟软件。在自动控制工程中，常常用到时钟及时间控制，比如，早起