【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“VB程序设计报告大作业 - 计算机理论”一文，供大家参考学习!

题目 迷你时钟 班级 机械10802 姓名 郭 强 序号 0 5 完成日期 2010 12 19 一、课题的选材过程 由于VB强大的设计功能而自己所学的知识有限再结合自己个人的兴趣爱好与能力考虑再三最后决定设计一个简单的电子时钟以实现查看时间与日期的功能。

     设计思路 1.界面设计 电子时钟界面需要一个标签shape3-circle作为显示然后需要显示1. 2. 3……12个数字和一个显示日期的Label控件最后加上3个Line控件和一个退出程序的cmdExit控件即可 2.程序基本思路 本程序通过8个Label控件3个Line控件1个Shape控件1个Timer以及一个Command1控件实现电子时钟的查看时间以及日期的功能。

    首先画好时钟的界面图然后通过VB源代码实现时钟计时计日期的功能。

    最后给程序编写一个关闭程序的功能写上自己的祝福即完成了任务 二、设计将要达到的目标 用一个窗体模块完成模仿市面简单时钟的功能。

    每60秒走一分钟每60分钟走一小时。

    同时增添显示日期的功能 三、总体设计结构 1. 总体设计结构介绍设计结构图。

     2. 主要功能模块运行界面的介绍 四、设计结果 生成可执行程序运行结果 五、设计总结 由于本人水平有限所以这个程序还是蛮简单的。

    感觉还可以在此基础上进一步丰富它的功能。

    比如说增加个整点报时的功能 添加更好看的背景图 或者更为精彩的其他内容等等。

    通过本次编程尤其是在自己独立完成这个VB小程序后对VB的了解更加深了一步。

    深刻体会到VB是基于对象的可视化设计工具。

    通过各种控件的组合实现了预想的功能。

    开始学习VB时感觉真的很难根本就不懂可是在经过亲自上机实验尤其是独立做了一个小程序后对于VB才算有了一点真正意义上的了解。

    同时也希望自己的编程水平在日后能够更上一层楼 六 附录 各控件属性图 12 - Label 1 9 - Label 2 6 - Label 3 其他数字- Label 4 Label 5 Label 6日期 Label 7 Label 8 退出按钮 Timer1 Shape LineS LineM LineH 源程序如下 Const PI 3.14159 Dim Len_S As Single Dim Len_M As Single Dim Len_H As Single Private Sub cmdExit_Click End End Sub Private Sub Form_Load Len_S SqrLineS.Y2 - LineS.Y1 2 LineS.X2 - LineS.X1 2 Len_M SqrLineM.Y2 - LineM.Y1 2 LineM.X2 - LineM.X1 2 Len_H SqrLineH.Y2 - LineH.Y1 2 LineH.X2 - LineH.X1 2 Call Timer1_Timer End Sub Private Sub Label5_Click End Sub Private Sub Timer1_Timer Dim s As Single Dim m As Single Dim h As Single Form1.Caption Time s SecondTime m MinuteTime h HourTime m / 60 LineS.X2 LineS.X1 Len_S SinPI s / 30 LineS.Y2 LineS.Y1 - Len_S CosPI s / 30 LineM.X2 LineM.X1 Len_M SinPI m / 30 LineM.Y2 LineM.Y1 - Len_M CosPI m / 30 If h 12 Then h h - 12 LineH.X2 LineH.X1 Len_H SinPI h / 6 LineH.Y2 LineH.Y1 - Len_H CosPI h / 6 Label6.Caption FormatDate yyyy-mm-dd End Sub