1、 课程设计报告 课程设计题目：模拟时钟 学生姓名： 专 业： 软件工程 班 级： 学 号： 指导教师： 2012年 6 月 13 日 1 1 目目 录录 第一章第一章 题意分析题意分析3 3 第二章第二章 工作日志工作日志4 4 第三章第三章 关键实现技术关键实现技术6 6 第四章第四章 设计小结设计小结8 8 2 2 第一章第一章 题意分析题意分析 VB 是面向对象的程序设计语言，VB 具有强大的设计功能，而自 己所学的知识有限，再结合自己个人的兴趣爱好与能力， 经过再三考 虑， 最后决定了制作模拟时钟的大致方向。 首先界面设计 1个 Timer、 2 个 Label、 3个 Line控件实
2、现电子时钟的查看时间以及日期的功能。 设置好主要控件后，然后用这些控件来实现模拟时钟的功能，通过 vb 代码实现。最后达到一个窗体模块，完成模拟现实时钟的功能。 设置符合现实每 60 秒走一分钟， 每 60 分钟走一个小时， 同时添加显 示完整日期的功能。 3 3 第二章第二章 工作日志工作日志 由于这次是重修 VB，以前学的也忘的差不多了，然后一个人这 几天奋发的看完了原来的教材。 这次碰到了好多不会的地方， 然后一个一个被我解决了， 做出了 这个简单的模拟时钟。首先窗体的坐标系都不了解，先后查了资料， 窗体的坐标系有几种，即默认坐标系统、用户自定义坐标系统。而且 设置坐标的方式有几种，我这
3、次用 Scale 方法自定义设置坐标系。第 二个，就是直线控件的用法，直线怎么代替钟的指针围绕中心转动， 我想到了用直线代替钟的指针，但是我不知道怎么让他围绕中心转 动，在我 vb 教材书上也没有例子系统的讲解，只是笼统的概括了一 下，这我只有到图书馆去借一本有关这方面的书籍。了解到直线有两 端，各有坐标属性，知道这点就好办多了，然后就根据现实时钟的常 识了解到，让直线一端坐标固定设置在坐标原点， 然后另一端围绕坐 标原点转动，这就模拟出用直线控件代替时钟指针转动的过程。 还有 一个问题就是怎么直线以现实时钟那样速度围绕原点转动， 这也是一 个难点， 这就需要时间控件 Timer 来设置速度。还有用 Lebel 来显示 4 4 完整的系统日期。用画矩形来代替时钟的边框。设置好各控件和窗体 的颜色等属性。反复运行稍微修改几次做出这个模拟时钟程序。 5 5 第三章第三章 关键实现技术关键实现技术 本程序运用到了 Timer1 控件及其众多属性，通过 Timer1_Timer()时间和 Interval 属性控制时钟指针的转动。另外还 定义了坐标系和系统时间日期等等 。 程序源代码：程序源代码： Const pi = 3.141592654Const pi = 3.141592654 Private Sub Form_Load()Private Sub Form_Load() 自
