form1.frm

一个vb实现的倒计时器

VERSION 5.00
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form Form1 
   Caption         =   "计时器"
   ClientHeight    =   3885
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7080
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   72
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H000000FF&
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   3885
   ScaleWidth      =   7080
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   4560
      Top             =   1320
   End
   Begin VB.CommandButton Command2 
      Caption         =   "暂停"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1080
      TabIndex        =   7
      Top             =   840
      Width           =   855
   End
   Begin MCI.MMControl MMC1 
      Height          =   330
      Left            =   1800
      TabIndex        =   6
      Top             =   1440
      Visible         =   0   'False
      Width           =   810
      _ExtentX        =   1429
      _ExtentY        =   582
      _Version        =   393216
      PlayEnabled     =   -1  'True
      PrevVisible     =   0   'False
      NextVisible     =   0   'False
      PauseVisible    =   0   'False
      BackVisible     =   0   'False
      StepVisible     =   0   'False
      RecordVisible   =   0   'False
      EjectVisible    =   0   'False
      DeviceType      =   ""
      FileName        =   ""
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   840
      Width           =   855
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   4800
      Top             =   240
   End
   Begin MCI.MMControl MMC2 
      Height          =   330
      Left            =   480
      TabIndex        =   8
      Top             =   1440
      Visible         =   0   'False
      Width           =   810
      _ExtentX        =   1429
      _ExtentY        =   582
      _Version        =   393216
      PlayEnabled     =   -1  'True
      PrevVisible     =   0   'False
      NextVisible     =   0   'False
      PauseVisible    =   0   'False
      BackVisible     =   0   'False
      StepVisible     =   0   'False
      RecordVisible   =   0   'False
      EjectVisible    =   0   'False
      DeviceType      =   ""
      FileName        =   ""
   End
   Begin VB.Label Ls1 
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   615
      Left            =   1560
      TabIndex        =   5
      Top             =   120
      Width           =   375
   End
   Begin VB.Label Ls2 
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   615
      Left            =   1200
      TabIndex        =   4
      Top             =   120
      Width           =   375
   End
   Begin VB.Label L1 
      BackStyle       =   0  'Transparent
      Caption         =   ":"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   615
      Left            =   840
      TabIndex        =   3
      Top             =   120
      Width           =   375
   End
   Begin VB.Label Lm1 
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   615
      Left            =   480
      TabIndex        =   2
      Top             =   120
      Width           =   375
   End
   Begin VB.Label Lm2 
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   615
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   375
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
  Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
                          ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
                          ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  Private Const HWND_TOPMOST = -1
  Private Const HWND_NOTOPMOST = -2
  Private Const INTERVALUE = 1000
  Dim m1 As Integer
  Dim m2 As Integer
  Dim s1 As Integer
  Dim s2 As Integer
  Dim str As String
  Dim flag1 As Boolean
  Dim flag2 As Boolean
  Dim bb As Boolean
  Dim bb1 As Boolean
  Dim bb2 As Boolean
  Dim bb3 As Boolean
  
  
Private Sub Init()
    Lm2.Caption = 0: Lm1.Caption = 7: Ls2.Caption = 0: Ls1.Caption = 0
    Lm2.ForeColor = &HC000&: L1.ForeColor = &HC000&: Lm1.ForeColor = &HC000&: Ls2.ForeColor = &HC000&: Ls1.ForeColor = &HC000&
    m2 = 0: m1 = 7: s1 = 0: s2 = 0
    Timer1.Enabled = False
    Timer2.Enabled = False
    bb = True: bb1 = True: bb2 = False: bb3 = True
    Command2.Enabled = False
End Sub


Private Sub Command1_Click()
    If bb = True Then
        Command1.Caption = "重置"
        Command2.Caption = "暂停"
        Command1.Enabled = False
        Timer1.Enabled = True
        Timer1.Interval = INTERVALUE
        bb = False
        If bb2 = False Then
            Command2.Enabled = True
        End If
        
    Else
        Command1.Caption = "开始"
        Command2.Enabled = False
        Call Init
    End If
    
End Sub

Private Sub Command2_Click()
    If bb1 = True Then
        Timer1.Enabled = False
        Timer2.Enabled = False
        bb1 = False
        Command1.Enabled = True
        Command2.Caption = "继续"
 
    ElseIf bb3 = True Then
        Timer1.Enabled = True
        bb1 = True
        Command1.Enabled = False
        Command2.Caption = "暂停"
    ElseIf bb3 = False Then
        Timer2.Enabled = True
        bb1 = True
        Command1.Enabled = False
        Command2.Caption = "暂停"
   End If
End Sub

Private Sub Form_Load()
  Dim lngTemp As Long
  lngTemp = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 300, 100, 150, 110, FLAGS)
  Call Init
End Sub



Private Sub Timer1_Timer()
    
      flag1 = True
      flag2 = True
     If s1 = 0 And s2 <> 0 Then
        s1 = 9
        s2 = s2 - 1
        flag1 = False
    End If
    
    If s1 <> 0 And flag1 Then
       s1 = s1 - 1
       flag2 = False
    End If
    
    If m2 <> 0 And m1 = 0 And s2 = 0 And s1 = 0 Then
        m2 = m2 - 1
        m1 = 9
        s2 = 5
        s1 = 9
     End If
     If m2 <> 0 And m1 <> 0 And s2 = 0 And s1 = 0 Then
        m1 = m1 - 1
        s2 = 5
        s1 = 9
      End If
     If m2 = 0 And m1 <> 0 And m1 <> 1 And s2 = 0 And s1 = 0 And flag2 Then
        m1 = m1 - 1
        s2 = 5
        s1 = 9
      End If
    
    If m1 = 1 And m2 = 0 And s2 = 0 And s1 = 0 Then
       Lm2.ForeColor = &HC0C0&: Lm1.ForeColor = &HC0C0&: L1.ForeColor = &HC0C0&: Ls2.ForeColor = &HC0C0&: Ls1.ForeColor = &HC0C0&
        MMC1.Command = "close"
        MMC1.FileName = App.Path & "\short.wav"
        MMC1.Command = "open"
        MMC1.Command = "play"
        m1 = m1 - 1
        s2 = 5
        s1 = 9
    End If
    
    Lm2.Caption = m2
    Lm1.Caption = m1
    Ls2.Caption = s2
    Ls1.Caption = s1
    
    If m1 = 0 And m2 = 0 And s2 = 0 And s1 = 0 Then
     Lm2.ForeColor = &HFF&: Lm1.ForeColor = &HFF&: L1.ForeColor = &HFF&: Ls2.ForeColor = &HFF&: Ls1.ForeColor = &HFF&
        MMC2.Command = "close"
        MMC2.FileName = App.Path & "\long.wav"
        MMC2.Command = "open"
        MMC2.Command = "play"
        Timer1.Enabled = False
        Timer2.Enabled = True
        Timer2.Interval = INTERVALUE

    End If
End Sub


    
Private Sub SetFormTop(frm As Form, blnTop As Boolean)
                  '窗体放在最前面
    Dim lngTemp     As Long
            
        If blnTop Then
            lngTemp = SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
        Else
            lngTemp = SetWindowPos(frm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
        End If
End Sub


Private Sub Timer2_Timer()
bb3 = False
flag1 = True
If s1 <> 9 And flag1 Then
s1 = s1 + 1
flag1 = False
End If
If s1 = 9 And s2 < 5 And flag1 Then
s2 = s2 + 1
s1 = 0
End If
If s1 = 9 And s2 = 5 And m1 <> 9 And flag1 Then
s1 = 0
s2 = 0
m1 = m1 + 1
End If
If s1 = 9 And s2 = 5 And m1 = 9 And flag1 Then
s1 = 0
s2 = 0
m1 = 0
m2 = m2 + 1
End If
    Lm2.Caption = m2
    Lm1.Caption = m1
    Ls2.Caption = s2
    Ls1.Caption = s1
End Sub