miaobiao.frm

应该是不错的源码 望朋友们分享 应该是不错的源码 望朋友们分享

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "秒表"
   ClientHeight    =   7335
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9330
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   21.75
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   7335
   ScaleWidth      =   9330
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   1200
      Top             =   6360
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      Height          =   615
      Left            =   6720
      TabIndex        =   3
      Top             =   4200
      Width           =   2175
   End
   Begin VB.CommandButton Command2 
      Caption         =   "停止"
      Height          =   735
      Left            =   6720
      TabIndex        =   2
      Top             =   2880
      Width           =   2175
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始"
      Height          =   735
      Left            =   6720
      TabIndex        =   1
      Top             =   1440
      Width           =   2175
   End
   Begin VB.PictureBox Picture1 
      ForeColor       =   &H00C00000&
      Height          =   4695
      Left            =   960
      ScaleHeight     =   4635
      ScaleWidth      =   4995
      TabIndex        =   0
      Top             =   960
      Width           =   5055
      Begin VB.Label Label4 
         Caption         =   "45"
         Height          =   615
         Left            =   480
         TabIndex        =   7
         Top             =   2160
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "30"
         Height          =   375
         Left            =   2280
         TabIndex        =   6
         Top             =   3840
         Width           =   735
      End
      Begin VB.Shape Shape1 
         BorderColor     =   &H000000FF&
         FillColor       =   &H00C0FFFF&
         Height          =   4095
         Left            =   360
         Shape           =   3  'Circle
         Top             =   240
         Width           =   4215
      End
      Begin VB.Label Label2 
         Caption         =   "15"
         Height          =   495
         Left            =   3960
         TabIndex        =   5
         Top             =   2160
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "0"
         Height          =   375
         Left            =   2400
         TabIndex        =   4
         Top             =   360
         Width           =   495
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00C00000&
         BorderWidth     =   3
         X1              =   2520
         X2              =   2520
         Y1              =   840
         Y2              =   2400
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim arlph
Const pi = 3.1415926
Dim i As Integer


Private Sub Command1_Click()
Line1.X2 = 0
Line1.Y2 = 1
arlph = pi / 2
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 200
Picture1.Scale (-2, 2)-(2, -2)
Line1.X1 = 0
Line1.Y1 = 0
Line1.X2 = 0
Line1.Y2 = 1
arlph = pi / 2

End Sub

Private Sub Timer1_Timer()
arlph = arlph - 2 * pi / 60 '360 / 60 * pi / 180
Line1.X2 = 1 * Cos(arlph)
Line1.Y2 = 1 * Sin(arlph)

End Sub