模拟时钟的VB程序.docx

上传人:p** 文档编号:492707 上传时间:2023-09-19 格式:DOCX 页数:17 大小:167.39KB
下载 相关 举报
模拟时钟的VB程序.docx_第1页
第1页 / 共17页
模拟时钟的VB程序.docx_第2页
第2页 / 共17页
模拟时钟的VB程序.docx_第3页
第3页 / 共17页
模拟时钟的VB程序.docx_第4页
第4页 / 共17页
模拟时钟的VB程序.docx_第5页
第5页 / 共17页
模拟时钟的VB程序.docx_第6页
第6页 / 共17页
模拟时钟的VB程序.docx_第7页
第7页 / 共17页
模拟时钟的VB程序.docx_第8页
第8页 / 共17页
模拟时钟的VB程序.docx_第9页
第9页 / 共17页
模拟时钟的VB程序.docx_第10页
第10页 / 共17页
亲,该文档总共17页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述

《模拟时钟的VB程序.docx》由会员分享,可在线阅读,更多相关《模拟时钟的VB程序.docx(17页珍藏版)》请在第壹文秘上搜索。

1、沈阳航空航天大学课程设计学号班级姓名指导教师94030102李超刘学平2010年3月15日沈阳航空航天大学课程设计任务书学院:航空宇航工程学院专业:飞行器创造班级:94030102学号:2022040301055题目:摹拟时钟一、课程设计时间2022年3月7日11日(第1周),共计1周。二、课程设计内容在窗体上演示一个正在工作的有时、分、秒指针的时钟,要求:可以对时钟的时间进行手工修正。用户界面中的菜单(或者命令按钮)至少应包括“运行时钟”、“修改时间”、“退出” 3项。三、课程设计要求程序质量:贯彻事件驱动的程序设计思想。用户界面友好,功能明确,操作方便;可以增加其它功能或者修饰。代码应适当

2、缩进,并给出必要的注释,以增强程序的可读性。课程设计说明书:课设结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师:学生签名:五、成绩六、教师评语沈航设计用纸目录一、需求分析二、设计分析三、关键技术四、总结五、完整的源程序六、参考文献沈航设计用纸 一、需求分析“摹拟时钟”软件。在窗体上演示一个正在工作的有 时、分、秒 指针的时钟,要求:可以对时钟的时间进行手工修正。用户界面中的菜 单(或者命令按钮)至少应包括“运 行时钟”、“修改时间”、“退 出” 3项。在VB窗体Fornl 1中设计摹拟时钟表盘,设计四个 按钮:运 行时钟、修改时间、应用、

3、退出。在窗体Fonn2中设计填输入时间的位 置和两个按钮:重新输入、确定。用运行时钟按钮使时钟从零点开始运行。利用修改时间按钮在Form2中输入合理时间,单击确定后单 击应用使摹拟时钟按所需时间开始运行。Form2中重新输入按钮可以使所有Text控件清空,可以进行 时间的重新输入。程序可以实现时钟指针的转动。、设计分析(1)基本原理:设计表盘,利用勾股定理实现时钟的转动,通过 两个窗体的配合实现修改时间的功能,使摹拟时钟能像正常时 钟一样运行。(2) 总体设计:(3)详细设计:图1总体设计图2详细设计(4 )表盘设计:图3表格三、关键技术1实现指针的转动Private Sub Timerl_T

4、imerO Static s!, m!, h!s = s + 1m = s / 60h = m / 60LineS.X2=LineS.Xl+ a* Sin(s*6*pai/ 180)LineS.Y2=LineS.Yl-a* Cos(s*6*pai/ 180)LineM.X2=LineM.Xl+ b* Sin(m*6*pai/ 180)LineM.Y2=LineM. Yl-b* Cos(m*6*pai/ 180)LineH.X2 = LineH.Xl + c * Sin(h * 30 * pai / 180)LineH. Y2 = LineH. Y l c * Cos(h * 30 * pai

5、/180)End Sub使时钟从初始位置开始工作2 Forml与Form2的连接(1)显示 Form2Private Sub Command2_Click()Timer2.Interval = 0TimerLInterval = 0Form2.Show 关闭定时器1、定时器2,对时间进行手工修改End Sub图5(2)Form2 隐藏Private Sub Command l_Click()If Val(TextLText) 24 Or Val(TextLText) 60Or Val (Text2. Text) 60 Or Val (Text3. Text) 0 Then MsgBox 请输入

6、合理时间Textl. Text = Text2. Text =,数据不合理时弹出提示ElseFormLShowForm2.Hide读取到修改后的时间数据并关闭窗体2End IfEnd Sub注:输入的时间不合理会弹出提示,输入时间为空时也会弹出提示图6沈航设计用纸3 ,修改的时间数据的读取与运行Private Sub Command4_Click ()If Form2.Textl.Text = Or Form2.Text2. Text = Or 请输入准确时间提示用户输入准确时间ElseTimer2.Interval = 1000: s = Form2.Text3.Tex 激活定时器 2End

7、 IfEnd SubPrivate Sub Timer2_Timer()s = s + 1m = Form2.Text2.Text + s / 60h = Form2.Textl.Text + m / 60LineS.X2 =LineS.Y2 =LineS.Xl +LineS.Yl -a * Sin(s * 6a * Cos(s * 6pai / 180)pai /180)LineM.X2 =LineM.Y2 =LineM.Xl +LineM.Yl -b * Sin(m * 6b * Cos(m * 6pai /180)pai / 180)LineH.X2 = LineH.Xl +c*Sin(

8、h*30*pai180)LineH.Y2 = LineH.Yl -c * Cos(h *30* pai/180)End Sub,使时钟在修改时间后开始四、总结本次课程设计我的任务是运用VB设计一个摹拟时钟,包含 运行时钟、修改时间、应用、退出等功能。程序需要两个窗体、两个TinIer控件以及四个按钮 控件: 运行时钟、修改时间、应用、退出。可实现与正常时钟相同的运 行速度。可以进行手动的修改、运行时钟。还可以对用户输入的 时间数据进行判断。在此次课设过程中,设计界面使我了解到手工绘图方面的一 些控件,现在可以进行熟练的运用。Tilner控件的运行方法让我 用尽了心思,对于指针的初始位置的设置,

9、我运用到了控件的尺 寸,指针的长度设置我运用到了勾股定理,为了美观和人性化处 理对各个功能之间的显示与切换我下个很大功夫。VB的设计过程让我深刻认识到知识的实用之处,这是一个 即动手又动脑的一次实习。让我意识到VB的魅 力所在,它使我 们能形象的了解到生活中的一些具体事物,使我们锻炼了自己的 动手能力,发挥了自己的智慧。让我们发现自己的不足,认识到 更多我们所没有触及的知识。虽然这次设计浮现不少艰难的,但是在老师和学生的匡助下 我终于做出来了,我感到很开心,毕竟是自己的劳动成果。很高 兴可以完成这次课设,它让我懂得惟独努力才有收获。五、完整的源程序Private Sub Command3_Cl

10、ick ()ElKr结束程序End SubPrivate Sub Command4_Click()If Form2.Textl.Text = Or Form2.Text2. Text = Or 请输入准确时间提示用户输入准确时间ElseTimer2.Interval = 1000: s = Form2.Text3.Tex 激活定时器 2End IfEnd SubPrivate Sub Form_Load()LineS.Xl = ShapeLLeft + ShapeLWidth / 2LineS.Yl = ShapeLTop + ShapeLHeight / 2LineS.X2 = LineS.

11、XlLineS.Y2 = ShapeLTop + 15(设置秒针初始位置LineM.Xl = LineS.XlLineM.Yl = LineS.YlLineM.X2 = LineM.XlLineM. Y2 = ShapeLTop + 260设置分针初始位置LineH.Xl = LineS.XlLineH.Yl = LineS.YlLineH.X2 = LineH.XlLineH.Y2 = ShapeLTop + 500设置时针初始位置a = Sqr(LineS.Xl - LineS.X2) b =2 (LineS.Yl LineS.Y2) A 2)Sqr(LineM.Xl - LineM.X2

12、)2 + (LineM.Yl LineM.Y2)人 2)c = Sqr(LineH. Xl - LineH. X2)指2 + (LineH. Yl . LineH.Y2)设置 2),针长唐LineS.BorderColor = vbBlackLineS.BorderWidth = 1LineM.BorderColor = vbBlueLineM. Border W idth = 2LineH-BorderColor = vbRedLineH.BorderWidth = 3设置指针的颜色和粗细End SubPrivate Sub Timerl_Timer()Static s!, m!, h!s

13、= s + 1m = s / 60h = m / 60LineS.X2=LineS.XlSin(sLineS.Y2=LineS.YlCos(sLineM.X=LineM.XlSin(m2=LineM. YlCos(LineH.X2=LineH.XlSin(hLineH.Y2 = LineH.Yl -cCos(hEnd Sub Private Sub Timer2_Timer()s = s + 1m = Form2.Text2.Text + s / 60 h =Form2.Textl.Text + m / 60LineS.X2 = LineS.Xl + a * Sin(s * 6LineS.Y2

14、 = LineS.Yl - a * Cos(s * 6LineM.X2 = LineM.X 1 + b * Sin(m * (LineM.Y2 = LineM.Yl b * Cos(m * LineH.X2 = LineH.Xl + c * Sin(h * LineH.Y2 = LineH.Yl - c * Cos(h * End Subpai 180)pai 180)pai 180)pai 180)30* pai/180)30* pai/180),使时钟从初始位置开始工作* pai/180)* pai /180)* pai/180)6 * pai /180)30* pai/180)30* pai /180)使时钟在修改时间后开始工作六、参考文献1刘瑞新Visual Basi程序设计教程.北京:机械工业出版社,20032龚沛增.Visual Basi程序设计教程,清华大学出版

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > IT计算机 > 数据结构与算法

copyright@ 2008-2023 1wenmi网站版权所有

经营许可证编号:宁ICP备2022001189号-1

本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。第壹文秘仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知第壹文秘网,我们立即给予删除!