小制作- -炫彩水晶钟 TOM搬家

 2009-05-02 12:50:59 分类：提高班学习

 

 

    为了牛人展示，我们也算是好好练练手哈~ 小兵主刀的，“超酷超炫石英钟”，很好很大。

 

    可是在如何判断加载指针问题上卡壳了，可是如此难题经我破解了哈~

 

     如是，我就有了如下的总结哈~

 

（由于水平有限，恐有解释不到、错误之处，还请大家不吝斧正~）

 

     这部分的构思在整个程序来说有着举足轻重的作用，下面我们来破解一下如何据实载入表盘指针。

 

form1/form2/form3/form4  分别为主窗体、时针窗体、分针窗体、秒针窗体。

Form2.Picture1.Picture = LoadPicture(App.Path & "PH.bmp")    '前期读入时针图像

 

下面代码实现的是如何具体地载入时、分、秒表盘指针的操作：

 

Private Sub Timer1_Timer() Static hora As Integer, minutos As Integer, segundos As Integer, x As String, Frame As Long x = Format(Now, "hh:mm:ss") '格式化当前时间 hora = Val(Mid$(x, 1, 2)) Mod 12 '产生0~11 的数字 minutos = Val(Mid$(x, 4, 2)) '读取相应的分 segundos = Val(Mid$(x, 7, 2)) '读取相应的秒 With Form2 Frame = ((hora Mod 12) * 2 - (minutos > 30)) * ((.Picture1.Height / 24)) '分析可知表盘时针所在的PH.bmp图像中共有24个指针，分别对应0~23；而其中（minutos>30）是bolloean 类型，只有0和1值；由于原来的12 个对应于现在的24个，所以有(hora Mod 12 )* 2;在（Picture1.Height/24）是说将PH.bmp图像均分为24分，也就是每个表盘时针是等大的分开的，排列为一队，这就有点那个数组的意思哈~~~那么整个的Frame也就是表示的现在系统时间相对应的那个指针在PH.bmp中的位置/高度。 .Picture2.PaintPicture .Picture1,0,0, .Picture1.Width, .Picture1.Height / 24, 0, Frame, .Picture1.Width, .Picture1.Height / 24 '具体需要解决的问题是paintpicture如何使用：object.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcodex1,y1 :指的是object上绘制picture1的目标坐标，也就是实例中的picture2上画复制picture1的坐标点，说白了也就是picture2里的东西放到picture1的位置坐标。width1,height1:指的就是宽、高，也就是大小了。就是提前在picture1上圈定一个范围用来放picture2的东西。x2,y2:也就是裁剪区的坐标，说白了是，裁剪的坐标始点，那么裁剪就是从这里开始的，而不是到这里为止。width2,height2:对应的就是源裁剪区，也就是你要裁取的大小范围。那么这里的 0,Frame 就是对应到了 HP.bmp 时针表针图像里具体哪个表针的位置了。如此而已，超赞视觉效果的表针就算是从图像中加载成功了。 End With'分针图像由四个.bmp图像组成。60个分针指针由picture1（0）、picture1（1）、picture1（2）picture1（3）分别承载。 If minutos < 15 Then 'minutos是一个0~14的数 With Form3 Frame = minutos * (.Picture1(0).Height / 15) .Picture2.PaintPicture .Picture1(0), 0, 0, .Picture1(0).Width, .Picture1(0).Height / 15, 0, Frame, .Picture1(0).Width, .Picture1(0).Height / 15 '同以上时针的载入分析。 End With GoTo siga '进行秒针的判断、载入，优化程序，提高效率。 End If If minutos > 14 And minutos < 30 Then '优化查找指针。 minutos = minutos - 15 With Form3 Frame = minutos * (Form3.Picture1(1).Height / 15) .Picture2.PaintPicture Form3.Picture1(1), 0, 0, Form3.Picture1(1).Width, Form3.Picture1(1).Height / 15, 0, Frame, Form3.Picture1(1).Width, Form3.Picture1(1).Height / 15 End With GoTo siga End If If minutos > 29 And minutos < 45 Then minutos = minutos - 30 '产生的总是0~14 间的数 With Form3 Frame = minutos * (.Picture1(2).Height / 15) .Picture2.PaintPicture .Picture1(2), 0, 0, .Picture1(2).Width, .Picture1(2).Height / 15, 0, Frame, .Picture1(2).Width, .Picture1(2).Height / 15 End With GoTo siga End If If minutos > 44 Then minutos = minutos - 45 With Form3 Frame = minutos * (.Picture1(3).Height / 15) .Picture2.PaintPicture .Picture1(3), 0, 0, .Picture1(3).Width, .Picture1(3).Height / 15, 0, Frame, .Picture1(3).Width, .Picture1(3).Height / 15 End With End If siga: '具体判断秒针载入 If segundos < 15 Then With Form4 Frame = segundos * (.Picture1(0).Height / 15) .Picture2.PaintPicture .Picture1(0), 0, 0, .Picture1(0).Width, .Picture1(0).Height / 15, 0, Frame, .Picture1(0).Width, .Picture1(0).Height / 15 End With GoTo fim End If If segundos > 14 And segundos < 30 Then segundos = segundos - 15 With Form4 Frame = segundos * (.Picture1(1).Height / 15) .Picture2.PaintPicture .Picture1(1), 0, 0, .Picture1(1).Width, .Picture1(1).Height / 15, 0, Frame, .Picture1(1).Width, .Picture1(1).Height / 15 End With GoTo fim End If If segundos > 29 And segundos < 45 Then segundos = segundos - 30 With Form4 Frame = segundos * (.Picture1(2).Height / 15) .Picture2.PaintPicture .Picture1(2), 0, 0, .Picture1(2).Width, .Picture1(2).Height / 15, 0, Frame, .Picture1(2).Width, .Picture1(2).Height / 15 End With GoTo fim End If If segundos > 44 Then segundos = segundos - 45 With Form4 Frame = segundos * (.Picture1(3).Height / 15) .Picture2.PaintPicture .Picture1(3), 0, 0, .Picture1(3).Width, .Picture1(3).Height / 15, 0, Frame, .Picture1(3).Width, .Picture1(3).Height / 15 End With End Iffim: '为空，已完成了对时间指针的加载过程，如是就直接跳转到End Sub。End Sub

 

 

 

 

 

表盘图

 

 

 

指针图