vb时钟课程设计报告---模拟时钟

《vb时钟课程设计报告---模拟时钟》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、课程设计报告课程设计题目：模拟时钟学生姓名：专业：软件工程班级：学号：指导教师：2012年6月13日8东华理工大学课程设计评分表学生姓名：班级：学号：课程设计题目：模拟时钟项目内容满分实评选题能结合所学课程知识、有一定的能力训练。符合选题要求（5人一题）10工作量适中，难易度合理10能力水平能熟练应用所学知识，有一定查阅文献及运用文献资料能力10理论依据充分，数据准确，公式推导正确10能应用计算机软件进行编程、资料搜集录入、加工、排版、制图等10能体现创造性思维，或有独特见解10成果质量总体设计正确、合理，各项技术指标符合要求。10说明书综述简练完整，概念清楚、立论正确、技术用语

2、准确、结论严谨合理；分析处理科学、条理分明、语言流畅、结构严谨、版面清晰10设计说明书栏目齐全、合理，符号统一、编号齐全。　格式、绘图、表格、插图等规范准确，符合国家标准10有一定篇幅，字符数不少于500010总分100指导教师评语：指导教师签名：年月日8目录第一章题意分析…………………………………………………3第二章工作日志…………………………………………………4第三章关键实现技术……………………………………………6第四章设计小结…………………………………………………88第一章题意分析VB是面向对象的程序设计语言，VB具有强大的设计功能，而自己所学的知识有限，再结合自己个人的兴

3、趣爱好与能力，经过再三考虑，最后决定了制作模拟时钟的大致方向。首先界面设计1个Timer、2个Label、3个Line控件实现电子时钟的查看时间以及日期的功能。设置好主要控件后，然后用这些控件来实现模拟时钟的功能，通过vb代码实现。最后达到一个窗体模块，完成模拟现实时钟的功能。设置符合现实每60秒走一分钟，每60分钟走一个小时，同时添加显示完整日期的功能。8第二章工作日志由于这次是重修VB，以前学的也忘的差不多了，然后一个人这几天奋发的看完了原来的教材。这次碰到了好多不会的地方，然后一个一个被我解决了，做出了这个简单的模拟时钟。首先窗体的坐标系都不了解，先后查了资料，窗体的坐标系

4、有几种，即默认坐标系统、用户自定义坐标系统。而且设置坐标的方式有几种，我这次用Scale方法自定义设置坐标系。第二个，就是直线控件的用法，直线怎么代替钟的指针围绕中心转动，我想到了用直线代替钟的指针，但是我不知道怎么让他围绕中心转动，在我vb教材书上也没有例子系统的讲解，只是笼统的概括了一下，这我只有到图书馆去借一本有关这方面的书籍。了解到直线有两端，各有坐标属性，知道这点就好办多了，然后就根据现实时钟的常识了解到，让直线一端坐标固定设置在坐标原点，然后另一端围绕坐标原点转动，这就模拟出用直线控件代替时钟指针转动的过程。还有一个问题就是怎么直线以现实时钟那样速度围绕原点转动，这也

5、是一个难点，这就需要时间控件Timer来设置速度。还有用Lebel8来显示完整的系统日期。用画矩形来代替时钟的边框。设置好各控件和窗体的颜色等属性。反复运行稍微修改几次做出这个模拟时钟程序。8第三章关键实现技术本程序运用到了Timer1控件及其众多属性，通过Timer1_Timer()时间和Interval属性控制时钟指针的转动。另外还定义了坐标系和系统时间日期等等。程序源代码：Constpi=3.141592654PrivateSubForm_Load()'自定义坐标x=form1.ScaleWidth/2y=form1.ScaleHeight/2form1.Scale(-x,

6、y)-(x,-y)'标表盘上的数字form1.CurrentX=1600*Sin(pi/6-0.05):form1.CurrentY=1600*Cos(pi/6):form1.Print"1"form1.CurrentX=1600*Sin(pi/3-0.05):form1.CurrentY=1600*Cos(pi/3):form1.Print"2"form1.CurrentX=1600:form1.CurrentY=120:form1.Print"3"form1.CurrentX=1600*Sin(pi*(2/3)+0.07):form1.CurrentY=1600*Cos(pi

7、*(2/3)-0.07):form1.Print"4"form1.CurrentX=1600*Sin(pi/2+pi/3+0.07):form1.CurrentY=1600*Cos(pi*(5/6)-0.07):form1.Print"5"form1.CurrentX=-70:form1.CurrentY=-1600:form1.Print"6"form1.CurrentX=1600*Sin(pi*(7/6)+0.07):form1.CurrentY=1600*Cos(pi*(5