Question

VB指针式时钟

实现基本要求代码: 约200行  主要涉及: 基本控件、算法和文件的操作基本要求设计一个带信息提示功能的日历程序。详细要求如下：n        要求用Visual Basic对象的思想来完成程序的设计。n        按照图例设计出相应的界面。n        在设计程序的过程中，要求会使用按钮(commandbutton)、文本框(text)、标签(label)、形状（shape）等基本控件的属性、方法和相关事件。n        使用line方法画线模拟指针。n        要求在设计中使用系统提供的方法显示指针(时针、分针、秒针),程序运行中三个指针能够随时间的进度移动，三个指针相对位置正确，能够正确指示时间。n        完成的程序界面要美观，除基本显示时间基本功能外，至少还应有定时呼叫功能。3.创新要求在基本要求达到后，进行创新设计，如可以用鼠标直接拨动指针设置时间，显示日期等等。三、设计方法和基本原理1. 问题描述使用指针方式时钟显示当前时间，具有圆形的钟面，上标有表示时间的数字1-12。分别用三个指针指示时间的时、分、秒。用户可以通过文本框输入时间，实现闹钟的功能。 2. 问题的解决方案①使用工具箱中的shape控件构造时钟的圆形表盘，表盘上的标志1-12用label完成。②通过窗体的line方法构造表示时、分、秒的三个指针（应具有不同的颜色和长度）。 ③通过timer控件得到系统时间，并且根据在不同的时间段指针所在的不同位置确定line方法画线的不同坐标点，实现指针的移动与系统时间的同步。四、主要技术问题的描述根据以上分析，可知确定指针的实时位置是关键问题，分析如下：以秒针为例，设秒针长度为10，变量sec表示秒，timer控件每1秒触发一次，用line方法实现指针，每一秒确定一次line方法画线的起点和终点，以实现秒针每秒移动一次。窗体名称 frmClock。Private Sub Timer1_Timer()Const pi = 3.141592653Dim TDim X As IntegerDim Y As IntegerT = NowSEC = Second(T)X = 10 * Sin(SEC * pi / 30)Y = 10 * Cos(SEC * pi / 30)frmClock.Line (0, 0)-(X, Y)    End Sub 

Answer 1

一分不给 这么大的作业 谁给你做
这个我以前做过 不是太难
说下思路吧
时钟直接定坐标画线
闹钟用条件判断
波动用mousedown 事件 和mousemove 事件完成
不是很难 没分不做

Answer 2

这个也太难了吧