核心代码：工程发你邮箱了！PrivateSubTimer1_Timer()Me.Caption=Time\'标题栏显示现在时间\'SecondHand\'画秒针\'计算秒针的角度,每一秒是360度除以60秒=6度,所以要乘上6sdeg=Second(Time)*6\'vb是以弧度为单位来计算,所以角度换算弧度是3.14/180,秒针跑了N度就乘上Nsrad=(3.14/180)*sdeg\'900是秒针的长度,以圆心(line2的x1,y1)为准,计算出在这个弧度时line2.x2在什么位置Line2.X2=Line2.X1(900*Sin(srad))\'900是秒针的长度,以圆心(line2的x1,y1)为准,计算出在这个弧度时line2.y2在什么位置Line2.Y2=Line2.Y1-(900*Cos(srad))\'MinuteHand\'画分针\'计算分针的角度,每一分是360度除以60分=6度,所以要乘上6,秒针动分针也会动,所以还要加上秒针移动所产生的分针移动.\'秒针转了1圈360度,分针才会前进1分钟=6度,所以比例是6/360等于1/60Mdeg=Minute(Time)*6(sdeg*1/60)\'vb是以弧度为单位来计算,所以角度换算弧度是3.14/180,分针跑了N度就乘上Nmrad=(3.14/180)*Mdeg\'vb是以弧度为单位来计算,所以角度换算弧度是3.14/180,分针跑了N度就乘上N\'750是分针的长度,以圆心(line1的x1,y1)为准,计算出在这个弧度时line1.x2在什么位置Line1.X2=(750*Sin(mrad))Line1.X1\'750是分针的长度,以圆心(line1的x1,y1)为准,计算出在这个弧度时line1.y2在什么位置Line1.Y2=Line1.Y1-(750*Cos(mrad))\'HourHand\'画时针\'计算时针的角度,每一小时时针跑30度,分针动时针也会动,所以还要加上分针移动所产生的时针移动.\'分针转了1圈360度,时针才会前进1刻划=30度,所以比例是30/360等于1/12hdeg=Hour(Time)*30(Mdeg/12)\'vb是以弧度为单位来计算,所以角度换算弧度是3.14/180,时针跑了N度就乘上Nhrad=(3.14/180)*hdeg\'500是时针的长度,以圆心(line3的x1,y1)为准,计算出在这个弧度时line3.x2在什么位置Line3.X2=(500*Sin(hrad))Line3.X1\'500是时针的长度,以圆心(line3的x1,y1)为准,计算出在这个弧度时line3.y2在什么位置Line3.Y2=Line3.Y1-(500*Cos(hrad))EndSub
|
