模拟时钟的VB程序
VB编写漂亮的时钟之欧阳学创编
首先打开vb6.0,新建一个工程,在窗体中放一个imagebox控件然后在其中放一个timer控件再就是一个直线控件数组注意要把imagebox中的stretch属性改为true,直线控件数组是14个,要注意下面是我和程序代码,有一些注解的希望能对大家有帮助Private Sub Form_Load() '设置窗体和计时器参数Timer1.Interval = 100 '设置计时器事件间隔是1/10秒Width = 4000Height = 4000Left = Screen.Width \ 2 2000Top = (Screen.Height Height) \ 2End SubPrivate Sub Form_Resize() '启动时和改变窗体时设置刻度和指针Dim i, angleFor i = 0 To 13Line1(i).Visible = TrueLine1(i).BorderWidth = 4If i = 0 Or i > 12 ThenLine1(i).BorderColor = RGB(0, 0, 128)ElseLine1(i).BorderColor = RGB(0, 128, 0)End IfNext iLine1(12).BorderColor = RGB(128, 256, 128)Line1(9).BorderColor = RGB(256, 128, 128)Line1(6).BorderColor = RGB(128, 0, 256)Line1(3).BorderColor = RGB(0, 0, 255)Line1(13).BorderColor = RGB(255, 0, 255)Line1(0).BorderWidth = 5 '时针的粗细Line1(14).BorderWidth = 2 '分针的粗细Line1(i).BorderColor = RGB(256, 0, 0)For i = 0 To 14Scale (1, 1)(1, 1) '画出表盘12个点和时,分.秒15条线angle = i * 2 * Atn(1) / 3Line1(i).X1 = 0.9 * Cos(angle)Line1(i).Y1 = 0.9 * Sin(angle)Line1(i).X2 = Cos(angle)Line1(i).Y2 = Sin(angle)Next iEnd SubPrivate Sub Timer1_Timer()Const hh = 0Const mh = 13Const sh = 14Dim angleStatic lsIf Second(Now) = ls Then Exit Sub '机器时钟停止程序退出ls = Second(Now)angle = 0.5236 * (15 (Hour(Now) + Minute(Now) / 60)) '时钟转动设置Line1(hh).X1 = 0Line1(hh).Y1 = 0Line1(hh).X2 = 0.3 * Cos(angle)Line1(hh).Y2 = 0.3 * Sin(angle)angle = 0.1047 * (75 (Minute(Now) + Second(Now) / 60)) '分钟转动设置Line1(mh).X1 = 0Line1(mh).Y1 = 0Line1(mh).X2 = 0.7 * Cos(angle)Line1(mh).Y2 = 0.7 * Sin(angle)angle = 0.5236 * (75 Second(Now) / 5) '秒钟转动设置Line1(sh).X1 = 0Line1(sh).Y1 = 0Line1(sh).X2 = 0.8 * Cos(angle)Line1(sh).Y2 = 0.8 * Sin(angle)Form1.Caption = Str(Now()) '窗口显示日期和时间End Sub。
利用VB实现动态时钟的算法分析
利用VB实现动态时钟的算法分析
动态时钟是指一个数字时钟能够自动更新时间，在计算
机程序中，可以使用VB来实现动态时钟。
具体实现的算法
如下：
1. 在VB中，需要创建一个窗体(Form)来展示动态时钟。
在窗体的Load事件中，可以初始化时钟的显示格式。
2. 在窗体的Timer事件中，需要更新时钟的时间。
可
以使用VB的内置函数Now()来获取当前时间。
同时，可以
使用Format函数将时间格式化为小时、分钟和秒。
3. 将格式化后的时间赋值给时钟控件的Text属性，以
更新显示的时间。
4. 为了使时钟能够动态更新，需要将Timer控件的Enabled属性设置为True。
同时，在窗体的Unload事件中，需要将Timer控件的Enabled属性设置为False，以避免程
序内存泄漏。
5. 可以通过调整Timer控件的Interval属性，来控制
时钟更新的频率。
通常，将Interval设置为1000(毫秒)即
可实现每秒钟更新一次。
6. 如果需要增加其他功能，如设置闹钟、倒计时等，
可以在时钟更新的方法中增加相应的代码实现。
综上，通过VB内置函数的使用以及时钟控件的更新，
就可以轻松地实现动态时钟的功能。
只需要根据实际需求，添加相应的代码实现即可。
VB时钟（精选多篇）
VB时钟（精选多篇）第一篇：VB时钟二零零九年五月目录摘要...............................................................................i 第1章概述. (1)1.1 引言..........................................................................1 1.2 设计平台......................................................................1 第2章开发工具简介 (2)2.1 VisualBasic6.0简介............................................................2 2.2 运用的控件和主要对象..........................................................2 第3章设计实现 (6)3.1画时钟表盘上的所有直线元素 (6)3.2修改时针的形状.................................................................6 3.3计时器的Interval(间距)属性设置................................................6 3.4软件代码.......................................................................7 第4章总结.. (16)4.1 结论.........................................................................16 4.2 心得体会.....................................................................16 参考文献.. (17)-i第1章概述1.1 引言visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。
vb时钟模拟课程设计
vb时钟模拟课程设计一、课程目标知识目标：1. 学生理解时钟的基本原理和VBA中计时器的使用方法；2. 学生掌握运用VBA编程实现简单的时钟模拟程序；3. 学生了解时间格式处理及界面设计的基本方法。
技能目标：1. 学生能够运用VBA编程语言，独立编写一个具有基本计时功能的时钟模拟程序；2. 学生能够通过调试程序，解决编程过程中遇到的问题；3. 学生能够设计并优化用户界面，提高用户体验。
情感态度价值观目标：1. 培养学生对编程的兴趣和热情，激发学生主动探索的精神；2. 培养学生面对问题的耐心和毅力，提高解决问题的自信心；3. 培养学生的团队协作意识，让学生在合作中共同进步。
本课程针对的是有一定编程基础的学生，通过vb时钟模拟课程设计，使学生将所学知识应用于实际项目中，提高学生的编程能力和实践操作能力。
同时，注重培养学生的情感态度价值观，激发学生的学习兴趣，为学生的未来发展奠定基础。
在教学过程中，注重学生个体差异，关注学生实际操作，将课程目标分解为具体可衡量的学习成果，以便进行有效的教学设计和评估。
二、教学内容1. 时钟原理讲解：介绍时钟的基本构成和计时原理，使学生理解时间计算的基础知识。
2. VBA编程基础：回顾VBA编程的基本语法，强调变量定义、数据类型、运算符、控制结构等知识点。
3. 计时器使用：讲解VBA中Timer控件的使用方法，包括计时器事件处理、时间更新等。
- 教材章节：第五章第三节“VBA中的控件使用”4. 编写时钟模拟程序：指导学生运用所学知识，编写具有基本计时功能的时钟模拟程序。
- 教材章节：第四章“VBA编程基础”及第五章“VBA控件应用”5. 时间格式处理：介绍时间格式处理方法，使学生能够将时间以直观的方式显示在界面上。
- 教材章节：第六章第二节“字符串函数和时间日期函数”6. 界面设计：讲解简单界面设计原则，引导学生优化时钟模拟程序的用户界面。
- 教材章节：第五章第二节“用户界面设计”在教学过程中，按照以上教学内容安排和进度，结合教材相关章节，确保学生系统、科学地掌握vb时钟模拟的相关知识。
用VB制作一个动态时钟（转载）
用VB制作一个动态时钟（转载）[原理]使用了LINE控件用来表示指针，根据粗细不同，分别为时、分、秒针，每个LINE都有2个点的坐标，一个点是原点，也就是表盘的最中心点，另一个点根据当前的时间计算从而决定。
然后通过TIMER控件，每隔1秒计算一次进行刷新，即可以实现。
[实现]一、新建立一个工程，在默认的窗体上添加以下三个LINE控件和一个TIMER控件，添加以下界面如下：二、在代码最上面建立全局变量，用于保存时钟原点：Dim x0 As SingleDim y0 As Single三、在窗体的FORM_LOAD事件中添加如下代码：Private Sub Form_Load()With Form1.Width = 3000.Height = 3100.BackColor = vbBlack.Caption = '动态时钟'End Withx0 = 1430y0 = 1290With Line1.X1 = x0.Y1 = y0End WithWith Line2.X1 = x0.Y1 = y0End WithWith Line3.X1 = x0.Y1 = y0End WithLine1.Visible = FalseLine2.Visible = FalseLine3.Visible = FalseLine1.BorderColor = vbRedLine2.BorderColor = vbRedLine3.BorderColor = vbRedEnd Sub四、在Timer的Timer事件中添加如下代码Private Sub Timer1_Timer()Text1.Text = DateLine1.Visible = TrueLine2.Visible = TrueLine3.Visible = TrueDim R0 As IntegerR0 = 1200R1 = 1000: R2 = 850: R3 = 600'画12个大圈子For i = 1 To 12X1 = x0 + R0 * Sin((i * 30) * 3.1415926 / 180)Y1 = y0 + R0 * Cos((i * 30) * 3.1415926 / 180)Circle (X1, Y1), 30, vbBlueNext i'画60个小圈子For i = 1 To 60X1 = x0 + R0 * Sin((i * 6) * 3.1415926 / 180)Y1 = y0 + R0 * Cos((i * 6) * 3.1415926 / 180)Circle (X1, Y1), 10, vbBlueNext i'秒针With Line1.X2 = x0 - R3 * Sin(-(Hour(Now) * 30 + Minute(Now) * 0.5) * 3.1415926 / 180).Y2 = y0 - R3 * Cos(-(Hour(Now) * 30 + Minute(Now) * 0.5) * 3.1415926 / 180)End With'分针With Line2.X2 = x0 - R2 * Sin(-(Minute(Now) * 6) * 3.1415926 / 180).Y2 = y0 - R2 * Cos(-(Minute(Now) * 6) * 3.1415926 / 180)End With'时针With Line3.X2 = x0 - R1 * Sin(-(Second(Now) * 6) * 3.1415926 / 180) .Y2 = y0 - R1 * Cos(-(Second(Now) * 6) * 3.1415926 / 180) End WithCircle (x0, y0), 20, vbWhiteEnd SubOK，至此大功告成，点击F5，就可以看到运行结果了。
用vb实现指针时钟的制作
用vb实现指针时钟的制作1、自定义坐标，让坐标原点在中心位置。
2、获取系统时间，使用函数time获取当前系统时间，而时、分、秒分别用以下函数Hour(Time)Minute(Time)Second(Time)可以用h,m,s三个变量分别存储系统当前的时、分、秒3、钟面的绘制，钟面上任意一点A的坐标A点坐标如下:X=ρcos(α)Y=ρsin(α)绘制钟面上的点3、指针的另一点的的x,y坐标的计算分析：若指针在第一象限，则B点坐标如下：X=ρcos(α)Y=ρsin(α)∵α+θ=π/2∴α=π/2 -θ∴x=ρCos(α)= ρcos(π/2 -θ)y=ρsin(α) =ρsin(π/2 -θ)若指针在第四象限，则有：∵α+θ=π/2+2π∴α=π/2+2π-θ又∵设α为任意角，终边相同的角的同一三角函数的值相等：sin（2kπ＋α）= sinαcos（2kπ＋α）= cosα∴x=ρcos(α)= ρcos(π/2+2π-θ)= ρcos(π/2 -θ) y=ρsin(α)= ρsin(π/2+2π-θ)= ρsin(π/2 -θ)同理，可以证明指针端点的坐标在二、三象限上也存在以下的关系：x=ρcos(π/2 -θ)y=ρsin(π/2 -θ)即对于时刻的指针端点的坐标均符合以下的表达式x=ρcos(π/2 -θ)y=ρsin(π/2 -θ)又∵秒针转动的角度值：θ=π/30*s∴秒针端点的坐标为x=ρcos(π/2 -π/30*s)y=ρsin(π/2 -π/30*s)同理，分针端点的坐标为x=ρcos(π/2 -π/30*m)y=ρsin(π/2 -π/30*m)同理，时针端点的坐标为x=ρcos(π/2 -π/6*s)y=ρsin(π/2 -π/6*s)。
模拟时钟的VB程序讲解
沈阳航空航天大学课程设计学号2009040301055班级94030102姓名李超指导教师刘学平2010 年3 月15 日沈阳航空航天大学课程设计任务书学院：航空宇航工程学院专业：飞行器制造班级：94030102学号：2009040301055 题目：模拟时钟一、课程设计时间2011年3月7日~11日（第1周），共计1周。
二、课程设计内容在窗体上演示一个正在工作的有时、分、秒指针的时钟，要求：可以对时钟的时间进行手工修正。
用户界面中的菜单（或命令按钮）至少应包括“运行时钟”、“修改时间”、“退出”3项。
三、课程设计要求程序质量：✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：✧课设结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字指导教师：________ 学生签名：________五、成绩六、教师评语目录一、需求分析 (4)二、设计分析 (5)三、关键技术 (7)四、总结 (12)五、完整的源程序 (14)六、参考文献 (16)一、需求分析“模拟时钟”软件。
在窗体上演示一个正在工作的有时、分、秒指针的时钟，要求：可以对时钟的时间进行手工修正。
用户界面中的菜单（或命令按钮）至少应包括“运行时钟”、“修改时间”、“退出”3项。
①在VB窗体Form1中设计模拟时钟表盘，设计四个按钮：运行时钟、修改时间、应用、退出。
在窗体Form2中设计填输入时间的位置和两个按钮：重新输入、确定。
②用运行时钟按钮使时钟从零点开始运行。
③利用修改时间按钮在Form2中输入合理时间，单击确定后单击应用使模拟时钟按所需时间开始运行。
④Form2中重新输入按钮可以使所有Text控件清空，可以进行时间的重新输入。
⑤程序可以实现时钟指针的转动。
二、设计分析（1）基本原理：设计表盘，利用勾股定理实现时钟的转动，通过两个窗体的配合实现修改时间的功能，使模拟时钟能像正常时钟一样运行。
VB第二章 VB 2010初步——电子时钟程序
任务2.2 学习类和对象
2.2.2 属性、方法和事件
3. 对象的事件 例在如VB：V2为B01窗200中体10，编采编写用写L事o事a件d件事驱处件动理，机程使制序窗，的体所步在谓骤运事如行件下时，：，就背是景对色象自发动送变的为消绿息色，。
表示特定操作的发生。操作可能是由用户交互（例如鼠标单击或键盘 （（按11下）））在单引窗击起体选的设择，计要也器编可中写能单事是击件由选处某中理些窗程其体序他。的的窗程体序、逻控辑件触、发组的件（等如对启象动。窗体 （（）22。））比打在如开“，属属我性性们窗窗单口口击，”“单中开击单始“击”事事按件件钮”按，按钮“钮。开。始”菜单就会打开，我们双 （（（（ （ （击应345345“ 用） ） ））））我户在输在单 输 在的触V事入V击入SS电发件程自要名自脑的列序动编称动”事表名生写，打图件中称成处并开标，找C的理回的h，做到L程车a代on“出L序 （ag码ode我相a的 或事编Gd的应r事 双事件辑e电的e件 击件处器n脑响，。 左，理中”应并侧单方编窗处回事击法写口理车件选中处就就。名中编理会称称该写代打为）事如码开事。件下。。件。处这驱理种动代通机码过制。随。时响 编写完成，按F5键运行程序，可以看到窗体在启动时背景色变为绿色。
一个解决方案中可以包含多个项目问题，本例中VS 2010就生成了名为 Clock.sln的解决方案。
任务2.3 编写电子时钟程序
2.3.2 Windows应用程序结构
2．项目文件 VS 2010在创建项目时，自动生成了一些文件，这些文件存放在项
目指定的文件夹下。在解决方案资源管理器中，我们可以看到这些文 件。解决方案下方的Clock文件被称为项目文件，包含了项目一些基本 信息，它的扩展名是.vbproj。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
沈阳航空航天大学课程设计任务书学院：航空宇航工程学院专业：飞行器制造班级：94030102学号：2009040301055 题目：模拟时钟一、课程设计时间2011年3月7日~11日（第1周），共计1周。
二、课程设计内容在窗体上演示一个正在工作的有时、分、秒指针的时钟，要求：可以对时钟的时间进行手工修正。
用户界面中的菜单（或命令按钮）至少应包括“运行时钟”、“修改时间”、“退出”3项。
三、课程设计要求程序质量：✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：✧课设结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字指导教师：________ 学生签名：________五、成绩六、教师评语目录一、需求分析 (4)二、设计分析 (5)三、关键技术 (7)四、总结 (12)五、完整的源程序 (14)六、参考文献 (16)一、需求分析“模拟时钟”软件。
在窗体上演示一个正在工作的有时、分、秒指针的时钟，要求：可以对时钟的时间进行手工修正。
用户界面中的菜单（或命令按钮）至少应包括“运行时钟”、“修改时间”、“退出”3项。
①在VB窗体Form1中设计模拟时钟表盘，设计四个按钮：运行时钟、修改时间、应用、退出。
在窗体Form2中设计填输入时间的位置和两个按钮：重新输入、确定。
②用运行时钟按钮使时钟从零点开始运行。
③利用修改时间按钮在Form2中输入合理时间，单击确定后单击应用使模拟时钟按所需时间开始运行。
④Form2中重新输入按钮可以使所有Text控件清空，可以进行时间的重新输入。
⑤程序可以实现时钟指针的转动。
二、设计分析（1）基本原理：设计表盘，利用勾股定理实现时钟的转动，通过两个窗体的配合实现修改时间的功能，使模拟时钟能像正常时钟一样运行。
（2）总体设计：图1 总体设计（3）详细设计：图2 详细设计（4）表盘设计：图3 表格三、关键技术1实现指针的转动Private Sub Timer1_Timer()Static s!, m!, h!s = s + 1m = s / 60h = m / 60LineS.X2 = LineS.X1 + a * Sin(s * 6 * pai / 180)LineS.Y2 = LineS.Y1 - a * Cos(s * 6 * pai / 180)LineM.X2 = LineM.X1 + b * Sin(m * 6 * pai / 180) LineM.Y2 = LineM.Y1 - b * Cos(m * 6 * pai / 180)LineH.X2 = LineH.X1 + c * Sin(h * 30 * pai / 180)LineH.Y2 = LineH.Y1 - c * Cos(h * 30 * pai / 180)End Sub '使时钟从初始位置开始工作图42 Form1与Form2的连接（1）显示Form2Private Sub Command2_Click()Timer2.Interval = 0Timer1.Interval = 0Form2.Show '关闭定时器1、定时器2，对时间进行手工修改End Sub图5(2)Form2隐藏Private Sub Command1_Click()If Val(Text1.Text) > 24 Or Val(Text1.Text) < 0 Or Val(Text2.Text) > 60 Or Val(Text2.Text) < 0 Or Val(Text3.Text) > 60 Or Val(Text3.Text) < 0 Then MsgBox "请输入合理时间": Text1.Text = "": Text2.Text = "": Text3.Text = "" '数据不合理时弹出提示ElseForm1.ShowForm2.Hide '读取到修改后的时间数据并关闭窗体2 End IfEnd Sub注：输入的时间不合理会弹出提示，输入时间为空时也会弹出提示图6 图73.修改的时间数据的读取与运行Private Sub Command4_Click()If Form2.Text1.Text = "" Or Form2.Text2.Text = "" Or Form2.Text3.Text = "" ThenMsgBox "请输入准确时间": Form2.Show '提示用户输入准确时间ElseTimer2.Interval = 1000: s = Form2.Text3.Text - 1 '激活定时器2 End IfEnd SubPrivate Sub Timer2_Timer()s = s + 1m = Form2.Text2.Text + s / 60h = Form2.Text1.Text + m / 60LineS.X2 = LineS.X1 + a * Sin(s * 6 * pai / 180)LineS.Y2 = LineS.Y1 - a * Cos(s * 6 * pai / 180)LineM.X2 = LineM.X1 + b * Sin(m * 6 * pai / 180)LineM.Y2 = LineM.Y1 - b * Cos(m * 6 * pai / 180)LineH.X2 = LineH.X1 + c * Sin(h * 30 * pai / 180)LineH.Y2 = LineH.Y1 - c * Cos(h * 30 * pai / 180)End Sub '使时钟在修改时间后开始四、总结本次课程设计我的任务是运用VB设计一个模拟时钟，包含运行时钟、修改时间、应用、退出等功能。
程序需要两个窗体、两个Timer控件以及四个按钮控件：运行时钟、修改时间、应用、退出。
可实现与正常时钟相同的运行速度。
可以进行手动的修改、运行时钟。
还可以对用户输入的时间数据进行判断。
在此次课设过程中，设计界面使我了解到手工绘图方面的一些控件，现在可以进行熟练的运用。
Timer控件的运行方法让我用尽了心思，对于指针的初始位置的设置，我运用到了控件的尺寸，指针的长度设置我运用到了勾股定理，为了美观和人性化处理对各个功能之间的显示与切换我下个很大功夫。
VB的设计过程让我深刻认识到知识的有用之处，这是一个即动手又动脑的一次实习。
让我意识到VB的魅力所在，它使我们能形象的了解到生活中的一些具体事物，使我们锻炼了自己的动手能力，发挥了自己的智慧。
让我们发现自己的不足，认识到更多我们所没有触及的知识。
虽然这次设计出现很多困难的，但是在老师和学生的帮助下我终于做出来了，我感到很开心，毕竟是自己的劳动成果。
很高兴可以完成这次课设，它让我懂得只有努力才有收获。
五、完整的源程序Private Sub Command3_Click()End '结束程序End SubPrivate Sub Command4_Click()If Form2.Text1.Text = "" Or Form2.Text2.Text = "" Or Form2.Text3.Text = "" ThenMsgBox "请输入准确时间": Form2.Show '提示用户输入准确时间ElseTimer2.Interval = 1000: s = Form2.Text3.Text - 1 '激活定时器2 End IfEnd SubPrivate Sub Form_Load()LineS.X1 = Shape1.Left + Shape1.Width / 2LineS.Y1 = Shape1.Top + Shape1.Height / 2LineS.X2 = LineS.X1LineS.Y2 = Shape1.Top + 150 '设置秒针初始位置LineM.X1 = LineS.X1LineM.Y1 = LineS.Y1LineM.X2 = LineM.X1LineM.Y2 = Shape1.Top + 260 '设置分针初始位置LineH.X1 = LineS.X1LineH.Y1 = LineS.Y1LineH.X2 = LineH.X1LineH.Y2 = Shape1.Top + 500 '设置时针初始位置a = Sqr((LineS.X1 - LineS.X2) ^ 2 + (LineS.Y1 - LineS.Y2) ^ 2)b = Sqr((LineM.X1 - LineM.X2) ^ 2 + (LineM.Y1 - LineM.Y2) ^ 2)c = Sqr((LineH.X1 - LineH.X2) ^ 2 + (LineH.Y1 - LineH.Y2) ^ 2) '设置指针长度LineS.BorderColor = vbBlackLineS.BorderWidth = 1LineM.BorderColor = vbBlueLineM.BorderWidth = 2LineH.BorderColor = vbRedLineH.BorderWidth = 3 '设置指针的颜色和粗细End SubPrivate Sub Timer1_Timer()Static s!, m!, h!s = s + 1m = s / 60h = m / 60LineS.X2 = LineS.X1 + a * Sin(s * 6 * pai / 180)LineS.Y2 = LineS.Y1 - a * Cos(s * 6 * pai / 180)LineM.X2 = LineM.X1 + b * Sin(m * 6 * pai / 180)LineM.Y2 = LineM.Y1 - b * Cos(m * 6 * pai / 180)LineH.X2 = LineH.X1 + c * Sin(h * 30 * pai / 180)LineH.Y2 = LineH.Y1 - c * Cos(h * 30 * pai / 180)End Sub '使时钟从初始位置开始工作Private Sub Timer2_Timer()s = s + 1m = Form2.Text2.Text + s / 60h = Form2.Text1.Text + m / 60LineS.X2 = LineS.X1 + a * Sin(s * 6 * pai / 180)LineS.Y2 = LineS.Y1 - a * Cos(s * 6 * pai / 180)LineM.X2 = LineM.X1 + b * Sin(m * 6 * pai / 180)LineM.Y2 = LineM.Y1 - b * Cos(m * 6 * pai / 180)LineH.X2 = LineH.X1 + c * Sin(h * 30 * pai / 180)LineH.Y2 = LineH.Y1 - c * Cos(h * 30 * pai / 180)End Sub '使时钟在修改时间后开始工作六、参考文献[1] 刘瑞新．《Visual Basic程序设计教程》.北京：机械工业出版社，2003[2] 龚沛增.《Visual Basic程序设计教程》.清华大学出版社，2004[3]吴凤翔.《Visual Basic程序设计教程》.中国林业出版社，2002-11。