vb时钟模拟的课程设计报告

《vb时钟模拟的课程设计报告》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、沈阳航空航天大学课程设计学号__2011040301131______班级__14030103_______姓名__赵双_______指导教师__董如楠________2013年3月18日沈阳航空航天大学课程设计任务书学院：空军后备军官学院专业：飞行器制造工程班级：14030103学号：2011040301131题目：时钟模拟一、课程设计时间2013年3月11日~15日（第3周），共计1周。二、课程设计内容在窗体上演示一个正在工作的有时、分、秒指针的时钟，要求：可以对时钟的时间进行手工修正。用户界面中的菜单（或命令按钮）至少应包括“运行时钟”、“修

2、改时间”、“退出”3项。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：________学生签名：________五、成绩六、教师评语第13页，共13页目录需求分析4设计分析5关键技术6总结9完整的源程序10参考文献13第13页，共13页需求分析模拟时钟运行，主要要求是设计一个有时针，分针和秒针的时钟。

3、其应该具有“运行时钟”，“修改时钟”和“退出程序”3种功能。要求：①在窗体上设计一个具有时针，分针和秒针的表盘。此表盘用户菜单至少应包括“运行时钟”，“修改时钟”和“退出”3项。②能够运行时钟。③能够随时对时钟进行修改。④能够随时退出运行程序。第13页，共13页设计分析（1）基本原理：建立程序设计与图形方法绘制图形的综合应用。用Line方法For循环以及Timer控件使时钟能够动态运行（2）设计：开始调节时钟修改时间确定修改暂停或开始对时钟进行调整时钟重新运行退出结束程序第13页，共13页关键技术1声明变量，定义窗体ConstPI=3.141592

4、6DimBaseXAsInteger,BaseYAsInteger,RAsInteger（对变量进行声明）PrivateSubForm_Load()Me.ScaleMode=3Me.Width=5505Me.Height=5475EndSub（定义窗体的高度和宽度）2绘制表盘的代码如下PrivateSubbiaopan()DimiAsIntegerBaseX=Me.ScaleWidth/2BaseY=Me.ScaleHeight/2IfBaseX>BaseYThenR=BaseX*0.6IfBaseX

5、体的高度和宽度发生改变时，使得表盘始终在窗体的中心）Fori=0To360Step6IfiMod30=0ThenMe.DrawWidth=2DrawLineBaseX+(R-3)*Sin(i*PI/180),BaseY-(R-3)*Cos(i*PI/180),BaseX+(R-8)*Sin(i*PI/180),BaseY-(R-8)*Cos(i*PI/180),3（在表盘时针刻度的地方绘制断线）Else:Me.PSet(BaseX+(R-3)*Sin(i*PI/180),BaseY-(R-3)*Cos(i*PI/180)),vbBlue（在表盘分针

6、刻度的地方画点）EndIfNextiMe.DrawWidth=1Me.Circle(BaseX,BaseY),R,vbRedEndSub第13页，共13页3画线函数代码如下PrivateSubDrawLine(x1AsInteger,y1AsInteger,x2AsInteger,y2AsInteger,FlagAsInteger)（自己编写一个画线的函数）StaticOldSX1AsInteger,OldSX2AsInteger,OldSY1AsInteger,OldSY2AsIntegerStaticOldMX1AsInteger,OldMX2

7、AsInteger,OldMY1AsInteger,OldMY2AsIntegerStaticOldHX1AsInteger,OldHX2AsInteger,OldHY1AsInteger,OldHY2AsIntegerSelectCaseFlagCase0Me.DrawWidth=1Me.Line(OldSX1,OldSY1)-(OldSX2,OldSY2),BackColorMe.Line(x1,y1)-(x2,y2)OldSX1=x1OldSX2=x2OldSY1=y1OldSY2=y2Case1Me.DrawWidth=2Me.Line(O

8、ldMX1,OldMY1)-(OldMX2,OldMY2),BackColorMe.Line(x1,y1)-(x2,y2)