例10.4.frm

一本学习Visual Basic编程的好书

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H80000013&
   Caption         =   "Form1"
   ClientHeight    =   3945
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5130
   FillColor       =   &H00FFFFFF&
   LinkTopic       =   "Form1"
   ScaleHeight     =   3945
   ScaleWidth      =   5130
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   4560
      Top             =   120
   End
   Begin VB.Label Label4 
      BackColor       =   &H00FFFFFF&
      Caption         =   "12"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2520
      TabIndex        =   3
      Top             =   360
      Width           =   255
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      Caption         =   "6"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2640
      TabIndex        =   2
      Top             =   3240
      Width           =   135
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "3"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4080
      TabIndex        =   1
      Top             =   1800
      Width           =   135
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "9"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1080
      TabIndex        =   0
      Top             =   1800
      Width           =   135
   End
   Begin VB.Line LineH 
      BorderColor     =   &H000000FF&
      BorderWidth     =   4
      X1              =   2640
      X2              =   3240
      Y1              =   1920
      Y2              =   2400
   End
   Begin VB.Line LineM 
      BorderColor     =   &H0000C000&
      BorderWidth     =   2
      X1              =   2640
      X2              =   3000
      Y1              =   1920
      Y2              =   840
   End
   Begin VB.Line LineS 
      BorderColor     =   &H00FF0000&
      X1              =   2640
      X2              =   3960
      Y1              =   1920
      Y2              =   1920
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00FFFFFF&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      FillColor       =   &H00FFFFFF&
      Height          =   3375
      Left            =   960
      Shape           =   3  'Circle
      Top             =   240
      Width           =   3375
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit       '规定所有变量都要显式声明，见10.9.1节
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