| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 33205 人关注过本帖, 1 人收藏
标题:用VB编写简单的时钟程序(有时、分、秒针转动)
取消只看楼主 加入收藏
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏(1)
 问题点数:0 回复次数:3 
用VB编写简单的时钟程序(有时、分、秒针转动)
'/////////////////////////////////
'小闹钟示例
'Written By griefforyou
'在窗体中添加一个Timer控件,将Interval设为1000以下。
'////////////////////////////////

Option Explicit


Const PI = 3.1415926
Dim BaseX As Integer, BaseY As Integer, R As Integer
Dim r1 As Integer, r2 As Integer, r3 As Integer

Private Sub Form_Load()
    Me.ScaleMode = 3
    Me.AutoRedraw = True
   
    If Me.Width < 3000 Then Me.Width = 3000
    If Me.Height < 3000 Then Me.Height = 3000
   
End Sub

Private Sub Init()
Dim i As Integer

    BaseX = Me.ScaleWidth / 2
    BaseY = Me.ScaleHeight / 2
   
    R = IIf(BaseX > BaseY, BaseY * 0.8, BaseY * 0.8)
    r1 = R * 0.2
    r2 = R * 0.1
    r3 = R * 0.05

    For i = 0 To 360 Step 6
        
        If i Mod 30 = 0 Then    '时
            Me.DrawWidth = 2
            DrawLine BaseX + (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.DrawWidth = 2
            Me.PSet (BaseX + (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180))
        End If
    Next
   
    Me.DrawWidth = 1
    Me.Circle (BaseX, BaseY), R
End Sub

'绘制指针
Private Sub DrawClock()
Dim Second As Integer
Dim Minute As Integer
Dim Hours As Integer

    Second = DatePart("s", Time)
    Minute = DatePart("n", Time)
    Hours = DatePart("h", Time)
    If Hours > 12 Then
        Hours = Hours - 12
    End If

    Me.DrawWidth = 1
    Me.Circle (BaseX, BaseY), 4

    DrawLine BaseX - r1 * Sin(Second * PI / 30), BaseY + r1 * Cos(Second * PI / 30), BaseX + (R - 10) * Sin(Second * PI / 30), BaseY - (R - 10) * Cos(Second * PI / 30), 0
    DrawLine BaseX - r2 * Sin(Minute * PI / 30), BaseY + r2 * Cos(Minute * PI / 30), BaseX + R * 0.8 * Sin(Minute * PI / 30), BaseY - R * 0.8 * Cos(Minute * PI / 30), 1
    DrawLine BaseX - r3 * Sin((Hours + Minute / 60) * PI / 6), BaseY + r3 * Cos((Hours + Minute / 60) * PI / 6), BaseX + R * 0.6 * Sin((Hours + Minute / 60) * PI / 6), BaseY - R * 0.6 * Cos((Hours + Minute / 60) * PI / 6), 2
End Sub

'画线函数
Private Sub DrawLine(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, Flag As Integer)
Static OldSX1 As Integer, OldSX2 As Integer, OldSY1 As Integer, OldSY2 As Integer
Static OldMX1 As Integer, OldMX2 As Integer, OldMY1 As Integer, OldMY2 As Integer
Static OldHX1 As Integer, OldHX2 As Integer, OldHY1 As Integer, OldHY2 As Integer
    Select Case Flag
        Case 0
            Me.DrawWidth = 1
            Me.Line (OldSX1, OldSY1)-(OldSX2, OldSY2), Me.BackColor
            Me.Line (x1, y1)-(x2, y2)
            OldSX1 = x1
            OldSX2 = x2
            OldSY1 = y1
            OldSY2 = y2
        Case 1
            Me.DrawWidth = 2
            Me.Line (OldMX1, OldMY1)-(OldMX2, OldMY2), Me.BackColor
            Me.Line (x1, y1)-(x2, y2)
            OldMX1 = x1
            OldMX2 = x2
            OldMY1 = y1
            OldMY2 = y2
        Case 2
            Me.DrawWidth = 3
            Me.Line (OldHX1, OldHY1)-(OldHX2, OldHY2), Me.BackColor
            Me.Line (x1, y1)-(x2, y2)
            OldHX1 = x1
            OldHX2 = x2
            OldHY1 = y1
            OldHY2 = y2
        Case Else
            Me.Line (x1, y1)-(x2, y2)
    End Select
End Sub

Private Sub Form_Resize()
    Me.Cls
    Call Init
End Sub

Private Sub Timer1_Timer()
    Call DrawClock
End Sub
搜索更多相关主题的帖子: 时钟 秒针 Integer 
2005-05-13 17:11
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

把加减号弄反了,Sin Cos也弄反了。。。 我也是河东。 Option Explicit Const PI = 3.14159 Private len_S As Single, len_M As Single, len_H As Single

Private Sub Form_Load() len_S = Sqr((LineS.y2 - LineS.y1) ^ 2 + (LineS.x2 - LineS.x1) ^ 2) len_M = Sqr((LineM.y2 - LineM.y1) ^ 2 + (LineM.x2 - LineM.x1) ^ 2) len_H = Sqr((LineH.y2 - LineH.y1) ^ 2 + (LineH.x2 - LineH.x1) ^ 2) Call Timer1_Timer End Sub

Private Sub Timer1_Timer() Dim s As Single, m As Single, h As Single Form1.Caption = Time s = Second(Time) m = Minute(Time) h = Hour(Time) + m / 60 LineS.x2 = LineS.x1 + len_S * Sin(PI * s / 30) LineS.y2 = LineS.y1 - len_S * Cos(PI * s / 30) LineM.x2 = LineM.x1 + len_M * Sin(PI * m / 30) LineM.y2 = LineM.y1 - len_M * Cos(PI * m / 30) If h >= 12 Then h = h - 12 LineH.x2 = LineH.x1 + len_H * Sin(PI * h / 6) LineH.y2 = LineH.y1 - len_H * Cos(PI * h / 6) End Sub

[此贴子已经被作者于2005-5-18 23:12:59编辑过]


天津网站建设 http://www./
2005-05-18 23:10
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
你添加了一个Timer控件并设置Interval属性为500吗?

天津网站建设 http://www./
2005-05-19 13:05
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
以下是引用天际流星在2005-5-19 11:32:29的发言: 我是红桥区的!!有QQ吗联系呀!!!
你眼睛一定很小。
图片附件: 游客没有浏览图片的权限,请 登录注册

天津网站建设 http://www./
2005-05-19 13:12
快速回复:用VB编写简单的时钟程序(有时、分、秒针转动)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026413 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved