求视频:vb编写多功能时钟 视频

求视频:vb编写多功能时钟 视频

上百度视频。

添加 line1 line2 line3 timer1 dim xx1%, yy1% '宣告变量xx1,yy1为整型(给圆心用的) private sub form_load() me.autoredraw = true '重画为真 '窗体置中 me.move (screen.width - me.width) \ 2, (screen.height - meiheight) \ 2 '计算圆心的x轴 xx1 xx1 = me.width \ 2 '计算圆心的y轴 yy1 yy1 = (me.height - 405) \ 2 '将下面3根针的起点x1,y1全定位在圆心上 line1.x1 = xx1: line1.y1 = yy1 line2.x1 = xx1: line2.y1 = yy1 line3.x1 = xx1: line3.y1 = yy1 '画钟的外匡让线条粗一点 me.drawwidth = 5 '画一个圆 me.circle (xx1, yy1), 950 line2.borderwidth = 1 '秒针的粗度 line2.bordercolor = qbcolor(12) '秒针的颜色 line1.borderwidth = 2 '分针的粗度 line1.bordercolor = qbcolor(14) '分针的颜色 line3.borderwidth = 3 '时针的粗度 line3.bordercolor = qbcolor(10) '时针的颜色 timer1.interval = 500 end sub private sub timer1_timer() me.caption = time '标题栏显示现在时间 ' second hand '画秒针 '计算秒针的角度,每一秒是 360度除以60秒=6度, 所以要乘上6 sdeg = second(time) * 6 'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 秒针跑了n度就乘上n srad = (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)) ' minute hand '画分针 '计算分针的角度,每一分是360度除以60分=6度, 所以要乘上6,秒针动分针也会动,所以还要加上秒针移动所产生的分针移动. '秒针转了1圈360度,分针才会前进1分钟=6度,所以比例是 6/360等于 1/60 mdeg = minute(time) * 6 + (sdeg * 1 / 60) 'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 分针跑了n度就乘上n mrad = (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)) ' hour hand '画时针 '计算时针的角度,每一小时时针跑30度,分针动时针也会动,所以还要加上分针移动所产生的时针移动. '分针转了1圈360度,时针才会前进1刻划=30度,所以比例是 30/360等于 1/12 hdeg = hour(time) * 30 + (mdeg / 12) 'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 时针跑了n度就乘上n hrad = (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)) end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息