- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vb时钟课程的设计的报告模拟时钟
课程设计报告
课程设计题目:模拟时钟
学生姓名:
专 业: 软件工程
班 级:
学 号:
指导教师:
2012年 6 月 13日
东华理工大学
课程设计评分表
学生姓名: 班级: 学号:
课程设计题目:模拟时钟
项目内容 满分 实 评 选
题 能结合所学课程知识、有一定的能力训练。符合选题要求
(5人一题) 10 工作量适中,难易度合理 10 能
力
水
平 能熟练应用所学知识,有一定查阅文献及运用文献资料能力 10 理论依据充分,数据准确,公式推导正确 10 能应用计算机软件进行编程、资料搜集录入、加工、排版、制图等 10 能体现创造性思维,或有独特见解 10 成
果
质
量 总体设计正确、合理,各项技术指标符合要求。 10 说明书综述简练完整,概念清楚、立论正确、技术用语准确、结论严谨合理;分析处理科学、条理分明、语言流畅、结构严谨、版面清晰 10 设计说明书栏目齐全、合理,符号统一、编号齐全。 格式、绘图、表格、插图等规范准确,符合国家标准 10 有一定篇幅,字符数不少于5000 10 总 分 100 指导教师评语:
指导教师签名:
年 月 日
目 录
第一章 题意分析…………………………………………………3
第二章 工作日志…………………………………………………4
第三章 关键实现技术……………………………………………6
第四章 设计小结…………………………………………………8
第一章 题意分析
VB是面向对象的程序设计语言,VB具有强大的设计功能,而自己所学的知识有限,再结合自己个人的兴趣爱好与能力,经过再三考虑,最后决定了制作模拟时钟的大致方向。首先界面设计1个Timer、2个Label、3个Line控件实现电子时钟的查看时间以及日期的功能。设置好主要控件后,然后用这些控件来实现模拟时钟的功能,通过vb代码实现。最后达到一个窗体模块,完成模拟现实时钟的功能。设置符合现实每60秒走一分钟,每60分钟走一个小时,同时添加显示完整日期的功能。
工作日志
由于这次是重修VB,以前学的也忘的差不多了,然后一个人这几天奋发的看完了原来的教材。
这次碰到了好多不会的地方,然后一个一个被我解决了,做出了这个简单的模拟时钟。首先窗体的坐标系都不了解,先后查了资料,窗体的坐标系有几种,即默认坐标系统、用户自定义坐标系统。而且设置坐标的方式有几种,我这次用Scale方法自定义设置坐标系。第二个,就是直线控件的用法,直线怎么代替钟的指针围绕中心转动,我想到了用直线代替钟的指针,但是我不知道怎么让他围绕中心转动,在我vb教材书上也没有例子系统的讲解,只是笼统的概括了一下,这我只有到图书馆去借一本有关这方面的书籍。了解到直线有两端,各有坐标属性,知道这点就好办多了,然后就根据现实时钟的常识了解到,让直线一端坐标固定设置在坐标原点,然后另一端围绕坐标原点转动,这就模拟出用直线控件代替时钟指针转动的过程。还有一个问题就是怎么直线以现实时钟那样速度围绕原点转动,这也是一个难点,这就需要时间控件Timer来设置速度。还有用Lebel来显示完整的系统日期。用画矩形来代替时钟的边框。设置好各控件和窗体的颜色等属性。反复运行稍微修改几次做出这个模拟时钟程序。
第三章 关键实现技术
本程序运用到了Timer1控件及其众多属性,通过Timer1_Timer()时间和Interval属性控制时钟指针的转动。另外还定义了坐标系和系统时间日期等等 。
程序源代码:
Const pi = 3.141592654
Private Sub Form_Load()
自定义坐标
x = form1.ScaleWidth / 2
y = form1.ScaleHeight / 2
form1.Scale (-x, y)-(x, -y)
标表盘上的数字
form1.CurrentX = 1600 * Sin(pi / 6 - 0.05): form1.Cur
文档评论(0)