注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

王朋波 廊坊师范学院信息技术提高班十一期

坚持,坚持,没有什么可以将自己打败的。加油……

 
 
 

日志

 
 

时钟演示  

2014-01-21 15:03:45|  分类: 【VB学习】 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
这几天一直在看vb视频,一开始看视频时,总感觉特别没意思。画面特别卡,也听不懂讲的是什么,不过在坚持着看下去的过程中慢慢的融入到其中,并且跟之前敲过的百例的某一些部分相对应后,自己都快要沉醉其中了。
我现在看到了第二十八集,但是视频没有声音,这无声电影着实看不明白也看不下去啊。所以我上网搜了一下相关视频,但是网上的也是无声的。这可把我愁死了,问别人怎么看,他们都说就是那么看下去的。不过我对这个时钟挺感兴趣的,就上网搜了一下时钟演示的相关资料。
  Option Explicit 
  DefDbl A-Z 
  Private Sub Form_Load() 
  timer1.Interval = 100 
  Width = 4000 
  Height = 4000 
  Left = Screen.Width \ 2 - 2000 
  Top = (Screen.Height - Height) \ 2 
  End Sub 
  Private Sub Form_Resize() 
  Dim i, Angle 
  Static flag As Boolean 
  If flag = False Then 
    flag = True 
  For i = 0 To 14 
  ’画出表盘12个点和时、分、秒共15个LINE 
    If i > 0 Then Load Line1(i) 
    Line1(i).Visible = True 
    Line1(i).BorderWidth = 5 
    Line1(i).BorderColor = RGB(0, 128, 0) ’设置LINE的粗细和颜色 
    Next i 
   End If 
  For i = 0 To 14 
    Scale (-1, 1)-(1, -1) 
    Angle = i * 2 * Atn(1) / 3 
    Line1(i).X1 = 0.9 * Cos(Angle) 
    Line1(i).Y1 = 0.9 * Sin(Angle) 
    Line1(i).X2 = Cos(Angle) 
    Line1(i).Y2 = Sin(Angle) 
    Next i 
   End Sub 
  Private Sub timer1_Timer() 
  Const HH = 0 
  Const MH = 13 
  Const SH = 14 
  Dim Angle 
  Static LS 
  If Second(Now) = LS Then Exit Sub 
  LS = Second(Now) 
  Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))’设置时针 
  Line1(HH).X1 = 0 
  Line1(HH).Y1 = 0 
  Line1(HH).X2 = 0.3 * Cos(Angle) 
  Line1(HH).Y2 = 0.3 * Sin(Angle) 
  Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60))’设置分针 
  Line1(MH).X1 = 0 
  Line1(MH).Y1 = 0 
  Line1(MH).X2 = 0.7 * Cos(Angle) 
  Line1(MH).Y2 = 0.7 * Sin(Angle) 
  Angle = 0.5236 * (75 - Second(Now)) 
  ’设置秒针 
  Line1(SH).X1 = 0 
  Line1(SH).Y1 = 0 
  Line1(SH).X2 = 0.8 * Cos(Angle) 
  Line1(SH).Y2 = 0.8 * Sin(Angle) 
  form1.Caption = Str(Now()) 
  '窗口显示精确的日期和数字化的时间 
  End Sub 
http://www.d9soft.com/article/2006/2-16/Article4534_1.htm这是这个过程的网址,网上虽然有很多关于时钟演示的程序,不过我觉得这个挺不错的,因为它的每一行代码都有超链接,你可以查询代码的意思,更好的理解程序。


  评论这张
 
阅读(37)| 评论(33)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017